【正文】 系統(tǒng)簡介退出系統(tǒng)返回F OXPRO退出FOXPRO新系統(tǒng)功能結(jié)構(gòu)圖如圖8所系統(tǒng)功能設(shè)計結(jié)構(gòu)圖計算機信息系統(tǒng)流程設(shè)計計算化的信息系統(tǒng)流程如圖8所示。圖8中的處理框內(nèi)標(biāo)出了相應(yīng)的程序名，其功能說明見程序模塊設(shè)計說明書設(shè)計部分。庫文件名的含義見庫文件名規(guī)范（表7）輸出設(shè)計本系統(tǒng)的報表輸出格式設(shè)計成表5與表6的形式（表中的數(shù)據(jù)為試運行結(jié)果數(shù)據(jù)）。編 號姓 名性 別工作部門基本工資000002張一芝男教務(wù)科450工齡工資副食補貼煤糧補貼交通補貼應(yīng)發(fā)工資55806040685表5 東亞大學(xué)職工工資明細(xì)單表6 東亞大學(xué)職工扣款明細(xì)單編 號姓 名性 別工作部門應(yīng)發(fā)工資000002張一芝男教務(wù)科685住房費用水電費用托兒費用借支扣款其他扣款60203000扣款合計110實發(fā)工資575存儲文件（數(shù)據(jù)庫）結(jié)構(gòu)設(shè)計 FOR DOS 編寫，因此。（1） 設(shè)計規(guī)范庫文件名稱和庫字段變量名稱規(guī)范分別如表7所示。表7 庫文件名規(guī)范編號文件名稱標(biāo)識符備 注1職工基本情況庫文件事先建好2職工工資情況庫文件事先建好3職工扣款情況庫文件事先建好（2） 各個庫文件結(jié)構(gòu)設(shè)計 本系統(tǒng)中建立的三個數(shù)據(jù)庫（.DBF）文件結(jié)構(gòu)如表8~10所示表8 職工基本情況庫文件（）結(jié)構(gòu)Field Field Name Type Width Dec1 BH Character 62 XM Character 83 XB Character 24 NL Numeric 25 BM Character 206 HF Logical 1表9 職工工資情況庫文件（）結(jié)構(gòu)Field Field Name Type Width Dec1 BH Character 6 22 JBGZ Numeric 6 23 GLGZ Numeric 6 24 FSBT Numeric 6 25 MLBT Numeric 6 26 JTBT Numeric 6 27 YFGZ Numeric 6 2表10 職工扣款庫文件（）結(jié)構(gòu)Field Field Name Type Width Dec1 BH Character 6 22 FF Numeric 6 23 SDF Numeric 6 24 TRF Numeric 6 25 JZKK Numeric 6 26 QTKK Numeric 6 27 KKHJ Numeric 6 28 SFGZ Numeric 6 2輸入設(shè)計 本系統(tǒng)中的數(shù)據(jù)錄入卡沿用現(xiàn)行系統(tǒng)的產(chǎn)品出入庫名單格式。代碼設(shè)計 由于本學(xué)院的教職工員工在幾年內(nèi)不會超過萬人，并且在短時間內(nèi)學(xué)院內(nèi)部不會增加十個以上新部門。因此，代碼采用層次碼，并用前2位整數(shù)部門名稱，后四位表示職工證號。例如：JS0001 JS表示教學(xué)部 0001表示編號為0001的職工RS0002 RS表示人事部 0002表示編號為0002的職工FC0003 FC表示房產(chǎn)部 0003表示編號為0003的職工程序模塊設(shè)計說明主控模塊1)程序名：2)功能l 定義本系統(tǒng)的數(shù)據(jù)錄入、數(shù)據(jù)查詢等功能菜單及各項功能的下拉式菜單。l 選取功能菜單及其下拉菜單中的操作項，進(jìn)入相應(yīng)的操作。 3)實現(xiàn)l 實現(xiàn)職工情況數(shù)據(jù)的錄入。l 。l 。l 。l 。l 。4)程序、過程、自定義函數(shù)間的關(guān)系(見圖9所示)數(shù)據(jù)錄入模塊1) 2)功能:實現(xiàn)每個職工信息的數(shù)據(jù)錄入 3)實現(xiàn)l 若錄入職工基本情況數(shù)據(jù),l 若錄入職工工資情況數(shù)據(jù),l 若錄入職工扣款情況數(shù)據(jù),數(shù)據(jù)查詢模塊1) 程序名:2) 功能:實現(xiàn)對一個月以內(nèi)每個工人數(shù)據(jù)查詢顯示。3) 實現(xiàn):l 。l 。l 。l 。l 輸入要查詢職工信息的編號。l 若找到則顯示有關(guān)該職工的信息。l 若找不到則顯示沒有找到有關(guān)信息的提示數(shù)據(jù)維護(hù)模塊1)程序名:2)功能:實現(xiàn)對每個工人數(shù)據(jù)修改以及對無用數(shù)據(jù)的刪除。3)實現(xiàn):l 。l 。l 。l 。l 輸入需要修改職工信息的編號。l 若找到則顯示有關(guān)該職工的信息并對其進(jìn)行修改。l 若找不到則顯示沒有找到有關(guān)信息的提示報表打印模塊l 。l 。l 。l 。l 自動顯示并打印有關(guān)職工信息。系統(tǒng)簡介模塊退出系統(tǒng)模塊1)程序名:2)功能:實現(xiàn)退出本系統(tǒng)返回FOXPRO和退出FOXPRO。3)實現(xiàn):自動退了本系統(tǒng)或FOXPRO。系 統(tǒng) 實 施一、源程序清單：*clear allset talk offset safety offset esca offset stat offset sysm offset date ansiset colo to clear X=5 Y=0 SET PRINT TO LPT3 SET DEVICE TO PRINT DO WHILE y150 @0,6 SAY CHR(14)+39。[{@D(7)139。+STR(X,3)+；39。|39。+STR(Y,3)+39。東亞大學(xué)財務(wù)管理系統(tǒng)}]39。 * X=X+1 Y=Y+1 ENDDO SET DEVICE TO SCREEN SET PRINT TO PRNwait39。按回車鍵進(jìn)入系統(tǒng)!39。!clsdefine window mainwin from 1,1 to 24,78 39。*39。 。color scheme 11 footer 39。 東亞大學(xué)財務(wù)管理系統(tǒng) 39。acti wind mainwin@1,27 say 東亞大學(xué)財務(wù)管理系統(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 今天是星期+ 六endcase@3,0 say replicate(39。=39。,76)define menu mainmenudefine pad mpad1 of mainmenu prompt 數(shù)據(jù)錄入 at 4,2define pad mpad2 of mainmenu prompt 數(shù)據(jù)查詢 at 4,14define pad mpad3 of mainmenu prompt 數(shù)據(jù)維護(hù) at 4,26define pad mpad4 of mainmenu prompt 報表輸出 at 4,38define pad mpad5 of mainmenu prompt 系統(tǒng)簡介 at 4,50define pad mpad6 of mainmenu prompt 退出系統(tǒng) at 4,62on pad mpad1 of mainmenu activate popup mpop1on pad mpad2 of mainmenu activate popup mpop2on pad mpad3 of mainmenu activate popup mpop3on pad mpad4 of mainmenu activate popup mpop4on pad mpad5 of mainmenu activate popup mpop5on pad mpad6 of mainmenu activate popup mpop6set color to gr+/b,bg+/r+*define popup mpop1define bar 1 of mpop1 prompt 職工檔案數(shù)據(jù)錄入 define bar 2 of mpop1 prompt 職工工資數(shù)據(jù)錄入 define bar 3 of mpop1 prompt 職工扣款數(shù)據(jù)錄入 on sele popup mpop1 do prg1 with bar()define popup mpop2 define bar 1 of mpop2 prompt 按編號查詢 define bar 2 of mpop2 prompt 按姓名查詢 define bar 3 of mpop2 prompt 按工資查詢 define bar 4 of mpop2 prompt 按性別查詢 define bar 5 of mpop2 prompt 按年齡查詢 on sele popup mpop2 do prg2 with bar()define popup mpop3 define bar 1 of mpop3 prompt 數(shù)據(jù)修改 define bar 2 of mpop3 prompt 數(shù)據(jù)刪除 on sele popup mpop3 do prg3 with bar()define popup mpop4define bar 1 of mpop4 prompt 職工工資報表 define bar 2 of mpop4 prompt 職工扣款報表 on sele popup mpop4 do prg4 with bar()define popup mpop5define bar 1 of mpop5 prompt 學(xué)院簡介 define bar 2 of mpop5 prompt 系統(tǒng)簡介 on sele popup mpop5 do prg5 with bar()define popup mpop6define bar 1 of mpop6 prompt 返回FOXPRO define bar 2 of mpop6 prompt 退出FOXPRO on sele popup mpop6 do prg6 activate menu mainmenu set esca onset safe onset colo to w+/bclearclear popup