管理信息系统课程设计-工资管理系统(共20页).doc
精选优质文档-倾情为你奉上辽 宁 工 业 大 学 管理信息系统设计课程设计报告（论文）题目： 工资管理系统的分析与设计 院（系）： 软件学院 专业班级： 软件工程113班 学 号： 学生姓名： 安凯辰 指导教师： 王彦华 教师职称： 讲 师 起止时间：2012.5.28-2012.6.8 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研室学 号学生姓名安凯辰专业班级软件工程课程设计（论文）题目工资管理系统的分析与设计课程设计（论文）任务管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节系列之一，是学习完管理信息系统课程并进行完专业实习后进行的一次全面的综合练习。任务：采用结构化的系统开发方法，应用具体的计算机语言（如、VB、Delphi）和数据库（SQL server、Oracle）等技术，按照软件工程的思想，开发一个实用的中小型管理信息系统，完成工资管理系统的分析设计实施工作，实现该系统人员管理，工资发放，报表统计等功能，并完成结合分析设计过程，撰写系统设计说明书（课设报告）。1根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。2根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。3课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。4开发出可以运行的管理信息系统，通过上机运行检查。5设计说明书要求文档齐备，步骤全整，流程正确，说明详细，具有有可操作性。指导教师评语及成绩成绩： 指导教师签名： 2012年6月12号 专心-专注-专业目录第1章 系统分析1.1 建立系统的必要性随着计算机技术的飞速发展，计算机在各种单位机构管理中应用十分普及，管理系统大开发在强调管理，信息的社会中也显得十分重要。随着信息的不断增长和企业对信息的要求，信息管理系统也随之出现了，而利用计算机支持范围高效地完成工资管理的日常工作也成为了推动各种单位机构管理走向科学化，规范化的必要条件。工资管理是每一个企业不能缺少的一项工作。使用计算机对企业工资信息管理具有较传统手工管理更多优点，如检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等。所以，开发一个新型工资信息管理系统对公司来说十分重要。本系统本着一切为用户着想的设计指导思想，力求做到界面美观大方，操作简捷明了，而且具备一个实用的操作系统的良好容错性，在用户出现误操作时能尽量及时地给出警告，以便用户能够及时进行改正。由于不同用户所使用的计算机资源总是会受到不同条件的限制，因此，我们就要充分利用的功能，在设计出自己的功能强大的软件的同时，尽可能地减少对系统资源的占用，并且还要力求做到通过使用本学生管理信息系统，尽量使工作系统化、自动化和规范化，从而达到提高效率的目的。1.2 业务流程分析工资管理系统是针对工资管理业务处理工作而开发的管理软件。根据用户的要求，实现人员基本情况管理、工资发放、报表统计等三个方面的功能。用户通过添加职工，发放工资，统计报表等基本信息,由系统自行生成相应的统计数据及各类统计报表以供用户查。1.3 数据流程图数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。1.4 数据字典数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据字典是关于数据的信息的集合，是对数据流程中包含的元素的定义的集合。部分数据项的定义如下：职工基本信息表序号中文名字段类型备注0职工号3int主键1姓名10char2性别2char3职务8int4出生日期8datetime5工作年份8datetime职务表序号中文名字段名类型备注0职务2Int主键1基本工资10Char2津贴2Char系统用户序号中文名字段名类型备注user_ID名称10Char主键User_PWD密码10Char职工表=职工ID+姓名+性别+职位+出生年月+工作年月职位表=职位+基本工资+津贴第2章 系统设计21 系统功能设计系统功能设计的主要任务是把需求分析得到的DFD转换为软件结构和数据结构。设计软件结构的具体任务是：将一个复杂系统按功能进行模块划分、建立模块的层次结构及调用关系、确定模块间的接口及人机界面等。2.2系统运行环境与数据库设计概念设计是对用户要求描述的现实世界，通过对其中住处的分类、聚集和概括，建立抽象的概念数据模型。这个应反映现实世界各部门的信息结构、信息流动情况、信息间的互相制约关系以及各部门对信息储存、查询和加工的要求等。所建立的模型应避开数据库在计算机上的具体实现细节，用一种抽象的形式表示出来。职工ER图工资项ER图系统ER图第3章 系统实施3.1 代码及注释一、登录代码If t1.Text = "admin" And t2.Text = "123" Then MainForm.ShowElse Label4.Caption = "密码错误！"End If End SubPrivate Sub Form_Load()End SubPrivate Sub Form_LostFocus()End SubPrivate Sub Label4_Click()End SubPrivate Sub t1_Change()End SubPrivate Sub t2_Change()End Sub二、主界面代码'调用"统计报表"窗体Private Sub Analysis_Click() AnaForm.ShowEnd Sub'退出程序Private Sub Exit_Click() Unload Me EndEnd Sub'调用"人员管理"窗体Private Sub HRManage_Click() HRForm.ShowEnd Sub'设置启动参数Private Sub MDIForm_Load() gFile = App.Path & "职工工资管理系统.mdb" Set gX = CreateObject("Excel.Application")End Sub'关闭所有窗口Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Unload AddEForm Unload AddPForm Unload AddSForm Unload UpdateEForm Unload UpdatePForm Unload UpdateSFormEnd Sub'调用"工资发放"窗体Private Sub PayoffTable_Click() PayForm.ShowEnd Sub'调用"职位管理"窗体Private Sub PosManage_Click() PosForm.ShowEnd Sub'调用"特殊项管理"窗体Private Sub SpecialManage_Click() SpecialForm.ShowEnd Sub三、人员管理代码'当前选定行号Public CurEm As Integer'显示添加员工窗体Private Sub cmdAddEmployee_Click() AddEForm.ShowEnd Sub'隐藏本窗体Private Sub cmdCancel_Click() Me.HideEnd Sub'删除员工Private Sub cmdDeleteEmployee_Click() '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 On Error GoTo ErrGoto '- '打开数据库连接 OpenDBFile DataGrid1.Col = 0 DataGrid1.Row = CurEm If vbYes = MsgBox("是否删除" & DataGrid1.Text & "?", vbYesNo) Then '执行删除 DataGrid1.Row = CurEm DataGrid1.Col = 0 gCon.Execute "DELETE FROM 职位 WHERE 职位 = """ & DataGrid1.Text & """" End If '关闭数据库连接 CloseDBFile '刷新数据 Adodc1.Refresh '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "cmdDeleteEmployee_Click(HRForm)" + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub'显示修改员工窗体Private Sub cmdUpdateEmployee_Click() UpdateEForm.ShowEnd Sub'Private Sub DataGrid1_Click()' CurEm = DataGrid1.Row'End Sub'记录选定行Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = DataGrid1.RowEnd Sub'Private Sub DataGrid1_click()' DataGrid1.Col = 0' CurEm = DataGrid1.Text'End Sub'初始化Private Sub Form_Load() '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 On Error GoTo ErrGoto '- SQL = "SELECT * FROM 职工" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFile & "Mode=ReadWrite;Persist Security Info=False" Adodc1.RecordSource = SQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "Form_Load(HRForm)" + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub四、工资发放管理代码Option Explicit'月表的名称'动态生成'在cmbMonth中用户可以填入2003-6, 2003-06, 2003-06-01等格式'而月表的名称都会变为Public mTableName As String'员工工资总额'计算得到Public mSum As Double'当单击cmbEmployee框,保证与cmbName的一致性Private Sub cmbEmployee_Click() cmbName.Text = cmbName.List(cmbEmployee.ListIndex) cmbEmployee.Text = cmbEmployee.List(cmbEmployee.ListIndex)End Sub'当cmbMonth框发生改变,保证月表名称一致Private Sub cmbMonth_Change() mTableName = Format(CDate(cmbMonth.Text), "YYYYMM") cmbMonth.Text = mTableNameEnd Sub'当单击cmbEmployee框,保证与cmbName的一致性Private Sub cmbName_Click() cmbEmployee.Text = cmbEmployee.List(cmbName.ListIndex) cmbName.Text = cmbName.List(cmbName.ListIndex)End Sub'退出窗体Private Sub cmdCancel_Click() Me.HideEnd Sub'生成月表'之所以使用On Error Resume Next'是为了避免出现数据的不完整问题Private Sub cmdGenerate_Click() On Error Resume Next '- Dim SQL As String '打开数据连接 OpenDBFile '生成月表 mTableName = Format(CDate(cmbMonth.Text), "YYYYMM") MakeUpTable CloseDBFile '初始化月表中的数据 SQL = "SELECT 职工ID FROM 职工" OpenRS (SQL) gRst.MoveFirst While Not gRst.EOF SQL = "INSERT INTO " & mTableName & "(职工ID, 工资取毕, 工资) VALUES(""" & gRst("职工ID") & """, NO, 0)" gCon.Execute SQL gRst.MoveNext Wend CloseRSEnd Sub'发放工资Private Sub cmdPay_Click() '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 On Error GoTo ErrGoto '- '打开数据连接 OpenDBFile '执行修改数据库 gCon.Execute "UPDATE " & mTableName & " SET 工资取毕=1, 工资=" & mSum & " WHERE 职工ID = """ & cmbEmployee.Text & """" '显示结果 MsgBox cmbEmployee.Text & "的工资已经发放完毕" '关闭连接 CloseDBFile '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "cmdPay_Click(PayForm)" + Chr(34), Chr(34) + App.Title + Chr(34) MsgBox "发放中出现错误:" & Err.Description Close #intErrFileNoEnd Sub'打印报表Private Sub cmdPrint_Click() '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 On Error GoTo ErrGoto '- Dim sheet As Worksheet Set sheet = gX.ActiveSheet sheet.PrintOut '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "cmdPrint_Click(PayForm)" + Chr(34), Chr(34) + App.Title + Chr(34) Print #intErrFileNo, Err.Description Close #intErrFileNoEnd Sub'查询并显示本月工资Private Sub cmdTest_Click() '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 Dim sheet As Worksheet Dim SQL As String, i As Integer On Error GoTo ErrGoto '- If cmbEmployee.Text <> "" And cmbMonth.Text <> "" Then '查询工资领取情况 SQL = "select 工资取毕 from " & Format(CDate(cmbMonth.Text), "YYYYMM") & " where 职工ID = """ & cmbEmployee.Text & """" '打开数据集 OpenRS (SQL) gRst.MoveFirst If gRst("工资取毕") = True Then MsgBox "员工:" & cmbEmployee.Text & "已经取过" & cmbMonth.Text & "的工资" Else MsgBox "员工:" & cmbEmployee.Text & "还没有取过" & cmbMonth.Text & "的工资" End If CloseRS '职位相关的工资和今天 SQL = "SELECT * FROM 职工,职位 where 职工.职位 = 职位.职位 and 职工.职工ID = """ & cmbEmployee.Text & """" OpenRS (SQL) gRst.MoveFirst '打开Excel对象,准备输入信息 Set gX = GetObject("", "Excel.Application") gX.Workbooks.Add OLE1.Visible = True '设置Worksheet对象 Set sheet = gX.ActiveSheet '报表题目 sheet.Cells(1, 1) = cmbMonth.Text & "月工资表" '职工的基本信息 sheet.Cells(2, 1) = "员工编号:" sheet.Cells(2, 2) = cmbEmployee.Text sheet.Cells(2, 3) = "员工职位:" sheet.Cells(2, 4) = gRst("职工.职位") sheet.Cells(2, 5) = "员工姓名:" sheet.Cells(2, 6) = gRst("姓名") '职工的一般工资信息 sheet.Cells(3, 1) = "基本工资" sheet.Cells(3, 2) = gRst("基本工资") sheet.Cells(3, 3) = "津贴" sheet.Cells(3, 4) = gRst("津贴") mSum = sheet.Cells(3, 2) + sheet.Cells(3, 4) CloseRS '搜索当月属于该员工的特殊项 '每个月按30天算 SQL = "SELECT * FROM 特殊项 WHERE 职工ID = """ & cmbEmployee.Text & """ AND 特殊项日期 >= #" & cmbMonth.Text & "# and 特殊项日期 < #" & CStr(CDate(cmbMonth.Text) + 30) & "#" OpenRS (SQL) i = 3 If Not (gRst.BOF Or gRst.EOF) Then gRst.MoveFirst While Not gRst.EOF i = i + 1 sheet.Cells(i, 1) = "特殊项名称" sheet.Cells(i, 2) = gRst("特殊项名称") sheet.Cells(i, 3) = "特殊项金额" sheet.Cells(i, 4) = gRst("特殊项金额") sheet.Cells(i, 5) = "特殊项日期" sheet.Cells(i, 6) = CStr(gRst("特殊项日期") mSum = mSum + sheet.Cells(i, 4) gRst.MoveNext Wend End If i = i + 1 sheet.Cells(i, 1) = "工资总额" sheet.Cells(i, 2) = mSum CloseRS '显示格式设置 mTableName = Format(CDate(cmbMonth.Text), "YYYYMM") sheet.Columns("A:F").ColumnWidth = 10 gX.ActiveWorkbook.SaveAs App.Path & "" & cmbEmployee.Text & mTableName & ".xls" OLE1.CreateLink App.Path & "" & cmbEmployee.Text & mTableName & ".xls" End If '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open App.Path & "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "cmdTest_Click(PayForm)" + Chr(34), Chr(34) + App.Title + Chr(34) MsgBox Err.Description Close #intErrFileNoEnd Sub'初始化窗体Private Sub Form_Load() gX.Visible = False '打开错误处理陷阱 Dim intErrFileNo As Integer '自由文件号 On Error GoTo ErrGoto '- Dim SQL As String '查找职工ID和姓名 SQL = "SELECT 职工ID,姓名 FROM 职工" '打开数据集 OpenRS (SQL) gRst.MoveFirst cmbEmployee.Clear cmbName.Clear '添加数据到两个ComboBox While Not gRst.EOF cmbEmployee.AddItem gRst("职工ID") cmbName.AddItem gRst("姓名") gRst.MoveNext Wend '关闭数据集 CloseRS '查找已有的表名 SQL = "SELECT 月份 FROM 月份" OpenRS (SQL) cmbMonth.Clear gRst.MoveFirst '添加到cmbMonth组合框中 While Not gRst.EOF cmbMonth.AddItem CStr(gRst("月份") gRst.MoveNext Wend '关闭数据集 CloseRS '- Exit Sub '-ErrGoto: '把错误信息保存在文件里 intErrFileNo = FreeFile() Open App.Path & "YFSystem.ini" For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "Form_Load(PayForm)" + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub'生成月表'在使用该函数之前'确认已经打开连接'使用之后'确认关闭连接Sub MakeUpTable() Dim SQL As String On Error Resume Next '储存月表信息 SQL = "INSERT INTO 月份(表名,月份) VALUES( """ & mTableName & """, #" & cmbMonth.Text & "#)" gCon.Execute SQL '建立月表 SQL = "CREATE TABLE " & mTableName & "( 职工ID TEXT(50) PRIMARY KEY NOT NULL, 工资取毕 BIT NOT NULL, 工资 CURRENCY) " gCon.Execute SQLEnd Sub3.2 设计总结通过此次的课程设计,使我从中受到很大的教育和启迪，不仅将大学所学的知识进行了实际应用，还学到了很多书本上学不到的知识。开阔了视野、增长了知识、积累了经验。充分锻炼了自己的动手和应用能力，真正做到了理论联系实际。人事档案管理统的设计与实现己经完成，基本上达到了预期的设计要求和目的。一个完整的工资管理系统就创建完毕了。在本系统的设计与实现的过程中主要讲述了企业人事档案管理系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架，各个功能模块实现各个细节部分。系统的详细设计根据系统分析阶段的结论将系统具体化，并完成了各个模块的添加、修改、删除与查询的功能，直到最后形成一个完整的可行性的管理系统。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不
