DELPHI中登录窗体完美实现

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

转载于:https://www.cnblogs.com/kylskjb/archive/2009/11/27/1612376.html