给你一段代码吧:
procedure Tfrm_load_n.SpeedButton1Click(Sender: TObject);
begin
if ( edt_uses.Text = '' ) and ( edt_pwd.Text = '' ) then
begin
Showmessage('请登陆!');
edt_uses.SetFocus;
end
else
begin
DataModule1.adoqry_load_mx.Close;
DataModule1.adoqry_load_mx.open();
DataModule1.adoqry_load_mx.First();
while not DataModule1.adoqry_load_mx.Eof do
begin
if ( DataModule1.adoqry_load_mx.FieldByName('FName').AsString = edt_uses.Text ) and ( DataModule1.adoqry_load_mx.FieldByName('pwd').AsString = edt_pwd.Text ) then
begin
Close();
exit;
end
else
begin
DataModule1.adoqry_load_mx.Next();
end;
end;
edt_uses.Text := '';
edt_pwd.Text := '';
edt_uses.SetFocus;
MessageDlg('密码错误!',mtError,[mbOK],0);
end;
end;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2:=TForm2.create(Application);
if Form2.ShowModal=1 then //当form2返回值为mrok时,应用程序运行
begin
Application.Run;
end
else
exit;