汽车租赁管理系统(VB) - 图文

4.7.1 用户信息窗体的实现

本模块用来实现对系统用户信息的添加和删除。其程序流程图如下：

图2-27 用户信息模块程序流程图

开始 选择 添加 删除 结束 本窗体设这有一个框架控件，一个ADODC控件，一个datalist控件，三个命令按钮控件，窗体布局如图：

图4-28 用户信息窗体

首先点击工程菜单，选择添加 窗体，在新建工程内添加一个空窗体，先在适当位置画一个框架，然后再框架内添加datalist控件，框架Caption属性设为“用户列表”。依次设置各个控件属性，最后编写代码。如： “删除”按钮的源代码如下： Private Sub Cmd_Del_Click() If DataList1.Text = \ MsgBox \请选择要删除的用户\ Exit Sub End If

共45页 第36页

If MyUser.UserName = \ MsgBox \此用户不能删除\ Exit Sub End If

If MsgBox(\是否删除当前用户\请确认\ MyUser.Delete (DataList1.Text) MsgBox \成功删除\ DataRefresh End If End Sub

如果未选择用户，弹出对话框提示“请选择要删除的用户”，如果选择了名为“admin”的用户，则弹出对话框“此用户不能删除”。如果选择一个其他的用户，则弹出对话框提示“是否删除当前用户”，选择“是”，则系统删除选择的记录，并弹出对话框提示“成功删除”，最后刷心datalist控件内所显示的用户信息。

4.8 系统帮助信息菜单实现

系统帮助菜单树如图：

图4-29 系统帮助信息菜单树

4.8.1 系统帮助信息模块

本模块向用户提供一些系统帮助信息，包含软件使用过程中的一些重要的，需要注意的使用方法和其他一些必要的信息，其流程图如下：

开始 查看 结束 图4-30 帮助模块程序流程图

本窗体上设置一个文本框，三个标签控件，两个框架，一个命令按钮，其窗体布局如下：

共45页 第37页

图4-31 帮助窗体

添加窗体及控件，设置它们的属性，编写代码。忧郁本系统不属于庞大系统，所以本窗体在系统中的地位并不十分重要，功能结构均比较简单，一次在这里不再赘述细节。 4.8.2 关于的实现

“关于”想用户描述的是有关软件开发者，版本号等的信息。本窗体使用三个标签控件，利用标签的Caption属性，记录不显示了软件的名称，开发者的姓名即指导老师。窗体如图:

图4-32 关于窗体

共45页 第38页

5 系统测试

5.1 软件测试过程

对登录模块的测试： 测试用例如表： 合理数据 密码“520521” 用户名“bb”，密码成功登录 “654321” 用户名“cc”，密码成功登录 “654321” 用户名“dd”，密码成功登录 “654321”

共45页 第39页

期望结果 不合理数据 “654321” 期望结果 用户名“zhouanran”，成功登录 用户名“”，密码提示“请输入用户名” 用户名“aa”，密码“” 提示“请输入密码” 用户名“ss”，密码“” 提示“用户名不存在” 用户名“aa”，密码提示“密码错误” “789321” 实际测试结果完全符合期望结果，测试结果如图：