DELPHI中登录窗体完美实现

1. 工程文件
2. program stuResult;
3. uses
4. Forms,
5. controls,
6. login in 'login.pas' {loginform},
7. MainFrm in 'MainFrm.pas' {mainform},
8. resultFrm in 'resultFrm.pas' {resultform},
9. dmFrm in 'dmFrm.pas' {DM: TDataModule},
10. termAdd in 'termAdd.pas' {termForm},
11. classAdd in 'classAdd.pas' {classForm},
12. courseAdd in 'courseAdd.pas' {courseForm},
13. specialFrm in 'specialFrm.pas' {specialForm},
14. specialBrowseFrm in 'specialBrowseFrm.pas' {specialBrowseForm},
15. specialModifyFrm in 'specialModifyFrm.pas' {specialModifyForm},
16. studentFrm in 'studentFrm.pas' {studentForm},
17. userfrm in 'userfrm.pas' {userForm},
18. about in 'about.pas' {AboutBox},
19. sysSetFrm in 'sysSetFrm.pas' {sysSetForm};
20. {$R *.res}
21. begin
22. Application.Initialize;
23. Application.CreateForm(TDM, DM);
24. Application.CreateForm(Tmainform, mainform); //主窗体MDI和登录窗体fsNormal的visible属性为false
25. loginform:=Tloginform.Create(Application);
26. loginform.ShowModal;
27. application.Run;
28. end.
29. 登录窗体
30. procedure Tloginform.Button1Click(Sender: TObject);
31. begin
32. DM.ADOQuery1.Close;
33. DM.ADOQuery1.SQL.Clear;
34. DM.ADOQuery1.SQL.Text:='Select * From tbUser where 用户名='''+Edit1.Text+''' and 密码='''+edit2.Text+'''';
35. DM.ADOQuery1.Open;
36. if DM.ADOQuery1.Bof and DM.ADOQuery1.Eof then
37. begin
38. Application.MessageBox('用户名或密码错误','出错',0+48);
39. Edit1.SetFocus;
40. Edit1.SelectAll;
41. end
42. else
43. begin
44. mainform.Show;
45. loginform.Hide;
46. loginform.FreeOnRelease;
47. end;
48. end;

分类: Delphi