进度2-11年第11次课-工程数据库技术.ppt

*;第7章 数据库系统设计;7.2 “学生主窗体”设计;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开“登录”窗体；若用户已经登录，则显示欢迎登录者的信息。 ②单击“查询选课”按钮，则打开“学生查询选课”窗体，关闭“学生主窗体”窗体 ③单击“选课”按钮，判断学生选课数是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生主窗体”窗体。;④单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示，否则打开“学生删除选课”窗体，关闭“学生主窗体”窗体。 ⑤单击“修改密码”按钮，则打开“学生修改密码”窗体，关闭“学生主窗体”窗体。 ⑥单击“返回登录界面”按钮，则关闭当前窗体，打开“登录”窗体。;（2）界面设计;①招兵买马（添加控件）;②认识新员工，起绰号（给控件命名）;③员工培训（控件设置）;（3）创建其他相关窗体;（4）功能实现;关键代码介绍;③全局变量写在什么位置？ 定义在模块中。;（2）Set rs=nothing 释放rs变量所占用的存储空间。 （3）Me!欢迎标签.caption = 欢迎您！ 将名字为“欢迎标签”的标签控件的显示的内容修改为“欢迎您！” （3）Trim(rs(“sn )) 去掉变量rs(“sn” ) 的空格。;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。;rs.MoveFirst If StrComp(rs(password), Me!密码, vbBinaryCompare) 0 Then If MsgBox(密码错误！, vbOKOnly, 请确定) = vbOK Then Me!密码.SetFocus Exit Sub End If End If username = Trim(rs(SN)) usersno = rs(sno) DoCmd.OpenForm 学生主窗体 DoCmd.Close acForm, 登录;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。;②单击“返回登录界面”按钮，则关闭当前窗体，打开“登录”窗体。;③单击“查询选课”按钮，则打开“学生查询选课”窗体，关闭“学生主窗体”窗体。;④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生主窗体”窗体。;④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示，否则打开“学生选课”窗体，关闭“学生操作主界面”窗体。;④单击“选课”按钮，则判断学生选课数量是否达到最大数目4门，若是，弹出对话框提示；否则打开“学生选课”窗体，关闭“学生操作主界面”窗体。;⑤单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示，否则打开“学生删除选课”窗体，关闭“学生操作主界面”窗体。;⑤单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示，否则打开“学生删除选课”窗体，关闭“学生操作主界面”窗体。;⑥单击“修改密码”按钮，则打开“学生修改密码”窗体，关闭“学生操作主界面”窗体。;7.3 “学生查询选课”设计;(1)演示与分析;(1)演示与分析;（2）界面设计;①招兵买马（添加控件）;②认识新员工，起绰号（给控件命名）;③员工培训（界面设置）;（3）创建其他相关窗体;（4）功能实现;关键代码介绍;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的信息，然后将显示课程的标签置空，接着读取用户的选课信息使用标签进行显示。;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的信息，然后将显示课程的标签置空，接着读取用户的选课信息使用标签进行显示。;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的信息，然后将显示课程的标签置空，接着读取用户的选课信息使用标签进行显示。;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的信息，然后将显示课程的标签置空，接着读取用户的选课信息使用标签进行显示。;①“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的信息，然后将显示课程的标签置空，接着读取用户的选课信息使用标签进行显示。;②单击“返回”按钮，则关闭当前窗体，打开“学生主窗体”窗体。;③单击每个“课程名”标签，则打开“学生选