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

第7章 数据库系统设计 7.3 “学生选课”的设计 （1）演示与分析 （1）演示与分析 （1）演示与分析 （1）演示与分析 （2）界面设计 ①招兵买马（添加控件） ②认识新员工，起绰号（给控件命名） ③员工培训（控件设置） （4）功能实现 关键代码介绍 7.4 “学生删除选课”的设计 （1）演示与分析 （1）演示与分析 （1）演示与分析 （1）演示与分析 （2）界面设计 ①招兵买马（添加控件） ②认识新员工，起绰号（给控件命名） ③员工培训（控件设置） （4）功能实现 关键代码介绍 7.5 “学生修改密码”的设计 （1）演示与分析 （1）演示与分析 （1）演示与分析 （2）界面设计 ①招兵买马（添加控件） ②认识新员工，起绰号（给控件命名） ③员工培训（控件设置） （4）功能实现 关键代码介绍 4）“返回”按钮单击时，关闭当前窗体，返回“学生主窗体”。 Docmd.OpenForm 学生主窗体 Docmd.Close acForm,“学生删除选课 1）“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。 窗体 标签 ①判断用户是否输入原密码、新密码和确认了新密码。 ②判断两次输入的新密码是否一致，若否，跳出对话框提示。 ③从数据库中读出旧密码，跟用户输入的旧密码对比，若不一致，跳出对话框提示。 ④将旧密码修改为新密码，提示并置空文本框。 文本框 标签 文本框 标签 文本框 按钮 标签 4）“返回”按钮单击时，关闭当前窗体，返回“学生主窗体”。 按钮 窗体 文本框 标签 文本框 标签 文本框 按钮 按钮 标签 标签 窗体 标签 文本框 标签 文本框 标签 文本框 按钮 按钮 标签 学生修改密码 原密码标签 原密码文本框 新密码1标签 新密码1文本框 新密码2标签 新密码2文本框 修改密码按钮 返回按钮 欢迎标签 1）培训窗体 ①取消滚动条 ②取消最大最小化按钮 ③取消分割线 ④取消导航按钮 ⑤取消记录选择器 ⑥添加背景图片以美化界面（嵌入、拉伸、窗体中心） （1） 如何在数据库中修改记录 ①写出修改记录的SQL语句 Dim updatesqlstring As String updatesqlstring = update s set password= + Me!新密码1文本框 + where sno= + usersno + ②执行SQL语句 DoCmd.SetWarnings False DoCmd.RunSQL insertstring （1）“打开窗体”时，判断用户是否登录，若没有登录，则关闭当前窗体，打开登录窗体，若用户已经登录，则显示欢迎登录者的信息。 If username = Then DoCmd.Close acForm, 学生修改密码 DoCmd.OpenForm 登录 Exit Sub End If Me!欢迎标签.Caption = 欢迎你， + username + 同学! （2）“修改密码按钮”单击时①判断用户是否输入原密码、新密码和确认了新密码。 ②判断两次输入的新密码是否一致，若否，跳出对话框提示。 ③从数据库中读出旧密码，跟用户输入的旧密码对比，若不一致，跳出对话框提示。 ④将旧密码修改为新密码，提示并置空文本框。 If IsNull(Me!原密码文本框) Then MsgBox 请输入原来的密码!, vbOKOnly, 请确定 Me!原密码文本框.SetFocus Exit Sub End If （2）“修改密码按钮”单击时①判断用户是否输入原密码、新密码和确认了新密码。 ②判断两次输入的新密码是否一致，若否，跳出对话框提示。 ③从数据库中读出旧密码，跟用户输入的旧密码对比，若不一致，跳出对话框提示。 ④将旧密码修改为新密码，提示并置空文本框。 If IsNull(Me!新密码1文本框) Then MsgBox 请输入新密码!, vbOKOnly, 请确定 Me!新密码1文本框.SetFocus Exit Sub End If （2）“修改密码按钮”单击时①判断用户是否输入原密码、新密码和确认了新密码。 ②判断两次输入的新密码是否一致，若否，跳出对话框提示。 ③从数据库中读出旧密码，跟用户输入的旧密码对比，若不一致，跳出对话框提示。 ④将旧密码修改为新密码，提示并置空文本框。 If IsNull(Me!新密码2文本框) Then MsgBox 请再次输入新密码!, vbOKOnly, 请确定 Me!新密码2文本框.SetFocus Exit Sub End If （2）“修改密码按钮”单击时①判断用户是否输入原密码、新密码和确认了新密码。 ②判断两次输入的新密码是否一致，若否，跳出对话框提示。 ③从数据库中读