GridRefresh'刷新DataGrid表格的内容
5.7电脑租赁管理模块设计
电脑租赁管理模块可以添加、修改、删除、审核和查看电脑租赁信息,并可以实现电脑续租、审核续租以及打印电脑租赁合同的功能。电脑租赁管理的窗体的名称为FrmLease,窗体布局如图5-10所示。
图5-10电脑租赁管理窗体布局
编辑电脑租赁信息的窗体布局如图5-11所示。
图5-11编辑电脑租赁信息窗体布局
主要代码如下:
'更改时间同时计算租电脑的总费用
'查看租赁模式,如果为日,则按天价格计算总费用;如果按周,则将计算日期相差的天数;
'如果按月,则计算日期相差的月份而后乘以月价格
nCnt=Val(txtWorkDays)'租赁的工作日个数或周个数或月个数
nECnt=Val(txtWeekEndCount)'租赁的周末个数
IfTrim(cob_Mode.Text)="日"Then
'总费用=工作日租赁价格*工作日个数+周末租金*周末个数
lCost=Val(AdoPrice.Recordset.Fields(1))*nCnt+
Val(AdoPrice.Recordset.Fields(2))*nECnt
ElseIfTrim(cob_Mode.Text)="周"Then
'总费用=周租金*周数
lCost=Val(AdoPrice.Recordset.Fields(3))*nCnt
'以日为单位将周个数*7=天数添加到租赁日期而计算返回时间
txtReturnTime=Trim(DateAdd("d",nCnt*7,CDate(txtLeaseTime)))
ElseIfTrim(cob_Mode.Text)="月"Then
'总费用=月租金*月个数
lCost=Val(AdoPrice.Recordset.Fields(4))*nCnt
'以月为单位将月个数添加到租赁日期而计算返回时间
txtReturnTime=Trim(DateAdd("m",nCnt,CDate(txtLeaseTime)))
EndIf
'总体消费金额还要乘以折扣,不是会员只能乘以1
txtCost=lCost*Val(AdoCustomer.Recordset.Fields(5))
5.8电脑归还管理模块设计
电脑归还管理模块根据租赁审核和续租审核后的租赁信息办理归还和归还审核手续。窗体名称为FrmReturn,窗体布局如图5-12所示。
图5-12电脑租赁归还管理窗体布局
计算租赁费用的主要代码如下:
'如果没有超时,则超时费用为0
IfnDiff<=0Then
FrmReturnEdit.txtOTCost=0
Else
FrmReturnEdit.txtOTCost=Val(MyLease.OPrice2)*nDiff
EndIf
IfTrim(MyLease.LeaseMode)="日"Then
FrmReturnEdit.txtCost=MyLease.WorkDays*MyLease.Price1+MyLease.WorkDays*MyLease.Price2
ElseIfTrim(MyLease.LeaseMode)="周"Then
FrmReturnEdit.txtCost=MyLease.WorkDays*MyLease.Price1
ElseIfTrim(MyLease.LeaseMode)="月"Then
FrmReturnEdit.txtCost=MyLease.WorkDays*MyLease.Price1
EndIf
5.9用户管理模块设计
电脑租赁系统中的用户管理模块功能简单,只有系统管理员一种用户。系统管理员可以添加和删除用户信息。其窗体布局如图5-13所示。
图5-13用户管理窗体布局
添加会员的主要代码如下:
WithFrmUserEdit
.txtUserName=""
.txtPass=""
.txtPass2=""
.Modify=False
.Show1
EndWith
DataRefresh
编辑用户信息的窗体布局如图5-14所示。
图5-14编辑用户信息的窗体布局
6小结
通过开发这个管理信息系统,我巩固了以前所学的知识,提高了应用能力。本系统的设计和开发采用了软件工程的方法和手段,所以具有很好的可维护性和可扩展性。但是目前有些功能和性能还有待于进一步的完善和求精,随着电脑租赁业务的扩大,系统必须实现从单机版到网络版的转化,否则将无法满足社会的需求。系统的性能也要随之进一步加强和完善,以达到一个较理想的水平。
参考文献
[1]希尔伯沙茨等著,杨冬青等译.数据库系统概念[M].北京:机械工业出版社,2003:3
[2]罗朝盛.VisualBasic6.0教程设计实用教程[M].北京:清华大学出版社,2004:6
[3]塞奎春,高春燕等.VisualBasic精彩编程200例[M].西安:机械工业出版社,2003:1
[4]启明工作室.VisualBasic+Access数据库应用系统开发与实例[M].北京:人民邮电出版社,2004:11
[5]车名,吴名月.Access2000数据库管理实务[M].北京:人民邮电出版社,2002:2
[6]张海潘.软件工程导论.第四版[M].北京:清华大学出版社,2003:12
[7]白鹏.VisualBasic编程实例与技巧[M].北京:科学出版社,2003:3
[8]王天华.VisualBasic6.0程序设计[M].北京:中国铁道出版社,2003
[9]求是科技.VisualBasic6.0程序设计与开发技术大全[M].北京:人民邮电出版社,2004:9
[10]李劲,谢兆阳.SQLServer2000数据库设计与系统管理[M].北京:清华大学出版社,2001:7
[11]谭浩强,薛淑斌,袁枚.VisualBasic程序设计[M].北京:清华大学出版社,2000:7
??
??
??
??
2
上一篇:
VB用VisualBasic开发交互式CAD系统(论文和程序)
下一篇:
政府形象媒体危机的处置策略研究