的单击事件源代码如下:
PrivateSubCmd_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.Show1
EndSub
4.4.4车辆信息窗体设计
本窗体用来向用户提供对车辆信息的查找、修改、添加、删除功能。可处理的信息包括车辆的基本信息如车牌号码、车辆类型,保险信息如保险公司、保单号,租赁价格信息如押金、日租金。其工作流程图如下:
图4-12车辆信息模块程序流程图
此窗体上设置有五个命令按钮,一个Adodc控件,一个Datagrid控件,一个标签控件和一个文本框。其窗体布局如下图:
图4-13车辆信息窗体
首先按设计添加窗体,添加各种控件,做好各控件的布局,设置相应属性,如文本框Alignment属性设置为0,即文本对齐方式为左对齐,字体属性设置为"宋体",Enable和Visible属性均设置为True。
Adodc控件的使用,可以为控件和数据库之间快速建立连接,它提供了一个易于使用的界面,使用户用较少的代码创建数据库应用程序,以实现对数据库的访问。本模块对Adodc控件Connectionstring和Recordsource属性的设置在本窗体的PrivateSubGridRefresh()过程中完成。
4.5客户会员管理菜单实现
客户会员管理菜单树如图:
图4-14客户会员管理菜单树
4.5.1客户信息窗体实现
客户信息窗体为用户提供了对客户信息如基本信息、驾驶证信息、抵押担保信息的查找、修改、添加、删除功能。并且提供将普通客户加入会员的服务。其程序流程图如下:
图4-15客户信息模块程序流程图
本窗体上设置有六个命令按钮,一个Adodc控件,一个Datagrid控件,一个标签控件和一个文本框。命令按钮分别取名为"添加""修改""删除""查找""加入会员""退出"。其窗体布局如下图:
图4-16客户信息窗体
点击工程菜单,选择添加窗体,在工程内添加一个空窗体,在窗体上画出各个所需控件,把这些控件移动至窗体中适当的位置,设置各个控件的属性,最后编写各个控件相应的事件过程。如对于命令按钮:"删除",当放置好按钮位置后,将其名称属性设置为"Cmd_del",对于Caption属性则设置为;"删除",字体属性设置为"华文行楷",Enabled和Visible属性设置为true。
删除操作时,首先由用户在列表框上显示出来的客户信息条目中选择一条将要删除的,如果不选择,系统默认为选择了第一条,作出选择后,被选条目呈高亮显示,单击"删除"按钮,显示一个对话框,询问用户是否确认删除,选"是",则系统从数据库中删除该项,并弹出一个信息框,告知用户操作成功。
命令按钮"删除"的单击事件源代码如下:
PrivateSubCmd_Del_Click()
IfMsgBox("是否确定要删除",vbYesNo,"请确认")=vbNoThen
ExitSub
EndIf
MyCustomer.Delete(Trim(Adodc1.Recordset.Fields(0)))
MsgBox"成功",vbInformation
GridRefresh
EndSub
4.5.2会员信息窗体实现
会员信息窗体为用户提供了对会员信息如基本信息、驾驶证信息、抵押担保信息、会员类型信息的查找、修改、注销功能。而会员的添加由客户信息窗体模块实现,这种设计有利于操作人员的操作,符合业务流程规范化的要求。
会员信息窗体程序流程图如下:
图4-17会员信息模块程序流程图
本窗体上设置有四个命令按钮,一个Adodc控件,一个Datagrid控件,一个标签控件和一个文本框。其窗体布局如图:
图4-18会员信息窗体
点击工程菜单,选择添加窗体,在新建工程内添加一个空窗体,先设置窗体容器的属性,名称属性设置为Frmmembers,StartUpPosit属性设置为2,即窗体首次出现时在屏幕中心显示,Font属性设置为"宋体",Caption属性设置为"会员管理"。接着对其它控件的属性进行设置。
命令按钮"注销会员"的功能是将用户选定的会员条目从客户信息表中删除,如果不选择,系统默认为选择了第一条,作出选择后,被选条目呈高亮显示,单击"注销会员"按钮,弹出对话框,询问用户"是否确定要注销会员资格",选择"是",系统执行注销操作,并弹出一个信息框,显示"注销会员成功",最后系统更新Datagrid控件中显示的会员信息条目。
命令按钮"注销会员"单击事件程序源代码如下:
PrivateSubCmd_OffMember_Click()
IfMsgBox("是否确定要注销会员资格",vbYesNo,"请确认")=vbNoThen
ExitSub
EndIf
MyCustomer.TypeId=0
MyCustomer.UpdateToMember(Trim(Adodc1.Recordset.Fields(0)))
MsgBox"注销会员成功",vbInformation
GridRefresh
EndSub
4.5.3会员类型定义窗体实现
本窗体用来实现对会员类型的定义,即对会员等级进行分类,比如分为钻石卡用户,金卡用户,银卡用户等,不同等级的用户享受的租赁价格的折扣不同。通过"添加"功能可定义新的等级的用户,及其享受的折扣率,通过"修改"功能可修改既有的会员类型的名称和折扣率。"删除"与之前描述的"注销会员"操作类似,这里不再赘述。
会员类型定义模块的程序流程图如图4-20:
本窗体上设置有四个命令按钮,一个Adodc控件,一个Datagrid控件。其窗体布局如图:
图4-19会员类型定义窗体
图4-20会员类型定义模块程序流程图
首先添加窗体,设置各个控件在窗体中的布局,然后设置窗体及各个控件的属性。最后编写窗体及各个控件的源代码。
当窗体载入时,触发form_load()事件,即窗体载入事件。该事件的源代码为:
PrivateSubForm_Load()
GridRefresh
EndSub
其中,GridRefresh为一个函数调用调用语句,这个函数是在窗体模块内部定义的一个私有过程,在过程中设置了Adodc控件的两个属性,分别为Connectionstring属性和Recordsource属性。该过程的作用为在DataGrid控件上向用户显示会员类型的即存信息。
4.6日常业务管理菜单实现
日常业务管理菜单树如图:
图4-21日常业务管理菜单树
4.6.1汽车租赁窗体实现
汽车租赁的的实现是本系统的关键,要客户提出租车要求时,租赁公司通过系统的这一模块向数据库的Lease表中添加新的租赁记录。在汽车处于特定的状态时,可执行对记录信息的修改、删除、审核、续租等操作。汽车的状态由Lease表中状态字段指定。汽车租赁模块的系统流程如图4-:
图4-22汽车租赁模块程序流程图
本窗体上设置有一个Adodc控件,一个DataGrid控件,一个组合框,一个标签控件,七个命令按钮控件。汽车租赁窗体如下:
图4-23汽车租赁窗体
在工程中添加一个窗体后,在窗体上设置上述控件的布局。完成后,进行各个控件的属性设置。如对于组合框,组合框是一种独立的控件,但它兼有列表框和文本框的功能。它可以像列表框一样,让用户通过鼠标选择所需要的项目,也可以像文本框一样,用键入的方式选择项目。在本窗体中,组合框的Style属性设置为2,即组合框的类型取为下拉式列表框,名称属性设置为Cob_status,字体属性设置为宋体。
当执行"添加"操作并成功添加了一条新的租赁信息后,将在DataGrid控件中显示出这条新的记录,其中"状态"栏内为"出租",此时,可对这一条记录执行"删除""修改"操作,添加汽车出租信息后,确定所添数据无误,则应执行"出租审核"命令,"审核"意即确定。当单击"出租审核"命令按钮后,将弹出一个对话框,询问用户是否确定执行出租审核,选择"是"后,汽车"状态"变为"出租
上一篇:
VB本科毕业论文-工资管理系统毕业论文+源码(论文和程序)
下一篇:
那些令你为之触动的好句子,感慨万分