第十三章-数据库应用系统开发.pptVIP

返回按钮单击事件 Private Sub cmdFh_Click() Unload Me End Sub 窗体卸载事件 Private Sub Form_Unload(Cancel As Integer) frmMain.Enabled = True End Sub 成绩汇总窗体模块代码 ： 13.4 系统实现 返回目录 13.4.2 系统功能实现 8．实现用户管理功能 用户管理功能包括： 修改密码、添加用户、删除用户、修改用户信息。 修改密码的功能是用户修改自己的密码 这里给出修改密码的实现方法 13.4 系统实现 返回目录 13.4.2 系统功能实现 8．实现用户管理功能 修改密码窗体设计 ： 一个框架 两个标签 两个文本框 两个命令按钮 窗体加载事件 Private Sub Form_Load() frmMain.Enabled = False End Sub 返回按钮单击事件 Private Sub cmdFh_Click() Unload Me End Sub 窗体卸载事件 Private Sub Form_Unload(Cancel As Integer) frmMain.Enabled = True 修改密码窗体模块代码 ： 确定按钮单击事件 Private Sub cmdQr_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(txt密码1.Text) = Then MsgBox 请输入新密码！, vbOKOnly, 提示 Exit Sub End If If strUserName = z Then MsgBox 特殊用户不允许更改密码！, vbOKOnly, 提示 Exit Sub End If 判断密码输入是否一致 If Trim(txt密码1.Text) Trim(txt密码2.Text) Then MsgBox 密码确认不一致！, vbOKOnly, 提示 Else 对当前用户的密码进行修改 sql = select * from 用户表 where 用户名= strUserName Set rs = ExecSQL(sql) rs.Fields(2) = Trim(txt密码1.Text) rs.Update rs.Close MsgBox 密码修改成功！, vbOKOnly, 提示 Unload Me End If End Sub 修改密码窗体模块代码 ： 13.4 系统实现 返回目录 13.4.2 系统功能实现 9．实现帮助 单击“帮助→内容”菜单项，调用帮助文件help.chm 实现这一功能的程序代码如下： Private Sub mnuNr_Click() Shell hh.exe App.Path \help.chm, vbNormalFocus End Sub 帮助文件使用Visual CHM制作 13.4 系统实现 返回目录 13.4.2 系统功能实现 10．实现退出 单击“退出”菜单项，结束程序，退出系统 实现这一功能的程序代码如下： Private Sub mnuTc_Click() End End Sub 13.4 系统实现 返回目录 13.4.2 系统功能实现 系统实现后，应整理、编写系统的技术文档，对各环节的技术资料进行归纳整理，给出设计全过程所采用的技术手段和实现措施。包括系统需求描述，数据库设计的E-R模型、关系模型，系统功能设计的功能模块总体结构，应用程序清单等。另外，还应编写使用说明书，给出该系统详细的使用操作步骤，以及使用和维护工作中的注意事项。这些文档资料在系统投入运行后一并交给用户。 小结 返回目录 数据库应用系统的开发，包括系统分析、系统设计和系统实现。 系统需求分析是系统开发的基础。 系统设计包括数据库设计和系统功能设计，两方面设计结合进行。其中数据库设计是关键，直接影响系统功能的实现和性能的优劣。 系统实现是系统开发的目的，包括两个步骤： （1）在服务器端建立数据库、表、完整性约束、视图、触发器、存储过程等，实现数据库设计，也可实现部分功能设计。 （2）在客户端使用应用程序开发工具编写应用程序，提供用户界面，实现系统功能设计。 13.4 系统实现 返回目录 13.4.2 系统功能实现 后台数据库设计实现后，接下来按照前面系统功能设计，使用Visual Basic开发应用程序，为用户提供友好的人机交互界面，实