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

此窗体上设置六和命令按钮，一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框。

首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid控件名称属性设置为datagrid1,dragmode属性设置为0，allowaddnew属性设为False,Allowdelete 属性设置为False,allowupdate属性设为False.字体设置为“宋体“，Enable和Visible属性均设为Ture. 其添加命令按钮单击事件源代码如下： Private Sub Cmd_Add_Click() FrmCompanyEdit.Modify = False FrmCompanyEdit.nTid = 1

FrmCompanyEdit.txtCompany = \ FrmCompanyEdit.lblType = \销售商\ FrmCompanyEdit.txtTelephone = \ FrmCompanyEdit.txtFax = \ FrmCompanyEdit.txtAddress = \ FrmCompanyEdit.txtContact = \ FrmCompanyEdit.txtComment = \ FrmCompanyEdit.txtZipCode = \ FrmCompanyEdit.txtEmail = \ FrmCompanyEdit.Show 1 GridRefresh End Sub

4.4.3保险公司信息窗体设计

此窗体用于向用户提供对保险公司信息如：保险公司的公司名称，联系地址，联系电话，传真，邮政编码，电子邮箱，联系人。备注等的添加，修改，删除，查询等操作。另外还可根据用户选择的保险公司名称查询已在其处办理了保险业务的车辆保险信息，其程序流程图如：

共45页 第24页

开始 选择 添加 修改 删除 查询 查看保险车辆 结束 图4-9 保险公司信息模块程序流程图

此窗体设有六个命令按钮。一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框，其窗体布局如下：

共45页 第25页

图4-10 保险公司信息窗体

首先按设计添加窗体，做好各控件的布局，设置相应属性，如：标签控件的属性设置是，名称属性为“label1”，alignment属性设置为0，即文本框对其方式为左对齐，Caption属性设置为“保险公司名”，字体属性设置为“华文行楷”。 查看保险车辆按钮的单机时间源代码如下： Private Sub Cmd_ViewCars_Click() FrmSaleCars.nType = 2

FrmSaleCars.sSaleName = Trim(Adodc1.Recordset.Fields(1)) FrmSaleCars.nSaleId = Adodc1.Recordset.Fields(0)

FrmSaleCars.txtSaleName = Trim(Adodc1.Recordset.Fields(1)) FrmSaleCars.Caption = \查看保险公司保险汽车\ FrmSaleCars.Label1 = \保险公司名称\ FrmSaleCars.Show 1 End Sub

4.4.4车辆信息窗体设计

本窗体用来向用户提供对车辆信息的查找，修改，添加，删除功能，可处理的信息包括车辆的基本信息如车牌号码，车辆类型。保险信息如保险公司，保单号，租赁价格信息如押金，日租金，其工作流程图如下：

开始 选择 添加 修改 删除 查找 结束 图4-11 车辆信息模块程序流程图

共45页 第26页

此窗体上设这有五个命令按钮。一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框，其窗体布局如下图：

图4-12 车牌号窗口

Adodc控件的使用，可以为控件和数据库之间快速建立连接，它提供了一个易于使用的界面，使用户用较少的代码创建数据库应用程序，以实现对数据库的访问，本模块对ADODC控件connectionstring和recordsource属性的设置在本窗体的private sub gridrefresh()过程中完成。

4.5 客户会员管理菜单实现

客户会员管理菜单树如图：

图 4-13 客户会员管理菜单树

4.5.1 客户信息窗口实现

客户信息窗体为用户提供了对客户信息如基本信息、驾驶证信息、抵押担保信息的查找、修改、添加、删除功能。并且提供将普通客户加入会员的服务。其程序流程图如下：

共45页 第27页