《表单设计第7章补充内容》

《《表单设计第7章补充内容》》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第7章补充内容7.1登录表单设计登录表单提供用户登录接口。用户只有输入了正确的用户名和密码，才能登录进入系统。该表单使用人员配置表，其界面如图7.1所示。图7.1登录表单登录表单中控件属性的说明如表7.1所示。表7.1表单中的控件设置控件类型控件名称及属性说明标签登录界面，FontSize属性值设为：18标签标签学号标签标签密码标签文本框no输入学号文本框password1，passwordchar属性为“*”输入密码命令按钮确定从登录界面进入下一界面命令按钮退出退出登录界面该表单的Caption属性为

2、：用户登录，Name属性：form1。登录表单的设计步骤如下所示。（1）在【项目管理器】对话框的【文档】选项卡中，选中【表单】选项。单击【新建】按钮，弹出【新建表单】对话框，如图7.2所示。（2）单击【新建表单】按钮，弹出【表单设计器】窗口。一个名为Form1的空表单也随之出现在【表单设计器】窗口中。（3）右击【表单设计器】窗口，在弹出的快捷菜单中，选择【数据环境】命令。（4）在弹出的【添加表或视图】对话框中，从【数据库中的表】中选择人员配置表，单击【添加】按钮。然后单击【关闭】按钮，关闭【添加表或视图

3、】对话框，如图7.3所示。图7.2【新建表单】对话框图7.3【添加表或视图】对话框（5）依次把数据环境中人员配置表的学号和密码字段拖到空表单的合适位置。在表单上出现学号标签、密码标签以及name属性为txt学号、txt密码的文本框。调整这四个控件在表单上的位置。在【属性】对话框中分别设置文本框的name属性为no、password1。密码文本框的passwordchar属性为“*”。（6）单击表单控件中的标签控件，在表单中添加两个标签控件。设置该标签控件的caption属性分别为“学生信息管理系统”和“

4、登录界面”，FontSize属性值皆设为：18。（7）添加两个按钮，按钮caption属性分别为：确定和退出。（8）在【属性】对话框中，设置该表单的Caption属性为：登录表单，Name属性为：form1。布局完成完登录表单的控件后，开始设计表单的方法程序和事件代码。7.2Load事件Load事件在加载登录表单时运行。右击表单窗口，在弹出的快捷菜单中选择【代码】命令，弹出如图7.4所示的对话框。图7.4login的load事件代码窗口Form1的load事件代码如下所示。SETTALKOFF&&关闭返

5、回执行状态的显示，默认为开。351SETSAFETYOFF&&设置SAFETY为关，删除数据库时不会出现提示，与新建的数据库同名时直接覆盖。CLOSEALL&&关闭所有的数据库OPENDATABASE.源文件学生信息管理.dbcEXCLUSIVE&&以独占方式打开数据库“学生信息管理”SELECTA&&选择工作区AUSE.源文件人员配置.dbf&&在工作区A中打开人员配置表专家指导：程序“.源文件”中的“.”所默认的目录是“D:vfp98学生信息管理系统”。这里使用的是相对路径，相对路径的

6、建立方法参见附录D。7.3Unload事件与建立load代码的方法类似，建立unload事件，代码如下所示。caozuoyuan=’’&&变量caouzoyuan为空RETURNcaozuoyuan&&返回变量值Closeall&&关闭所有打开的数据库以及数据表【确认】按钮的click事件的代码如下所示。PRIVATExh,mm,ST&&定义私有变量xh（输入的学号），mm（输入的密码），ST（提示信息）ST='密码不正确，请重新输入！'&&提示信息“密码不正确，请重新输入！”Xh=alltrim（TH

7、ISFORM.no.Value）&&把输入的学号赋值给变量xhmm=alltrim(THISFORM.password1.Value)&&把输入的密码赋值给变量mmLOCATEALLFORxh==alltrim(人员配置.学号).AND.alltrim(人员配置.密码)==mm&&在人员配置表中查找相匹配的记录IFFOUND()&&如果找到caozuoyuan=alltrim(人员配置.学号)&&变量caozuoyuan的值为人员配置表中的学号DOzhumenu.mpr&&执行主菜单zhumenu..m

8、prCLOSEALLTHISFORM.RELEASE&&释放登录表单ELSEWAITWINDOWSTTIMEOUT2&&程序运行等待2秒，显示密码不正确的提示信息THISFORM.password1.value=''&&密码文本框为空THISFORM.password1.SetFocus&&密码文本框获得焦点ENDIF【退出】按钮的click事件的代码如下所示。tuichu=MESSAGEBOX('您确定要退出学生信息管理系统吗？',4+3