teSubtxtM_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<>8AndKeyAscii<>46AndKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubtxtznj_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<>8AndKeyAscii<>46AndKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
10:数据查询界面设计:
数据查询代码设计:
PrivateSubcmdExport_Click()
'导出网格数据到EXCEL中
Exportrsdg,Me.dgexp," 数据查询","日期:"&Format(Now,"yyyy-mm-dd"),"总电量:"&txtCountA&"度总金额:"&txtCount&"元"
EndSub
PrivateSubcmdQuery_Click()
DimSqlstrAsString
DimwhrStrAsString
DimfeeCAsDouble
DimznjCAsDouble
DimrstRgAsNewADODB.Recordset
'拼Where语句
whrStr=getWhrStr()
'取得网格的数据
Sqlstr="select*fromfeels"&whrStr&""
'MsgBoxSqlstr
Ifrsdg.State=1Then
rsdg.Close
EndIf
rsdg.OpenSqlstr,gCnn,adOpenStatic,adLockOptimistic
'Debug.PrintSqlstr
Setrsdg=getQueryData(Sqlstr)
Setdgexp.DataSource=rsdg
Sqlstr="selectsum(feeMoney),sum(Ecount)fromfeels"&whrStr&""
IfrstRg.State=1Then
rstRg.Close
EndIf
rstRg.OpenSqlstr,gCnn,adOpenStatic,adLockBatchOptimistic
txtCount=Format(rstRg.Fields(0),"####0.00")&""
txtCountA=rstRg.Fields(1)&""
rstRg.Close
MsgBox"数据查询完成,共"&rsdg.RecordCount&"条纪录!",vbInformation
EndSub
PrivateFunctiongetWhrStr()AsString
'功能描述:拼凑Where语句
'返回串值
DimwhrStrAsString
'拼Where语句
whrStr="where1=1"
IfTrim(Me.txtID)<>""Then
whrStr=whrStr&"andholderid='"&Trim(Me.txtID)&"'"
EndIf
IfTrim(Me.txtUser)<>""Then
whrStr=whrStr+"andholderlike'%"&txtUser&"%'"
EndIf
IfTrim(Me.txtMoney)<>""Then
whrStr=whrStr+"andqianFee>="&Me.txtMoney&""
EndIf
whrStr=whrStr+"andFeedate>=#"&Me.dtpS&"#andFeedate<=#"&Me.dtpE&"#"
getWhrStr=whrStr
EndFunction
PrivateSubcmdReturn_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
dtpE.Value=Format(Now,"yyyy-mm-dd")
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Ifrsdg.State=1Then
rsdg.Close
EndIf
EndSub
11:费用查询界面设计:
费用查询代码设计:
PrivateSubcmdExport_Click()
'导出网格数据到EXCEL中
Exportrsdg,Me.dgexp," 数据查询",Format(Now,"yyyy-mm-dd")
EndSub
PrivateSubcmdQuery_Click()
DimSqlstrAsString
DimwhrStrAsString
DimfeeCAsDouble
DimznjCAsDouble
'拼Where语句
whrStr=getWhrStr()
'取得网格的数据'2957387
Sqlstr="select*frompanelInfo"&whrStr&""
'MsgBoxSqlstr
Ifrsdg.State=1Then
rsdg.Close
EndIf
rsdg.OpenSqlstr,gCnn,adOpenStatic,adLockOptimistic
Setrsdg=getQueryData(Sqlstr)
Setdgexp.DataSource=rsdg
MsgBox"数据查询完成,共"&rsdg.RecordCount&"条纪录!",vbInformation
EndSub
PrivateFunctiongetWhrStr()AsString
'功能描述:拼凑Where语句
'返回串值
DimwhrStrAsString
'拼Where语句
whrStr="where1=1"
IfTrim(Me.txtID)<>""Then
whrStr=whrStr&"andholderid='"&Trim(Me.txtID)&"'"
EndIf
IfTrim(Me.txtUser)<>""Then
whrStr=whrStr+"andholderlike'%"&txtUser&"%'"
EndIf
IfTrim(Me.txtMoney)<>""Then
whrStr=whrStr+"andcFeeMoney>="&Me.txtMoney&""
EndIf
getWhrStr=whrStr
EndFunction
PrivateSubcmdReturn_Click()
UnloadMe
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Ifrsdg.State=1Then
rsdg.Close
EndIf
EndSub
结束语
本软件的设计目的是在电表收费管理维护方面为企事业单位和管理人员提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参考文献
1陈明.软件工程学教程.科技出版社,2002
2萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,2000
3飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社,2003
4飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,2002
5申旻.visualbasic6.0高手突破.清华大学出版社,2002,302
6SteveTeixeira,XaviverPacheco著,龙劲松,王瑜,谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.2003
7乔林.参透Delphi/Kylix.中国铁道出版社.2003
8李维.Inside深入核心VCL架构剖析.电子工业出版社.2004
9张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002
严蔚敏,吴伟民.数据结构.第二版.清华大学出版社.2001
10王珍玲。实用软件工程教程高等教育出版社2004
11(英)IanSommerville机械工业出版社2003
12美Cantu,U.王辉等译visualbasic6.0从入门到精通电子工业出版社2003
13李维面向对象开发实践之路(visualbasic6.0版)(BORLAND资深顾问著名visualbasic6.0专家李维最新力作)电子工业出版社2005.4
14秦斌等visualbasic6.0数据库系统开发与应用中国水利水电出版社2006.1
15刘艺visualbasic6.0面向对象编程思想机械工业出版社2003
16.visualbasic程序设计第二版谭浩强清华大学出版社2003
17.visualbasic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出版社,2002.1
18.软件工程学教程(第二版)周苏王文著科学出版社2003
19.VisualBasic6.0程序设计与开发技术求是科技人民邮电出版社2004.9
上一篇:
VB电脑销售系统(论文和程序)
下一篇:
对普通机床的认识