4-1 系统登陆流程图
打开VB后，单击File|New Project菜单，在工程模版中选择Standard EXE,将自动产生一个窗体，属性都是缺省设置。这里我们删除这个窗体，单击File|Save Project菜单，将这个工程项目命名为Renshi_MIS。
这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按扭，产生一个窗体。在窗体上添加所需控件。创建好的窗体如图4-2所示。
图4-2 系统的主界面
在编写程序的具体代码之前首先要创建公用模块,VB中可以用公用模块来存放整个工程项目公用的函数,过程和全局变量等。这样可以极大的提高代码的效率。在项目资源管理器中为项目添加一个Module,并保存就可以开始添加代码了。公用代码如下:
Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset
Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection cnn.Open ConnectString
If InStr(\UCase$(sTokens(0))) Then cnn.Execute SQL
MsgString = sTokens(0) & _ \Else
Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic Set ExecuteSQL = rst
MsgString = \查询到\\条记录 \End If
ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error:
MsgString = \查询错误: \Err.Description Resume ExecuteSQL_Exit End Function
Public Function ConnectString() As String ConnectString = \End Function
以上两个函数代码分别用来完成执行各种SQL语句和连接数据库。
（二）员工工资管理模块
工资管理是企业管理中不可缺少的一项工作。员工工资管理模块用于每个月员工实发工资的计算,计算的项目包括基本工资、奖金、福利待遇、津贴等。
主要包括以下几项功能: .员工工资的录入 .员工工资的修改与删除 .员工工资的查询 .员工基本工资的设定 .奖金以及福利补贴的设置 .实发工资计算
.根据出勤统计结果计算本月各项实际金额 .输出工资报表
工资管理的输出结果是对员工工作的一个评价。计算工资的基本依据是考勤管理模块的统计结果。同时,在统计和查询时需要用到员工基本信息模块和部门信息。
首先选择主窗体中添加工资菜单将出现我添加员工工资窗体。如图4-3所示:
图4-3 员工工资添加窗体
首先从部门下拉表中选择部门,再从姓名下拉列表中选择要添加工资的员工。在月份文本框中使用的是Format(Now, \函数,直接添加计算机的系统日期。其中实发工资的内容不需用户添写,在添写完其它工资内容后点
击开始统计按钮将员工的收入与支出金额相减得出实发工资项。最后单击确认,将所填数据存入数据库中。
工资管理的修改与删除同样需要以列表的形式显示:
图4-4 员工工资列表窗体
做为子窗体的员工工资列表能够清楚的表现员工各项收入与支出的金额。选择修改可以对所选数据进行编辑,也同样可以点击鼠标右键选择所需要的操作。查询功能分为按姓名和按工号复合查询的两种方式和其它模块不同的是员工工资管理填加了一个工资报表窗体。选择主窗体中的工资报表菜单即会显示该窗体。具体的实现方法是首先建立数据环境,然后在数据环境中添加Command命令,并设置命令属性:在SQL语句中输入select * from gongzi,使其与数据库中的工资表相连,最后添加和设计Data Report数据报表。
图4-5 员工工资报表窗体
工资报表窗体做为子窗体来显示。窗口主要分成工具条和预览效果两部分,预览效果显示的就是最终打印的结果。在下面的工具条上包括４个页面浏览按钮。在上面工具条的下拉列表框中选择需要显示的比例。别外两个按钮分别用来实现打印与导出操作。如果要打印的工资报表有多页,可以通过4个页面浏览按钮进行上下翻页。
此模块通过工资管理的创建,着重描述了工资计算和数据报表的使用。计算主要是通过对所输入的数据进行相加和相减的运算,最后显示结果数据。数据报表为我们提供了一个更加方便快捷地实现报表打印的方法。通过使用报表中的各种控件,可以很简单地实现复杂报表的设计,避免了繁杂的编程过程。
以上便是人事管理的功能与实现。
（三）部门管理模块
部门管理对于企业的管理层人员来讲非常重要,可以通过此功能来了解所有部门的大
概情况。其具体实现和人事变动管理相同,窗体如下:
图4-6 部门管理窗体
相关推荐：
loading