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

图4-14 客户信息模块程序流程图

结束 添加 修改 删除 查询 加入会员 选择 开始 本窗体上设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控件和一个文本框。命令按钮分别取名为“添加”“修改”“删除”“查找”“加入会员”“退出”。其窗体布局如下图：

图4.15 客户信息窗体

点击工程菜单，选择添加窗体，在工程内添加一个空窗体，在窗体上画出各个所需控件，把这些控件移动至窗体中适当的位置，设置各个控件的属性，最后编写各个控件相应的事件过程。如对于命令按钮：“删除”，当放置好按钮位置后，将其名称属性设置为“Cmd_del”，对于Caption属性则设置为：“删除”，字体属性设置为“华文行楷”，Enabled和Visible属性设置为true。

删除操作时，首先由用户在列表框上显示出来的客户信息条目中选择一条将要删除的，如果不选择，系统则默认为选择了第一条，作出选择后，被选条目呈高亮显示，单击“删除”按钮，显示一个对话框，旋舞用户是否确认删除，选“是”，则系统从数据库中删除该项，并淡出一个

共45页 第28页

信息框，告知用户操作成功。

命令按钮“删除”单击事件源代码如下： Private Sub Cmd_Del_Click()

If Adodc1.Recordset.EOF = True Then MsgBox \请选择记录\ Exit Sub End If

If MsgBox(\是否确定要删除 \请确认\ Exit Sub End If

MyCustomer.Delete (Trim(Adodc1.Recordset.Fields(0))) MsgBox \成功\ GridRefresh End Sub

4.5.2 会员信息窗体实现

会员信息窗体为用户提供了对会员信息如基本信息、驾驶证信息、抵押担保信息、会员类型信息的查找、修改、注销功能。而会员的添加有客户信息窗体模块实现，这种设计有利于操作人员的操作，符合业务流程规范化的要求。

会员信息窗体程序流程图如下：

结束 修改 注销会员 查找 选择 开始 图4-16 会员信息模块程序流程图

本窗体上设置有四个命令按钮，一个Adodc控件，一个Dategrid控件，一个标签控件和一个文本框。其窗体布局如图：

共45页 第29页

图4-17 会员管理窗口

点检工程菜单，选择添加窗体，在新建工程内添加一个空窗体，先设置窗体容器的属性，名称属性设置为Frmmembers，StartUpPosit属性设置为2，即窗体首次出现时在屏幕中心显示，Font属性设置为“宋体”，Caption属性设置为“会员管理”。接着对其它控件的属性进行设置。

命令按钮“注销会员”的功能是将用户选定的会员条目从客户信息表中删除，如果不选择，系统默认为选择了第一条，作出哦炫蓝后，备选条目呈高亮显示，单击“注销会员”按钮，弹出对话框，询问用户“是否确定要注销会员资格”，选择“是”，系统执行注销操作，并弹出一个信息框，显示“注销会员成功”，最后系统更新Datagrid控件中显示的会员信息条目。命令按钮“注销会员”单击事件策划年供需源代码如下： Private Sub Cmd_OffMember_Click() If Adodc1.Recordset.EOF = True Then MsgBox \请选择记录\ Exit Sub End If

If MsgBox(\是否确定要注销会员资格 \请确认\ Exit Sub End If

MyCustomer.TypeId = 0

MyCustomer.UpdateToMember (Trim(Adodc1.Recordset.Fields(0))) MsgBox \注销会员成功\ GridRefresh End Sub

共45页 第30页

4.5.3 会员类型定义窗体实现

本窗体用来实现对会员类型的定义，即对会员等级进行分类，比如分为钻石卡用户，金卡用户，银卡用户等，不同等级的用户享受的租赁价格的折扣不同。通过“添加”功能可定义新的等级的用户，及其享受的折扣率，通过“修改”功能可修改既有的会员类型的名称和折扣率。“删除”与之前描述的“注销会员”操作类似，这里就不讲了。

图4-18 会员类型定义窗体

图4-19 会员类型定义模块程序流程图

结束 添加 修改 删除 选择 开始 会员类型定义模块的程序流程图如图4-20：

本窗体上设置有四个命令按钮，一个Adodc控件，一个Datagrid控件，其窗体布局如图：

共45页 第31页