论文部分内容阅读
摘要： 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
If （FoundNameFlag = False） Then
MsgBox "非系统操作员，请与系统管理员联系"， vbOKOnly， "错误登录"
Workbooks.Close
End If
CodeStr = InputBox（"请输入你的密码"）
If （CodeStr = Sheets（"用户表"）.Cells（TempCount， 2）） Then
MsgBox "欢迎"
关键词：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
If （FoundNameFlag = False） Then
MsgBox "非系统操作员，请与系统管理员联系"， vbOKOnly， "错误登录"
Workbooks.Close
End If
CodeStr = InputBox（"请输入你的密码"）
If （CodeStr = Sheets（"用户表"）.Cells（TempCount， 2）） Then
MsgBox "欢迎"