program stuResult;
uses
Forms,
login in 'login.pas' {loginform},
MainFrm in 'MainFrm.pas' {mainform},
resultFrm in 'resultFrm.pas' {resultform},
dmFrm in 'dmFrm.pas' {DM: TDataModule},
termAdd in 'termAdd.pas' {termForm},
classAdd in 'classAdd.pas' {classForm},
courseAdd in 'courseAdd.pas' {courseForm},
specialFrm in 'specialFrm.pas' {specialForm},
specialBrowseFrm in 'specialBrowseFrm.pas' {specialBrowseForm},
specialModifyFrm in 'specialModifyFrm.pas' {specialModifyForm},
studentFrm in 'studentFrm.pas' {studentForm},
userfrm in 'userfrm.pas' {userForm},
about in 'about.pas' {AboutBox},
sysSetFrm in 'sysSetFrm.pas' {sysSetForm};
{$R *.res}
begin
Application.Initialize;
application.Title:='标题';
Application.CreateForm(TDM, DM);
Application.CreateForm(Tmainform, mainform);
application.CreateForm(Tloginform,loginform);
application.ShowMainForm:=false;
mainform.Hide;
loginform.Show;
Application.Run;
end.
//工程文件
procedure Tloginform.Button1Click(Sender: TObject);
begin
DM.ADOQuery1.Close;
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Text:='Select * From tbUser where 用户名='''+Edit1.Text+''' and 密码='''+edit2.Text+'''';
DM.ADOQuery1.Open;
if DM.ADOQuery1.Bof and DM.ADOQuery1.Eof then
begin
Application.MessageBox('用户名或密码错误','出错',0+48);
Edit1.SetFocus;
Edit1.SelectAll;
end
else
begin
mainform.Show;
loginform.Close;;
end;
end;
//登录窗体按钮