华北科技学院_Delphi实验报告_简易学生信息管理系统
华北科技学院计算机学院综合性实验报告
信息管理界面(普通用户使用界面)
3、主要功能代码设计： 1)、系统登录界面登录按钮 btnLogin 的 onClick 事件代码为： procedure TFrmLogin.BtnLoginClick(Sender: TObject); var uname,upsw:string; begin uname:=EdtUsername.Text; upsw:=EdtUserpsw.Text; if (uname = '') or (upsw='') then begin MessageBox(0,'请输入用户名和密码','错误',0); EdtUsername.SetFocus; end else begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from user where username='+''''+uname+''''+'and userpsw='+''''+upsw+''''); adoquery1.Open; if adoquery1.RecordCount=0 then begin application.MessageBox('用户名或密码错误，请重新输入','提示',mb_ok); EdtUsername.SetFocus; end else第 3 页