【導(dǎo)讀】而開發(fā)的軟件，適用于各種類型和規(guī)模的企事業(yè)單位。針對我國大多數(shù)工業(yè)企。合，可以根據(jù)企業(yè)具體工資計(jì)算方法任意選擇搭配。解決了長期困擾企業(yè)工資。企業(yè)工資系統(tǒng)的實(shí)施可以減輕工資管理的工作量，避免工資管理的。重復(fù)和失誤，提高工資管理的效率。報(bào)表，針對系統(tǒng)服務(wù)對象的具體要求，設(shè)計(jì)了本工資管理系統(tǒng)。都有信息提示以免重復(fù)操作，錯(cuò)誤操作有警告，以便用戶及時(shí)改正。用戶可以通過主菜單或總表單調(diào)用系統(tǒng)的各項(xiàng)功能。于程序的維護(hù)與擴(kuò)展。對象中，因此按鈕對象、菜單對象便是窗口的組件之一。意更改的，必須由外部向其傳遞信息，再由對象按其方法加以處理。多的“工資查詢表單”類的對象實(shí)例，這些實(shí)體都具有類中所定義的特征。②更容易處理事件。

　　

【正文】 = myf= sele gz set order to xh set filter to nd==myf go top sele bm set order to bm if =1 set filter to not xz=臨時(shí)工 and not deleted() else set filter to = endif *a=messagebox(請放入 B4 打印紙 ,1+48,加紙?zhí)崾?) *if a=1 report form a:\gz\報(bào)表 \個(gè)人工資單 preview *endif 打印按鈕 1 的 CLICK 事件為 ： mnd= myf= sele gz set order to xh set filter to nd==myf 第 29頁 go top sele bm set order to bm if =1 set filter to not xz=臨時(shí)工 and not deleted() else set filter to = endif *a=messagebox(請放入 B4 打印紙 ,1+48,加紙?zhí)崾?) *if a=1 report form a:\gz\報(bào)表 \個(gè)人工資單 preview *endif 數(shù)據(jù)導(dǎo)出按鈕的 CLICK 事件為： mnd= myf= sele gz set order to xh set filter to nd==myf go top sele bm set order to xh copy to a:\工資表 fields , 預(yù)覽按鈕 2 的 click 事件為： mnd= myf= sele gz set order to xh 第 30頁 set filter to nd==myf go top sele bm set order to xh report form a:\gz\報(bào)表 \工資表 preview 打印按鈕 2 的 CLICK 事件為： mnd= myf= sele gz set order to xh set filter to nd=.。 yf=myf go top sele bm set order to xh a=messagebox(請放入 B4 打印紙 ,1+48,加紙?zhí)崾?) if a=1 report form a:\gz\報(bào)表 \工資表 to printer endif 匯總按鈕的 CLICK 事件為： set talk off select bm sum to zwgz_gb for =干部 amp。amp。匯總干部職務(wù)工資 sum to zwgz_yg for bm .xz=員工 amp。amp。匯總工人職務(wù)工資 sum to gwjt for = 干部 .or. 第 31頁 bm .xz=員工 amp。amp。匯總職務(wù)崗位津貼 sum to gjj for =干部 .or. bm .xz=員工 amp。amp。匯總公積金 =zwgz_gb =zwgz_yg =gwjt =gjj =.t. 打印按鈕 3 的 click 事件為： a=messagebox(請放入 A4 打印紙 ,1+48,加紙?zhí)崾?) if a=1 report form d:\gz\報(bào)表 \匯總表 preview endif 結(jié)束按鈕的 CLICK 事件為： yn=messagebox(是否確定離開？ ,4+32,訊息窗口 ) if yn=6 () clear events endif 修改按鈕的 CLICK 事件為： if =修改 then begin transaction =.f. amp。amp。表可以修改 ** =保存 =還原 =.f. =.f. 第 32頁 else end transaction =.t. ** =修改 =添加 =.t. =.t. endif 添加按鈕的 CLICK 事件為： if =添加 then begin transaction append blank =.f. ** =保存 =還原 =.f. else end transaction =.t. ** tablerevert() amp。amp。取消對當(dāng)前記錄的修改 =修改 =添加 =.t. 第 33頁 endif 刪除按鈕的 CLICK 事件為： A=messagebox(是否確定要?jiǎng)h除當(dāng)前記錄？ ,4+48,刪除記錄確認(rèn)窗口) if A=6 delete next 1 del= amp。amp。記下被刪除的記錄號 endif 確 定按鈕的 CLICK 事件為 ： open database a:\gz\數(shù)據(jù)庫 \gz use gz ynd=str(,4 ) yyf=str(,2) m=1 b=ynd+年 +yyf+月的工資表已經(jīng)成功生成！ c=ynd+年 +yyf+月的工資表已經(jīng)存在！ **測試這一年、這一月的工資表是否已經(jīng)存在 scan if nd= .and. yf= m=m+1 endif endscan *** if m=10 第 34頁 a= messagebox(c+chr(13)+ 請關(guān)閉此窗口 ,0,信息窗口 ) if not a=6 release thisform amp。amp。如已經(jīng)存在，則退出 endif else **取得上一次工資的月份和年度，它是生成下一月的工資 的依據(jù) go bottom skip 10 xnd=nd xyf=yf copy all to a:\gz\數(shù)據(jù)庫 \ 。 for yf=xyf with cdx ****** sele 0 use a:\gz\數(shù)據(jù)庫 \ repl all yf with repl all nd with use close tables all open database a:\gz\數(shù)據(jù)庫 \gz use gz append from a:\gz\數(shù)據(jù)庫 \ amp。amp。生成了新的年度、月份的工資表 dele file a:\gz\數(shù)據(jù)庫 \ ***信息窗口 a= messagebox(b +chr(13)+ 確定關(guān)閉表單 ,0,信息窗口 ) if a=6 * close tables all 第 35頁 * close database release thisform endif endif close tables all close database use 導(dǎo)出數(shù)據(jù)按鈕的 CLICK 事件為： mnd= myf= sele gz set order to xh set filter to nd==myf a=messagebox(請把軟盤插入 A： 驅(qū)動(dòng)器 ,1+48,插盤提示 ) str_mnd=allt(str(mnd)) str_myf=allt(str(myf)) gzb=str_mnd+年 +str_myf+月 +工資表 if a=1 copy to a:\amp。gzb endif 導(dǎo)入數(shù)據(jù)按鈕 CLICK 事件為： mnd= myf= sele gz a=messagebox(請把軟盤插入 A： 驅(qū)動(dòng)器 ,1+48,插盤提示 ) str_mnd=allt(str(mnd)) str_myf=allt(str(myf)) gzb=str_mnd+年 +str_myf+月 +工資表 第 36頁 if a=1 append from a:\amp。gzb endif 用戶登錄的確定按鈕的 CLICK 事件為： n=n+1 IF upper(allt())=upper(allt()) DO a:\gz\菜單 \ ELSE if n=3 =messagebox(你不是合法用戶！你不能使用??！ ,64,提示窗口 ) Clea event QUIT else =messagebox(口令不正確！請重新輸入！ ,64,提示窗口) =39。39。 () endif ENDIF Timer1 的 timer 事件為： if 140 =+10 =+20 endif If 160 =0 第 37頁 Else = +16 EndIf If 272 = = 5 Else = 5 EndIf 謝謝朋友對我文章的賞識，充值后就可以下載說明書，我這里還有一個(gè)壓縮包，里面有相應(yīng)的 word 說明書和程序及程序源代碼。 下載后請留上你的郵箱號或 號或給我的 留言：1459919609。 我可以將壓縮包送給你。歡迎朋友下次光臨?。?！