28. april 2006 - 19:46
Der er
20 kommentarer og 1 løsning
hjælp til login
Jeg er ved at lave et login i delphi 6 Jeg har fået lavet min connection til den database jeg kalder for user. Men nu har jeg bare det problem at det jeg skriver i brugernavn og i password feltet gerne skulle findes i databasen. så hvis nogen vil hjælpe mig med det bliver jeg glad. her kommer selve min login form med hvad jeg har brugt af componenter... ******************************************************************************** unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ADODB; type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; brugernavn: TEdit; password: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; ADOConnection1: TADOConnection; Table1: TTable; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit3; {$R *.dfm} procedure TForm2.Button2Click(Sender: TObject); begin Form3.Show; end; ******************************************************************************** er det muligt at når man er logget in at ens navn kan stå i status linien i panel 2? end.
Annonceindlæg fra Axcess Nordic
28. april 2006 - 20:11
#2
den anden er ved at blive lukket ned...
28. april 2006 - 20:59
#3
Hvis du vil skifte bruger, så skal den første være lukket helt ned inden du må oprette en ny.
28. april 2006 - 23:37
#4
Ja det er muligt med noget hen af StatusBar1.Panels[5].text:=Loginform.useredit.text;
30. april 2006 - 09:48
#5
vallemanden: ude fra min kode hvad skal jeg da gøre der? Button1 er min login knap... kan du ud fra min kode jeg har sat ind guide mig igennem? sådan at det kommer til at virke?
30. april 2006 - 17:24
#6
Først kan jeg IKKE se du har en statusbar på Form2, så den skal du have på først procedure TForm2.Button1Click(Sender: TObject); begin StatusBar1.Panels[1].text:=brugernavn.text; end;
30. april 2006 - 20:43
#7
vallemanden min statusbar er på form1 du skal logge på for at komme videre til form1 hvor at dit brugernavn skal stå i min statusbar
procedure TForm2.Button1Click(Sender: TObject); begin form1.StatusBar1.Panels[1].text:=brugernavn.text; end; Ellers ved jeg ikke hvad det er du er ude efter og kan ikke hjælpe dig sorry
når jeg trykker på login knappen det vil sige Tform2.button1Click skal den vel lave noget foruden at gå videre til form1 og lukke form2 den skal vel have noget kode så den kan hente bruger oplysningerne fra databesen der hedder user.db jeg er ude efter at finde ud af hvordan jeg programmere det så den henter dine brugeroplysniger og placere dit brugernavn i statusbaren
det er da også det den kode gør(bare ikke fra databasen)Den henter det der er intastet som brugernavn procedure TForm2.Button1Click(Sender: TObject); begin form1.StatusBar1.Panels[1].text:=brugernavn.text; Form1.show; Form2.Close; end;
ok man skal have den til at hente fra min database der hedder user.db
undskyld mig men hvorfor skal den hente det fra din DB? Du har jo den oplysning du søger i Brugernavn.text
Query1.close; Query1.sql.clear; Query1.sql.add('Select * From User'); Query1.open; Query1.locate('usernavn',Brugernavn.text,[]); form1.StatusBar1.Panels[1].text:=Query1.fieldbyname('usernavn').AsString; (usernavn ændres til field navnet i din DB)
det er fordi jeg også skal bruge et password
øhh?? "er det muligt at når man er logget in at ens navn kan stå i status linien i panel 2? "
Query1.close; Query1.sql.clear; Query1.sql.add('Select * From User'); Query1.open; Query1.locate('usernavn',Brugernavn.text,[]); pass:=Query1.fieldbyname('password').AsString; (pass er en string variabel) (password skiftes ud med feltet i din tabel som du skal bruge) du kan evt. kontakte mig på MSN brian@night.dk
men du vil mene det er bedst uden database når man skal ind i programmet?
nej da!! jeg gik bare ud fra at du havde lavet din login, og bare skulle bruge brugernavnet
er det når jeg trykker på login knappen at den kode du har sendt skal stå?
ja, hvis du har lavet din connect bruger du MSN?
Kurser inden for grundlæggende programmering