基于Excel构建的公积金管理信息系统.docVIP

基于Excel构建的公积金管理信息系统 　　摘要： Excel是微软公司开发的电子表格软件，具有强大的制表、绘图和分析功能，并可以通过VBA来实现数据的程序化管理，在管理信息系统（MIS）的构建过程中应用越来越多，该文以住房公积金管理信息系统为例说明Excel构建MIS的过程。 　　关键词：Excel；MIS；公积金管理信息系统 　　中图分类号：TP316 文献标识码：A 文章编号：1009-3044（2015）13-0007-02 　　管理信息系统（Management Information Systems简称MIS），是一个不断发展的新型学科，目前普遍认为管理信息系统MIS是由人和计算机设备或其他信息处理手段、组成并用于管理信息的系统。一个完整的MIS系统主要由三部分组成：信息输入、信息处理和信息输出。在使用Excel开发管理信息系统中，主要的模块不仅包括信息输入、信息处理、信息输出三个部分，此外还可以包括系统安全设置， 错误检测设置等内容。 　　Excel是办公软件Office中主要进行电子表格处理的软件，表格的功能强大，既可以通过表格显示、分析用户数据，也可以通过VBA功能管理数据，用户可以根据需求在Excel 中定制自己的表格，并输出打印。由此可见，Excel不仅可以简化程序设计过程，而且可以满足了不同用户的要求。本文主要设计一个公积金管理信息系统，由于公积金属于员工个人缴纳，职务不同缴纳比例不同，在设计应用系统时，要考虑到不同的用户的需求，保证系统功能可以适用于每一个用户。 　　1 界面设计和功能分析 　　本系统主要包括对员工个人缴纳的公积金按比例进行计算，员工信息管理，打印个人凭证等功能。设计的模块包括公积金缴纳、公积金调整、记账凭证、用户管理（修改密码、更改用户）等。其中，Excel中四个主要工作表及按钮功能设定如下： 　　（1）主表单（如图1所示） 　　主表单中主要包括六个按钮：修改密码、更改用户、退出、打印记账凭证、公积金调整、公积金缴纳。由于该系统为个人公积金管理信息系统，涉及财务信息，为了保证工作簿有充分的安全性，启动时可以设计进入口令。 　　个人公积金调整：切换到公积金调整工作表。 　　个人公积金缴纳：切换到公积金缴纳工作表。 　　打印记账凭证：切换到记账凭证工作表。 　　修改密码：对已经存在的用户的密码进行重新设置。 　　更改用户：可以重新定义已经存在用户。 　　退出：关闭工作簿，退出系统。 　　（2）公积金调整表（如图2所示） 　　该工作表包括员工个人信息、工资信息及应缴公积金金额，并设置三个按钮，分别完成如下功能：添加新员工（为公司新进员工建立档案以及收取公积金）、删除员工（删除离职员工并注销他的公积金交纳档案）、查找员工（查找到符合条件的员工的基本公积金交纳资料）。 　　（3）个人公积金缴纳（如图3所示） 　　该工作表记录从2014年1月至目前员工公积缴纳情况，设置三个按钮，分别完成如下功能：查找员工（查找符合条件的员工，并自动计算出他的缴纳总额和目前需要缴纳的月公积金）、统计总额（计算出目前所有的公积金总额）、删除员工（主要实现在个人公积金调整表和个人公积金缴纳表中的同时删除，当一个表文件中删除某个员工信息，另一个表自动删除相应员工信息）。 　　（4）记账凭证（如图4所示） 　　该工作表主要完成个人记账凭证的打印操作，包括一个打印凭证按钮。 　　2 代码 　　由于篇幅有限，本文中只给出主表单中相关控件及登录口令部分的代码。 　　（1）登录口令代码 　　Option Explicit 　　Dim NameStr As String 　　Dim TempCount As Integer 　　Sub auto_open（） 　　Dim TempInt As Integer 　　Dim CodeStr As String 　　Dim FoundNameFlag As Boolean 　　NameStr = InputBox（请输入您的姓名：， 输入） 　　TempInt = 3 　　FoundNameFlag = False 　　Do While Not （IsEmpty（Sheets（用户表）.Cells（TempInt， 1）.Value）） 　　TempInt = TempInt + 1 　　Loop 　　For TempCount = 3 To （TempInt - 1） 　　If （NameStr = Sheets（用户表）.Cells（TempCount， 1）） Then 　　FoundNameFlag = True 　　Exit For 　　End If 　　Next TempCount