成绩评定表课程设计任务书摘要企业的工资管理是公司管理的一个重要容。
随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。
工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。
工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。
资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。
早期的工资统计和发放都是使用人工式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。
早期工资管理多采取纸质材料和具有较强的时间限制。
基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规化、自动化。
关键词关键词1：职工关键词2：工资关键词3：职工工资目录1 系统功能概述 (1)1.1 系统功能分析... (1)1.2 系统模块设计 (1)2 数据库设计 (2)2.1 需求分析 (2)2.2 表结构设计 (2)3 系统各功能模块的详细设计 (3)3.1 表的设计 (3)3.2 各窗体设计...... .. (5)参考文献 (14)1 系统功能概述1.1 系统功能分析工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。
本系统主要对查看员工的各种工资信息需求所设计的，可以很好的管理数据。
本系统的主要功能由以下几个部分组成：经过调研及分析，工资管理信息系统主要完成以下功能：（1）能够进行职工基本信息的浏览、编辑（2）能够进行职工工资信息的浏览、编辑（3）能够按姓名、或部门、或职称查询职工的基本信息；查询职工工资信息1.2 系统物理模块设计2 数据库设计2.1 需求分析登录信息返回信息寻找信息数据库需求分析——数据流图2.2 表结构设计登录用户操作3 系统各功能模块的详细设计3.1 表的设计1.职工信息表字段名是否为空数据类型职工编号NULL int姓名NULL nchar(10) 性别NULL nchar(10) 部门名称NULL nchar(10) 学历NULL nchar(10) 职称NULL nchar(10)2.职工工资表字段名是否为空数据类型工资号NULL int基本工资NULL int姓名NULL nchar(10) 奖金NULL int缴税NULL int保险费NULL int应发工资NULL int实发工资NULL int3.系统信息表字段名是否为空数据类型用户名NULL nchar(10)密码NULL int4.岗位信息表字段名是否为空数据类型编号NULL int职称类别NULL nchar(10)薪酬标准NULL nchar(10)3.2 各窗体设计3.2.1启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。
最多允输入3次。
进入系统后进入登陆主窗体的编码为：Private Sub Command1_Click()登录.ShowEnd Sub登陆编码如下：Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = "Select * From 系统信息Where 用户名= '" & Text1 & "'" Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox "用户名错误，重新输入", vbExclamation, "警告"Text1.Text = " "Text1.SetFocusElseIf Adodc1.Recordset.Fields("密码") = Text2 ThenMDIForm1.ShowUnload MeElseMsgBox "密码错误，重新输入", vbExclamation, "警告"Text2.Text = " "Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub3.2.2主窗体要求：设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。
[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：打开“注册新用户”窗体[退出]：结束程序运行[数据管理] 包含以下子菜单：[职工基本信息]菜单：显示职工信息窗体[职工工资信息]菜单：显示工资信息窗体[岗位信息]菜单：显示岗位信息窗体[职工工资信息录入]菜单：显示职工工资录入窗体[数据查询]包含以下子菜单：[查询职工信息]：显示职工信息查询窗体[查询工资信息]：显示工资信息查询窗体[查询岗位信息]：显示岗位信息查询窗体其编码如下：Private Sub MDIForm1_Load()mDataMng.Enabled = FalseEnd SubPrivate Sub mDcaxun_Click(Index As Integer)职工信息查询.ShowEnd SubPrivate Sub mDcaxun1_Click(Index As Integer)职工工资查询.ShowEnd SubPrivate Sub mDcaxun2_Click(Index As Integer)岗位信息查询.ShowEnd SubPrivate Sub mDgangwei_Click(Index As Integer) 岗位信息.ShowEnd SubPrivate Sub mDjiaoshi_Click(Index As Integer)职工工资.ShowEnd SubPrivate Sub mFxinyonghu_Click(Index As Integer) 注册新用户.ShowEnd SubPrivate Sub mFExit_Click(Index As Integer)EndEnd SubPrivate Sub mDzhigong_Click(Index As Integer)职工信息.ShowEnd Sub3.2.3注册新用户窗体用于添加新的用户名和密码。
；单击“注册新用户”菜单，打开对话框如图2要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。
以下各窗体设为MDI主窗体的子窗体注册新用户的编码如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = "" ThenMsgBox "请输入用户名！", vbExclamation, "确认用户名"Text1.SetFocusExit SubElseSQLStr = "Select * from 系统信息where 用户名='" & Text1 & "'"Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名"Text1 = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2 <> Text3 ThenMsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = ""Text2.SetFocusExit SubElseIf Text2 = "" ThenMsgBox "密码不能为空！", vbExclamation, "检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名") = Trim(Text1)Adodc1.Recordset.Fields("密码") = Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox "成功注册新用户！", vbInformation, "添加用户"End IfEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub3.2.4分别设计各个信息窗体功能：浏览和录入各信息。
该窗体以文本框显示当前记录，用按钮[首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。
可以对记录进行新增、确认、删除、取消操作。
其编码如下：Private Sub CmdAdd_Click() Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Combo1.AddItem "男" Combo1.AddItem "女"End SubPrivate Sub CmdOK_Click() Adodc1.Recordset.Update CmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认") If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfElseAdodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub5.2.5各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框Combo中,供用户选择。