公司工资数据库课设

辽宁工业大学数据库应用技术课程设计说明书题目：公司工资管理系统学院（系）：专业班级：学号：学生姓名：指导教师：教师职称：起止时间：2011.12.19-2012.12.31辽宁工业大学课程设计（论文）任务书院（系）：教研室：软件工程学号学生姓名专业班级设计题目公司工资管理系统设计技术参数题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。数据库：MicrosoftOfficeAccess2003。所使用的语言、工具:MicrosoftOfficeAccess2003+WINDOWSXP。所采用的技术、系统结构:ADO数据库联接技术,系统结构为C/S结构。设计要求教师布置实习任务和要求时，不得缺席，并做好记录。上机前预先把所有的源程序编写好。仔细查阅相关资料，认真完成思考题。按要求书写设计任务书，并按要求按版打印，不得雷同。工作量二周工作计划周一听取教师布置设计的任务及要求。周二学生查阅相关资料，进行数据库设计。周三至周五：详细设计与界面设计。周一至周四程序设计与上机，调试源程序。周五书写课程设计任务书。参考资料《数据库应用技术》《数据库应用技术实验指导书》自编《数据库应用技术课程设计大纲》自编等指导教师评语教师：学生：说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2011年12月31辽宁工业大学课程设计说明（计算）书共页第页目录TOC\o"1-3"\h\z第一章概述 3第二章问题定义 4第三章需求分析 5第四章数据库设计 12第五章界面设计 14第六章代码与注释 16第七章设计总结 20参考文献 21第一章概述本系统为工资发放系统，是为了能够对工资发放进行有效的管理而做，采用的开发工具是MicosoftOfficeAccess2003。使用的技术有：数据库的访问；开单控制。本系统能够提供对工资发放各种明细项目的数据编辑，自动计算出工资发放各项合计数据及代扣项目数据；可自主设定条件从而达到对工资数据的多角度查询功能；方便导入、导出数据及输出报表；并可装换成适合与银行UNIX平台借口的数据形式以便于委托银行办理代发工资业务。财务部门人员以管理员身份登录，对本系统的可登录人员进行管理；而单位其他相关人员作为一般用户登录本系统使，数据编辑程序、数据导入程序及增加用户、删除用户程序自动关闭，从而控制本系统的工资数据编辑、数据导入及用户增、删功能只能由财务部门人员操作。实现了aiwu部门对本单位工资发放系统的集中管理，保证了系统的安全性。是一个功能实用，用户（财务部、其他相关部门、银行）操作方便，简单明了的工资发放软件。第二章问题定义工资管理系统实现以下几项功能：(1)工资计算功能，工资统计功能，报表输出功能(2)设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块，模糊查询模块等等。(3)包括人员登记、人员调查、基础设置(部门设置、学历设置、职称设置、职务设置、常用名设置)、工资、奖金补贴、工资查阅。第三章需求分析数据库需求分析数据项和数据结构如下:公司工资表:永久编号、发放年月、部门ID、排序、工资档次、级别、基础工资、津贴补贴、活动部分、护士津贴、护龄工资、补发工资、应发A、应发A名称、应发B、应发B名称、应发比例、房租、水电、医疗保险、养老保险、应扣A、应扣A名称、应扣B、应扣B名称、应扣C、应扣C名称、应扣比例、标识A、标识B、备注。社会关系表:永久编号、称谓、姓名、出生年月、政治面貌、现在职业。数据库概念的结构设计图3.1工资属性图:准确的反映出工资的详细资料。图3.2奖金补贴属性图:准确地计算出应该得到的工资。图3.3人员查询属性图:准确地反映出人员详细资料,更好的了解员工各方面能力。图3.4图人员登记属性图:准确地反映出员工对各自工作的态度。图3.1工资属性图图3.2奖金补贴属性图图3.3人员查询属性图图3.4人员登记属性图数据库的逻辑结构设计设计表是建立一个数据库的良好的开端,向表中输入有关工资各种项目.并且建立两个主键,使数据库运行的更加完善,更加畅通。通过表的设置,我们很快地找到我们所需要的信息,都是通过这个神奇的表来制作的.例如字段大小、格式、输入掩码、标题、默认值、有效性规则、有效性文本等.详细地设置是免不了的。为便于对人员进行管理，丰富人员档案内容，就需要设置简历表。图3.5T基本资料表图3.6简历表三、数据字典（DD）:数据流卡数据流卡名称：考察记录编号：D1来源：E1去向：P1数据结构：考勤日期，职工编码，加班天数，病假天数，旷工天数，事假天数说明：数据流量：1次/月，流量高峰：1次/月图3.7数据流卡数据流卡数据流卡名称：认识基本信息编号：D2来源：E2去向：P3数据结构：职工编码，职工姓名，性别，人员类别，部门编码，部门名称，岗位编码，岗位名称，职称，工龄，说明：数据流量：1次/月，流量高峰：1次/月图3.8数据流卡开始四、程序流程图：开始录入工资信息录入工资信息职工工号为空职工工号为空YES出错信息出错信息NOYES数据库更新数据库更新出错出错NO保存信息保存信息YES继续继续NO结束结束图4.1工资录入程序流程图五、功能结构图：工资管理系统工资管理系统工资管理公共模块系统主窗口系统管理系统登陆人事管理工资管理公共模块系统主窗口系统管理系统登陆人事管理工资表汇总工资表管理人员账户设置工资账户管理计时工资管理用户管理人事信息工资表汇总工资表管理人员账户设置工资账户管理计时工资管理用户管理人事信息图5.1学生信息管理系统模块第四章数据库设计一、概念设计：系统ER图图4.1系统功能E-R图二、逻辑设计：下面列出几个主要的数据库表设计：图4.2基本资料表图4.3简历表三、物理设计在数据库系统中，应用程序，数据库管理系统，操作系统，硬件等几个方面必须协同工作。其中数据库管理系统起着关键的中介作用。当应用的程序从数据库中读取一个数据时，它向数据管理系统发出读取数据记录的命令。数据库管理系统对该命令进行语法，语义检查，并调用应用程序对应的子模式，检查应用程序的存取权限，决定是否执行该命令。如果拒绝执行，则向用户返回错误信息。在决定执行该命令后，数据库管理系统调用模式，依据子模式/模式映像的定义，确定应读入模式中的那些记录。数据库管理系统在调用物理模式，依据模式/物理模式映像的定义，决定应从哪个文件，用什么存取方式，读入哪个或哪些物理记录。然后，数据库管理系统向操作系统执行读取所需物理记录的命令。操作系统执行后，将数据送至系统缓冲区。数据库管理系统再依据子模式/模式映像的定义导出应用程序所要读取的记录格式，将数据从系统缓冲区传送到应用程序的用户工作区，并返回命令执行情况的状态信息。第五章界面设计一、登陆窗口如下所示：图5.1主窗体二、资料人员档案的设置用于登记发放工资人员的自然信息，以便各部门对职工进行管理，窗体能快速的查询到自己应得到的资料。5.2资料窗体表三、职称表就能很快地查到你的资料了,你也可以通过其他的报表来查询.图:5.3基本资料职称表第六章代码与注释1.公司工资代码进入工资管理计算工资发放的PublicuserAsStringDeclareFunctionGetWindowsDirectoryLib"kernel32"Alias"GetWindowsDirectoryA"(ByVallpbufferAsString,ByValnsizeAsLong)AsLong输入信息,计算工资的发放程度.PrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0'第一条记录rst.MoveFirstCommand2(0).Enabled=FalseCommand2(1).Enabled=FalseCommand2(2).Enabled=TrueCommand2(3).Enabled=TrueCase1'上一条记录rst.MovePrevious'上一条Ifrst.BOFThenMsgBox"已经没有上一条记录了",48,"警告"rst.MoveFirstCommand2(0).Enabled=FalseCommand2(1).Enabled=FalseCommand2(2).Enabled=TrueCommand2(3).Enabled=TrueEndIfCommand2(2).Enabled=TrueCommand2(3).Enabled=TrueCase2'下一条记录rst.MoveNextIfrst.EOFThenMsgBox"已经没有最后一条记录了",48,"警告"Command2_Click(3)rst.MoveLastCommand2(2).Enabled=FalseCommand2(3).Enabled=FalseCommand2(1).Enabled=TrueCommand2(0).Enabled=TrueEndIfCommand2(1).Enabled=TrueCommand2(0).Enabled=TrueCase3'末尾一条记录rst.MoveLastCommand2(2).Enabled=FalseCommand2(3).Enabled=FalseCommand2(1).Enabled=TrueCommand2(0).Enabled=TrueCase4Fori=0Toa-1Text1(i).Enabled=TrueNextiCase5Form9.Show1Case6Me.Hide'关闭Case7msg=MsgBox("您确定删除该员工信息吗？",vbOKCancel,"警告")Ifmsg=1Thenrst.Deleterst.MoveNextEndIfEndSelectText1(0).Text=IIf(IsNull(rst.Fields("姓名").Value),"",rst.Fields("姓名").Value)'填充记录Text1(1).Text=IIf(IsNull(rst.Fields("政治面貌").Value),"",rst.Fields("政治面貌").Value)'填充记录Text1(2).Text=IIf(IsNull(rst.Fields("职务").Value),"",rst.Fields("职务").Value)'填充记录Text1(3).Text=IIf(IsNull(rst.Fields("科室").Value),"",rst.Fields("科室").Value)'填充记录Text1(4).Text=IIf(IsNull(rst.Fields("生日").Value),"",rst.Fields("生日").Value)'填充记录Text1(5).Text=IIf(IsNull(rst.Fields("军烈属").Value),"",rst.Fields("军烈属").Value)'填充记录Text1(6).Text=IIf(IsNull(rst.Fields("出勤天数").Value),"",rst.Fields("出勤天数").Value)'填充记录Text1(7).Text=IIf(IsNull(rst.Fields("缺勤天数").Value),"",rst.Fields("缺勤天数").Value)'填充记录Text1(8).Text=IIf(IsNull(rst.Fields("基本工资").Value),"",rst.Fields("基本工资").Value)'填充记录Text1(9).Text=IIf(IsNull(rst.Fields("奖金").Value),"",rst.Fields("奖金").Value)'填充记录Text1(10).Text=IIf(IsNull(rst.Fields("津贴").Value),"",rst.Fields("津贴").Value)'填充记录Text1(11).Text=IIf(IsNull(rst.Fields("洗理").Value),"",rst.Fields("洗理").Value)'填充记录Text1(12).Text=IIf(IsNull(rst.Fields("书报").Value),"",rst.Fields("书报").Value)'填充记录Text1(13).Text=IIf(IsNull(rst.Fields("交通").Value),"",rst.Fields("交通").Value)'填充记录Text1(14).Text=IIf(IsNull(rst.Fields("工资扣").Value),"",rst.Fields("工资扣").Value)'填充记录Text1(15).Text=Val(Text1(8).Text)+Val(Text1(9).Text)+Val(Text1(10).Text)+Val(Text1(11).Text)+Val(Text1(12).Text)+Val(Text1(13).Text)Text1(16).Text=Text1(14).TextText1(17).Text=Val(Text1(15).Text)-Val(Text1(16).Text)EndSub2.公司社会关系代码社会关系的背景和个人的信息PrivateSubForm_Load()Setcon=NewADODB.Connectiona=Text1.Countcon.ConnectionString="provider=microsoft.jet.oledb.4.0;datasource=gzgl.mdb;persistsecurityinfo=false"con.CursorLocation=adUseClientcon.Openrst.Open"select*from员工信息,工资总where员工信息adOpenKeyset,adLockOptimisticIfrst.BOF=TrueOrrst.EOFThenMsgBox"数据库是空的！"ElseText1(0).Text=rst.Fields("姓名").ValueText1(1).Text=rst.Fields("政治面貌").ValueText1(2).Text=rst.Fields("职务").ValueText1(3).Text=rst.Fields("科室").ValueText1(4).Text=rst.Fields("生日").ValueText1(5).Text=rst.Fields("亲属").ValueText1(6).Text=rst.Fields("背景").ValueT