【正文】 else clear 5,5 say沒有你所要查詢的記錄! wait endif clear 9,15 say是否繼續(xù)進行查詢(Y/N)? wait to ch if (upper(ch))=N exit endif clear enddoclose databaserelease windows win1return case choice=4 select a use select b use index on bh to gzl select c use index on bh to kkl select a index on bh to zgl set relation to bh into b set relation to bh into cdo while .t. define windows win1 from 3,7 to 22,70。*39。 title 報表打印窗口 39。*39。 shadow activate windows win1 select a mnls=00 mnlx=00 5,5 say請輸入你所要查詢職工的年齡上限: get mnls 6,5 say請輸入你所要查詢職工的年齡下限: get mnlx read locate for nlmnlx if found() do while .() clear
1,1 say 基本情況: 2,0 say replicate(=,62) 3,2 say 職工編號: get bh disable 3,22 say 姓名: get xm disable 3,43 say 性別: get xb disable 4,2 say 年齡: get nl disable 4,22 say 部門: get bm disable 4,43 say 婚否: get hf disable 5,0 say replicate(=,62) 6,1 say 工資部分: 7,0 say replicate(=,62) 8,2 say 基本工資: get bjbgz disable 8,22 say 工齡工資: get bglgz disable 8,43 say 副食補貼:get bfsbt disable 9,2 say 煤糧補貼: get bmlbt disable 9,22 say 交通補貼: get bjtbt disable replacebyfgzwithjbgz+bglgz+bfsbt+bmlbt+bjtbt 10,0 say replicate(=,62) 11,1 say 扣款部分: 12,0 say replicate(=,62) 13,2 say 房費: get cff disable 13,22 say 水電費: get csdf disable 13,43 say 托兒費: get ctrf disable 14,2 say 借支扣款: get cjzkk disable 14,22 say 其他扣款: get cqtkk disable replace ckkhj with cff+csdf+cjzkk+cqtkk 14,43 say 扣款合計: get ckkhj disable replace csfgz with byfgzckkhj 15,2 say實發(fā)工資: get csfgz disable 16,0 say replicate(=,62) wait continue enddoelse clear 5,5 say沒有你所要查詢的記錄! wait endif clear 9,15 say是否繼續(xù)進行查詢(Y/N)? wait to ch if (upper(ch))=N exit endif clear enddoclose databaserelease windows win1return endcase*procedure prg3parameters choicedo case case choice=1 select a use select b use index on bh to gzl select c use index on bh to kkl select a index on bh to zgl set relation to bh into b set relation to bh into cdo while .t. define windows win1 from 3,7 to 22,70。 title 數(shù)據(jù)查詢窗口 39。 shadow activate windows win1 clear go bottom 2,5 say上一條記錄的編號是: ??bh 3,5 say請你在輸入記錄的過程中禁止使用(ESC)鍵!4,5 say輸入同部門新記錄時把編號加1,以保證編號的連續(xù)。 shadow activate windows win1 clear go bottom 2,5 say上一條記錄的編號是: ??bh3,5 say在輸入記錄過程中請你禁止使用(ESC)鍵!
4,5 say請在輸入同部門新記錄時；把編號加1,以保證記錄號的連續(xù)。 。+STR(X,3)+；39。l 。l 若找不到則顯示沒有找到有關信息的提示數(shù)據(jù)維護模塊1)程序名:2)功能:實現(xiàn)對每個工人數(shù)據(jù)修改以及對無用數(shù)據(jù)的刪除。l 。因此，代碼采用層次碼，并用前2位整數(shù)部門名稱，后四位表示職工證號。3）把基本上“靜態(tài)”的數(shù)據(jù)管理變?yōu)椤皠討B(tài)”的管理，能隨時提供有關信息。圖4 頂層DFD總務處房產(chǎn)處工資發(fā)放收費員房費水電費扣款單財務處主管部門托兒費通勤費扣款單工資發(fā)放單財務報表會計人員會計人員收費員 圖3（2）現(xiàn)行系統(tǒng)的數(shù)據(jù)基本流程如圖5房產(chǎn)總務管理財務分析匯報賬單1 2 3 4 圖5 數(shù)據(jù)基本流程對頂層數(shù)據(jù)流和基本數(shù)據(jù)流程中“1，2，3，4”說明如下：“1”：職工基本情況報單“2”：職工工資情況報單“3”：職工扣款情況報單“4”：職工工資、扣款明細報表5．數(shù)據(jù)字典數(shù)據(jù)流字典 數(shù)據(jù)流名稱：職工基本情況報單 標識符：F1數(shù)據(jù)結構： 01 職工基本情況報單 PIX（1）02 姓名且（XM） PIX（2）03 性別 （XB） PIX（3）04 出生年月 （CSNY） PIX（4）05政治面貌 （ZZMM） PIX（5）06 婚姻狀況 （HYZK） PIX（6）排列方式：按升序排列流量：平均1張/月來源：從事管理部門去向：財務管理部門數(shù)據(jù)流名稱：職工工資情況報單 標識符：F2數(shù)據(jù)結構： 01 職工工資情況報單 PIX（7）02 基本工資（JBGZ） PIX（8）03 工齡工資（GLGZ） PIX（9）04 副食補貼（FSBT） PIX（10）05 煤糧補貼（MLBT） PIX（11）06 交通補貼（JTBT） PIX（12）07 應發(fā)工資（YFGZ） PIX（13）排列方式：按升序排列流量：平均1張/月來源：財務管理部門去向：財務管理部門數(shù)據(jù)流名稱：職工扣款情況報單 標識符：F3數(shù)據(jù)結構： 01 職工扣款報單 PIX（14）02 住房費用（FS） PIX（15）03 水電費用（SDF） PIX（16）04 托兒費用（TRF） PIX（17）05 借支扣款（JZKK） PIX（18）06 其他扣款（QTKK） PIX（19）07 扣款合計（KKHJ） PIX（20）08 實發(fā)工資（SFGZ） PIX（21）排列方式：按升序方式排列流量：平均1張/月來源：房產(chǎn)處、總務處去向：財務管理部門6．處理描述處理名稱：職工基本情況處理 標識符：P1輸入：數(shù)據(jù)流F1輸出：數(shù)據(jù)流4處理定義：當一張職工基本情況數(shù)據(jù)報單，由從事管理部門傳到財務部門后，經(jīng)核對無誤后，將這張數(shù)據(jù)表中的情況錄入相應的處理模塊。若有職工調(diào)離學校，則要調(diào)出售貨員的姓名、所在單位和終止發(fā)放本人工資的月份。學校現(xiàn)有各類再校生5700名，其中全日制學生3200名，專兼職教師220名，其中副教授以上職稱的64名?？倓仗帉⑼袃嘿M扣款和通勤職工的交通補貼費清單也一并及時報送財務處。每名職工全年工資信息占據(jù)臺賬的一頁。7．現(xiàn)行系統(tǒng)評價：通過對現(xiàn)行系統(tǒng)的需求分析，本系統(tǒng)數(shù)據(jù)流向合理、系統(tǒng)功能較全，能夠基本滿足管理工作的需要。庫文件名的含義見庫文件名規(guī)范（表7）輸出設計本系統(tǒng)的報表輸出格式設計成表5與表6的形式（表中的數(shù)據(jù)為試運行結果數(shù)據(jù)）。 3)實現(xiàn)l 實現(xiàn)職工情況數(shù)據(jù)的錄入。l 。l 。l 自動顯示并打印有關職工信息。東亞大學財務管理系統(tǒng)}]39。acti wind mainwin1,27 say 東亞大學財務管理系統(tǒng)2,2 say今天是:2,9 say year(date())2,14 say 年2,16 say month(date())2,19 say 月2,21 say day(date())2,24 say 日do case case dow(date())=1 2,55 say 今天是星期+日 case dow(date())=2 2,55 say 今天是星期+ 一 case dow(date())=3 2,55 say 今天是星期+ 二 case dow(date())=4 2,55 say 今天是星期+ 三 case dow(date())=5 2,55 say 今天是星期+ 四 case dow(date())=6 2,55 say 今天是星期+ 五 case dow(date())=7 2,55 say 今天是星期+ 六endcase3,0 say replicate(39。*39。*39。 title 數(shù)據(jù)查詢窗口 39。 shadow activate windows win1 select a mbh= 5,5 say請輸入你所要修改記錄的編號: get mbh read locate for bh=mbh if found() 1,1 say 基本情況: 2,0 say replicate(=,62) 3,2 say 職工編號: get bh 3,22 say 姓名: get xm 3,43 say 性別: get xb 4,2 say 年齡: get nl 4,22 say 部門: get bm 4