图25 纯净水出库查询
Fig25 Water delivery
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
sql = "where date=#" & Trim(DTPicker1.Value) & "#"
Call outsearch(sql)
End Sub
Private Sub Form_Load()
sql = ""
Call outsearch(sql)
End Sub
Private Sub outsearch(ByVal sql As String)
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cjs.mdb;"
Set rs = New adodb.Recordset
rs.LockType = adLockOptimistic
If Len(Trim(sql)) <= 0 Then
rs.Open "select * from outstore", cn, adOpenDynamic
Else
rs.Open "select * from outstore " & Trim(sql), cn, adOpenDynamic
End If
Set DataGrid1.DataSource = rs
End Sub
4.15 “关于窗体”模块
关于窗体模块主要用来声明程序名称、版本、公司等。窗体如图26。
图26 关于窗体模块图
Fig26 About form module chart
4.16 “日积月累”模块
日积月累窗体主要是用来显示每日小提示。主要包括一个提示信息文本文件。如图27。
图27 日积月累模块
Fig27 Cumulative module
5 总结
本文介绍了一套非常简单实用的纯净水管理系统的开发过程，并详细介绍了如何设计和实现系统程序，包括功能模块设计、数据库设计、窗体设计。最终创建了一个功能齐全的纯净水管理系统。
致谢
首先，我要感谢我的指导老师赵阳老师，我的论文自始至终都是在赵老师的关心和指导下完成的。赵老师一直以他渊博的知识指导我的学习和工作。同时，赵老师严谨的研究作风，谦虚的工作态度也深深地感染了我们，让我们在求学的路上始终能够健康成长。在此，我对赵老师对我的培养、教育、关心和爱护表示我深深的谢意。
在此，我还要感谢在一起愉快的度过大学生活的农业电气化与自动化专业06级的各位同学，正是由于你们的帮助和支持，我才能克服一个一个的困难和疑惑，直至本文的顺利完成。
最后，再次感谢我的老师、同学和朋友们，谢谢你们在大学四年里给我的莫大的支持、鼓励和帮助。谢谢你们！
参考文献：
[1] 刘彬彬，高春艳.Visual Basic程序设计自学手册[M].人民邮电出版社.2008.3
[2] 求是科技 Visual Basic串口通信开发实例导航[M].人民邮电出版社.2003.1
[3] 辛本柱等.Visual Basic从入门到实践[M].北京：清华大学出版社.2009.9
[4] 王运坚.《VISUAL BASIC 6.0 应用指南》[M]. 北京:人民邮电出版社. 1998
[5] 曹军生等.《SQL Server2000实用教程 》.北京理工大学出版社.2001.9
[6] 吴凤翔. Visual Basic 程序设计教程. 中国林业出版社.2002.11
[7] 管丽娜.白海波.《实用Visual Basic6 教程》[M] .北京:清华大学出版社.2001
[8] 郑阿奇.SQL Server教程.清华大学出版社[M].2005.8
[9] 乔美娥.ADO技术在VB系统开发中的高级应用[J].中国科技信息.2008.24,84-85
[10] 人杰,殷人昆,陶永雷.《实用软件工程（第二版）》.北京：清华大学出版社.2003.3
[11] 刘炳文，杨明福，陈定中等.全国计算机等级考试二级教程-Visual Basic语言程序设计.第2版.北京:高等教育出版社.2002.4
[12] 孙燕,陈宁,张凡等.Visual Basic 6.0 程序设计.北京.高等教育出版社.2000.7
[13] [美]Julia编著.《Visual Basic 6.0高级编程》.清华大学出版社. 2003.12
[14] 黄淼云,张学忠,方楠等.Visual Basic 6.0 程序设计.北京:北京希望电子出版社.2002.5
[15] 戴婉荣,熊前兴.SQL Server数据同步机制的研究与应用[J].电脑知识与技术.2009.5(19).5096-5098
[16] 耿小芬,徐忠军.Visual Basic中的数据访问技术[J].中国教育信息化高职高教.2009.3.83-84
[17] 孙滨，周扬，郭晓东.动态链接库技术及应用[J].电脑编程技巧与维护.2009.8.上.35-38
[18] 付军 等. Visual Basic.NET实用编程100例. 中国铁道出版社
[19] 伍俊良.《管理信息系统(MIS) 开发与应用》.北京:科学出版社.1999
[20]Kim, J., A Web-Based Speaking Test Development Using Visual Basic 6.0. Multimedia Assisted Language Learning. 2006. 9(2): p. 77-98
[21]Somma, J., et al., Rapid Development and Validation of a Three-Compartment Non-Linear with Covariate PK Simulator Using Visual Basic 6.0 and the Simulink Component of MatLab. Anesthesiology. 2003. 99(A510): p. A510
