课程设计报告职工工资管理系统设计

课程设计报告课程设计任务书姓名

设计时间设计名称

设计要求件工程方法对工资管理系统进行分析和设计，，主要功能包括：人事信息的录入，修改，删查询操作：工资的核算查询；用户信息的管理等。图，数据字典等）库设计及数据库的实现）概要

第二章第三章第四章第五章开发背景开发的目标及意义的开发方法性研究流程图新系统的可行性分析的设计思想分析的运行环境和开发平台模块设计总体功能模块库设计库结构的实现管理系统功能实现环境简介界面的设计基本信息管理功能设计管理功能设计测试操作手册文献体会与建议内容摘要系统基本功能的过程。开发这个系统的步骤主要有系统分析、系统设计、系统实现和系统维护。在系统的设计中，详细的展现了系统的各个模块、所需的数据库表及表字段菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件、代码及菜单实现的方法。本系统具有数据输入，数据存储，信息计算修改删除等功能，本系统也提供了友好的人际对面。第一章引言1.1项目开发背景库机制。处于现在这样一个飞速发展的信息时代，管理的前提。，对于企业或是事业单位来说开发一套工资管理系统是很必要，这样通用的软件使用效率不高，还会造成人力，求分析工作，设计符合用户要求的系统。1.2系统开发的目标及意义力物力的开支等。息服务进程的重要手段。新的管理系统的使用会给人事管理体系发生变化水平，为企业带来更多的效益。1.3系统的开发方法2000第二章可行性研究2.1系统流程图员工录入员工出勤基本 部门录入信息

出勤信息人事信息管理基本工资核算 工资工资管理工资报表图2.1系统流程图2.2完成新系统的可行性统以满足客户的需求。第三章系统分析3.1系统的设计思想是对各种工资信息进行日常的管理，如工资信息的输入、查询、修改、增加、删、便捷的性能，减少编程人员的工作量。3.2需求分析工资管理系统是针对企事业单位的大量业务处理工作用计算机进行全面现理等。1.输入功能生年月)、Etel(电话号码)等。2括：（基本工资）、（岗位工资）、（住房补贴）、（津贴）、(工会会费、(水电费)住房公积金）、（养老保险）、（奖（部门总管）、Bmount(部门人数)等。2.修改和删除功能工作部门变动，或调离本单位等，系统应能修改员工的信息或将其从员工信中删除。2资信息。员工升职加薪、工资普调是企业中常见的事便对员工工资进行个别及批量的修改；如员工调离本息表中删除这个员工信息，将其工资信息表中相应的删除。3。当撤消一个部门时，文学艺术在能从部门信息表中门的名称发生改变时，系统中所有该项部门的名称应的改变。3.和统计功能1够查询指定员工的基本信息。2查询指定某个部门或全部部门的基本信息。3询某个员工的工资信息。4计、汇总指定年份企业各部门或某个部门每个月或全年工资总额，汇总门的人数或本单位的总人数。能进行员工工资的计算，即计算应发金额、应扣金额及实发金额。3.3系统的运行环境和开发平台本系统使用VisualBasic进行软件开发，SQLServer2000进行数据库开发。VB是微软公司开发的最为流行的软件之一，也是社会上使用较多的开发工具之一。VB是一个完全可视化，面向对象的开发工具，因此此系统具有兼容性，安全性强，通用性好等优点。3.4数据流图企业和事业单位工资管理过程进行分析后，根据系统功能的描述，得到管理系统的数据流图如下：图3.1顶层数据流图图3.20层数据流图2.管理模块、工资管理模块查询模块分层数据流图编号

考勤数据

1.2工资数据考勤表 图3.3员工信息查询与录入名称

2.1查询数据

2.2计算工资信息图3.4工资核算工名工资表

3.1查询

数据

3.2数图3.5工资备份备份表工资表 信息查询要求

4.1要求规则

4.2查结果图3.6员工信息查询35数据字典字典是系统中各类数据描述的集合说明工资管理系统的数据字典。1).：职工编号，部门编号：职工号，部门号：职工号唯一地标识数据库中职工信息相关表中的一个特定员工的定义：职工号=6{字符}6：员工信息表2).：职工信息报表：职工信息：用户指定条件下的员工基本信息情况查询结果的信息表定义：职工信息表=职工号+职工姓名+性别+出生年月+职务+学历+电话号码+住址+所属部门+身份证号：输出到打印机3).：考勤信息报表：考勤信息：用户指定条件下的员工考勤信息查询结果的信息表定义：员工考勤信息查询报表=考勤编号+员工号+员工姓名+加班天数+出差天数+旷工天数+迟到次数+考勤日期：输出到打印机4).：工资报表：工资信息：记录工资的组成部分以及员工的工资情况的信息工标准+迟到标准+奖金：输出到打印机第四章系统设计4.1系统功能设计需求分析后，得出中小型企业的工资信息管理系统的功能分层图如下：工资管理系统1.0系统登录

2.0人事管理功能

3.0工资管理功能

4.0系统管理功能2.1

2.2

2.3

2.4

3.1

3.2

4.1管理用户4.1.1添加用户

4.1.2修改用户图4.1工资管理系统层次图4.2系统总体功能模块管理系统分为五个模块，具体如下：1.基本信息管理模块：员工信息录入修改删除及查询。2.管理模块。3.管理模块。4.计算及管理模块。4.3数据库设计4.3.1概念结构设计图4.2E-R图2.结构模型图4.3概念模型CDM4.3.2逻辑结构设计表（员工号，员工名，职务，部门号，性别，出生年月，学历，电话，，身份证号）表（部门号，部门名，部门总管，部门人数，）表（考勤编号，员工号，迟到次数，旷工次数，出差天数，加班次数，日期）表（职务，员工号，基本工资，奖金，出差标准，加班标准，迟到系数，次数）上面的关系模式，设计数据表如下：1.用户表：用于进入系统的权限设置等。userIDsswordrk类型charrchar5许空许空编号密码2.表：职工的基本信息。ameexirthEeduelddridentify类型charrcharvarcharvarcharvarcharvarcharvarcharrchar6许为空编号姓名年月号码编号证号3.表：部门基本信息。ameount类型charrchar5许空

描述总管人数4.表：工资的基本组成信息。tyseWageyWageertinmeJobectionStandardsenStandardteStandardnus类型MoneyMoneyFloatMoneyMoneyMoneyney885.表：记录员工的到职情况。eckIDEnameimeDayectionDaysentDayteDayeckDate类型IntarVarcharallintalldatetime许空编号员工号6.表：记录保存计算出来的工资。geIDployeeIDmeWageNameseWageertimeWageectionWagesentWageteWageEtcWagetalWage类型arrcharmoneymoneymoneymoneymoneymoneymoneyney4.3.3物理结构模型图4.4物理结构模型PDM4.4数据库结构的实现1、数据库的创建T-SQL语句：Createdatabase工资管理onname='Wages_data',filename='E:\MSSQL\Data\Wages_data.mdf',size=10mb,maxsize=100mb,filegrowth=5%logonname='Wages_log',filename='E:\MSSQL\Data\Wages_log.ldf',size=5mb,maxsize=30mb,filegrowth=2mb2、数据表的创建（可同时在创建时定义相关的约束）T-SQL语句：1)Users表：CreatetableUsers(UIDintnotnulldefault''PrimaryKey,Unamechar(8)notnulldefault'',UPasswordchar(16)default'',URightchar(20)default'',2)Employee表：createtableEmployee(EmployeeIDchar(8)notnulldefault''PrimaryKey,EmployeeNamechar(8)notnulldefault'',Sexchar(2)default'',Birthdaysmalldatetimedefault'',Educationchar(8)default'',Dutychar(20)notnullReferencesWageConfig(Duty)ONUPDATECASCADEONDELETECASCADE,DepartmentIDchar(20)notnull,IdentityIDchar(20)notnull,Telephonechar(15)notnull,Addresschar(40)notnull,Remarkvarchar(100)default''3)WageConfig表：CreatetableWageConfig(Dutychar(20)notnulldefault''PrimaryKey,BaseWagemoneynotnull,DayWagemoneynotnull,OvertimeJobfloat(8)notnull,EvectionStandardmoneynotnull,AbsentStandardmoneynotnull,LateStandardmoneynotnull,EtcStandardmoneynotnull,Bonusmoneynotnull4）CheckStat表：createtableCheckStat(CheckIDintIDENTITY(1,1)PrimaryKey,EmployeeIDchar(8)notnullReferencesEmployee(EmployeeID)ONUPDATECASCADEONDELETECASCADE,EmployeeNamevarchar(15)default'',Overtimedaysmallintdefault'',Evectiondaysmallintdefault'',Absentdaysmallintdefault'',Latedaysmallintdefault'',CheckDatesmalldatetimedefault''5）Wage表：createtableWage(WageIDintIDENTITY(1,1)PrimaryKey,EmployeeIDchar(8)notnullReferencesEmployee(EmployeeID)ONUPDATECASCADEONDELETECASCADE,EmployeeNamevarchar(15)default'',WageDatesmalldatetimedefault'',BaseWagemoneydefault0,OvertimeWagemoneydefault0,EvectionWagemoneydefault0,AbsentWagemoneydefault0,LateWagemoneydefault0,EtcWagemoneydefault0,BonusWagemoneydefault0,TotalWagemoneydefault0,6)DepartmentID表：CreatetableDepartmentID(DepartmentIDintnotnulldefault''PrimaryKey,Departmentnamechar(16)notnulldefault'',Departmentmanagechar(8)default'',Departmentnumberintdefault'',3.插入基本信息1用户基本信息insertintoUsersselect'01','1','1','系统管理员'unionselect'02','yy','1234','人事管理'unionselect'03','ll','1234','工资管理'unionselect'04','lxj','1234','人事管理'unionselect'05','ws','1234','工资管理'unionselect'06','mq','1234','系统管理员'insertintoEmployee(EmployeeID,EmployeeName,Sex,Birthday,Education,Duty,DepartmentID,IdentityID,Telephone,Address,Remark)select'0101','时妍妍','女','1988-08-15','','总管','策划部','','1580365',' 淮安',''unionselect'0401','梁丽','女','1989-01-08','','总管','财务部','','1580353',' 淮安',''unionselect'0301','潘娟','女','1988-01-25','','工人','生产部','','1580371',' 徐州',''unionselect'0402','许洁','女','1990-01-27','','工人','财务部','','1580365',' 河南',''unionselect'0501','王涛','','1987-10-13','','工人','销售部','','1580001',' 福建',''unionselect'0201','徐杰','','1984-07-09','研究生','技术人员','研发部','','1580002','

无锡',''unionselect'0701','张凯','','1985-04-12','','总管','后勤部','','1580003',' 浙江',''unionselect'0601','李璐','女','1986-05-16','大专','总管','宣传部','','1580004','

苏州',''unionselect'0302','石磊','','1985-02-07','','工人','生产部','','1580005',' 扬州',''unionselect'0303','吴华','','1986-06-24','','工人','生产部','','1580006',' 山东',''unionselect'0304','唐建青','','1989-11-10','','总管','生产部','','1580007',' unionselect'0502','李云','女','1988-03-17','','工人','销售部','','158621100008','镇江',''unionselect'0202','王兆坤','','1986-04-30','','总管','研发部','','1580009',' 无锡',''unionselect'0305','梁玉冲','','1990-09-04','','工人','生产部','','1580010',' 无锡',''unionselect'0503','金坛','','1989-12-15','','总管','销售部','','1580011',' unionselect'0403','夏平','','1986-01-13','大专','工人','财务部','','1580012',' 四川',''unionselect'0602','邵建波','','1984-03-17','','工人','宣传部','','1580013',' 徐州',''unionselect'0603','李书生','','1987-11-22','','工人','宣传部','','1580014',' unionselect'0102','陆林','','1980-08-21','博士','工人','策划部','','1580015',' 河北',''unionselect'0702','黄婷','女','1981-05-16','','工人','后勤部','','1580016',' 安徽',''unionselect'0203','周宇','','1982-07-19','研究生','技术人员','研发部','','1580017','

浙江',''unionselect'0703','李晓梅','女','1982-04-03','','工人','后勤部','','1580018',' 宿迁',''第五章工资管理系统功能实现5.1开发环境简介它能够建立多种类型的数据库并可以管理维护和使用这些数据。5.2系统界面的设计图5.1系统界面主界面主要有系统菜单和运行界面。给界面提供了系统设置，人事，工资管理和帮助等功能，下面又分多个子功能。5.3员工基本信息管理功能设计（代码）操作：DimEmployeeID,Employeename,Sex,birthday,Education,Duty,DepartmentName,IdentityID,Telephone,AddressAsStringEmployeeID=Text1.TextEmployeename=Text2.TextEducation=Text3.TextDuty=Text8.TextDepartmentName=Text4.TextSex=Combo1.TextIdentityID=Text5.TextTelephone=Text6.TextAddress=Text7.TextIfTrim(EmployeeID)=""OrTrim(Employeename)=""OrTrim(DepartmentName)=""ThenMsgBox"员工基本信息不能为空,请填写！"ExitSubEndIfmyCon.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;InitialCatalog=工资管理;DataSource=HP-PC;"myRs.Open"select*fromEmployeewhereEmployeeID='"&Trim(Text1.Text)&"'andEmployeename='"&Trim(Text2.Text)&"'",myConIfmyRs.EOF=FalseThenMsgBox"该员工已经存在，请重新输入！"myRs.ClosemyCon.CloseText1.SetFocusExitSubEndIfmyRs.ClosemyRs.Open"employee",myCon,3,2myRs.AddNewmyRs.Fields("EmployeeID")=Text1.TextmyRs.Fields("Employeename")=Text2.TextmyRs.Fields("Education")=Text3.TextmyRs.Fields("Duty")=Text8.TextmyRs.Fields("DepartmentName")=Text4.TextmyRs.Fields("Sex")=Combo1.TextmyRs.Fields("IdentityID")=Text5.TextmyRs.Fields("birthday")=DTPicker1.ValuemyRs.Fields("Telephone")=Text6.TextmyRs.Fields("Address")=Text7.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox"添加成功!"Adodc1.RecordSource="select*fromemployee"jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Combo1.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""操作：DimEmployeeID,Employeename,Sex,birthday,Education,Duty,Department,IdentityID,Telephone,AddressAsStringDimnAsIntegerEmployeeID=Text1.TextEmployeename=Text2.TextEducation=Text3.TextDuty=Text8.TextDepartmentName=Text4.TextSex=Combo1.TextIdentityID=Text5.TextTelephone=Text6.TextAddress=Text7.TextIfTrim(EmployeeID)=""OrTrim(Employeename)=""ThenMsgBox"请填写要删除员工的基本信息！"ExitSubEndIfIfmyCon.State=1ThenmyCon.CloseEndIfmyCon.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;InitialCatalog=工资管理;DataSource=HP-PC;"myRs.Open"select*fromemployeewhereEmployeeID='"&Text1.Text&"'",myCon,3,2n=MsgBox("您确定要删除吗？",vbYesNo,"提示")Ifn=6ThenmyRs.DeletemyRs.ClosemyCon.CloseEndIfAdodc1.RecordSource="select*fromemployee"jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Combo1.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""操作：DimEmployeeID,Employeename,Sex,birthday,Education,DepartmentName,IdentityID,Telephone,AddressAsStringEmployeeID=Text1.TextEmployeename=Text2.TextEducation=Text3.TextDuty=Text8.TextDepartmentName=Text4.TextSex=Combo1.TextIdentityID=Text5.TextTelephone=Text6.TextAddress=Text7.TextIfTrim(EmployeeID)=""OrTrim(Employeename)=""ThenMsgBox"请填写要修改的内容！",vbYesNo,"提示"Text2.Text=""ExitSubEndIfmyCon.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;InitialCatalog=工资管理;DataSource=HP-PC;"myRs.Open"select*fromemployeewhereEmployeeID='"&Text1.Text&"'",myCon,3,2myRs!Employeename=Text2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox"您确定要修改吗？",vbYesNo,"提示"jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Combo1.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""5.4工资管理功能设计信息查询：OptionExplicitPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubcmdQuery_Click()DimsqlAsString'按编号查询IfchkNumber.Value=TrueThenIfcboNumber.Text=""ThenMsgBox"请选择员工编号！",vbExclamationcboNumber.SetFocusExitSubElseIfIsNumeric(cboNumber.Text)=FalseThenMsgBox"员工编号是数字量！",vbExclamationcboNumber.SetFocusExitSubElsesql="select*fromWagewhereEmployeeID='"&_cboNumber.Text&"'"Adodc1.RecordSource=sqlAdodc1.RefreshEndIfEndIf'按姓名查询IfchkName.Value=TrueThenI