怎样用EXCEL开发管理信息系统
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用EXCEL开发管理信息系统
摘要：Excel97是Windows95环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性，内嵌有一种Visual Basic for Application(简称VBA)超级宏语言，读者在熟练应用Excel的基础上，可按用户的需求用VBA建立适用的信息系统。
关键词：EXCEL97 VBA 管理信息系统（MIS）
目前国内管理信息系统(MIS)开发研制一般采用人们熟悉的dBaseX、Foxbase或Foxpro等,本文介绍了如何用Excel开发MIS。一般来说,一套MIS主要包括信息输入、信息处理、信息输出三大组成部分,用Excel 处理这些部分均显得游刃有余。Excel是Windows环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性。它同时具有电子数据表、图表和数据库的功能,具有极强的分析性能、报表制作工具和丰富的统计图表。在本文笔者用中文Excel97 for Windows开发了水电管理系统、销售管理系统、试卷分析系统。充分感受到其强大功能和方便性。下面详细阐述水电管理系统、销售管理系统、试卷分析系统的开发过程。
应用程序一：水电计价系统
水电管理是每一个单位每月都要进行的工作。下面我们以保定农校水电计价系统为例讲解VBA在水电管理中的应用。
1、水电计价系统的功能
本程序具有如下功能：
自动计算功能：可完成各户水费、电费、合计的计算。
自动汇总功能：自动汇总全校教职工楼的用电量、用水量及分类汇总。
查询功能：可查询各户的电表数、水表数、电费数、水费数。
报表的打印输出功能。
系统保护功能：具有口令保护、工作表保护以防非法用户进入和修改。
2、程序设计过程
（1）程序总体设计（图1）
（2）界面设计
水电计价系统主界面如图2所示。（图2）
主界面是以EXCEL工作表作为输入输出界面。
具体设计如下：
选定一个工作表并命名为“主界面”。
选定单元格区域，把区域颜色设置成你喜欢的颜色。放置命令按钮，并给按钮指定宏。
分割区域并冻结，锁定界面使之不能滚动。
工作表加密保护使用户不能修改。
记录单界面如（图3）所示。
具体设计过程如下：
选定一个工作表并命名为“记录单”。
制表（如上图所示）。
选定年、月、水表数、电表数空白单元格区域，取消锁定。放置命令按钮，并给按钮指定宏。
工作表保护使用户不能修改。
主报表如（图4、图5）所示。
具体设计过程如下：
选定一个工作表并命名为“主报表”。
制表（如上图所示）。
纵向冻结A、B两列，横向冻结1-5行。
放置命令按钮，并给按钮指定宏。
输入公式：计算上次表底、本月查表记录、水电用量、水、电费、水电费合计的校内、校外合计、楼房合计、平房合计。
在C338单元格输入下面公式，拖动填充柄复制公式至L338。
=SUMIF($M$6:$M$331,"=l校内",C6:C331)+SUMIF($M$6:$M$331,"=p校内",C6:C331)
在C339单元格输入下面公式，拖动填充柄复制公式至L339。
=SUMIF($M$6:$M$331,"=l校外",C6:C331)+SUMIF($M$6:$M$331,"=p校外",C6:C331)
在C340单元格输入下面公式，拖动填充柄复制公式至L340。
=SUMIF($M$6:$M$331,"=l校外",C6:C331)+SUMIF($M$6:$M$331,"=l校内",C6:C331)
在C341单元格输入下面公式，拖动填充柄复制公式至L341。
=SUMIF($M$6:$M$331,"=p校外",C6:C331)+SUMIF($M$6:$M$331,"=p校内",C6:C331)
工作表保护使用户不能修改。
查表档案界面如（下图）所示：
具体设计过程如下：
选定一个工作表并命名为“档案”。
制表（如图6所示）。
纵向冻结A、B两列，横向冻结1-3行。放置命令按钮，并给按钮指定宏。
工作表保护使用户不能修改。
查询档案如（下图）所示：
具体设计过程如下：
选定一个工作表并命名为“查询”。
制表（如图7所示）。
纵向冻结A列，横向冻结1-3行。
放置命令按钮，并给按钮指定宏。
工作表保护使用户不能修改。
(3)、水电计价系统的VBA代码及说明
Dim s As Variant
Dim y As Variant
Dim u As Variant ‘模块级变量声明
Sub shuru() ?指定给主界面输入按钮
s = Worksheets("主界面").Range("v1").Value ‘获取密码For y2 = 1 To 2
x = InputBox("请输入密码：", "保定农校水电计价系统") If x = s Then
Worksheets("主界面").Activate
ActiveSheet.Unprotect
ActiveSheet.DrawingObjects("按钮2").Select Selection.OnAction = "vbb"
ActiveSheet.DrawingObjects("按钮3").Select Selection.OnAction = "ibda"
'ActiveSheet.DrawingObjects("按钮5").Select