职工工资管理系统设计课程设计
工程技术学院 课程设计
题 目： **超市职工工资管理系统设计 专 业： 工业工程 年 级： 学 号： 姓 名： 指导教师： 日 期： 2012年7月10日
一、课程设计任务书 1、课程设计项目
针对你较熟悉的一个中小型单位/公司的实际情况，对其管理业务和现有信息管理方案进行调研，对其新的管理信息系统开发提出规划，并进行系统分析（绘制其组织结构图、业务功能图、业务流程图、数据流程图等）、系统设计（？），在设计中请利用VB 、VC 、C 、Excel 或Access 等程序语言对主要的信息管理子系统进行窗口化设计，并编写子程序代码。 2、要求
通过本课程设计，综合利用该门课程所学的理论和实验知识与技能，对一个小型企业的信息管理意识、综合措施与计算机系统方案进行实际分析，并作优化与改进（改造）设计，要求分析设计的内容考虑周全、实用，并具有远见性；系统设计方案合理，部分环节的程序编写正确。要求：（1）调研措施得当，并能深入实际，获取的信息较为全面、实用；（2）能查阅整理相关文献资料，能按照课程设计的要求独立进行，能按规定的格式撰写；分析体现的基础理论知识扎实；（3）设计的综合方案合理，技术得当，体现一定的技术水平和远见性；（4）系统实现的技术路线可行，局部的程序编写正确。 3、计划安排
课程即将结束的最后2周时间内完成。 4、考核内容和方式
从以下几个方面综合权衡打分：（1）调研工作（深入实际与资料查询）深入的程度；（2）分析与设计体现的理论知识水平；（3）技术路径与方法是否得当；（4）编写的程序的适用程度以及各子程序代码正确与否，等。 二、课程设计说明书 1. 设计思路
超市职工工资管理系统涉及的人员主要有财务经理及个部门的职工，因此做如下处理： （1）超市有财务管理员有1人即财务经理，他拥有一个自己的登录账号可以随时对职工工资进行管理。
（2）每个职工对应一个唯一的职工号，职工编号为1001~1021（本系统列举了1001~1005）且每位职工都都有对应的部门号。
（3）超市每个月结算一次职工工资，工资=基本工资+奖金-扣减工资。其中奖金的多少要根据员工的月销售业绩来结算，奖金=销售收入*5%；扣减工资由出勤率来决定，即缺勤一
次扣减工资为30元，迟到一次扣减工资为15元。
程序设计采用VB 6.0和Access 数据库进行，二者连接采用ADO 控件。 2. 系统分析图
（1）组织结构图
（2）业务功能图
（3）业务流程图
(4)数据流程图
3. 设计方案
在Access 数据库中设计四张表格，分别为管理人员进入表, 职工工资信息表, 职工销售业绩表、职工出勤考核表、。管理人员进入表为业务经理他能用自己的姓名和密码才能登陆系统，修改或查看职工工资信息。 数据库表如下：
表1 管理人员信息表
表2 职工工资表
表3职工销售业绩表
表4 职工出勤考核表
4.界面设计
（1）运行前界面 登陆界面：
查询窗口1：
数据库修改（职工工资）窗口：
数据库修改（职工业绩）窗口：
数据库修改（职工出勤）窗口：
（2）运行后界面 登陆界面：
登陆界面不正确
退出系统的界面：
查询窗口1：
查询时出错：
数据库修改（职工工资）窗口：
数据库修改（职工出勤信息）窗口：
5.程序设计（各按钮代码）
“登录” 按钮代码：
Dim x As String, y As String
Private Sub Command1_Click()
x = " "
y = " "
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
DataGrid1.Col = 0
If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then
x = Trim(Text1.Text)
DataGrid1.Col = 1
If (Trim(Text2.Text) = Trim(DataGrid1.Text)) Then
y = Trim(DataGrid1.Text)
Exit Do
End If
End If
Adodc1.Recordset.MoveNext
Loop
If (x "" And y "") Then
Form1.Hide
Else
MsgBox ("管理人姓名或密码不正确")
End If
End Sub
“退出系统” 按钮代码
Private Sub Command2_Click()
If MsgBox("请确认是否退出系统?", vbYesNo) = vbYes Then End
End Sub
“查询职工工资按钮”按钮代码
Private Sub Command2_Click()
Adodc1.Recordset.MoveFirst
x = ""
Do Until Adodc1.Recordset.EOF
DataGrid1.Col = 0
If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then
x = Trim(Text1.Text)
DataGrid1.Col = 0
Text2.Text = DataGrid1.Text
DataGrid1.Col = 1
Text3.Text = DataGrid1.Text
DataGrid1.Col = 2
Text4.Text = DataGrid1.Text
DataGrid1.Col = 3
Text5.Text = DataGrid1.Text
DataGrid1.Col = 4
Text6.Text = DataGrid1.Text
DataGrid1.Col = 5
Text7.Text = DataGrid1.Text
DataGrid1.Col = 6
Text8.Text = DataGrid1.Text
Exit Do
End If
Adodc1.Recordset.MoveNext
Loop
If (x = "") Then
MsgBox ("经查询，无此职工号登记")
End If
End Sub
“查看工资信息”按钮代码：
Private Sub Command3_Click()
Form3.Show
End Sub
“查看工资业绩”按钮代码：
Private Sub Command4_Click()
Form2.Hide
Form4.Show
End Sub
“查看职工出勤”按钮代码：
Private Sub Command5_Click()
Form2.Hide
Form5.Show
End Sub
“职工工资信息表返回”按钮代码：
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub
“职工工资信息表返回”按钮代码：
Private Sub Command1_Click()
Form3.Hide
Form2.Show
End Sub
“职工业绩信息表返回”按钮代码：
Private Sub Command1_Click()
Form4.Hide
Form2.Show
End Sub
“职工出勤息表返回”按钮代码
Private Sub Command1_Click()
Form5.Hide
Form2.Show
End Sub
6．运行状况
运行后，首先得由财务经理进行登陆方可进入下一个界面——职工工资基本信息查询界面，输职工编号后可以查询职工工资基本情况，点击“查看职工销售业绩信息”可以查看职工销售业绩及奖金。点击查看职工出勤信息可以查看到职工出勤及扣减工资的相关信息。点击返回按钮即可回到职工基本工资查询界面（相应的运行界面可以参照上面的图）。