login i delphi
Hej eksperter...Jeg er i gang med at lave et login i delphi. jeg har så et lille problem. jeg kan ikke få den til at køre som jeg gerne vil. men håber meget på at i vil hjælpe mig.
her et mit login kode...
procedure TForm4.Button1Click(Sender: TObject);
begin
if ADOTable1.Locate('user',edit1.Text,[])=true then
begin
if adotable1.Locate('pass',edit2.Text,[])=true then
begin
Form6.caption:=('Velkommen til Administrator - ',adotable1.FieldByName('navn').AsString);
form6.show;
form2.WindowState:=wsminimized;
close;
end
else
showmessage('Dit Kodeord er forker');
end
else
showmessage('Dit Bruger ID er forkert');
end;
problemet ligger i denne linie....
Form6.caption:=('Velkommen til Administrator - ',adotable1.FieldByName('navn').AsString);
vil gerne have den til at skrive det sådan her...
Velkommen til Administrator - også dit fulde navn her
