【導(dǎo)讀】近年來，隨著我國信息技術(shù)的飛速發(fā)展，計算機應(yīng)用已逐漸滲透到各個領(lǐng)域。在一起，計算機的應(yīng)用進一步完善了企業(yè)的管理，提高了企業(yè)的現(xiàn)代化管理形象。要的一部分，該系統(tǒng)通過對財務(wù)信息進行數(shù)字化管理，加快信息處理速度，提高管理效率，錄入、查找和生成報表等功能。

　　

【正文】 用程序開始運行并實現(xiàn)與數(shù)據(jù)庫的連接。 2 程序設(shè)計時與數(shù)據(jù)庫連接 在程序設(shè)計中可以使用“ Database Profile”對話框完成配置和連接。如果已經(jīng)定義了所需數(shù)據(jù)庫的配置，那么就可以通過單擊選中該配置，然后單擊“ Connect”按鈕，將系統(tǒng)連接到相應(yīng)的數(shù)據(jù)庫上。如果沒有定義數(shù)據(jù)庫配置，需要創(chuàng)建新的數(shù)據(jù)庫配置。 首先 選擇 Tool 菜單中的 Database Profile 子菜單，或者單擊 圖標(biāo)，出現(xiàn)“ Database Profile”對話框。在其中選擇要配置的數(shù)據(jù)庫使用的數(shù)據(jù)庫接口，“ ODB ODBC”節(jié)點。然后，單擊“ New”按鈕，打開“ Database Profile SetupODBC”對話框，并設(shè)置所要連接數(shù)據(jù)庫的配置信息。 完成設(shè)置后，單擊“ Preview”標(biāo)簽頁，在該標(biāo)簽頁中列出了數(shù)據(jù)庫剛剛配置的語句。單擊“ OK”按鈕，返回到“ Database Profile”對話框。這時“ ODB ODBC”節(jié)點下面就多了剛剛配置好的 Database Profile。選中該配置，單擊該對話框中 的“ Connect”按鈕，系統(tǒng)即通過專用接口連接到數(shù)據(jù)庫上。 當(dāng) PowerBuilder 通過 Database Profile 連接到數(shù)據(jù)庫上之后，在程序上之后，在程序設(shè)計的創(chuàng)建數(shù)據(jù)窗口對象時，可以直接顯示該用戶在數(shù)據(jù)庫中可以修改的表，通過選擇某個 (或者多個 )表可以將它們和數(shù)據(jù)窗口對象連接起來。 3 程序運行時與數(shù)據(jù)庫連接 在程序設(shè)計是和數(shù)據(jù)庫的連接 Database Profile 對話框來實現(xiàn)的，在程序運行時，則需要通過應(yīng)用程序?qū)ο髞韺崿F(xiàn)和數(shù)據(jù)庫的連接。在應(yīng)用程序?qū)ο笾袑崿F(xiàn)與數(shù)據(jù)庫連接，不在通南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 19 過“ Database Profile”對話框，而是使用 Transaction 事物對象。 一般數(shù)據(jù)庫的連接是在應(yīng)用程序開始運行是建立起來的。 開發(fā)的應(yīng)用程序的入口點是 的應(yīng)用程序?qū)ο蟆Ｃ總€ PowerBuilder 應(yīng)用程序都必須有一個、而且只能有一個應(yīng)用程序?qū)ο?，在該?yīng)用程序?qū)ο笾袑懭肱c數(shù)據(jù)庫連接的程序代碼，從而使得應(yīng)用程序一開始變實現(xiàn)與數(shù)據(jù)庫的連接。 在“ Database Profile”對話框完成設(shè)置后，單擊“ Preview”標(biāo)簽頁，在該標(biāo)簽頁中列出了配置的語 句。將連接數(shù)據(jù)庫的代碼復(fù)制到應(yīng)用程序?qū)ο笾?，即可完成代碼的編寫。 南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 20 第五章 關(guān)鍵模塊及代碼設(shè)計 應(yīng)用程序?qū)ο笤O(shè)計 開發(fā)的應(yīng)用程序的入口點是 的應(yīng)用程序?qū)ο螅\行是程序從這個入口點啟動，所以應(yīng)用程序?qū)ο蟮脑O(shè)計是應(yīng)用程序設(shè)計的開始。 應(yīng)用程序?qū)ο蟮氖录还灿?6 個，分別是 Open、 Close、 Idle、 SystemError、ConnectionBegin、 ConnectionEnd 事件。 本應(yīng)用程序?qū)ο笾兄挥玫?Open 事件，輸入如下程序代碼： // Profile Caiwu = ODBC = False = Connectstring=39。DSN=caiwu39。 connect。 //打開用戶登陸窗口 open(w_denglu) 在應(yīng)用程序?qū)ο蟮淖兞慷x窗口中定義個全局變量， 登陸界面設(shè)計 應(yīng)用程序運行后第一個出現(xiàn)的窗口就是 w_login 登陸窗口，界面如圖 所示，代碼見附錄程序 1。用戶必須通過系統(tǒng)登陸窗口才能夠進入主界面。系統(tǒng)登錄窗口主要實現(xiàn)功能 是確認(rèn)用戶姓名、編碼及密碼，并根據(jù)用戶級別主界面菜單中該用戶可以進行的操作。 圖 登陸界面圖 南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 21 主界面設(shè)計 本應(yīng)用程序的主要功能都是在主窗口 w_main 及在其下打開的眾多窗口中完成的。如圖 所示。將主窗口的 WindowType 屬性設(shè)立為 mdi 型，以便在其下以特定方式打開其他窗口。 圖 主界面圖 主界面設(shè)計中主要是菜單 m_main 的設(shè)計，該菜單結(jié)構(gòu)及代碼如下： 1） 系統(tǒng)管理： ? 重新登陸 Clicked 事件程序代碼： opensheet(w_denglu_chongxing,w_main,7,original!) ? 用戶管理 Clicked 事件程序代碼： opensheet(w_yonghu,w_main,7,original!) ? 退出 Clicked 事件程序代碼： close(w_main) 2） 參數(shù)設(shè)置： ? 科目設(shè)置 Clicked 事件程序代碼： opensheet(w_account,w_main,7,original!) ? 會計期間定義 Clicked 事件程序代碼： opensheet(w_nianfen,w_main,7,original!) ? 兌換率設(shè)置 Clicked 事件程 序代碼： opensheet(w_huobi,w_main,7,original!) 3） 應(yīng)收管理子系統(tǒng)： ? 應(yīng)收結(jié)帳單管理 Clicked 事件程序代碼： opensheet(w_rinvoice,w_main,7,original!) ? 應(yīng)收結(jié)帳單查找 Clicked 事件程序代碼： opensheet(w_rinvoice_chaxun,w_main,7,original!) ? 應(yīng)收結(jié)帳單報表 Clicked 事件程序代碼： opensheet(w_rinvoice_biao,w_main,7,original!) ? 收款單管理 Clicked 事件程序代碼： opensheet(w_shoukuandan_guanli,w_main,7,original!) ? 收款單查找 Clicked 事件程序代碼： opensheet(w_shoukuandan_chaxun,w_main,7,original!) ? 收款單報表 Clicked 事件程序代碼： opensheet(w_shoukuandan_biao,w_main,7,original!) 4） 應(yīng)付管理子系統(tǒng)： 南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 22 ? 應(yīng)付結(jié)帳單管理 Clicked 事 件程序代碼： opensheet(w_pinvoice,w_main,7,original!) ? 應(yīng)付結(jié)帳單查找 Clicked 事件程序代碼： opensheet(w_pinvoice_chaxun,w_main,7,original!) ? 應(yīng)付結(jié)帳單報表 Clicked 事件程序代碼： opensheet(w_pinvoice_biao,w_main,7,original!) ? 付款單管理 Clicked 事件程序代碼： opensheet(w_fukuandan,w_main,7,original!) ? 付款單查找 Clicked 事件程序代碼： opensheet(w_fukuandan_chaxun,w_main,7,original!) ? 付款單報表 Clicked 事件程序代碼： opensheet(w_fukuandan_biao,w_main,7,original!) 5） 資金管理子系統(tǒng)： ? 現(xiàn)金出納簿管理 Clicked 事件程序代碼： opensheet(w_localkeeping,w_main,7,original!) ? 現(xiàn)金出納簿查找 Clicked 事件程序代碼： opensheet(w_localkeeping_chaxun,w_main,7,original!) ? 現(xiàn)金出納簿報表 Clicked 事件程序代碼： opensheet(w_localkeeping_biao,w_main,7,original!) ? 銀行出納簿管理 Clicked 事件程序代碼： opensheet(w_bankkeeping,w_main,7,original!) ? 銀行出納簿查找 Clicked 事件程序代碼： opensheet(w_bankkeeping_chaxun,w_main,7,original!) ? 銀行出納簿報表 Clicked 事件程序代碼： opensheet(w_bankkeeping_biao,w_main,7,original!) 6） 總帳管理子系統(tǒng)： ? 憑證輸入 Clicked 事件程序代碼： opensheet(w_voucher,w_main,7,original!) ? 日記帳 Clicked 事件程序代碼： opensheet(w_glvoucherbyday,w_main,7,original!) ? 明細(xì)帳 Clicked 事件程序代碼： opensheet(w_glvoucherbysub,w_main,7,original!) ? 總帳 Clicked 事件程序代碼： opensheet(w_glvoucherbygl,w_main,7,original!) 7） 幫助： ? 關(guān)于幫助 Clicked 事件程序代碼： opensheet(w_bout,w_main,7,original!) 系統(tǒng)管理界面設(shè)計 系統(tǒng)模塊中主要包括用戶的“重新登錄”、“修改密碼”、“用戶管理”和“退出”。 重新登陸可以在主界面中直接修改登陸的用戶，其代碼與登陸窗口大致相 同，同樣要確認(rèn)用戶編碼和密碼；用戶修改密碼時，要提供原密碼以確認(rèn)操作是否合法；創(chuàng)建新用戶由用戶姓名、用戶編碼、用戶密碼，職位和聯(lián)系電話組成。 南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 23 參數(shù)設(shè)置界面設(shè)計 參數(shù)界面設(shè)計，主要包括了科目設(shè)置、會計期間設(shè)置和貨幣兌換率設(shè)置。分別對會計科目、會計期間和兌換率的各信息進行維護。 科目設(shè)置界面設(shè)置 該窗口，主要功能對會計科目信息進行錄入、維護。以方便在憑證錄入時的操作。在此系統(tǒng)中均采用數(shù)據(jù)窗口來進行對數(shù)據(jù)的處理方法。通過數(shù)據(jù)窗口，可以對數(shù)據(jù)庫進行操作，不但可以對每個數(shù)據(jù)庫的表 進行檢索、查詢、插入、刪除和更新，而且還可以為數(shù)據(jù)指定輸入格式、輸出格式和顯示風(fēng)格等。圖 該 數(shù)據(jù)窗口屬于為 Freedom 風(fēng)格。本系統(tǒng)中還會用到 Grid 風(fēng)格、 Group 風(fēng)格的數(shù)據(jù)窗口，將在后面的內(nèi)容中具體介紹?？颇吭O(shè)置圖如 圖所示。 圖 科目設(shè)置圖 1．當(dāng)信息管理者需要插入一條新的員工記錄時，只要通過鼠標(biāo)選擇“增加”按鈕，其程序代碼如下： (0) () (1) (()) 2． “刪除”按鈕的主要功能是用于刪除當(dāng)前顯示的那條記錄，其程序代碼如下： int s //用于存放消息框返回值 int i //用于存放 update()函數(shù)返回值 s=messagebox(,真的要刪除嗎？ ,question!,yesnocancel!,2) //提醒用戶是否真的要刪除 if s=1 then (0) //刪除當(dāng)前行 南京林業(yè)大學(xué)本科畢業(yè)設(shè)計 —— ERP 之財務(wù)管理系統(tǒng) 24 i=() //更新數(shù)據(jù)表 if i=1 then //根據(jù)更新記錄數(shù)判斷是否執(zhí)行成功 mit using sqlca。 messagebox(恭喜 :),您已刪除成功！ ) =string(integer()1) else rollback using sqlca。 messagebox(提示 ,您刪除不成功！ ) end if end if 3． “保存”按鈕用于提交和確認(rèn)對該數(shù)據(jù)庫表格中的記錄所做的修改，包括插 入和刪除，如果提交失敗，則取消修改。程序代碼如下： int t t=() if t=1 then mit using sqlca。 messagebox(,保存成功 ) =string(()) else messagebox(錯誤信息 ,操作不成功 ) rollback using sqlca。 end if 4． “退出”按鈕用于關(guān)閉該輸入窗口，其程序代碼如下： close(w_account) 5．當(dāng)信息管理者需要瀏覽科目的基本資料時，可以通過“第一頁”“上一頁”“下一頁”“最后一頁”按鈕來實現(xiàn)這樣的功能。 ? “第一頁””的程序代碼如下： (1) //將數(shù)據(jù)窗口滾動到第一行 =1 ? “上一頁””的程序代碼如下： integer row_current row_current=() =string(row_current) if row_current=1 then messagebox(警告 ,已經(jīng)是最前一條記錄 ) =1 end if ? “下一頁”的程序代碼如下： integer row_count integer row_current row_current=() =string(row_cu