管理信息系统课程设计.docx
《管理信息系统课程设计.docx》由会员分享，可在线阅读，更多相关《管理信息系统课程设计.docx（16页珍藏版）》请在冰豆网上搜索。
管理信息系统课程设计
工程技术学院
课程设计
题目：
乐买得超市职工工资管理系统设计
专业：
工业工程
年级：
2009级
学号：
20091477
姓名：
陈天文
指导教师：
付宏才
日期：
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元。
程序设计采用VB6.0和Access数据库进行，二者连接采用ADO控件。
2.系统分析图
（1）组织结构图
（2）业务功能图
（3）业务流程图
（4）数据流程图
3.设计方案
在Access数据库中设计四张表格，分别为管理人员进入表,职工工资信息表,职工销售业绩表、职工出勤考核表、。
管理人员进入表为业务经理他能用自己的姓名和密码才能登陆系统，修改或查看职工工资信息。
数据库表如下：
表1管理人员信息表
管理人姓名
管理人密码
陈天文
20091477
表2职工工资表
职工编号
姓名
基本工资
附加奖金
扣减工资
001
张三
3000
100
30
002
李四
2500
50
0
003
王五
3000
50
30
表3职工销售业绩表
职工编号
姓名
销售业绩
001
张三
5000
002
李四
6000
003
王五
6000
表4职工出勤考核表
职工编号
姓名
迟到或缺勤天数
扣减工资
001
张三
1
50
002
李四
0
0
003
王五
1
50
4.界面设计
（1）运行前界面
登陆界面：
查询窗口1：
数据库修改（职工工资）窗口：
数据库修改（职工业绩）窗口：
数据库修改（职工出勤）窗口：
（2）运行后界面
登陆界面：
登陆界面不正确
退出系统的界面：
查询窗口1：
查询时出错：
数据库修改（职工工资）窗口：
数据库修改（职工出勤信息）窗口：
5.程序设计（各按钮代码）
“登录”按钮代码：
DimxAsString,yAsString
PrivateSubCommand1_Click（）
x=""
y=""
Adodc1.Recordset.MoveFirst
DoUntilAdodc1.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）
ExitDo
EndIf
EndIf
Adodc1.Recordset.MoveNext
Loop
If（x<>""Andy<>""）Then
Form1.Hide
Form2.Show
Else
MsgBox（"管理人姓名或密码不正确"）
EndIf
EndSub
“退出系统”按钮代码
PrivateSubCommand2_Click（）
IfMsgBox（"请确认是否退出系统?
",vbYesNo）=vbYesThenEnd
EndSub
“查询职工工资按钮”按钮代码
PrivateSubCommand2_Click（）
Adodc1.Recordset.MoveFirst
x=""
DoUntilAdodc1.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
ExitDo
EndIf
Adodc1.Recordset.MoveNext
Loop
If（x=""）Then
MsgBox（"经查询，无此职工号登记"）
EndIf
EndSub
“查看工资信息”按钮代码：
PrivateSubCommand3_Click（）
Form2.Hide
Form3.Show
EndSub
“查看工资业绩”按钮代码：
PrivateSubCommand4_Click（）
Form2.Hide
Form4.Show
EndSub
“查看职工出勤”按钮代码：
PrivateSubCommand5_Click（）
Form2.Hide
Form5.Show
EndSub
“职工工资信息表返回”按钮代码：
PrivateSubCommand1_Click（）
Form2.Hide
Form1.Show
EndSub
“职工工资信息表返回”按钮代码：
PrivateSubCommand1_Click（）
Form3.Hide
Form2.Show
EndSub
“职工业绩信息表返回”按钮代码：
PrivateSubCommand1_Click（）
Form4.Hide
Form2.Show
EndSub
“职工出勤息表返回”按钮代码
PrivateSubCommand1_Click（）
Form5.Hide
Form2.Show
EndSub
6．运行状况
运行后，首先得由财务经理进行登陆方可进入下一个界面——职工工资基本信息查询界面，输职工编号后可以查询职工工资基本情况，点击“查看职工销售业绩信息”可以查看职工销售业绩及奖金。
点击查看职工出勤信息可以查看到职工出勤及扣减工资的相关信息。
点击返回按钮即可回到职工基本工资查询界面（相应的运行界面可以参照上面的图）。
升级会员 