【導(dǎo)讀】隨著生產(chǎn)的發(fā)展和生產(chǎn)規(guī)模的日益社會化，會計在不斷地發(fā)展變化。與此同時，隨著經(jīng)濟管理工。計算機用于數(shù)據(jù)處理，徹底改變了工作的面貌。印有關(guān)帳簿和報表。提高了會計信息的準(zhǔn)確性和及時性，隨著現(xiàn)代社會企業(yè)的經(jīng)濟。管理越來越復(fù)雜，競爭也越來越激烈，這種現(xiàn)象不但使會計所要處理的數(shù)據(jù)量增大，手工處理的局限性，為日常管理提供更加詳細(xì)、更加準(zhǔn)確、更加及時的信息。度和深度上擴展了會計數(shù)據(jù)的領(lǐng)域，隨時得到最新的情況。減輕了財務(wù)人員的工作。的模式也隨之相應(yīng)的發(fā)生改變。單位來說是很重要的。建立現(xiàn)代化的財務(wù)管理系統(tǒng)，計算機是本系統(tǒng)的基礎(chǔ)，也是實現(xiàn)現(xiàn)代化的重要保證。范化、自動化，從而達到提高企業(yè)管理效率目的，決定建立一個“財務(wù)管理系統(tǒng)”，以取代人工管理。又便于未參與開發(fā)的技術(shù)維護人員進行補充、維護。善，使這套財務(wù)管理系統(tǒng)能更好地運行。對于規(guī)模不是很大、經(jīng)費有限的單位在經(jīng)濟上是可

　　

【正文】 E PAD _1ee14ys5a OF () PROMPT 打印 COLOR SCHEME 3 DEFINE PAD _1ee14ys5b OF () PROMPT 查詢 175。 COLOR SCHEME 3 DEFINE PAD _1ee14ys5c OF () PROMPT 信息 COLOR SCHEME 3 DEFINE PAD _1ee14ys5d OF () PROMPT 其它 COLOR SCHEME 3 ON PAD _1ee14ys59 OF () ACTIVATE POPUP (a_menupops[1]) ON PAD _1ee14ys5a OF () ACTIVATE POPUP (a_menupops[2]) ON PAD _1ee14ys5b OF () ACTIVATE POPUP (a_menupops[3]) ON PAD _1ee14ys5c OF () ACTIVATE POPUP (a_menupops[4]) ON PAD _1ee14ys5d OF () ACTIVATE POPUP (a_menupops[5]) DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[1]) PROMPT 打開 DEFINE BAR 2 OF (a_menupops[1]) PROMPT 商品進貨記錄 DEFINE BAR 3 OF (a_menupops[1]) PROMPT 填寫憑證 ON SELECTION BAR 1 OF (a_menupops[1]) 。 DO _1ee14ys5e 。 IN LOCFILE(E:\財務(wù)管理系統(tǒng) \主菜單 ,MPX。MPR|FXP。PRG ,WHERE is 主菜單 ?) ON SELECTION BAR 2 OF (a_menupops[1]) do form 商品進貨記錄 34 ON SELECTION BAR 3 OF (a_menupops[1]) do form 177。報帳憑證 DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[2]) PROMPT 打印年終報表 ON SELECTION BAR 1 OF (a_menupops[2]) do form 打印年終報表 DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[3]) PROMPT 按商品名稱查詢 DEFINE BAR 2 OF (a_menupops[3]) PROMPT 按驗收員查詢 DEFINE BAR 3 OF (a_menupops[3]) PROMPT 商品銷售記錄 ON SELECTION BAR 1 OF (a_menupops[3]) do form 按名稱查詢 ON SELECTION BAR 2 OF (a_menupops[3]) do form 按驗收員查詢 ON SELECTION BAR 3 OF (a_menupops[3]) do form 產(chǎn)品銷售記錄 DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[4]) PROMPT 信息 ON SELECTION BAR 1 OF (a_menupops[4]) do form 信息 DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[5]) PROMPT 關(guān)于 DEFINE BAR 2 OF (a_menupops[5]) PROMPT \ DEFINE BAR 3 OF (a_menupops[5]) PROMPT 退出 ON SELECTION BAR 1 OF (a_menupops[5]) do form 幫助 ON SELECTION BAR 3 OF (a_menupops[5]) 。 DO _1ee14ys5p 。 IN LOCFILE(E:\財務(wù)管理系統(tǒng) \主菜單 ,MPX。MPR|FXP。PRG ,WHERE is 主菜單 ?) ACTIVATE MENU () NOWAIT IF = C = = ENDIF * ********************************************************* * * _1EE14YS5E ON SELECTION BAR 1 OF POPUP 記錄 * * Procedure Origin: * * From Menu: 主菜單 .MPR, Record: 5 * * Called By: ON SELECTION BAR 1 OF POPUP 記錄 * * Prompt: 打開 * * Snippet: 1 * ********************************************************* 35 *PROCEDURE _1ee14ys5e =getfile() * ********************************************************* * * _1EE14YS5P ON SELECTION BAR 3 OF POPUP 其它 * * Procedure Origin: * * From Menu: 主菜單 .MPR, Record: 24 * * Called By: ON SELECTION BAR 3 OF POPUP 其它 * * Prompt: 退出 * * Snippet: 2 * ********************************************************* *PROCEDURE _1ee14ys5p clear event clear all close all read events quit set sysmenu to default * ********************************************************* SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD _0kt0z899x OF _MSYSMENU PROMPT 記錄 COLOR SCHEME 3 DEFINE PAD _0kt0z899y OF _MSYSMENU PROMPT 180。打印 COLOR SCHEME 3 DEFINE PAD _0kt0z899z OF _MSYSMENU PROMPT 查詢 175。 COLOR SCHEME 3 DEFINE PAD _0kt0z89a0 OF _MSYSMENU PROMPT 更改密碼 COLOR SCHEME 3 DEFINE PAD _0kt0z89a1 OF _MSYSMENU PROMPT 其他 COLOR SCHEME 3 ON PAD _0kt0z899x OF _MSYSMENU ACTIVATE POPUP 記錄 ON PAD _0kt0z899y OF _MSYSMENU ACTIVATE POPUP 打印 ON PAD _0kt0z899z OF _MSYSMENU ACTIVATE POPUP 查詢 ON PAD _0kt0z89a1 OF _MSYSMENU ACTIVATE POPUP 其他 DEFINE POPUP 記錄 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 記錄 PROMPT 180。打開 DEFINE BAR 2 OF 記錄 PROMPT 商品進貨記錄 DEFINE BAR 3 OF 記錄 PROMPT 填寫憑證 ON SELECTION BAR 1 OF 記錄 。 36 DO _0kt0z89a2 。 IN LOCFILE(E:\財務(wù)管理系統(tǒng) \主菜單 ,MPX。MPR|FXP。PRG ,WHERE is 主菜單 ) ON SELECTION BAR 2 OF 記錄 do form 商品進貨記錄 ON SELECTION BAR 3 OF 記錄 do form 177。168。報帳憑證 DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 打印 PROMPT 打印年終報表 237。 ON SELECTION BAR 1 OF 打印 do form 打印年終報表 DEFINE POPUP 查詢 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 查詢 PROMPT 按商品名稱查詢 DEFINE BAR 2 OF 查詢 PROMPT 按日期查詢 DEFINE BAR 3 OF 178。查詢 PROMPT 商品銷售記錄 ON SELECTION BAR 1 OF 查詢 do form 按名稱查詢 ON SELECTION BAR 2 OF 查詢 do form 按日期查詢 ON SELECTION BAR 3 OF 查詢 do form 產(chǎn)品銷售記錄 DEFINE POPUP 其它 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 其它 PROMPT 185。關(guān)于 DEFINE BAR 2 OF 其它 PROMPT \ DEFINE BAR 3 OF 其它 PROMPT 退出 ON SELECTION BAR 3 OF 其它 。 DO _0kt0z89a4 。 IN LOCFILE(E:\財務(wù)管理系統(tǒng) \主菜單 ,MPX。MPR|FXP。PRG ,WHERE is 主菜單 ) * ********************************************************* * * _0KT0Z89A2 ON SELECTION BAR 1 OF POPUP 記錄 * * Procedure Origin: * * From Menu: 主菜單 .PRG, Record: 5 * * Called By: ON SELECTION BAR 1 OF POPUP 記錄 * * Prompt: 打開 * * Snippet: 1 * ********************************************************* PROCEDURE _0kt0z89a2 =getfile() * ********************************************************* * * _0KT0Z89A4 ON SELECTION BAR 3 OF POPUP 其它 * * Procedure Origin: * * From Menu: 主菜單 .PRG, Record: 24 37 * * Called By: ON SELECTION B