procedure Tflogin.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='' then
begin
ShowMessage('使用者名稱不能為空！');
Edit1.SetFocus;
exit;
end;
if  Edit2.Text='' then
begin
ShowMessage('密碼不能為空！');
Edit2.SetFocus;
exit;
end;
data.loginquery.Close;
data.loginquery.SQL.Clear;
data.loginquery.SQL.Add('select * from admin where account='''+Edit1.Text+'''');
data.loginquery.Open;
if(data.loginquery.Eof) then
begin
ShowMessage('使用者名稱不存在！');
 Edit1.Clear;
 Edit2.Clear;
Edit1.SetFocus;
exit;
end;
if data.loginquery.FieldValues['password']<>Edit2.Text then
begin
 if 4-i>0 then
 begin
 m:=IntToStr(4-i);
ShowMessage('密碼錯誤,您還有'''+m+'''此機會！');
Edit2.Clear;
Edit2.SetFocus;
i:=i+1;
 end
 else
 begin
 ShowMessage('對不起,系統將終止，請先核查您有沒有此許可權！');
 Application.Terminate;
 end;
exit;
end;
fmain.Show;  //modalresult := mrok  呼叫
flogin.Hide;
end;