学位论文-—水费管理系统的设计与开发.doc

摘要水费管理系统是每一个水资源管理机构管理水资源用户及水费缴纳情况的不可缺少的一个管理信息系统，它的内容对于水资源管理机构的管理者来说是至关重要的，所以水费管理系统应该能够为每一个水资源管理机构的管理者提供充足的信息和快捷的查询手段，大大的方便水资源管理机构的管理者的合理管理。本管理信息系统将采用技术成熟的VB6.0做为前台开发工具。后台数据库采用微软公司的Access数据库，它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台已成熟可行。硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。本文主要的研究内容是水费管理信息系统，可实现用户信息的添加、修改、删除和查询、水费类型信息的修改、删除和查询、水费价格信息的删除和查询、新入用户信息的添加、修改、取消预定和查看详细信息、登记信息和修改登记信息、保存结算信息、打印实收水费信息等功能。 目 录1 绪 论411课题简介412开发的意义42 开发环境621开发环境622开发工具简介63系统设计83.1 可行性分析83.1.1 管理上的可行性83.1.2 技术上的可行性83.1.3效益上的可行性83.2需求分析93.3业务描述103.4总体设计114 数据库设计134.1用户表134,2 用户管理表134.3 水费管理表144.4水价表145 系统的实现1551系统登录模块的实现1552主界面的实现1653水费管理模块的实现18531缴纳水费模块的实现：18532查询缴费情况模块的实现2354用户管理模块的实现2555浏览用户模块的实现2856打印管理模块的实现2957环境设置模块的实现325 .8用户管理模块的实现335. 9使用说明346 总结与展望34参考文献36致谢37 1 绪 论11课题简介水费管理系统是每一个水资源管理机构管理水资源用户及水费缴纳情况的不可缺少的一个管理信息系统，它的内容对于水资源管理机构的管理者来说是至关重要的，所以水费管理系统应该能够为每一个水资源管理机构的管理者提供充足的信息和快捷的查询手段，大大的方便水资源管理机构的管理者的合理管理。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对水资源用户及水费缴纳情况进行管理，具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高水资源用户及水费缴纳情况管理的效率，也是水资源管理机构帐收费的科学化、正规化管理，与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。12开发的意义1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理水资源用户及水费缴纳情况今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许多领域。现在我国的水资源用户及水费缴纳情况管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助水资源管理机构进行水资源用户及水费缴纳情况管理。 开发这一系统的好处大约有以下几点：第一、可以存储历年水资源用户及水费缴纳情况的信息，安全、高效；第二、只需一到二名档案录入员即可操作系统，节省人力；第三、可以迅速查到水资源用户及水费缴纳情况的各类信息。2为将来水资源管理机构上网做好准备跟据2003年中国电信的调查报告显示我国的上网人数已达到1870万，互联网已经十分普及，本系统为水资源管理机构将来的上网作了先期工作，比如水资源管理机构的网络管理模式的建立。2 开发环境21开发环境硬件系统：奔腾100以上CPU、64M以上内存、1G以上硬盘、光驱。软件系统：Windows xp或更高版、Microsoft Visual Basic 6.0 中文企业版 Access数据库。22开发工具简介 Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。Microsoft Office Access是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database En和 图形用户界面两项特点，是 Microsoft Office 的系统程式之一。具有以下特点：1.提高速度和减少代码量2.用整形数进行数学运算3.避免使用过程调用4.谨慎使用不定长数据类型5.用变量存放属性6.预载表格3系统设计3.1 可行性分析3.1.1 管理上的可行性在传统的水费收费管理中，管理人员不得不花费大量的时间来处理水费信息，例如错误查询、烦琐的登记和结帐手续、费用计算错误、水费资料不能及时提供等，从而工作效率。因此水费的管理人员迫切的需要一套水费收费管理信息系统对日常信息进行处理和维护。历史经验的积累使水费现有的管理制度和管理方法比较科学，规章制度比较齐全，原始数据比较正确。这些为系统的建设提供了有效的制度保障3.1.2 技术上的可行性本管理信息系统将采用技术成熟的VB6.0做为前台开发工具。后台数据库采用微软公司的Access数据库，它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台已成熟可行。硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。3.1.3效益上的可行性本系统的使用能大大提高员工工作效率，加速资金周转、降低各项成本及改善服务质量。能够取得良好的经济效益。水费收费系统除提供给管理人员的系统管理功能外，还能对用户开放，实现用户的查询信息功能，拥有完善的权限设置功能。3.2需求分析本系统主要有以下功能需求：1用户登录模块，主要用于用户的登录。用户权限分为管理员和普通用户。当用户输入用户名和密码后经过确认，才能进入宾馆客房管理信息系统，并拥有相应的权限。如果不是用户，拒绝进入。2水费管理模块，该模块是本系统的核心所在。主要用于对水费信息的管理，其中包括：水费收费模块管理，主要包括信息的查询及缴费等基本操作。水费查询管理模块，主要用于管理员及用户对水费查询管理等操作。水费管理模块，主要用于用户水费信息的查看，修改，删除等基本操作。打印管理模块，主要包括对水费信息缴费的情况打印的基本操作。3用户管理模块，该模块主要用于对用户的基本信息登记，以及浏览信息等操作。4账户管理模块，该模块用于对密码，权限等基本信息的修改添加等操作。根据需求分析总结的用户需求设计系统的体系功能如图3-1：用户信息管理用户修改管理用户删除管理水费收费管理信息系统基本信息管理系统用户管理水费收费管理水费类型管理收费基本信息用户登记管理信息编辑管理管理员信息管理密码设置管理应收水费管理水费缴费报表实收水费管理 图 3-1系统模块图可以看到，本系统划分为四个功能模块，基本信息管理模块用于对用户及其水费情况进行管理，用户编辑管理模块主要用于用户状态的查看和用户信息的编辑。消费管理模块主要用于对用户消费进行入帐管理。报表管理模块提供给用户用来查看缴费基本情况的信息，系统信息模块用来对系统用户进行管理。3.3业务描述 本系统用户分为系统用户和普通用户(1.) 用水账户分为用户名、户号、住址等基本信息：(2.) 用水账户一月产生一次水费信息：水务公司按照月为单位对用水户进行用水信息统计、收费(3.) 用水信息包括：本月用水信息及应缴费数额。管理员对用水户会进行每月一次的信息收集，然后进行用户用水水价等信息计算出月水费然后进行收费(4.) 用水账户存在水价调整的情况(5.) 对于每一月水费信息 需要进行汇总处理，包括用水总量汇总、水费总额汇总、缴费汇总、应收账款汇总：水务公司会对每一个月的用水相关数据进行整体性把握，需要对用水月的所有用（和管辖组为单位）水量以及账款收取情况、应收账款情况进行总额统计。(6.) 按照用水管理组打印全部用户基本信息：因业务需要，需要按用户缴费情况打印用户基本数据信息；(7.) 单个用水户账户停表/补交欠费恢复用水功能；对于用水户根据业务需要应能单独提供其用水户的基本信息，以及其往月的用水记录；(8.) 各种数据内容查询；由上述系统描述产生本系统的业务流程图如图3-2：读取用户类型是退出系统失败3次否开始用户登录失败重试成功管理自己的用户信息管理自己和普通用户的用户信息普通用户管理员用户管理水费管理消费管理编辑管理 图3-2系统流程图通过对系统流程图分析产生如下数据字典：名字：用户户号别名：用户编号描述：唯一标识客户管理信息的一个特定域定义：用户户号=8数字8位置：用户信息、报表、管理信息名字：水费别名：描述：标识水费价格及其基本信息的关键域定义：水费=水费价格+水费类型位置：报表、用户信息名字：管理员别名：描述：对系统进行管理定义：管理员=管理员姓名+管理员密码+管理员权限位置：输出到打印机名字：报表别名：描述：用于用户缴费后打印的水费清单定义：报表=用户户名+用户户号+缴费月份+用水量+当前水价+缴费数额+缴费日期位置：输出到打印机3.4总体设计1.针对水费收费管理信息系统的需求，通过对水费管理工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构：水费基本信息，包括的数据项有：水费类型，水费状态，单价等。新添用户基本信息，包括的数据项有：用户户号，用户姓名，地址，操作员信息等。已有用户基本信息，包括用户户号，用户姓名，地址，基本水费信息，操作员等。结算信息，包括的数据项有：用户户名，用户户号，地址，缴费月份，用水量，当前水价，缴费数额，缴费日期等。系统用户信息，包括的数据项有 ：用户名，用户密码，用户权限。有了上面的数据结构，数据项和数据流程，我们就能对系统进行数据库设计。2. 系统ER图 如图3-3：管理员用户账户存在1 1 用户密码姓名电话地址户号用水量缴费日期缴费金额缴费月份用户户号水价自来水公司聘用1 N 公司名称电话地址用户权限用户名管理管理管理1 N N M M N 图3-3 系统E-R图4 数据库设计数据库包含以下表：水费管理表、用户管理表、用户表、当前水价表4.1用户表用户表包含管理员（超级用户或普通用户）的姓名Char(50)、相应密码Char(40)及对应的权限Char(40)。用户表如表4-1： 表 4-1 用户表编号字段名称数据类型说明1UserChar(50)用户的登录名， 必填字段2PasswordChar(40)密码， 必填字段3qxChar(40)用户的权限， 必填字段 4,2 用户管理表 用户管理表包括用户缴费的总户号Int（4）、用户姓名Varchar（20）、用户居住地Varchar（50）以及用户当月所产生的费用Char(40)。用户管理表如表4-2： 表4-2 用户管理表编号字段名称数据类型说明1总户号Int（4）用户编号2户名Varchar（20）用户姓名3地址Varchar（50）用户所居住地4总费用Char(40)用户水费总金额 4.3 水费管理表 水费管理表是本系统的关键，用于水费缴费及其查询。其包含用户缴费的总户号Int(4)、用户姓名Varchar(20)、用户居住地Varchar(50)等缴费信息的基本信息，以及用户当月所用的用水量Int(4)及产生的总费用Char(40)。如表4-3所示： 表4-3 水费管理表编号字段名称数据类型说明1总户号Int(4)用户编号2户名Varchar(20)用户姓名3地址Varchar(50)用户所居住地4用水量Int(4)用户当月所用的水量5当前单价Char(40)当月水费价格6当前水费Char(40)用户应缴费数额7应缴月份Date 缴费月份8缴费日期Date 缴费日期 4.4水价表 当前水价表是对当前水费的设置。水价表包括设置的水费价格信息以及应缴费的月份记录。如表4-4所示： 表 4-4当前水价表编号字段名称数据类型说明1价格Char(40)当月水费价格2应缴月份Date应缴费月份 5 系统的实现51系统登录模块的实现1流程图如图5-1YN开始输入登录密码是否正确主界面 图 5-1登录模块流程图2 登陆界面如图5-2 图5-2登陆界面52主界面的实现主界面是用菜单形式表现的，如图5-3： 图 5-3主界面菜单的制作过程如下：首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如图5-4：调节菜单的级别 图5-4菜单编辑器此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下如图5-5： 图5-5菜单代码主要是通过Show方法调用相应的窗体。53水费管理模块的实现531缴纳水费模块的实现：1、流程图如图5-6：NY开始缴纳水费是否继续退出 图5-6缴纳水费流程图2、运行界面如图5-7： 图5-7缴纳水费界面图1实现过程： 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图5-8： 图5-8实现过程图第二步，选择窗体或控件进行属性设置，同上一小结。 其它属性和控件的设置方法类似。第三步双击相应的控件，在控件的相应过程中编写代码：窗体的load事件为：Private Sub Form_Load() Form21.Width = 7350 Form21.Height = 7395Form21.Move (MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4Label5.Caption = DateEnd Sub作用：使窗体居中显示。的代码如下：Private Sub Command2_Click()SQL = select * from 用户管理 where 总户号= & Trim(Text1(0).Text) & Data3.RecordSource = SQLData3.RefreshIf Data3.Recordset.EOF Then MsgBox 没有此总户号！请重新输入总户号！, , 提示 Text1(0).Text = Text1(0).SetFocusElse For i = 1 To 9 Label1(i).Visible = True Next i For i = 1 To 6 Text1(i).Visible = True Next i Text8.Visible = True Data1.Recordset.AddNew Text1(7) = Text6 Text1(1) = Text3 Text1(2) = Text4 Text1(4) = Text2 Text1(6).Text = Date$ Text1(3).SetFocus Text8 = Text7End IfEnd Sub作用：先判断用户表中有没有此总户号，如有就收费，没有就提示用户。界面如图5-9： 图 5-9 缴纳水费的代码如下：Private Sub Command1_Click()MsgBox 已入库！, , 提示Text5.Text = Val(Text5.Text) + Val(Text1(5).Text)Data1.UpdateRecordText1(0).SetFocusText1(0).Text = For i = 1 To 9 Label1(i).Visible = False Next i For i = 1 To 6 Text1(i).Visible = False Next i Text8.Visible = FalseEnd Sub作用：收费入库，并提示收费员相关信息。此窗体上用了3个data控件，data1与水费管理表相连，data2与用户管理表相连，data3与当前价格表相连，连接方法同前一节，这边不再重复。 532查询缴费情况模块的实现1 运行界面如图5-10： 图5-10查询缴费情况运行界面2实现过程：界面的实现方法同上，下面主要看关键代码：单选按钮组的代码为：Private Sub Option1_Click(Index As Integer)For i = 0 To 2 If Option1(0).Value = True Or Option1(1).Value = True Then Text1.Visible = True DTPicker1.Visible = False Else If Option1(2).Value = True Then Text1.Visible = False DTPicker1.Visible = True Else MsgBox 请选择查询的项！, , 提示 End If End IfNext iCommand1.Visible = TrueEnd Sub主要选择查询的项。“查询“的主要代码为：Private Sub Command1_Click()If Option1(0).Value = True Then SQL = select * from 水费管理 where 总户号= & Trim(Text1.Text) & Else If Option1(1).Value = True Then SQL = select * from 水费管理 where 户名= & Trim(Text1.Text) & Else If Option1(2).Value = True Then SQL = select * from 水费管理 where 缴费日期= & Format(DTPicker1.Value, yyyy-mm-dd) & End If End IfEnd IfData1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 没有您要查询的缴纳水费情况！, , 提示End IfEnd Sub主要作用：根据用户的选择，通过SQL语句查询并显示结果。54用户管理模块的实现1流程图如图5-11：NY开始增加/修改用户信息是否继续保存入表 图5-11用户管理模块流程图2运行界面如图5-12： 图5-12用户管理模块运行界面3实现过程：8个按纽组的代码如下：Private Sub Command1_Click(Index As Integer)首条If Index = 0 Then Data1.Recordset.MoveFirst Command1(2).Enabled = False Command1(1).Enabled = TrueEnd IfIf Index = 1 Then下一条 Command1(2).Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command1(1).Enabled = False End IfEnd IfIf Index = 2 Then前一条 Command1(1).Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command1(2).Enabled = False End IfEnd If末条If Index = 3 Then Data1.Recordset.MoveLast Command1(1).Enabled = False Command1(2).Enabled = TrueEnd If增加If Index = 4 Then Data1.Recordset.AddNew Text1(0) = Data1.Recordset.RecordCount + 1 Text1(1).SetFocus Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = FalseEnd IfIf Index = 5 Then Data1.Recordset.Delete删除 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command1(1).Enabled = False End IfEnd If修改If Index = 6 Then Data1.Recordset.Edit Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = FalseEnd IfIf Index = 7 Then Data1.UpdateRecord刷新记录 Data1.Recordset.MoveLast Command1(1).Enabled = False Command1(2).Enabled = True Command1(4).Enabled = True Command1(5).Enabled = True Command1(6).Enabled = TrueEnd IfEnd Sub55浏览用户模块的实现1流程图如图5-13：NY开始设定查询信息是否继续结果 图 5-13用户浏览流程图2 运行界面如图5-14： 图5-14 用户浏览运行界面 3实现过程：界面的设计方法同上，在这不再重复。现将控件的相应代码说明如下：“查询”的代码如下：Private Sub Command1_Click()If Option1.Value = True ThenSQL = select * from 用户管理 where 总户号= & Trim(Text1.Text) & Data1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 没有此总户号！, , 提示End IfEnd IfIf Option2.Value = True ThenSQL = select * from 用户管理 where 户名= & Trim(Text1.Text) & Data1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 没有此户名！, , 提示End IfEnd IfIf Option1.Value = False And Option2.Value = False Then MsgBox 请选择查询的项目后再进行查询！, , 提示End IfEnd Sub作用：浏览用户信息，也可根据总户号或姓名查询用户信息。56打印管理模块的实现1流程图如图5-15：NY开始打印服务的项目是否继续退出 图5-15打印模块流程图2运行界面：当日缴费情况打印界面如图5-16： 图5-16缴费情况打印界面3实现过程：先通过DataEnvironment1建立连接。如图5-17： 图5-17 DataEnvironment1连接图然后通过SQL设置查询语句如图5-18： 图5-18设置查询图最后再通过DataReport1调用如图5-19：数据来源设置打印界面 图5-19 DataReport1调用图57环境设置模块的实现 运行界面如图5-20： 图5-20 环境设置运行界面通过直接写入data数据库的方法实现。同前。5 .8用户管理模块的实现界面如图5-21：图5-21账户管理运行界面数据库的连接方法同上。Text3的权限说明如图5-22： 图5-22 Text3权限说明图各权限级别具有的权限如下：超级用户一切功能可用、管理员不可添加系统用户、修改用户密码、收费员仅可查询信息、收费功能。5. 9使用说明1、运行于Windows 98以上操作系统。 建议分辨率1366*768。2、水费数据库的默认路径：N:水费管理系统water.mdb3、用户数据库的默认路径：N:水费管理系统user.mdb4、系统默认用户名、密码、权限如表5-1：表5-1 系统默认用户名、密码、权限用户名密码权限111111122222223333333adminadmin1 6 总结与展望经过二个多月的设计和开发，水费管理系统基本开发完毕。在此期间本人阅读了大量VB及管理信息系统的教程，收获非浅，比如：之前本人对DATA及ADOBC控件不熟悉，通过这次毕业设计，我能熟练的操作这两个控件；再比如说在用COMBO控件时不知道如何向其中添加列表项，走了许多弯路，查询了众多资料，最后终于找到了一种捷径的方法，解决了我设计中的一大难题。因此，在本次的毕业设计中，为搞清控件的使用方法、编程的各个难点、掌握面向对象的编程思想，本人查过相关的教材、查询过相关的网站、请教过指导教师。在摸索中学习，在困惑中探索，终于探究了一套较好的学习面向对象的程序设计的方法。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不完善等多方面问题。这些都有待进一步改善。参考文献1. 闪四清 数据库系统原理与应用 北京：清华大学出版社 19992. 刘世峰 Visual Basic 6.0程序设计 北京：中央广播电大出版社 20033. 陈 明 Vis