11年第11次课-工程数据库技术.pptVIP

第7章 数据库系统设计 7.1 登录模块设计 ①对“登录”窗体，培训要求如下 1.取消滚动条 2.取消最大最小化按钮 3.取消分割线 4.取消导航按钮 5.取消记录选择器 6.添加背景图片以美化界面（嵌入、拉伸、窗体中心） ②“用户类型”组合框是多面人，具有“学生”和“教师”2面，以后就以“学生”一面见人吧。 ③“密码”文本框具有安全任务，在他上面显示的值要用密码符号“*” 显示。 ④3个标签是用来装饰门面的，就用粗体显示吧，比较大气。 ⑤2个命令按钮天生条件不错，不用培训就行。 (1)演示与分析 （2）界面设计 ①招兵买马 ②认识新员工，起绰号 ③员工培训 1）培训窗体 1.取消滚动条 2.取消最大最小化按钮 3.取消分割线 4.取消导航按钮 5.取消记录选择器 6.添加背景图片以美化界面（嵌入、拉伸、窗体中心） 2）培训组合框 默认值为学生 3）培训密码文本框 输入值为显示为密码符号。 4）培训标签 显示为粗体。 （3）功能实现 关键代码介绍 （1） Me!用户名.SetFocus （2） IsNull(Me!用户名) （3）MsgBox(“请输入用户名!, vbOKOnly, 请确定！) （5）If MsgBox(请输入用户名!, vbOKOnly, 请确定！)=vbOK Then … （7）Exit Sub 退出子程序 （8）End Sub 结束子程序 （9）StrComp(str1, str2，vbBinaryCompare） 对2个字符串进行比较，区分大小写。 若相同，返回0；若不同，返回1。 （10）DoCmd.OpenForm “学生主窗体” 打开名字为“学生主窗体”的窗体 （11）DoCmd.Close acForm, “登录” 关闭名字为“登录”的窗体 （12） DoCmd.Quit 退出整个系统，把ACCESS关闭。 （13） 读取数据库数据的方法 在程序中嵌入执行SQL语句的不同 （1）打开窗体时，焦点落在“用户名”文本框 （3）按下退出按钮时，关闭系统 7.2 “学生主窗体”设计 (1)演示与分析 (1)演示与分析 （2）界面设计 ①招兵买马 ②认识新员工，起绰号 ③员工培训 （3）创建其他相关窗体 （4）功能实现 关键代码介绍 ①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。 ①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。 ②单击“返回登录界面”按钮，则关闭当前窗体，打开“登录”窗体。 ③单击“查询选课”按钮，则打开“学生查询选课”窗体，关闭“学生主窗体”窗体。 ④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生主窗体”窗体。 ④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生操作主界面”窗体。 ④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生操作主界面”窗体。 ⑤单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示，否则打开“学生删除选课”窗体，关闭“学生操作主界面”窗体。 ⑤单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示，否则打开“学生删除选课”窗体，关闭“学生操作主界面”窗体。 ⑥单击“修改密码”按钮，则打开“学生修改密码”窗体，关闭“学生操作主界面”窗体。 （1） 全局变量 ①全局变量的意义 全局变量在整个ACCESS系统中都可以使用，其赋值一直有效。 ②定义全局变量的方法 Public username As String Public usersno As String ③全局变量写在什么位置？ 定义在模块中。 （2）Set rs=nothing 释放rs变量所占用的存储空间。 （3）Me!欢迎标签.caption = “欢迎您！” 将名字为“欢迎标签”的标签控件的显示的内容修改为“欢迎您！” 难点：怎样判断用户是否登录？ 设置全局变量，该全局变量在用户登录成功后赋值，若该值不为空，表示用户已经登录，若该值为空，表示用户没有登录。 ①定义1个全局变量username,在登录成功时，读出用户的姓名，并赋给全局变量username。 ②定义好全局变量后，应在“登录”窗体的“登录”按钮单击事件添加如下代码。 use