【導讀】成，產(chǎn)業(yè)結構在全球范圍內不斷調整和升級，世界企業(yè)之間的競爭更趨激烈。理變革，才能保證企業(yè)長期穩(wěn)定發(fā)展，在競爭中時刻保持自己的優(yōu)勢。因此根據(jù)企業(yè)目前實際的進銷存管理情況開發(fā)一套進銷存財務管理系統(tǒng)。準確務實的財務分析。本系統(tǒng)作為超市管理系統(tǒng)的一個子系統(tǒng)，實現(xiàn)的主要是財務管理方面的功能。預警、超期應付款預警。系統(tǒng)管理與維護：初期建賬、密碼修改、權限設置、數(shù)據(jù)備份。塊化、自頂向下地對系統(tǒng)進行分析和設計。時地總結，發(fā)現(xiàn)問題及時地反饋和糾正。這種方法避免了開發(fā)過程的混亂狀態(tài)，是一。使之逐步完善，直至用戶滿意為止。引進工業(yè)生產(chǎn)中在設計階段和生產(chǎn)階段中的。據(jù)處理都由人工操作。報表不詳?shù)那闆r，難以達到統(tǒng)計數(shù)據(jù)的及時性、準確性、相關性要求。確定目標，提出問題，制定方案和項目評估，從而為決策提供科學依據(jù)?？蛻?服務器、分布式和因特網(wǎng)應用系統(tǒng)等。

　　

【正文】 主程序 用戶權限 菜單 工具欄 執(zhí)行子程序 執(zhí)行子程序 37 設計思路 (1)打開 Powerbuider 應用程序，單擊工具欄上的 [new]按鈕，打開 New 窗口，在[PB Object]選項卡中選擇“ Window”圖標，單擊 [OK]按鈕，進入窗體設計畫板。 (2)通過在窗口的 WindowType 屬性設置窗口的類型為“ mdi”，在窗體的MenuName 屬性中設 置其關聯(lián)的菜單項為“ m_menu”。 (3)在窗體上放置一個圖片控件“ p_1”。 系統(tǒng)登錄窗口設計 這一部分可劃分為兩個小模塊：用戶登錄模塊和密碼修改模塊。 1) 用戶登錄模塊 該模塊的運行結果如下 具體實現(xiàn)步驟為： 選擇操作員，憑口令進入系統(tǒng)，若口令錯誤三次，將退出應用程序。系統(tǒng)登錄窗口的運行結果如圖 4所示。 開發(fā)流程 38 圖 4系統(tǒng)登錄窗口開發(fā)流程圖 設計思路 (1)在窗口上添加一個圖形控件，一個 下拉列表框、五個靜態(tài)文本框和一個單行編輯框。 (2)使用下拉列表框選擇操作員姓名，在窗體打開時將數(shù)據(jù)庫中的操作員姓名全部添加到下拉列表框中。 (3)采用單行編輯框輸入密碼，密碼如果輸入正確，即可進入系統(tǒng)，否則，將提示錯誤，并返回密碼輸入框。如果輸入的密碼錯誤三次，將退出系統(tǒng)。 ? 在 w_login 的 open 事件中寫入如下代碼： string yh1,yh2,yhbh2,yhjb2,pwd2 yh2=張敏 yhbh2=YH100001 yhjb2=1 pwd2=100001 select yh_name into :yh1 from 操作員表 。 if yh1= then insert into 操作員表 values(:yhbh2,:yh2,:pwd2,:yhjb2)。 end if string yh100 declare cursor1 cursor for select distinct yh_name from 操作員表 。 open cursor1。 fetch cursor1 into :yh100。 do while =0 (yh100) fetch cursor1 into :yh100。 loop close cursor1。 用戶 選擇用戶 輸入用戶密碼 判斷密碼是否正確 進入主程序界面 提示密碼錯誤 錯誤超過 3 次 退出系統(tǒng) 39 () 首先判斷“操作員表”中是否有數(shù)據(jù)，如果沒有則添加一個默認的操作員信息，并將“操作員表”中的“操作員姓名”添加到下拉列表框中。 ? 窗口 w_login 的“確定”按鈕的 Clicked 事件： string yyhbh,yyhxm,yyhmm,yhxm,yhmm,xyhmm,czyyvar select yh_id into :yyhbh from 操作員表 。 if yyhbh= then open(w_main) else yyhxm=trim() if yyhxm= then messagebox(提示 ,請選擇用戶 !) else select password into :yhmm from 操作員表 where yh_name=:yyhxm。 xyhmm=trim(yhmm) yyhmm=trim() if yyhmm= then messagebox(提示 ,請輸入密碼 !) else if yyhmm=xyhmm then czyyvar=trim(yyhxm) open(w_main) close(w_login) else () (1,len()) i=i+1 if i3 then messagebox(提示 ,密碼不正確 !) return else messagebox(提示 ,對不起，最大的限定次數(shù)已經(jīng)達到 3 次！ ~n您將退出該登錄窗口！ ) close(w_login) end if end if end if end if end if ? 窗口 w_login 的“退出”按鈕的 clicked 事件： Close(parent) ? 窗口 w_login 的“密碼 修改”按鈕的 clicked 事件： Open(w_change_psd) 40 用于打開“密碼修改”窗體。 2）密碼修改模塊 該模塊的運行結果如下： 設計思路： 在窗口中放置 4 個靜態(tài)文本框 Static Text 控件， 4 個單行編輯框 Single line Edit控件，供用戶輸入登錄的用戶編號（ sle_1）、原密碼、新密碼以及確認新密碼。另外還放置 3 個按鈕控件。 在 w_change_psd 窗口的 Open 事件中輸入如下的程序代碼 ： 按鈕控件 cb_1 的 Click 事件，用于修改用戶的口令，首先判斷兩次輸入的新 密碼是否一致，再判斷輸入的原密碼是否正確，然后進行口令修改，程序代碼如下： string pwd,id int inputtime=0 inputtime =inputtime+1 () //判斷兩次輸入的新口令是否一致 if then if inputtime 3 then messagebox(警告 ,輸入的次數(shù)太多！ ) close(parent) else messagebox(警告 ,兩次 輸入的口令不一致，請重新輸入 ) end if end if select password into :pwd from 操作員表 where yh_id =:。 if 0 then return end if 41 //判斷輸入的原口令是否正確 if pwd then if inputtime3 then messagebox(警告 ,輸入的次數(shù)太多！ ) close(parent) else messagebox(警告 ,輸入的原口令不正確，請重新輸入 ) end if else //修改數(shù)據(jù)庫中的該用戶的口令 update 操作員表 SET password =: where yh_id =:。 MESSAGEBOX(注意 ,你的口令已經(jīng)修改，請牢記 ) //提交修改，關閉口令修改窗口 COMMIT。 CLOSE(parent) END IF 按鈕控件 cb_2 的 Click 事件用于取消輸入，其程序代碼如下 ： = = = = 按鈕控件 cb_3 的 Click 事件用于打開登錄窗口，其程序代碼如下： close(w_change_psd) open(w_login) 3．代碼設計 代碼是數(shù)據(jù)庫管理系統(tǒng)開發(fā)的前提條件，是系統(tǒng)不可缺少的重要內容。本系統(tǒng)內部信息編碼采用了統(tǒng)一的編碼方式：前幾位字母表示信息分類，由各類信息的漢語拼音字母縮寫組成，后 6 位為具體信息編碼，從 100001 開始，順序遞增的方式編碼。如供應商基本信息 編碼為 gys100001，入庫號為 rkd100001。 4．輸入輸出設計 1)輸入設計 本系統(tǒng)輸入接口滿足如下要求： ? 與人工有關的設備： 鍵盤：標準鍵盤，具有 Windows 98 功能鍵。 鼠標：兩鍵、三鍵鼠標小口。 漢字輸入法：五筆輸入法、拼音輸入法等。 ? 錄入軟件界面 本系統(tǒng)所有輸入均支持鼠標和鍵盤兩種輸入方式。 2)輸出設計 本系統(tǒng)輸出方式采用屏幕顯示和打印機輸出兩種方式。 處理過程設計 對系統(tǒng)結構圖中的每一個功能模塊，用各種符號具體地規(guī)定處理過程內的各個步驟，并設計出所 有模塊和它們之間的相互關系（即聯(lián)結方式）為程序員提供詳細的技術 42 資料，就是處理過程設計。 模 塊功能與處理過程設計是系統(tǒng)設計的最后一步 ,也是最詳細地涉及到具體業(yè)務處理過程的一步。它是下一步編程實現(xiàn)系統(tǒng)的基礎 。 經(jīng)過詳細的分析，得出超市的財務管理系統(tǒng)的控制結構圖為： 系統(tǒng)主要模塊實現(xiàn)過程簡介 基礎信息管理模塊： 以客戶基礎信息管理模塊為例： 開發(fā)流程： 財務管理系統(tǒng) 輸入 處理 輸出 讀數(shù)據(jù) 讀賬目 付款單 各種賬目 付款單 各種賬目 報表管理 應收款管理 收款 開收據(jù) 生成收款明細 應付款管理 收據(jù) 報表 收據(jù) 報表 報表 收據(jù) 應收金額 收據(jù) 付款 43 客戶信息窗體界面設計如下： 添加代碼： 為 w_khxx 窗體的 open()事件添加如下代碼： 雙擊“上一條”按鈕，為 cilck()事件添加如下代碼： long currow 按功能分類 添加供應商信息 修改供應商信息 瀏覽供應商信息 錄入過程 修改過程 定位記錄 保存 /退出 保存過程 退出 44 if ()0 then currow=() if currow=1 then messagebox(提示 ,已經(jīng)是第一條記錄 !) else () //向上移動一條記錄 end if end if 雙擊“下一條”按鈕，為 cilck()事件添加如下代碼： long currow if ()0 then currow=() if currow=() then messagebox(提示 ,已經(jīng)是最后一條記錄 !) else () //向下移動一條記錄 end if end if 雙擊“添加” 按鈕，為 cilck()事件 添加如下代碼： ((()+1)) 雙擊“更新”按鈕，為 cilck()事件添加如下代碼： long que que=messagebox(提示 ,確實要保存所添加的客戶信息嗎 ,question!,okcancel!,2) if que=1 then (sqlca) () messagebox(提示 ,更新成功 !) () else (sqlca) () return 1 end if 往來管理模塊： ? 供應商往來結款管理 開發(fā)流程： 45 供應商往來結款窗體界面設計如下： 初始化 查詢 SQL 往來信息 查詢統(tǒng)計結果 統(tǒng)計匯總內容 結款 更新往來明細表 46 實現(xiàn)過程： 從下拉列表框中選擇供應商全稱，單擊查詢按鈕后輸出供應商往來賬款， 如圖所示： 單擊結款按鈕，即可實現(xiàn)與 供應商的往來結款。當結款金額超出應付金額時，系統(tǒng)會提醒重新輸入金額。 主要代碼設計如下： w_gyswljk 窗體的“查詢”按鈕的 click()事件： string nr,sql,gysqc,ph long sl decimal hjje,qkjz,fkhj,ljye datetime sj nr=trim() (sqlca) //連接事務對象 sql=select ph,sl,jexj,qkjz,fkhj,ljye,shijian,gys_name from 供應商明細表 where gys_name=39。+nr+39。 (sql) //檢索數(shù)據(jù) () datetime drksj,dthsj decimal drkljye,dthljye select max(shijian) into :drksj from 供應商明細表 where ph like 39。%rkd%39。 and gys_name=:nr。 select max(shijian) into :dthsj from 供應商明細表 where gys_name=:nr and ph like 39。%rkth%39。 select ljye into :drkljye from 供應商明細表 where gys_name=:nr and ph like 39。%rkd%39。 and shijian=:drksj。 47 select ljye into :dthljye from 供應商明細表 where gys_name=:nr and ph like 39。%rkth