Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Table1.Locate('Username', Edit1.Text, [loCaseInsensitive]) = true then
if Table1.Locate('Password', Edit2.Text, [loCaseInsensitive]) = true then
MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0)
Form2.ShowModal
else
MessageDlg('Error. Please Enter .....', mtError,[mbOk], 0)
end;
Hi, kann mir wer sagen, warum da kommt: Semikolon oder Operator fehlt?
ohne das Form2.ShowMdal klappt alles wunderbar.
Gruß bY