《水电费管理系统》由会员分享，可在线阅读，更多相关《水电费管理系统（19页珍藏版）》请在金锄头文库上搜索。
1、水电费管理系统的设计04级计算机系 经济信息管理与计算机应用专业学生：尹维斌 杜磊指导老师：胡晓旭起讫日期：2006.122007.5摘 要 当今社会是一个信息社会也是一个知识经济的时代。自从世界上第一台计算机ENINC(Electronic numerical integrator and calculator)于1946年在美国问世到现，信息产业的发展突飞猛进。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。水电费管理系统是典型的信息管理系统(MIS)，是一个实用的管理信息系统，管理员可以通过相应的模块，对数据库
2、中的信息进行更新、删除和查询，对水电基本用量信息报表生成，对使用该系统的管理员信息进行更新、删除，还有密码修改，数据备份与系统恢复等其他系统管理功能。因为本系统具有高透明性，所以相关用户可以对水电使用缴费信息以及资费信息进行查询。通过本系统的应用，可以加强对水电使用信息的管理，减轻管理员的工作负担，提高工作效率。我们能看出，谁掌握的知识多，信息量大，信息处理速度快，批量大，谁的效率就高，谁就能在各种竞争中立于不败之地。【关键词】信息 管理系统 计算机管理引言随着社会经济的发展，信息化程度的不断深入，小区的水电费管理工作己愈来愈不能满足用户的需要。现今，人们的金融意识、科技意识己经有了很大的提高
3、，在紧张忙碌的生活中，希望能尽快交费和查询；同时，各种经营单位如电信、移动、供电、煤气、自来水、证券等等一是为了提高服务质量、方便客户，二也是为了希望减轻自己日趋繁重的工作量，都在开发自己的管理系统。如何利用计算机技术加强用户信息管理、进行业务再造，提高工作效率和业务竟争能力是摆在各面向用户服务面前的一个迫切需要解诀的问题。如何利用电子化的手段构建一个高效统一的、通用灵活的系统来管理各种各样的业务，是每个管理者所要研究的课题。1.1系统开发的意义 随着社会的不断进步和科学技术的增强，二十一世纪的计算机技术将飞速发展，信息化已成为当今世界的发展潮流，计算机代替人工劳动将成为必然，人类追求更简便的
4、工作方式，因此计算机的应用则更加重要。现今，我国的计算机技术高速发展，针对不同的方面，已经有一些软件应运而生，虽然针对企业内部的管理系统也有许多，但也有其相应的优点、缺点。本客户访问信息管理系统是针对对计算机技术不太熟悉的用户而开发的，上手简单，可操作性强。信息管理系统（Management Information Systems，简称MIS）在现代社会已深入到各行各业，MIS是一个不断发展的新科学，MIS的定义随着计算机技术和通信技术的进步也在不断更新，现阶段普遍认为MIS是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。MIS的对象是信息。信息是经过加工的数据，信息是对决策者有
5、价值的数据。信息的主要特点是来源分散，数量庞大。因此，MIS是不可缺少的。管理信息系统（MIS）的概念是1961年美国人J.D.GALLAGHER首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。目前，公司、企业和机关的计算机化管理已经逐渐普及了，计算机技术已经深入到企业的管理的各个方面，因此企业信息化建设也要赶上时代的步伐。目的是为了减轻事务处理人员的劳动强度，辅助企业管理，辅助高层领导决策，提高企业的工作效率，从而使企业能够以少的投入获得更好的社会效
6、益与经济效益。1.2系统开发的理由随着计算机技术的迅速发展，企业计算机技术使用的兴起，管理工作也经历了由原始手工操作方式到计算机查询、管理的自动化管理方式的转变。愈来愈多的企业逐渐意识到管理技术的重要性、必要性，并逐步引进稳定性好、安全机制高、方便管理的管理系统。客户信息管理就是其中的一部分。所以运用计算机的自动化管理，将是以后的发展方向。1.3开发工具的选择本系统采用的是VB6.0软件开发系统，后台数据库采用的是Access 2000数据库。在Windows XP环境下完成。使用Visual Basic开发应用程序的两个主要思想：1、可视设计2、事件驱动编程Visual Basic应用程序不
7、同于其他语言开发的单一性程序。使用Visual Basic编程时，必须首先确定应用程序如何与用户交互，如鼠标单击，用户必须编写代码控制这些事件的响应方法。Visual Basic是一种可视化应用程序开发工具，其短小精悍，且提供的一大堆现成的数据库操作控件。功能虽不及VC的强大，但具体到数据库开发方面VB就有其独到的优势。VB在这方面的所具备优势使其快速、简单和功能完善。且从程序执行效率和通用性角度考虑，VB相对占有一定的优势，因为一个系统不仅仅就操纵数据库这么简单，它还包括界面设计及其他必要信息的获取与输出。管理信息系统的核心是数据。其价值主要体现在对数据或信息的使用上。用户通过应用程序将管理
8、过程中产生的数据输入数据库，使得不同用户可根据需要查询或按相应的业务规则附加上他们自己的数据，从而做到按照一定管理规则和制度的信息资源共享。我们选择的Access数据库是目前比较流行的小型桌面数据库管理系统。整个系统有数据库文件和数据库管理系统两大部他构成。后台的Access 2000数据库文件是集中存储并管理分类人事档案信息的大本营，而前台的数据库管理系统是用来为数据库中的各种资料进行各种基本操作和管理。数据库的主要特点（数据库中的每一个表都必须符合下面几个特征）：1、表中的每一个单元的内容只有一个值2、所有字段的名称都不同3、记录的前后次序和字段的左右次序可以变化，不受限制4、数据库中的表
9、的上下次序不受限制5、表中不应有内容完全相同的记录6、表中的每一个字段都必须有相同的数据类型1.4系统实现的功能 本系统是可实现，输入数据，查询数据，用户登录，查看报表，修改密码，备份和恢复数据库。能大大提高小区水电费收取的效率，且便于管理维护。2.1系统设计系统流程图显示启动界面用户登录用户及密码正确吗？显示系统主窗口用户信息输入用户信息管理水电费信息输入水电费信息管理用户信息查询水电费查询密码修改交费情况统计数据备份月总各项统计数据恢复计算器相关资迅关于YesNo2.2系统中的窗体模块1. 系统启动界面(frmStrart.frm)启动界面用于显示开发人员名单和开发日期等。2. 登录窗体(
10、frmLogin.frm)提供用户登录界面，限制访问。3. 系统主窗体(frmMain.frm)这是本系统的主窗体，带有系统菜单，系统的主要操作都在这里进行。4. 用户信息输入窗体(frmNew.frm)用于输入每位用户的基本数据。5. 用户信息管理窗体(frmGL.frm)用于修改用户的基本数据。6. 水电费数据输入窗体(frmSDin.frm)用于输入每们用户的水电费数据，以及计算出本月的水电费。7. 水电费数据管理窗体(frmSDGL.frm)用于修改用户水电费数据。8. 用户信息查询窗体(frmyhcx.frm)按区域对用户基本信息进行查询。9. 水电费查询窗体(frmSDcx.frm
11、)按月份对用户水电费情况查询。10. 计算器窗体调用Windows计算器，计算费用，方便核查。11. 交费情况统计窗体(frmMoney.frm)快速查询出每位用户的交费情况.12. 月总各项统计窗体(frmTJ.frm)直观的查询出总用水量，总用电量等数据。13. 用户密码修改窗体(frmPWupdate.frm)可对用户密码进行修改，提高安全度。14. 数据备份窗体(frmCopy.frm)可对本系统的数据库进行备份，保障数据库的安全。15. 数据恢复窗体(frmBackup.frm)可对损坏的数据库进行恢复，从而能正常使用系统。16. 相关资迅窗体(Form2.frm)用户关心的一些资迅
12、信息。17. 关于窗体(frmAbout.frm)显示开发人员名单等信息。2.3系统中的数据库及数据表密码表字段名类型长度useid文本10password文本10用户表字段名类型长度id文本10name文本10address文本50tel文本15date文本15bank文本10bankid文本15quyu文本10about文本50区域表字段名类型长度area文本10交费情况表字段名类型长度money文本15水电费表字段名类型长度id 文本15name文本15month文本15water数字/单精度型4electric数字/单精度型4water_p数字/单精度型4electric_p数字/单精
13、度型4water_cost数字/单精度型4electric_cost数字/单精度型4月份表字段名类型长度month文本152.4主要模块的设计 主要由输入模块，数据管理模块，数据查询模块，系统管理模块构成。2.4.1用户登录窗体的设计在窗体中加入Data控件Data1,将Databasename属性动态设置为：“水电费管理系统数据库”，Recordsouce设置为“密码表”，Visible设置为false。再添加其它各控件。用户名称的TextBox名称为：t_id密码的TexBox名称为：t_password提示用控件Label3来显示。窗体中加入了代码，使窗口大小不能改变。为方便输入，当输完
14、用户名时按回车焦点可以到密码栏中，输完密码后，按回车就可以进行登录了。具体代码如下：Dim myheight, mywidth As Integer 保持窗体大小的相关声明Private Sub Command1_Click() 检查用户名和密码If t_id.Text = And t_password.Text = Then Label3.Caption = 请输入用户名和密码!Else If t_id.Text = Then Label3.Caption = 请输入用户名! t_id.SetFocus Else If t_password.Text = Then Label3.Caption = 请输入密码! t_password.SetFocus Else Dim user As String user = useid= & & Trim(t_id.Text) & and + password= & & Trim(t_password.Text) & Data1.Recordset.FindFirst user If Data1
