form2.show;
form1.hide;
IBQuery1.SQL.clear; IBQuery1.SQL.add('Select * from USER_ACCESS where USERID = '+ edit1.Text+'') ; IBQuery1.Active := true; UserId := IBQuery1.FieldByname('USERID').AsInteger; pasword:= IBQuery1.Fieldbyname('PASWORD').AsString; name1 := IBQuery1.fieldbyname('NAME').AsString; privilege := IBQuery1.fieldbyname('USERTYPE').AsString; if((UserId = StrToInt(edit1.Text)) And (pasword = edit2.Text)) THEN begin ShowMessage('login Successful ' + name1); form2.Show; Form1.Hide; end else ShowMessage('Wrong Password'); end;
ShowModal
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)