水费管理系统

《水费管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、啡呻2009040603048潘済940603022011丹07F06m沈阳航空航天大学课程设计任务书学院：机电工程学号：2009040603048专业：车辆工程班级：94060302题目：水费管理系统课程设计时间2011年6月27日~7月1H（第17周），共计1周。二、课程设计内容用VB+Access组合，编写“水费管理系统”软件。水费信息存储到Access数据库的一个表中，水费信息至少包括：编号、姓名、栋号、房号、上月表数、本月表数、本刀吨数、单价等。程序能实现对水费数据进行维护、查询、汇总、打印等功能。用户界面中的菜单至少应包括“数据维护”、“查询”、“汇总”、

2、“打印”、“退岀”5项。三、课程设计要求程序质量：◊贯彻事件驱动的程序设计思想。◊用户界而友好，功能明确，操作方便；可以增加其它功能或修饰。◊代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：◊课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：刘学平学生签名：董笑语五、成绩六、教师评语一、需求分析4二、设计分析4三、关键技术6四、总结11五、完整的源程序11六、参考文献14一、需求分析用VB+Access组合，编写“水费管理系统”软件。水费信息存储到Access数据库的一个表中，水费信息至少

3、包括：编号、姓名、栋号、房号、上月表数、本月表数、本月吨数、单价等。程序能实现对水费数据进行维护、查询、汇总、打印等功能。用户界面中的菜单至少应包括“数据维护”、“查询”、“汇总”、“打印”、“退出”5项。二.设计分析(1)基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。(2)总体设计：图1总体设计(1)详细设计:图1详细设计(2)数据库设计：数据库设计是总体设计阶段非常重耍的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。具体表格如下。表1水费基本信息表编号姓名房号栋号上月表数

4、本月表数本月吨数单价二.关键技术（1）建立与数据库的连接代码如下。Form3.Print户编号，用水量，总金额”Form2.Adodc1.RecordSource="selectfromwatermangement”DoWhileNotForm2.Adodc1.Recordset.EOFa=a+Form2.Adodc1.Recordset.Fields（"本月吨数"）b=b+1Form3.Printb,Form2.Adodc1.Recordset.Fields（n木月吨数n）;Form2.Adodc1.Recordset.Fields（"本月吨数”）0.5Form2.

5、Adodc1.Recordset.MoveNextLoopForm3.Print水总量，总金额”'连接数据源Form3.Printa,a0.5Form2.Adodc1.Recordset.EOFa=a+Form2.Adodc1.Recordset.Fields（H本月吨数”）'声明变量作为记录对象DimaAsLongDimbAsLong'声明变量属性（2）用户登陆界面程序设计（界面如图所示）：程序段如下：输入密码PrivateSubCommand6_Click()IfText1.Text=n1234"ThenCommand1.Visible=TrueCommand2.

6、Visible=TrueCommand3.Visible=TrueCommand5.Visible=TrueCommand6.Visible=FalseLabell.Visible=FalseText1.Visible=FalseElseMsgBox”密码错误，请重新输入”EndIfEndSubPrivateSubForm_Load()Command1.Visible=FalseCommand2.Visible=FalseCommand3.Visible=FalseCommand5.Visible=FalseEndSub（3）系统主界面程序设计（界面如图所示）:Dim

7、aAsLongDimbAsLongPrivateSubCommandl_Click()Form2.ShowFormLHideForm2.Text9.Visible=FalseForm2.Label9.Visible=FalseEndSubPrivateSubCommand2_Click()Form2.ShowForml.HideForm2.Command1.Enabled=FalseForm2^Command1.Visible=FalseEndSubPrivateSubCommand3_Click（）b=0Form3.ShowFormLHideFor