《进度2-11年第11次课-工程数据库技术》由会员分享，可在线阅读，更多相关《进度2-11年第11次课-工程数据库技术（150页珍藏版）》请在金锄头文库上搜索。
1、1机电工程学院 吴卓葵工程数据库技术第7章 数据库系统设计7.2 “学生主窗体”设计“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开 “登录”窗体；若用户已经登录，则显示欢迎登录者的信息。单击“查询选课”按钮，则打开“学生查询选课”窗体，关闭“学生主窗体 ”窗体单击“选课”按钮，判断学生选课数是否达到最大数目4门，若是，弹出对话 框提示，否则打开“学生选课”窗体，关闭“学生主窗体”窗体。(1)演示与分析窗体标签按钮标签按钮单击“删除选课”按钮，则判断学生选课数量是否为0，若为0，则弹出对话框提示 ，否则打开“学生删除选课”窗体，关闭“学生主窗体”窗体。单击“修改密码”按钮，则
2、打开“学生修改密码”窗体，关闭“学生主窗体”窗体 。单击“返回登录界面”按钮，则关闭当前窗体，打开“登录”窗体。(1)演示与分析 按钮按钮按钮（2）界面设计窗体标签按钮按钮标签按钮按钮按钮招兵买马（添加控件）窗体标签按钮按钮标签按钮按钮按钮认识新员工，起绰号（给控件命名）学生主 窗体请选择 操作标 签查询选 课按钮返回登录 界面按钮欢迎 标签选课 按钮删除选 课按钮按钮员工培训（控件设置）1）培训窗体 取消滚动条 取消最大最小化按钮 取消分割线 取消导航按钮 取消记录选择器 添加背景图片以美化界面（嵌入、拉伸、窗体中心）（3）创建其他相关窗体（4）功能实现关键代码介绍（1） 全局变量 全局变量
3、的意义全局变量在整个ACCESS系统中都可以使用，其赋 值一直有效。定义全局变量的方法 Public username As String Public usersno As String全局变量写在什么位置？定义在模块中。（2）Set rs=nothing 释放rs变量所占用的存储空间。（3）Me!欢迎标签.caption = “欢迎您！“ 将名字为“欢迎标签”的标签控件的显示的内容修改 为“欢迎您！”（3）Trim(rs(“sn“ ) 去掉变量rs(“sn” ) 的空格。“打开窗体”时，判断用户是否登录，若没有登录 ，则关闭当前窗体，打开登录窗体，若用户已经登录 ，则显示欢迎登录者的信息。
4、难点：怎样判断用户是否登录？设置全局变量，该全局变量在用户登录成功后赋 值，若该值不为空，表示用户已经登录，若该值为空 ，表示用户没有登录。定义1个全局变量username,用以保存用户姓名。在登录成功时，读出用户的姓名，并赋给全局变 量username。问题：第2步操作的代码应该写在什么位置？rs.MoveFirst If StrComp(rs(“password“), Me!密码, vbBinaryCompare) = 4 Then If MsgBox(“您的选课已满！请删除选课后重选“, vbOKOnly, “请确定“) = vbOK Then Set rs = Nothing Exit
5、 Sub End If End IfDoCmd.Close acForm, “学生主窗体“ DoCmd.OpenForm “学生选课“单击“删除选课”按钮，则判断学生选课数量是否 为0，若为0，则弹出对话框提示，否则打开“学生删 除选课”窗体，关闭“学生操作主界面”窗体。Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim sqlstring As Stringsqlstring = “select * from sc where sno=“ + usersno + “rs.Open sqlstring, CurrentProje
6、ct.Connection, adOpenKeyset, adLockOptimistic单击“删除选课”按钮，则判断学生选课数量是否 为0，若为0，则弹出对话框提示，否则打开“学生删 除选课”窗体，关闭“学生操作主界面”窗体。 If rs.RecordCount = 0 Then If MsgBox(“您还没有选课！请先选课“, vbOKOnly, “请确定“) = vbOK Then Set rs = Nothing Exit Sub End If End IfDoCmd.Close acForm, “学生主窗体“ DoCmd.OpenForm “学生删除选课“单击“修改密码”按钮，则打开
7、“学生修改密码” 窗体，关闭“学生操作主界面”窗体。DoCmd.OpenForm “学生修改密码“ DoCmd.Close acForm, “学生主窗体“7.3 “学生查询选课”设计(1)演示与分析窗体“打开窗体”时，判断用户是否登录，若没有登录，则关闭当 前窗体，打开登录窗体；若用户已经登录，则显示欢迎登录者的 信息，然后将显示课程的标签置空，接着读取用户的选课信息使 用标签进行显示。标签标签标签 标签标签标签标签(1)演示与分析单击“返回”按钮，则关闭当前窗体，打开“学生主窗体”窗 体。单击每个“课程名”标签，则打开“学生选修课程详细信息” 窗体，关闭“学生查询选课”窗体。按钮标签标签标签
8、标签（2）界面设计窗体标签标签标签标签标签标签按钮标签招兵买马（添加控件）窗体标签标签标签标签标签标签按钮标签认识新员工，起绰号（给控件命名）学生查 询选课提示1 标签提示2 标签选课1 标签选课2 标签选课3 标签选课4 标签返回 按钮欢迎 标签员工培训（界面设置）1）培训窗体 取消滚动条 取消最大最小化按钮 取消分割线 取消导航按钮 取消记录选择器 添加背景图片以美化界面（嵌入、拉伸、窗体中心）（3）创建其他相关窗体（4）功能实现关键代码介绍（1） 将数据从当前窗体传递到下一个窗体的方法DoCmd.OpenForm “学生选修课程详细信息“, , , , , , Me!选课1标签.Capt
9、ion将当前窗体的名称为“选课1标签”的标签的显示内容 传递给将打开的窗体“学生选修课程详细信息”。“打开窗体”时，判断用户是否登录，若没有登录， 则关闭当前窗体，打开登录窗体；若用户已经登录，则 显示欢迎登录者的信息，然后将显示课程的标签置空， 接着读取用户的选课信息使用标签进行显示。If username = “ Then DoCmd.Close acForm, “学生查询选课“ DoCmd.OpenForm “登录“ Exit Sub End If“打开窗体”时，判断用户是否登录，若没有登录， 则关闭当前窗体，打开登录窗体；若用户已经登录，则 显示欢迎登录者的信息，然后将显示课程的标签置
10、空， 接着读取用户的选课信息使用标签进行显示。Me.欢迎标签.Caption = “欢迎您，“ + username + “同学!“Me!选课1标签.Caption = “ Me!选课2标签.Caption = “ Me!选课3标签.Caption = “ Me!选课4标签.Caption = “打开窗体”时，判断用户是否登录，若没有登录， 则关闭当前窗体，打开登录窗体；若用户已经登录，则 显示欢迎登录者的信息，然后将显示课程的标签置空， 接着读取用户的选课信息使用标签进行显示。Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim
11、 SQLstring As StringSQLstring = “select cn from s,c,sc where s.sno=sc.sno and o=o and s.sno=“ + usersno + “rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic“打开窗体”时，判断用户是否登录，若没有登录， 则关闭当前窗体，打开登录窗体；若用户已经登录，则 显示欢迎登录者的信息，然后将显示课程的标签置空， 接着读取用户的选课信息使用标签进行显示。If rs.RecordCount = 0 T
12、hen Me!选课1标签.Caption = “您无选课“ Exit Sub End If“打开窗体”时，判断用户是否登录，若没有登录， 则关闭当前窗体，打开登录窗体；若用户已经登录，则 显示欢迎登录者的信息，然后将显示课程的标签置空， 接着读取用户的选课信息使用标签进行显示。rs.MoveFirst For i = 1 To rs.RecordCount If i = 1 Then Me!选课1标签.Caption = rs(“cn“) If i = 2 Then Me!选课2标签.Caption = rs(“cn“) If i = 3 Then Me!选课3标签.Caption = rs(
13、“cn“) If i = 4 Then Me!选课4标签.Caption = rs(“cn“) rs.MoveNext Next i单击“返回”按钮，则关闭当前窗体，打开“学生主 窗体”窗体。DoCmd.Close acForm, “学生查询选课“ DoCmd.OpenForm “学生主窗体“单击每个“课程名”标签，则打开“学生选修课程详 细信息”窗体，关闭“学生查询选课”窗体。1）给第1个标签“选课1标签”添加单击事件。为了防止 出错，当给标签内容为空或“您无选课”时，单击该标 签不能进入下1个窗体“学生选修课程详细信息”；否则 ，单击标签打开下1个窗体“学生选修课程详细信息”， 并将该标签
14、的内容（即课程名）传递进下1个窗体。If Me!选课1标签.Caption = “ Or Me!选课1标签 .Caption = “您无选课“ Then Exit Sub单击每个“课程名”标签，则打开“学生选修课程详 细信息”窗体，关闭“学生查询选课”窗体。 1）给第1个标签“选课1标签”添加单击事件。为了防止 出错，当给标签内容为空或“您无选课”时，单击该标 签不能进入下1个窗体“学生选修课程详细信息”；否则 ，单击标签打开下1个窗体“学生选修课程详细信息”， 并将该标签的内容（即课程名）传递进下1个窗体，并关 闭当前窗体。If Me!选课1标签.Caption = “ Or Me.选课1标
15、签 .Caption = “您无选课“ Then Exit SubDoCmd.OpenForm “学生选修课程详细信息“, , , , , , Me!选课1标签.Caption DoCmd.Close acForm, “学生查询选课“2）给第2个标签“选课2标签”添加单击事件。为了防止 出错，当给标签内容为空时，单击该标签不能进入下1个 窗体“学生选修课程详细信息”；否则，单击标签打开 下1个窗体“学生选修课程详细信息”，并将该标签的内 容（即课程名）传递进下1个窗体，并关闭当前窗体。If Me.选课2标签.Caption = “ Then Exit SubDoCmd.OpenForm “学生
16、选修课程详细信息“, , , , , , Me.选课2标签.Caption DoCmd.Close acForm, “学生查询选课“2）给第3个标签“选课3标签”添加单击事件。为了防止 出错，当给标签内容为空时，单击该标签不能进入下1个 窗体“学生选修课程详细信息”；否则，单击标签打开 下1个窗体“学生选修课程详细信息”，并将该标签的内 容（即课程名）传递进下1个窗体，并关闭当前窗体。If Me!选课3标签.Caption = “ Then Exit SubDoCmd.OpenForm “学生选修课程详细信息“, , , , , , Me!选课3标签.Caption DoCmd.Close acForm, “学生查询选课“4）给第4个标签“选课4标签”添加单击事件。为了防止 出错，当给标签内容为空时，单击该标签不能进入下1个 窗体“学生选修课程详细信息”；否则，单击标签打开 下1个窗体“学生选修课程详细信息”，并将该标
