实训03登陆模块设计

《实训03登陆模块设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、课时授课计划副页年月日教学过程及授课内容：实训03登陆模块设计一、实训目的（1）自定义过程；（2）登陆窗体界面设计；（3）MDI子窗体设计。（4）登陆窗体“确定”代码。二、实训内容1．在实训02的基础上添加新窗体，设置MDI子窗体。其Name属性为login_Form,单元文件保存为login。如图08所示：图08登陆窗体2．在主窗体上添加一个按钮，在OnClick事件中调用login_Form。第1页课时授课计划副页年月日教学过程及授课内容：3．登陆窗体“取消”按钮的作用是关闭登陆窗体。4．登陆窗体“确定”按钮的作用是根据用户输入的用户名和密码，到xsbm数据库的users数据

2、表中查询是否有匹配的记录，如没有匹配的记录则提示：“请确认登录的用户名和密码是否正确！”；如果有匹配的记录则提示：“用户名和密码正确。”并关闭登陆窗体。三、实训步骤1．复制MyProject2文件夹到桌面，重命名为MyProject3，放回MyProject2文件夹所在的目录。打开MyProject3文件夹，双击项目文件Project1（DelphiProject）回到实训02的设计状态。单击工具栏上“NewForm”按钮，添加一个新窗体。更改Name属性为login_Form，设置窗体的FormStyle属性设置为fsMDIChild，BorderStyle属性设置为bsSin

3、gle。保存单元文件login，按“图08登陆窗体”设计界面。2．在主窗体上添加一个按钮Button1，在OnClick事件中调用login_Form。代码如下：procedureTMain_Form.Button1Click(Sender:TObject);beginApplication.CreateForm(TLogin_Form,Login_Form);login_form.show;end;在Main.pas代码窗，implementation行之下，添加“useslogin;”。在login.pas代码窗，implementation行之下，添加“usesMain;”

4、。单击系统菜单“Project”,“Options…”命令。在Forms选项卡，将login_Form从左边移到右边。3．登陆窗体“取消”按钮的作用是关闭登陆窗体。代码如下：procedureTlogin_Form.Button2Click(Sender:TObject);第2页课时授课计划副页年月日教学过程及授课内容：beginClose;end;MDI子窗体的关闭，需要在OnClose事件中添加代码如下：procedureTlogin_Form.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFr

5、ee;end;4.登陆窗体“确定”按钮的作用是根据用户输入的用户名和密码，到xsbm数据库的users数据表中查询是否有匹配的记录，如没有匹配的记录则提示：“请确认登录的用户名和密码是否正确！”；如果有匹配的记录则提示：“用户名和密码正确。”并关闭登陆窗体。因为MDI子窗体上没有数据库控件，所以访问数据库要在主窗体上进行。主窗体上的过程Main_Form.AddSQL(sqlstr,n)代码如下：procedureTMain_Form.AddSQL(sqlstr:string;varn:integer);beginwithmain_Form.ADOQuery1dobeginClo

6、se;SQL.Clear;SQL.Add(sqlstr);Open;n:=RecordCount;第3页课时授课计划副页年月日教学过程及授课内容：end;end;登陆窗体“确定”按钮，代码如下：procedureTLogin_Form.Button1Click(Sender:TObject);varsqlstr,vyhm,vmm:string;n:integer;beginvyhm:=edit1.Text;vmm:=Edit2.Text;sqlstr:='select*fromuserswhere(yhm='''+vyhm+'''andmm='''+vmm+''')';Main_

7、Form.AddSQL(sqlstr,n);ifn>0thenbeginShowMessage('用户名和密码正确！');Close;endelsebeginShowMessage('请确认登录的用户名和密码是否正确！');Edit1.SetFocus;Edit1.SelectAll;end;end;第4页