《水费管理系统设计》

1、目 录 第一章 绪 论 .2 11 课题简介 .2 12 开发的意义 .2 第二章 开发环境及实现技术 .3 21 开发环境 .3 22 开发工具简介 .3 第三章 系统设计 .4 31 概要设计 .4 32 详细设计 .1 第四章 数据库设计 .2 41 数据库 ACCESS简介 .2 42 数据库需求分析 .3 43 测试用例 .2 第五章 系统的实现 .3 51 系统登录模块的实现 .3 52 主界面的实现 .7 53 水费管理模块的实现 .9 54 用户管理模块的实现 .14 55 浏览用户模块的实现 .16 56 打印管理模块的实现 .18 57 环境设置模块的实现 .20 58 用

2、户管理模块的实现 .20 第六章 系统使用说明 .21 61 使用说明 .21 62 运行环境 .21 第一章 绪 论 11 课题简介课题简介 水费管理系统是每一个水资源管理机构管理水资源用户及水费缴纳情况的不可缺少的一个管 理信息系统，它的内容对于水资源管理机构的管理者来说是至关重要的，所以水费管理系统应该 能够为每一个水资源管理机构的管理者提供充足的信息和快捷的查询手段，大大的方便水资源管 理机构的管理者的合理管理。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进 入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对水资源用

3、户及水费缴纳情况进行管理，具有着手工 管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成 本低等。这些优点能够极大地提高水资源用户及水费缴纳情况管理的效率，也是水资源管理机构 帐收费的科学化、正规化管理，与先进科学技术接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来 说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。 12 开发的意义开发的意义 1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理水资源用户及水费缴纳 情况 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许

4、多领域。 现在我国的水资源用户及水费缴纳情况管理水平绝大部分还停留在纸介质的基础上，这样的 机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法 必然被计算机为基础的信息管理所取代。 我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平 同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助水 资源管理机构进行水资源用户及水费缴纳情况管理。 开发这一系统的好处大约有以下几点： 第一、可以存储历年水资源用户及水费缴纳情况的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速

5、查到水资源用户及水费缴纳情况的各类信息。 2为将来水资源管理机构上网做好准备 跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万，互联网已经十分普及， 本系统为水资源管理机构将来的上网作了先期工作，比如水资源管理机构的网络管理模式的建立。 第二章 开发环境及实现技术 21 开发环境开发环境 硬件系统：奔腾 100 以上 CPU、64M 以上内存、1G 以上硬盘、光驱。 软件系统：Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 数据库。 22 开发工具简介开发工具简介 微软公司的 Visual Basic 6.0 是 Window

6、s 应用程序开发工具，使目前最为广泛的、易学易用 的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种 功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效 率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出 数据库中的信息。Acc

7、ess 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络 文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发 的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数 据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 微软的 JET 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来 访问数据库并对其进行各种操作。Visual Basic、Access 以及其他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。 DATA 控件在数据库

8、中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥 梁。我们可以设置 DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下， DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。 一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也 会随之改变。DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将 DATA 控件放置在窗体中 之后，我们还必须在该控件与要处理的数据库之间建立联系。 ADO 是 Mcrosoft 提出的第三种数据库访问对象，是 Microsoft

9、 数据库访问技术的一个主要发 展方向，ADO 将 OLE DB 封装在一个数据对象中，使得 VB 程序中以方便地实现对数据库的访问。 具体的与数据库的关系如下： VB 数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。 1用户界面: 用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素 和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记 录或执行查询的 VB 代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。 2数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程 序与物理数据库之间的桥梁。它把

10、应用程序的请求翻译成对各种类型数据库的物理操作,并向应用 程序返回结果。 3数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的 VB 数据库来说，就是.mdb 格式文件；对于不同的数据库，它可能具备其它格式。 VB 访问数据库通常有三种途径: 1.使用数据控件和数据绑定控件访问数据库； 2.通过 VB 提供的数据访问变量编程访问； 3.通过 ODBC 接口访问 ODBC API 函数。 VB 程序的数据访问通过数据访问接口来实现。 在 VB 中，主要的数据访问接口有三种：数据存取对象(Data Access Object；DAO)、远程 数据对象(Remote Da

11、ta Object；RDO)、ActiveX 数据对象(ActiveX Data Objects；ADO)。 VB 通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部数据库和 ODBC 数据库。 1、内部数据库即.MDB 格式的数据库，包括 DAO API、Microsoft Access 和 Microsoft Excel 创建的数据源，也称为本地数据库。由于是由 Jet 引擎直接创建和操作这些数据库，可以 提供最大程度的灵活性和速度。 2、外部数据库即索引顺序存取方法(ISAM)数据库，例如 Btrieve、dBASE、FoxPro 以及 Paradox 等。VB 能够创建和操作所

12、有这些数据库，还可以访问 Microsoft Excel 或 Lotus l-2-3 电子表格，以及一些标准的文本文件。 3、ODBC 数据库即符合开放式数据库连接性(ODBC)协议的数据库。VB 可以访问 ODBC 标准 客户/服务器数据库-如 Microsoft SQL Server、Oracle 和 Sybase。可使用 ODBC Object 直接把 命令传递给服务器处理，以创建真正的客户机/服务器程序。 第三章 系统设计 31 概要设计概要设计 311 概要设计阶段的主要任务概要设计阶段的主要任务 本人先审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组 成系统

13、物理元素清单，成本效益分析，系统的进度计划，供指导老师审定，审定后进入设计。 确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块 间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。 编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构 图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则， 信息隐蔽原则等。 312 概要设计的过程概要设计的过程 概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进 行结构设计，确定软件结构。 313 概要设计的原则概要设计的原则 将

14、软件划分成若干独立成分的依据。 如何表示不同的成分内的功能细节和数据结构。 如何统一衡量软件设计的技术质量。 314 系统功能分析系统功能分析 根据水资源管理机构提供的水费管理信息，预测开发的管理系统的达到的功能如下： 第一部分：系统用户管理 要求：用户分四类：超级用户一切功能可用、管理员不可添加系统用户、修改用户密码、 收费员仅可查询信息、收费功能 第二部分：水费管理 要求：实现缴纳水费及查询缴费情况。 第三部分：用户管理 要求：实现编辑用户和浏览用户信息 第四部分 打印服务 要求：实现当日缴费情况打印 第五部分 环境设置 要求：实现缴费月份及当前水价的设置 第六部分 帮助 制作帮助文档，介

15、绍各部分功能即可根据 以上分析，该系统考虑将整个系统分解成如图： 并且在系统的开发过程中，我尽量注意模 块的高内聚、低耦合，使得系统的整体性能提 高，并且也有利于投入使用后的系统维护。 主界面主界面 系系 统统 水水 费费 管管 理理 用用 户户 管管 理理 环环 境境 设设 置置 打打 印印 服服 务务 登录登录 图 3-1 模块结构图 32 详细设计详细设计 321 详细设计的任务详细设计的任务 详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统 中的每个模块给出足够详细的过程性描述。主要任务如下：为每个模块确定采用的算法，选择 某种适当的工具表达算法的过程，

16、写出模块的详细过程性描述；确定每一模块使用的数据结构； 确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及 模块输入数据、输出数据及局部数据的全部细节。要为每一个模块设计出一组测试用例，以便 在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成 部分，通常应包括输入数据，期望输出等内容。 322 详细设计的方法详细设计的方法 程序流程图、N-S 图、PAD 图、IPO 图 本系统在开发过程中所采用的详细设计方法为 IPO 图： 1、缴纳水费管理模块模块 IPO 图： I IO OP P 总户号提供相应的界 面供人员录入 保存到表

17、2、缴费查询模块 IPO 图： I IO OP P 查询内容的设定提供相应的界 面供人员操作 显示查询的结果 3、用户管理模块 IPO 图： I IO OP P 增加、修改 删除、查询 提供相应的界 面供人员操作 保存到表 显示查询结果 4、打印模块 IPO 图： I IO OP P 选择打印项提供相应的界 面供人员操作 打印 5、用户管理模块的 IPO 图 I IO OP P 增加、删除、修 改用户信息 提供相应的界 面供人员操作 保存到用户管 理表 第四章 数据库设计 41 数据库数据库 Access 简介简介 Access 中文版是 Microsoft Office 2000 套装软件的

18、数据库管理系统软件，是目前比较流行 的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对 数据收集、分类、筛选处理，提供用户查询或打印报表。 Access 具有良好的界面，采用了与 Windows 和 Microsoft Office 系列软件完全一致的风格， 用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据 管理任务。Microsoft Office 的一个集成化的程序设计语言是 VBA(Visual Basic for Applications)，使用 VBA 可以创建非常实用的数据库应用系统。 Access 可以作为个人

19、计算机终端和大型主机系统之间的桥梁。通过如 SQL、ODBC 等特定技术， 方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决 方案。 Access 可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。 随着 Internet 网络应用的发展，Access 还增加了使用信息发布 Web 向导和用 HTML 格式导出 对象的功能。 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而 言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关 系数据库（relation

20、al）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的 术语，象记录、域等。 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一 个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7创建物理表。 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序 来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两

21、个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表， 这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连 接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接 到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关 键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在 数据库中如何与其它的库建立关系。 42 数据库需求分析数据库需求分析 根据调查水资源管理机构的水资源用户及水费缴纳情况管理的实际情况，分析得到如下的数 据库结构。 水费管理表： 用户管理表： 当前

22、水价表： 用户表： 43 测试用例测试用例 用户表的测试用例： 水费管理表的测试用例： 当前水价表的测试用例： 帐户表的测试用例： 第五章 系统的实现 51 系统登录模块的实现系统登录模块的实现 1流程图 2界面： 界面包括的控件有标签、文本框、命令按钮等控件。 Y N 开始 输入登录密码 是否正确 主界面 3实现过程： 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标， 然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。 如下图： 第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面: 第三步双击相应的控件，在控件的

23、相应过程中编写代码： 如此窗体上“进入”与“退出”按钮的代码如下： 并且具有改变“登录”菜单为“注销”菜单的功能。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果 相同，则打开菜单项并执行 unload me，如果用户名或密码输入错误，则提示： 使用户重新输入用户名或密码。 Unload me 语句的作用是下载窗体。 此窗体上另外还有 Data1、Text3 二个控件在程序运行时是看不到的，它们的作用是使 VB 与 Access 数据库相连，然后判断用户输入的用户名

24、与密码是否与数据库中的一致，如果一致，则允 许用户进入系统。此三个控件的创建方法如下： 首先，将 Data、Text 控件拖放到窗体上，其次，设置它们的属性： （1）Data1 控件的属性设置如下图： 不同的用户 权限打开不 同的菜单 改变登录菜单为 注销菜单 此两个属性的作用是保证 Data 控件与数据库相连。 Visible 属性是使此控件运行时在窗体上不显示。 （2）Text3 控件的属性设置如下： 数据库 的名称 数据库中 的表名 运行时是否 隐藏 Visible 属性的设置同 Data1 控件。 5 52 2 主界面的实现主界面的实现 主界面是用菜单形式表现的，如图： 菜单的制作过程

25、如下： 首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： 此数据控件绑定到 何数据库 此数据控件绑 定到何字段 此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给 菜单加快捷键。 最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下： 调节菜单的 级别 主要是通过 Show 方法调用相应的窗体。 53 水费管理模块的实现水费管理模块的实现 531 缴纳水费模块的实现：缴纳水费模块的实现： 1、流程图： 2、运行界面： 1实现过程： 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标， 然后在

26、表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。 如下图： N Y 开始 缴纳水费 是否继续 退出 第二步，选择窗体或控件进行属性设置，同上一小结。 其它属性和控件的设置方法类似。 第三步双击相应的控件，在控件的相应过程中编写代码： 窗体的 load 事件为： Private Sub Form_Load() Form21.Width = 7350 Form21.Height = 7395 Form21.Move (MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4 L

27、abel5.Caption = Date End Sub 作用：使窗体居中显示。 的代码如下： Private Sub Command2_Click() SQL = select * from 用户管理 where 总户号= & Trim(Text1(0).Text) & Data3.RecordSource = SQL Data3.Refresh If Data3.Recordset.EOF Then MsgBox 没有此总户号！请重新输入总户号！, , 提示 Text1(0).Text = Text1(0).SetFocus Else For i = 1 To 9 Label1(i).Vi

28、sible = 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 = Text7 End If End Sub 作用：先判断用户表中有没有此总户号，如有就收费，没有就提示用户。界面如下： 的代码如下： Private

29、Sub Command1_Click() MsgBox 已入库！, , 提示 Text5.Text = Val(Text5.Text) + Val(Text1(5).Text) Data1.UpdateRecord Text1(0).SetFocus Text1(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 = False End Sub 作用：收费入库，并提示收费员相关信息。 此窗体上用了 3 个 da

30、ta 控件，data1 与水费管理表相连，data2 与用户管理表相连，data3 与当前价格表相连，连接方法同前一节，这边不再重复。 532 查询缴费情况模块的实现查询缴费情况模块的实现 1运行界面： 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 =

31、False Else If Option1(2).Value = True Then Text1.Visible = False DTPicker1.Visible = True Else MsgBox 请选择查询的项！, , 提示 End If End If Next i Command1.Visible = True End Sub 主要选择查询的项。 “查询“的主要代码为： Private Sub Command1_Click() If Option1(0).Value = True Then SQL = select * from 水费管理 where 总户号= & Trim(Text

32、1.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 If End If Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF

33、Then MsgBox 没有您要查询的缴纳水费情况！, , 提示 End If End Sub 主要作用：根据用户的选择，通过 SQL 语句查询并显示结果。 其中，日期采用 dtpicker 控件实现，如下： 54 用户管理模块的实现用户管理模块的实现 1流程图： 2运行界面： 3实现过程： 8 个按纽组的代码如下： Private Sub Command1_Click(Index As Integer) If Index = 0 Then Data1.Recordset.MoveFirst Command1(2).Enabled = False Command1(1).Enabled = T

34、rue End If N Y 开始 增加/修改用户信息 是否继续 保存入表 首条 If Index = 1 Then Command1(2).Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command1(1).Enabled = False End If End If If Index = 2 Then Command1(1).Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.B

35、OF Then Data1.Recordset.MoveFirst Command1(2).Enabled = False End If End If If Index = 3 Then Data1.Recordset.MoveLast Command1(1).Enabled = False Command1(2).Enabled = True End If If Index = 4 Then Data1.Recordset.AddNew Text1(0) = Data1.Recordset.RecordCount + 1 Text1(1).SetFocus Command1(4).Enabl

36、ed = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 5 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast 下一条 前一条 末条 增加 删除 Command1(1).Enabled = False End If End If If Index = 6 Then Data1.Recordset.Edit Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If 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 = True End