企业工资管理系统（下）

1、企业人为办理体系下选择“人为信息设置“其他工程设置菜单，在其他工程设置的窗体中，设置员工当月的奖金、补助、福利等工程。sql=selet*frsalarytherIfihangeflag=1ThenalladdsgBx已经添加记载,vbKnly+vbExlaatin,提示allfrresult.thertpiallfrresult.shther(sql)frresult.ShUnladeElseitype=1itype=2itype=3itype=4itype=5resudate=rerdtiesql=sqlandYearnth=#rerdtie#andsql=sqlType=itypeall

2、transatsql(sql,Salary)alladdallfrsusalary.resusalary(resudate)sql=selet*frsalarytherallfrresult.thertpiallfrresult.shther(sql)frresult.ShUnladeEndIf选择“人为信息设置“人为盘算公式设置菜单，在这个盘算公式窗体中设置员工现实发放人为的盘算公式。Ife.textvertie=AndIsNueri(e.textvertie)=TrueThensgBx请输入正常加班人为百分比,vbKnly+vbExlaatin,提示e.textvertie=ElseIfe

3、.textvertiespe=AndIsNueri(e.textvertiespe)=FalseThensgBx请输入特别加班人为百分比,vbKnly+vbExlaatin,提示e.textvertiespe=ElseIfe.texterrand=AndIsNueri(e.texterrand)=FalseThensgBx请输入出差人为,vbKnly+vbExlaatin,提示e.texterrand=ElseIfe.textabsent=AndIsNueri(e.textabsent)=FalseThensgBx请输入旷工扣发人为,vbKnly+vbExlaatin,提示e.textabse

4、nt=ElseIfe.textle=AndIsNueri(e.textle)=FalseThensgBx请输入迟到早退扣发人为,vbKnly+vbExlaatin,提示e.textle=ElseallsetvalueallinitEndIf选择“人为信息办理“出勤统计菜单，在统计出勤记载窗体中选择必要统计记载的月份。sql=selet*frattendanestatistisherererdnthbeteen#sql=sqlfirstday#and#lastday#Setrsrerd=getrs(sql,salary)Ifrsrerd.EF=FalseThensgBx已经统计,vbKnly+v

5、bExlaatin,提示fraresult.Shfraresult.Zrder0rsrerd.lseUnladeExitSubEndIfsql=selet*frattendaneinfhereadatebeteen#sql=sqlfirstday#and#lastday#Setrsrerd=getrs(sql,persn)Ifrsrerd.EF=FalseThensql=seletsid,snaefrstuffinfrderbysidSetrspersn=getrs(sql,persn)选择月份后单击“确定按钮，假设体系已经统计过该月份的记载，那么会出现如以下图所示的统计效果信息列表。假设体系

6、没有统计过，那么体系就会开始统计记载，然后表现如以下图的统计效果信息列表。IfstrusernaeadinThensql=seletsidfrstuffinfheresnae=strusernaeSetrs=getrs(sql,salary)sd=rs(0)sql=selet*frattendanestatistisherestuffid=sdElsesql=selet*frattendanestatistisEndIf选择“人为信息办理“盘算实发人为菜单，在这个窗体中选择必要统计的月份。选择统计月份后，单击“开始统计按钮，体系假设已经统计了该月份的人为，体系会表现人为信息列表窗体。假设体系还

7、没有统计人为，那么体系开始统计人为，然后在信息效果列表窗体中表现统计效果。allsusalary(firstday,lastday)sql=selet*frsalarystatistisallfrresult.listtpiallfrresult.shdata(sql)frresult.aptin=统计效果列表frresult.Zrder0UnladeElsesgBx这个月的人为未统计,vbKnly+vbExlaatin,提示EndIf选择“人为信息办理“查询人为菜单，体系表现如图的查询信息窗体，体系默认的是查询出数据库中全部的记载当办理员进入的时间，当从“员工编号下拉列表中选择一个员工编号后

8、，单击“查询单人按钮，就会查询出切合这个员工编号的记载；假设必要返回查询全部信息，单击“查询全部按钮，体系就会返回全部员工的信息。在“员工人为统计列表中单击鼠标右键，会弹出以下图的菜单，在“员工其他工程列表中单击鼠标右键也会出现以下图的菜单。假设要选择“删除根本人为设置，出现如下的提示：详细的操纵这里就不详细先容。选择“人为信息办理“导出人为表菜单，会出现以下图的“导出记载窗体中选择必要导出人为的月份。选择月份和保存位置后，单击“导出按钮，体系会开始导出数据。单击“确定按钮打启发出的文件，单击“取消按钮回到体系。导出的人为记载34各项子模块编写要点在登录的这个窗体里，我做的特点是：只要在数据库

9、里有效户信息的，都可以登录，然后表现相干本身的信息，而办理员表现全部的信息。当输入的用户名或暗码不准确的时间，会出现如下的对话框：大概在主窗体的方案中，我在体系的下拉菜单里包罗有添加用户、修改暗码和退出体系。在这个模块里平凡用户只有修改本身的暗码的权利。在添加用户的窗体里：添加3个标签、3个文本框和2个下令按钮，然后设置它们相干的属性。在修改暗码的窗体里：添加了3个标签，用来表现信息；3个文本框用来输入用户名称和用户暗码；2个按钮用来确定和取消操纵，然后设置它们的属性。在人为信息设置的下拉菜单里包罗有根本人为信息设置、其他工程信息设置和盘算公式设置。在这个模块里，平凡用户没有任何权利举行相干的

10、操纵。在根本人为窗体里：添加了2个选项按钮、2个下拉列表、2个标签、1个文本框和2个按钮，然后设置它们的属性。在其他工程设置的窗体里：利用了一个DTPiker控件得到添加记载的时间，要利用这个控件必要添加部件类库，选择“工程部件下令，选择irsftindsnntrls-26.0(sp4)项，然后设置相干的属性。在人为信息办理的下拉菜单里包罗有统计出勤信息、盘算实发人为、查询人为和导出人为表。在这个模块里，平凡用户有统计出勤信息和查询人为的权利，但是都表现的是本身的信息。在出勤统计窗体里：添加一个下拉列表、一个标签和2个下令按钮，然后设置相干的属性。在出勤效果信息列表的窗体里：利用了Add控件和

11、DataGrid控件，控件的Visible属性必然要设置为False。在盘算实发人为窗体里添加的控件和统计出勤记载窗体的控件雷同。在人为统计列表窗体里：利用了SSTab控件，在每一个标签上添加一个SFlexGrid控件，然后设置它们的属性。在导出人为表的窗体中利用了ndDialg控件，要利用这个控件必要在“控件窗体中，选择irsftnDialgntrl6.0(sp3)项，同时由于数据表格是导出到Exel，以是必要添加引用。选择“工程引用菜单，在“引用窗体中选择irsftExel9.0bjetLibrary项，如许才气够乐成导入到Exel。在这个窗体里，我做的特点是：权利分工明白。当办理员进入的

12、时间他有全部的权利，单击哪个模块就会弹出相对应的窗体。而平凡用户那么不克不及，我把它举行了权限设置，会弹出权限的对话框。在添加用户的窗体里，假设输入的用户暗码和确认暗码不同等，将出现一个告诫对话框：然后输入与用户暗码雷同的暗码，我这里的暗码都是以*的情势表达，是不成见的。添加的用户将保存在数据库的userinf里。单击“取消按钮就卸载此窗体，添加用户的历程到此完成。在修改暗码的窗体里，我要注意讲解一下：当输入的旧暗码与登录时的暗码不同等将出现提示对话框如图一，当输入的“确认新暗码和“输入新暗码的暗码不同等时也将出现告诫对话框如图二。我在做这个窗体时碰到了一个题目：就是输入的新暗码确认后，当你再

13、一次的进入修改暗码窗体输入旧暗码时，假设输入的是方才修改正的暗码，就会出现错误。颠末一段时间的思索，我创造缘故原由是修改正的暗码没有覆盖登录时的暗码，以是会出现题目。我以为这是一个很大的题目，在别的书上大概没留意到这一点，以是我要注意的讲一下，这是我做这个窗体时的最大要会。在创立根本人为窗体时，这个窗领会在两个地方利用到，一个就是添加，另一个就是修改，在窗体载入时体系应主动断定状态。选择员工编号或选择职务，然后填写人为金额，单击“确定按钮，体系就会根据选择的方法，设置员工的根本人为。在做根本人为这个窗体时，我的想法是：当你在修改根本人为的信息，起首都要从数据库中调出相干的信息，然后把它删撤除，

14、再从数据库中的员工信息表中调出所要的信息，然后再一次的添加所要设置的信息。当你没输入员工编号的时间，会出现以下图的对话框；当没输入员工的职务时会出现错误的信息。在创立其他工程设置的窗体时，也在两个地方利用，即添加和修改，在载入时也必要断定状态。选择员工编号，再选择必要添加的工程和进额，单击“确定按钮，即可添加其他工程。在其他工程设置这个窗体里，我用了一个Frae控件和几个ptinButtn控件，目的在于：在添加其他工程时，只能有一个设置是有效的，并且还可以添加其他的工程，另有备注等等，这些都便于记载。这里另有一个DTPiker控件是用来记载添加其他工程标时间，我以为这个控件非常好。另有就是每次

15、添加乐成后，体系必要初始化，更新一下。在设置完这个窗体后将会弹出查询人为的窗体。在创立人为盘算公式的窗体时，输入内容后，单击“确定按钮，设置盘算公式中利用的数字。在盘算公式设置的窗体里，单击“规复默认值按钮体系将会规复公式中的默认值。这里的规复默认值成效接纳的要领比力简朴，就是在一个函数中设置了结实的默认值。假设必要利用可变的默认值，可以在数据库中设置一项默认值字段，如容许以便利的变动默认值。当输入的格式与设定的格式不同等的时间，会弹出相干的对话框。创立出勤统计窗体，选择月份后，单击“确定按钮，开始统计出勤记载。在统计出勤信息的窗体里，这要和出勤记载的数据库相连，假设输入的月份没有统计将如下的

16、对话框：假设输入的月份有统计记载那么弹出如下的对话框：然后弹出出勤效果的窗体，表现数据库中统计信息相干的记载。办理员能看到的界面这是用户登录所表现的用户信息创立盘算实发人为的窗体，这个窗体的创立和统计出勤记载的窗体比力相似，选择月份后，单击“开始统计按钮，即可统计员工人为。在盘算实发人为的窗体里，假设输入的月份的人为没统计会弹出如下的对话框：不然会出现如下的对话框：单击“确定后，就会出现人为信息列表，这时你将瞥见全部关于你想要的信息。创立人为查询的窗体，在选择员工编号后，单击“查询单人按钮，返回选择员工的相干信息。单击“查询全部按钮，体系返回全部员工的信息。在创立人为查询即人为统计效果列表的窗

17、体时，我以为这是一个最难的窗体。不但是由于它的设置，另有就是它的代码和数据库相连的操纵。在这个窗体中利用了SSTab控件，在每一个标签上添加一个SFlexGrid控件。当你是办理员登录的时间，他的权限是全部，当你是用户登录的时间，窗体只表现登任命户本人的相干信息。他没有任何权限，只能看到本身的信息，这是我做这个窗体的特色。窗体的部门代码为：Ifstrusernae=adinThen办理员的权限sql=seletstuffidfrsalarysettingSetrs=getrs(sql,salary)Ifrs.EF=FalseThenhileNtrs.EFrs.veNextendrs.lseEn

18、dIfase0sql=selet*frsalarysettingallbasitpiallshbasi(sql)ase1sql=selet*frsalarytherallthertpiallshther(sql)ase2sql=selet*frsalarystatistisrderbyiddesalllisttpiallshdata(sql)EndSeletElse用户的权限sql=seletsidfrstuffinfheresnae=strusernaeSetrs=getrs(sql,salary)hileNtrs.EFrs.veNextendrs.veFirstsd=rs(0)rs.lse

19、ase0sql=selet*frsalarysettingherestuffid=sdallbasitpiallshbasi(sql)ase1sql=selet*frsalarytherherestuffid=sdallthertpiallshther(sql)ase2sql=selet*frsalarystatistisherestuffid=sdalllisttpiallshdata(sql)EndSeletEndIfEndSub这是用户登录所表现的用户信息创立导出人为表窗体的时间，这是人为办理的最紧张的一步。这个窗体中利用了ndDialg控件，通过设置Flags属性，使ndDialg控件

20、的对话框中表现一个帮助按钮，但是，步伐员必需在这个位置提供相干的帮助主题。对付全部的群众对话框，当anelErrr属性为true，并且用户单击了对话框的“取消按钮时将天生一个错误。可以在表现对话框的同时捕捉此错误以查验是否按下了“取消按钮。这个控件可以表现“翻开和“另存为对话框，可以在翻开对话框之前用Filter属性指定在“文件范例列表框中表现的文件过滤器列表。这个窗体还引用了irsftExel9.0bjetLibrary，目的是为了把创立的人为表导入到Exel表格中。这个窗体的制作黑白常庞大的，尤其是从VB导入到表格中。创立导出人为表的窗体，当单击“保存为文本框右边的按钮，会提示用户选择保存途径，然后单击“导出，会导到你所要保存的文件夹里。如许就可以在你保存的途径里看到导出的Exel表格了。第四章竣事语企业人为办理体系是一个典范的信息办理体系，其重要通过软件工程方面的选择课题、需求阐发、总体方案、选用东西、步伐模块、体系测试等几个步调来实现。开拓本体系的历程中，起首要对企业人为办理举行体系调研，认识企业财政、人事、人为发放办理的流程、步调；其次在体系需求阐发历程中，要透过征象看本质，敏锐不雅察到企业人为办