企業(yè)工資管理系統(tǒng)（下）

1、企業(yè)人為辦理體系下選擇“人為信息設(shè)置“其他工程設(shè)置菜單，在其他工程設(shè)置的窗體中，設(shè)置員工當(dāng)月的獎金、補助、福利等工程。sql=selet*frsalarytherIfihangeflag=1ThenalladdsgBx已經(jīng)添加記載,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選擇“人為信息設(shè)置“人為盤算公式設(shè)置菜單，在這個盤算公式窗體中設(shè)置員工現(xiàn)實發(fā)放人為的盤算公式。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請輸入曠工扣發(fā)人為,vbKnly+vbExlaatin,提示e.textabse

4、nt=ElseIfe.textle=AndIsNueri(e.textle)=FalseThensgBx請輸入遲到早退扣發(fā)人為,vbKnly+vbExlaatin,提示e.textle=ElseallsetvalueallinitEndIf選擇“人為信息辦理“出勤統(tǒng)計菜單，在統(tǒng)計出勤記載窗體中選擇必要統(tǒng)計記載的月份。sql=selet*frattendanestatistisherererdnthbeteen#sql=sqlfirstday#and#lastday#Setrsrerd=getrs(sql,salary)Ifrsrerd.EF=FalseThensgBx已經(jīng)統(tǒng)計,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)選擇月份后單擊“確定按鈕，假設(shè)體系已經(jīng)統(tǒng)計過該月份的記載，那么會出現(xiàn)如以下圖所示的統(tǒng)計效果信息列表。假設(shè)體系

6、沒有統(tǒng)計過，那么體系就會開始統(tǒng)計記載，然后表現(xiàn)如以下圖的統(tǒng)計效果信息列表。IfstrusernaeadinThensql=seletsidfrstuffinfheresnae=strusernaeSetrs=getrs(sql,salary)sd=rs(0)sql=selet*frattendanestatistisherestuffid=sdElsesql=selet*frattendanestatistisEndIf選擇“人為信息辦理“盤算實發(fā)人為菜單，在這個窗體中選擇必要統(tǒng)計的月份。選擇統(tǒng)計月份后，單擊“開始統(tǒng)計按鈕，體系假設(shè)已經(jīng)統(tǒng)計了該月份的人為，體系會表現(xiàn)人為信息列表窗體。假設(shè)體系還

7、沒有統(tǒng)計人為，那么體系開始統(tǒng)計人為，然后在信息效果列表窗體中表現(xiàn)統(tǒng)計效果。allsusalary(firstday,lastday)sql=selet*frsalarystatistisallfrresult.listtpiallfrresult.shdata(sql)frresult.aptin=統(tǒng)計效果列表frresult.Zrder0UnladeElsesgBx這個月的人為未統(tǒng)計,vbKnly+vbExlaatin,提示EndIf選擇“人為信息辦理“查詢?nèi)藶椴藛?，體系表現(xiàn)如圖的查詢信息窗體，體系默認的是查詢出數(shù)據(jù)庫中全部的記載當(dāng)辦理員進入的時間，當(dāng)從“員工編號下拉列表中選擇一個員工編號后

8、，單擊“查詢單人按鈕，就會查詢出切合這個員工編號的記載；假設(shè)必要返回查詢?nèi)啃畔?，單擊“查詢?nèi)堪粹o，體系就會返回全部員工的信息。在“員工人為統(tǒng)計列表中單擊鼠標(biāo)右鍵，會彈出以下圖的菜單，在“員工其他工程列表中單擊鼠標(biāo)右鍵也會出現(xiàn)以下圖的菜單。假設(shè)要選擇“刪除根本人為設(shè)置，出現(xiàn)如下的提示：詳細的操縱這里就不詳細先容。選擇“人為信息辦理“導(dǎo)出人為表菜單，會出現(xiàn)以下圖的“導(dǎo)出記載窗體中選擇必要導(dǎo)出人為的月份。選擇月份和保存位置后，單擊“導(dǎo)出按鈕，體系會開始導(dǎo)出數(shù)據(jù)。單擊“確定按鈕打啟發(fā)出的文件，單擊“取消按鈕回到體系。導(dǎo)出的人為記載34各項子模塊編寫要點在登錄的這個窗體里，我做的特點是：只要在數(shù)據(jù)庫

9、里有效戶信息的，都可以登錄，然后表現(xiàn)相干本身的信息，而辦理員表現(xiàn)全部的信息。當(dāng)輸入的用戶名或暗碼不準(zhǔn)確的時間，會出現(xiàn)如下的對話框：大概在主窗體的方案中，我在體系的下拉菜單里包羅有添加用戶、修改暗碼和退出體系。在這個模塊里平凡用戶只有修改本身的暗碼的權(quán)利。在添加用戶的窗體里：添加3個標(biāo)簽、3個文本框和2個下令按鈕，然后設(shè)置它們相干的屬性。在修改暗碼的窗體里：添加了3個標(biāo)簽，用來表現(xiàn)信息；3個文本框用來輸入用戶名稱和用戶暗碼；2個按鈕用來確定和取消操縱，然后設(shè)置它們的屬性。在人為信息設(shè)置的下拉菜單里包羅有根本人為信息設(shè)置、其他工程信息設(shè)置和盤算公式設(shè)置。在這個模塊里，平凡用戶沒有任何權(quán)利舉行相干的

10、操縱。在根本人為窗體里：添加了2個選項按鈕、2個下拉列表、2個標(biāo)簽、1個文本框和2個按鈕，然后設(shè)置它們的屬性。在其他工程設(shè)置的窗體里：利用了一個DTPiker控件得到添加記載的時間，要利用這個控件必要添加部件類庫，選擇“工程部件下令，選擇irsftindsnntrls-26.0(sp4)項，然后設(shè)置相干的屬性。在人為信息辦理的下拉菜單里包羅有統(tǒng)計出勤信息、盤算實發(fā)人為、查詢?nèi)藶楹蛯?dǎo)出人為表。在這個模塊里，平凡用戶有統(tǒng)計出勤信息和查詢?nèi)藶榈臋?quán)利，但是都表現(xiàn)的是本身的信息。在出勤統(tǒng)計窗體里：添加一個下拉列表、一個標(biāo)簽和2個下令按鈕，然后設(shè)置相干的屬性。在出勤效果信息列表的窗體里：利用了Add控件和

11、DataGrid控件，控件的Visible屬性必然要設(shè)置為False。在盤算實發(fā)人為窗體里添加的控件和統(tǒng)計出勤記載窗體的控件雷同。在人為統(tǒng)計列表窗體里：利用了SSTab控件，在每一個標(biāo)簽上添加一個SFlexGrid控件，然后設(shè)置它們的屬性。在導(dǎo)出人為表的窗體中利用了ndDialg控件，要利用這個控件必要在“控件窗體中，選擇irsftnDialgntrl6.0(sp3)項，同時由于數(shù)據(jù)表格是導(dǎo)出到Exel，以是必要添加引用。選擇“工程引用菜單，在“引用窗體中選擇irsftExel9.0bjetLibrary項，如許才氣夠樂成導(dǎo)入到Exel。在這個窗體里，我做的特點是：權(quán)利分工明白。當(dāng)辦理員進入的

12、時間他有全部的權(quán)利，單擊哪個模塊就會彈出相對應(yīng)的窗體。而平凡用戶那么不克不及，我把它舉行了權(quán)限設(shè)置，會彈出權(quán)限的對話框。在添加用戶的窗體里，假設(shè)輸入的用戶暗碼和確認暗碼不同等，將出現(xiàn)一個告誡對話框：然后輸入與用戶暗碼雷同的暗碼，我這里的暗碼都是以*的情勢表達，是不成見的。添加的用戶將保存在數(shù)據(jù)庫的userinf里。單擊“取消按鈕就卸載此窗體，添加用戶的歷程到此完成。在修改暗碼的窗體里，我要注意講解一下：當(dāng)輸入的舊暗碼與登錄時的暗碼不同等將出現(xiàn)提示對話框如圖一，當(dāng)輸入的“確認新暗碼和“輸入新暗碼的暗碼不同等時也將出現(xiàn)告誡對話框如圖二。我在做這個窗體時碰到了一個題目：就是輸入的新暗碼確認后，當(dāng)你再

13、一次的進入修改暗碼窗體輸入舊暗碼時，假設(shè)輸入的是方才修改正的暗碼，就會出現(xiàn)錯誤。顛末一段時間的思索，我創(chuàng)造緣故原由是修改正的暗碼沒有覆蓋登錄時的暗碼，以是會出現(xiàn)題目。我以為這是一個很大的題目，在別的書上大概沒留意到這一點，以是我要注意的講一下，這是我做這個窗體時的最大要會。在創(chuàng)立根本人為窗體時，這個窗領(lǐng)會在兩個地方利用到，一個就是添加，另一個就是修改，在窗體載入時體系應(yīng)主動斷定狀態(tài)。選擇員工編號或選擇職務(wù)，然后填寫人為金額，單擊“確定按鈕，體系就會根據(jù)選擇的方法，設(shè)置員工的根本人為。在做根本人為這個窗體時，我的想法是：當(dāng)你在修改根本人為的信息，起首都要從數(shù)據(jù)庫中調(diào)出相干的信息，然后把它刪撤除，

14、再從數(shù)據(jù)庫中的員工信息表中調(diào)出所要的信息，然后再一次的添加所要設(shè)置的信息。當(dāng)你沒輸入員工編號的時間，會出現(xiàn)以下圖的對話框；當(dāng)沒輸入員工的職務(wù)時會出現(xiàn)錯誤的信息。在創(chuàng)立其他工程設(shè)置的窗體時，也在兩個地方利用，即添加和修改，在載入時也必要斷定狀態(tài)。選擇員工編號，再選擇必要添加的工程和進額，單擊“確定按鈕，即可添加其他工程。在其他工程設(shè)置這個窗體里，我用了一個Frae控件和幾個ptinButtn控件，目的在于：在添加其他工程時，只能有一個設(shè)置是有效的，并且還可以添加其他的工程，另有備注等等，這些都便于記載。這里另有一個DTPiker控件是用來記載添加其他工程標(biāo)時間，我以為這個控件非常好。另有就是每次

15、添加樂成后，體系必要初始化，更新一下。在設(shè)置完這個窗體后將會彈出查詢?nèi)藶榈拇绑w。在創(chuàng)立人為盤算公式的窗體時，輸入內(nèi)容后，單擊“確定按鈕，設(shè)置盤算公式中利用的數(shù)字。在盤算公式設(shè)置的窗體里，單擊“規(guī)復(fù)默認值按鈕體系將會規(guī)復(fù)公式中的默認值。這里的規(guī)復(fù)默認值成效接納的要領(lǐng)比力簡樸，就是在一個函數(shù)中設(shè)置了結(jié)實的默認值。假設(shè)必要利用可變的默認值，可以在數(shù)據(jù)庫中設(shè)置一項默認值字段，如容許以便利的變動默認值。當(dāng)輸入的格式與設(shè)定的格式不同等的時間，會彈出相干的對話框。創(chuàng)立出勤統(tǒng)計窗體，選擇月份后，單擊“確定按鈕，開始統(tǒng)計出勤記載。在統(tǒng)計出勤信息的窗體里，這要和出勤記載的數(shù)據(jù)庫相連，假設(shè)輸入的月份沒有統(tǒng)計將如下的

16、對話框：假設(shè)輸入的月份有統(tǒng)計記載那么彈出如下的對話框：然后彈出出勤效果的窗體，表現(xiàn)數(shù)據(jù)庫中統(tǒng)計信息相干的記載。辦理員能看到的界面這是用戶登錄所表現(xiàn)的用戶信息創(chuàng)立盤算實發(fā)人為的窗體，這個窗體的創(chuàng)立和統(tǒng)計出勤記載的窗體比力相似，選擇月份后，單擊“開始統(tǒng)計按鈕，即可統(tǒng)計員工人為。在盤算實發(fā)人為的窗體里，假設(shè)輸入的月份的人為沒統(tǒng)計會彈出如下的對話框：不然會出現(xiàn)如下的對話框：單擊“確定后，就會出現(xiàn)人為信息列表，這時你將瞥見全部關(guān)于你想要的信息。創(chuàng)立人為查詢的窗體，在選擇員工編號后，單擊“查詢單人按鈕，返回選擇員工的相干信息。單擊“查詢?nèi)堪粹o，體系返回全部員工的信息。在創(chuàng)立人為查詢即人為統(tǒng)計效果列表的窗

17、體時，我以為這是一個最難的窗體。不但是由于它的設(shè)置，另有就是它的代碼和數(shù)據(jù)庫相連的操縱。在這個窗體中利用了SSTab控件，在每一個標(biāo)簽上添加一個SFlexGrid控件。當(dāng)你是辦理員登錄的時間，他的權(quán)限是全部，當(dāng)你是用戶登錄的時間，窗體只表現(xiàn)登任命戶本人的相干信息。他沒有任何權(quán)限，只能看到本身的信息，這是我做這個窗體的特色。窗體的部門代碼為：Ifstrusernae=adinThen辦理員的權(quán)限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用戶的權(quán)限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這是用戶登錄所表現(xiàn)的用戶信息創(chuàng)立導(dǎo)出人為表窗體的時間，這是人為辦理的最緊張的一步。這個窗體中利用了ndDialg控件，通過設(shè)置Flags屬性，使ndDialg控件

20、的對話框中表現(xiàn)一個幫助按鈕，但是，步伐員必需在這個位置提供相干的幫助主題。對付全部的群眾對話框，當(dāng)anelErrr屬性為true，并且用戶單擊了對話框的“取消按鈕時將天生一個錯誤。可以在表現(xiàn)對話框的同時捕捉此錯誤以查驗是否按下了“取消按鈕。這個控件可以表現(xiàn)“翻開和“另存為對話框，可以在翻開對話框之前用Filter屬性指定在“文件范例列表框中表現(xiàn)的文件過濾器列表。這個窗體還引用了irsftExel9.0bjetLibrary，目的是為了把創(chuàng)立的人為表導(dǎo)入到Exel表格中。這個窗體的制作黑白常龐大的，尤其是從VB導(dǎo)入到表格中。創(chuàng)立導(dǎo)出人為表的窗體，當(dāng)單擊“保存為文本框右邊的按鈕，會提示用戶選擇保存途徑，然后單擊“導(dǎo)出，會導(dǎo)到你所要保存的文件夾里。如許就可以在你保存的途徑里看到導(dǎo)出的Exel表格了。第四章竣事語企業(yè)人為辦理體系是一個典范的信息辦理體系，其重要通過軟件工程方面的選擇課題、需求闡發(fā)、總體方案、選用東西、步伐模塊、體系測試等幾個步調(diào)來實現(xiàn)。開拓本體系的歷程中，起首要對企業(yè)人為辦理舉行體系調(diào)研，認識企業(yè)財政、人事、人為發(fā)放辦理的流程、步調(diào)；其次在體系需求闡發(fā)歷程中，要透過征象看本質(zhì)，敏銳不雅察到企業(yè)人為辦