【導讀】近年來，隨著我國信息技術的飛速發(fā)展，計算機應用已逐漸滲透到各個領域。業(yè)的現代化管理形象?？茖W、合理的管理模式。度，提高管理效率，從而促進企業(yè)的發(fā)展。模塊，實現了個模塊的錄入、查找和生成報表等功能。

　　

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