1、會計信息化庫存管理存貨核算系統(tǒng)實驗指導書會計學院會計信息化系2005年8月 PAGE 99目 錄 TOC o 1-3 h z HYPERLINK l _Toc119150466 實驗一 存貨子系統(tǒng)業(yè)務流程分析 PAGEREF _Toc119150466 h 1 HYPERLINK l _Toc119150467 實驗二 存貨子系統(tǒng)數(shù)據(jù)處理流程分析 PAGEREF _Toc119150467 h 1 HYPERLINK l _Toc119150468 實驗三 存貨子系統(tǒng)功能分析 PAGEREF _Toc119150468 h 2 HYPERLINK l _Toc119150469 實驗四 存貨子

2、系統(tǒng)數(shù)據(jù)字典及數(shù)據(jù)庫設(shè)計 PAGEREF _Toc119150469 h 2 HYPERLINK l _Toc119150470 實驗五 建立存貨子系統(tǒng)數(shù)據(jù)庫 PAGEREF _Toc119150470 h 3 HYPERLINK l _Toc119150471 實驗六 存貨子系統(tǒng)基本窗口設(shè)計 PAGEREF _Toc119150471 h 4 HYPERLINK l _Toc119150472 實驗七 存貨子系統(tǒng)軟件編程碼表處理 PAGEREF _Toc119150472 h 44 HYPERLINK l _Toc119150473 實驗八 存貨子系統(tǒng)軟件編程單表處理 PAGEREF _To

3、c119150473 h 47 HYPERLINK l _Toc119150474 實驗九 存貨子系統(tǒng)軟件編程導入導出處理 PAGEREF _Toc119150474 h 53實驗一 庫存管理存貨核算系統(tǒng)業(yè)務流程分析實驗目的：分析庫存管理存貨核算系統(tǒng)的業(yè)務流程，畫出存貨子系統(tǒng)業(yè)務流程圖。實驗環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實驗方式：分組進行。上機機時： 2機時實驗內(nèi)容：1、庫存管理存貨核算系統(tǒng)業(yè)務流程描述。為了深入了解存貨核算與管理的特點，我們首先分析手工條件下存貨核算與管理的業(yè)務處理流程，掌握存貨出庫、入庫、期末結(jié)賬、對賬以及管理分析的過程。存貨包括原材料、

4、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。在手工條件下，當存貨到達企業(yè)并辦理入庫手續(xù)后，除了倉庫保管員要登記存貨數(shù)量賬外，財會部門也要根據(jù)各種憑單（如入庫單、驗收報告等）登記存貨明細賬，反映存貨增加等經(jīng)濟業(yè)務；當各個部門領(lǐng)用存貨時（如生產(chǎn)車間領(lǐng)用材料用于生產(chǎn)、銷售部門領(lǐng)用產(chǎn)品用于銷售），倉庫保管員又要登記存貨數(shù)量賬，財會部門又要根據(jù)各種憑單（如入庫單等）登記存貨明細賬，反映存貨減少等經(jīng)濟業(yè)務；定期編制記賬憑證傳遞到總賬子系統(tǒng)，登記總賬。此外，還要及時為管理提供各種存貨報告，如存貨狀態(tài)報告、ABC存貨成本分析報告、超儲積壓存貨分析報告等。下面我們對入庫流程、出庫流程以及期末結(jié)賬和管理分析流程進行

5、分析。（1）存貨核算與管理入庫流程分析當采購部門或者供應商將存貨送入倉庫，生產(chǎn)部門或者物流部門將生產(chǎn)的產(chǎn)成品送入倉庫，入庫業(yè)務便開始進行了。倉庫保管員依據(jù)采購訂單和計劃入庫安排，檢查供應商送貨及時性，根據(jù)事先設(shè)定的送貨接收標準，判定是否收貨。如果可以收貨，倉庫保管員編制收貨憑證，并將收貨憑證和質(zhì)檢抽樣存貨移入質(zhì)檢部門，進行抽樣檢驗。如果質(zhì)檢合格，將質(zhì)檢合格存貨退返倉庫，進行庫存移庫操作，并編制驗收報告。將驗收報告?zhèn)鬟f給倉庫和財務部門。倉庫保管員根據(jù)驗收報告和收貨憑證編制入庫單。登記相應存貨的入庫數(shù)量和結(jié)存數(shù)量，即存貨三級賬，并將相應的單據(jù)傳遞到財務部門。財務賁門根據(jù)入庫單、驗收報告編制記賬憑證

6、。存貨核算會計審核憑證，登記存貨明系賬，并將憑證傳遞到總賬子系統(tǒng)?？傎~會計定期根據(jù)記賬憑證登記總賬。（2）存貨核算與管理出庫、期末處理與管理的分析流程當生產(chǎn)部門提出領(lǐng)料申請、銷售部門提出發(fā)運產(chǎn)品時，出庫業(yè)務便開始進行；到會計期末進行相應的處理，并提交各種管理分析報告。倉庫保管員接到各車間、用料單位提出的領(lǐng)料申請，或者銷售部門提出的發(fā)運請求，經(jīng)審核單據(jù)后，編制出庫單，并發(fā)出存貨。倉庫保管員登記相應存貨出庫數(shù)量和結(jié)存數(shù)據(jù)，即存貨三級賬，并將相應的單據(jù)傳遞到財會部門。財會部門會計人員根據(jù)出庫單等單據(jù)編制記賬憑證，登記存貨明細賬，并將憑證傳遞到總賬子系統(tǒng)。由于存貨種類繁多、數(shù)量大、收發(fā)業(yè)務頻繁，存貨成

7、本計算比較復雜，為了滿足不同企業(yè)對核算的需要，存貨可以按計劃成本計價，也可按實際成本計價。按實際成本計價時，存貨成本可以按照加權(quán)平均、移動加權(quán)平均、先進先出、后進先出和個別計價等方法進行計算。期末處理。財務部門期末對存貨進行實地盤點，編制盤盈盤虧表，經(jīng)審批后通知倉庫、財會部門修改相應的存貨一級、二級以及三級賬。由于存貨數(shù)量賬（三級賬）、存貨明細賬（二級賬）、總賬（一級賬）是由不同的人員編制的，因此，會出現(xiàn)賬賬不一致的問題。因此，期末還需要進行三級賬的核對工作，很多企業(yè)要花費一定的人力物力每月必須進行對賬。財務部門根據(jù)不同的計價方法和成本計算方法，分別計算存貨成本差異、發(fā)出存貨成本，并進行結(jié)賬工

8、作。存貨分析。財務管理人員需要根據(jù)入庫單、出庫單、存貨數(shù)量賬等編制包括超儲積壓一覽表、ABC成本分析表、倉庫存貨匯總表等內(nèi)容的管理分析報告，并提出存貨管理的改進意見和評價信息。2、通過分析存貨子系統(tǒng)的業(yè)務流程，利用Visio軟件畫出存貨子系統(tǒng)的業(yè)務流程圖。業(yè)務流程圖如圖1所示：圖1 存貨子系統(tǒng)業(yè)務流程圖實驗二 存貨子系統(tǒng)數(shù)據(jù)處理流程分析實驗目的：通過存貨子系統(tǒng)的業(yè)務流程圖，進一步分析優(yōu)化存貨子系統(tǒng)的數(shù)據(jù)處理流程，畫出存貨子系統(tǒng)的數(shù)據(jù)處理流程圖。實驗環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實驗方式：分組進行。實驗內(nèi)容：1、通過分析存貨子系統(tǒng)的業(yè)務流程圖，利用Visio軟

9、件畫出存貨子系統(tǒng)的數(shù)據(jù)處理流程圖。根據(jù)前面對存貨子系統(tǒng)業(yè)務流程圖的分析，運用系統(tǒng)分析法，可以繪出存貨子系統(tǒng)的數(shù)據(jù)流程圖。依據(jù)模塊結(jié)構(gòu)設(shè)計的原則，通過對存貨子系統(tǒng)的數(shù)據(jù)流程圖進行模塊劃分，存貨子系統(tǒng)可以劃分為入庫管理、出庫管理、存管理、損管理和調(diào)撥管理等功能模塊。數(shù)據(jù)流程圖如圖2所示：圖2 存貨子系統(tǒng)數(shù)據(jù)流程圖實驗三 存貨子系統(tǒng)功能分析實驗目的：通過分析 存貨子系統(tǒng)的業(yè)務流程與數(shù)據(jù)處理流程圖，進一步分析存貨子系統(tǒng)的功能。實驗環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實驗方式：分組進行。實驗內(nèi)容：1、通過分析存貨子系統(tǒng)的業(yè)務流程與數(shù)據(jù)處理流程圖，畫出存貨子系統(tǒng)的功能圖。根據(jù)

10、業(yè)務流程圖和數(shù)據(jù)流程圖，存貨子系統(tǒng)基本可以劃分為入庫管理、出庫管理、盤點管理、報損管理、調(diào)撥管理等五個功能模塊。每個功能模塊又可以繼續(xù)劃分為若干個功能模塊，直到每個功能模塊都能夠表示相當獨立的功能為止。我們的存貨子系統(tǒng)側(cè)重于核算模塊的設(shè)計。主要的功能結(jié)構(gòu)有入庫管理、出庫管理、盤點管理模塊。功能結(jié)構(gòu)圖如圖3所示：圖3 存貨子系統(tǒng)功能結(jié)構(gòu)圖實驗四 存貨子系統(tǒng)數(shù)據(jù)字典及數(shù)據(jù)庫設(shè)計實驗目的：通過分析存貨子系統(tǒng)的數(shù)據(jù)流程圖，進一步寫出存貨子系統(tǒng)的數(shù)據(jù)字典。利用PowerDesigner軟件，建立存貨子系統(tǒng)的PDM。實驗環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件、PowerDesign

11、er軟件等。實驗方式：分組進行。實驗內(nèi)容：通過分析存貨子系統(tǒng)的數(shù)據(jù)流程圖，寫出存貨子系統(tǒng)的數(shù)據(jù)字典。數(shù)據(jù)流的描述數(shù)據(jù)流編號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向F1庫存產(chǎn)品信息表庫存部門記錄存貨信息的表庫存模塊其他各模塊F2庫存盤點表庫存部門記錄存貨期末盤點情況的表庫存模塊賬務模塊F3入庫單庫存部門開出的入庫單庫存模塊采購模塊F4出庫單庫存部門開出的出庫單庫存模塊銷售模塊F5銷售退貨入庫單庫存部門開出的銷售退貨入庫單庫存模塊銷售模塊F6采購申請單庫存不足時庫存部門開出的采購申請單庫存模塊采購模塊F7報損單庫存部門開出的報損單庫存模塊質(zhì)管模塊F8部門用途表各部門領(lǐng)用存貨類別表庫存模塊賬務模塊F9流水

12、賬單存貨出入情況的賬單庫存模塊信息使用者F10期初余額表庫存期初余額庫存模塊信息使用者處理邏輯的描述處理邏輯編號處理邏輯名稱簡述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流P1驗收貨物對采購入庫的貨物進行檢驗采購單驗收單P2出庫處理對銷售的貨物進行出庫檢驗銷售單銷售檢驗單P3審核調(diào)撥單對調(diào)撥單申請進行審核調(diào)撥單（申請）調(diào)撥單（審核）P4盤點庫存對庫存中的存貨進行盤點實物清單庫存盤點單P5審核報損單對報損單申請進行審核報損單報損單（審核） 數(shù)據(jù)存儲的描述數(shù)據(jù)存儲編號數(shù)據(jù)存儲名稱簡述S1庫存賬目存貨入庫、出庫、退貨、報損后修改當前庫存量外部實體的描述外部實體編號外部實體名稱簡述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流E1倉庫部門對存

13、貨保管、增減變化進行管理的部門驗收單、銷售單入庫單、出庫單E2采購部門采購存貨的部門入庫單采購單E3銷售部門銷售商品的部門出庫單銷售單E4財務部門進行賬務處理的部門庫存盤點單、報損單帳簿、報表利用PowerDesigner軟件，建立存貨子系統(tǒng)的PDM。實驗五 建立存貨子系統(tǒng)數(shù)據(jù)庫實驗目的：建立存貨子系統(tǒng)的SQL Anywhere數(shù)據(jù)庫。刪除所建數(shù)據(jù)庫的transaction log file文件。建立存貨子系統(tǒng)的ODBC。通過存貨子系統(tǒng)的PDM，生成 存貨子系統(tǒng)數(shù)據(jù)庫中的各張表。實驗環(huán)境：安裝Windows操作系統(tǒng)、PowerDesigner軟件、PowerBuilder軟件、SQL Anyw

14、here數(shù)據(jù)庫等。實驗方式：分組進行。實驗內(nèi)容：1、在PowerBuilder中，建立存貨子系統(tǒng)的SQL Anywhere數(shù)據(jù)庫。2、在Sybase 中心Sybase Central中，利用Utilities 工具中的Change Log File Information功能，刪除所建數(shù)據(jù)庫的transaction log file文件。3、在PowerBuilder中，或在PowerBuilder中，建立存貨子系統(tǒng)的ODBC。4、在PowerDesigner AppModeler軟件，連接存貨子系統(tǒng)數(shù)據(jù)庫。5、通過存貨子系統(tǒng)的PDM，利用PowerDesigner AppModeler軟件，

15、生成存貨子系統(tǒng)數(shù)據(jù)庫中的各張表。數(shù)據(jù)庫設(shè)計1.碼表設(shè)計一 倉庫表倉庫表c_ch_ckb字段名類型長度是否空含義ckb_codechar(6)NOT NULL倉庫編號ckb_namechar(20)NULL倉庫名稱二 職員表職員表c_ch_zyb字段名類型長度是否空含義zyb_codechar(6)NOT NULL職員編號zyb_namechar(20)NULL職員名稱zyb_szbmchar(20)NULL所在部門三 部門表部門表c_ch_bmb字段名類型長度是否空含義bmb_codechar(6)NOT NULL部門編號bmb_namechar(20)NULL部門名稱四 貨位表貨位表c_ch

16、_hwb字段名類型長度是否空含義hwb_codechar(6)NOT NULL貨位編號hwb_namechar(20)NULL貨位名稱hwb_szckchar(20)NULL所在倉庫五 業(yè)務性質(zhì)表業(yè)務性質(zhì)表c_ch_ywxzb字段名類型長度是否空含義ywxzb_codechar(6)NOT NULL業(yè)務性質(zhì)編碼ywxzb_namechar(40)NULL業(yè)務性質(zhì)名稱2.基本表設(shè)計一 庫存產(chǎn)品信息表庫存產(chǎn)品信息表 T_kcxx字段名類型長度是否空含義*chbmChar(10)NOT NULL存貨編碼chmcchar(50)NULL存貨名稱ggxhChar (5)NULL規(guī)格型號jldwChar(

17、10)NULL計量單位chlbChar(10)NULL存貨類別ChsxChar(20)NULL存貨屬性JhjgChar(10)NULL計劃價格ckjgchar(10)NULL參考價格hwchar(10)NULL貨位shchar(10)NULL審核標志qyrqChar(30)NULL啟用日期bzchar(100)NULL備注二 存貨結(jié)存表存貨結(jié)存表 T_chjcb字段名類型長度是否空含義*chbmChar(10)NOT NULL存貨編碼qcsldecimal(10,2)NULL本月期初數(shù)量qcdjdecimal(10,2)NULL本月期初單價qcjedecimal(10,2)NULL本月期初金額

18、=本月期初單價*本月期初單價ssldecimal(10,2)NULL本月收數(shù)量sjedecimal(10,2)NULL本月收金額fsldecimal(10,2)NULL本月發(fā)數(shù)量fjedecimal(10,2)NULL本月發(fā)金額jcsldecimal(10,2)NULL本月結(jié)存數(shù)量jcdjdecimal(10,2)NULL本月結(jié)存單價jcjedecimal(10,2)NULL本月結(jié)存金額三 入庫單入庫單表 T_rkd字段名類型長度是否空含義*rkdhChar(10)NOT NULL*入庫單編號(自動生成)rkrqChar(15)NULL入庫單日期ywbhChar(15)NULL業(yè)務編號ywyx

19、mChar(10)NULL業(yè)務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdChar(10)NULL產(chǎn)地gysChar(10)NULL供應商ckChar(10)NULL倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人四 出庫單出庫單表 T_ckd字段名類型長度是否空含義*ckdhChar(10)

20、NOT NULL*出庫單編號(自動生成)ckrqChar(15)NULL出庫單日期ywbhChar(15)NULL業(yè)務編號ywyxmChar(10)NULL業(yè)務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額ytChar(10)NULL用途bmChar(10)NULL部門ckChar(10)NULL倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NU

21、LL制單人shrChar(10)NULL審核人bzchar(100)NULL備注五 銷售退貨入庫單銷售退貨入庫單 T_xsthrkd字段名類型長度是否空含義*ckthdhChar(10)NOT NULL*銷售退貨單編號(自動生成)ckthdrqChar(15)NULL銷售退貨單日期ywbhChar(15)NULL業(yè)務編號ywyxmChar(10)NULL業(yè)務員姓名chbmChar(10)NOT NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額bmChar(10)NULL部門ckChar(10)NULL

22、倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人thyyChar(100)NULL退貨原因六 采購申請單采購申請單ch_cgsqd字段名類型長度是否空含義*sqdbhChar(10)NOT NULL*申請單編號(自動生成)rqChar(15)NULL日期chbmChar(10)NULL存貨編碼chmcChar(20)NULL存貨名稱ggxhChar(10)NULL規(guī)格型號jldwChar(4)NULL計量單位chlbCha

23、r(10)NULL存貨類別chsxChar(10)NULL存貨屬性xqsldecimal(10,2)NULL需求數(shù)量chrChar(10)NULL制單人shrChar(10)NULL審核人七 報損單入庫退貨單 T_rkth字段名類型長度是否空含義*bsbhChar(10)NOT NULL*報損單編號(自動生成)bsrqChar(15)NULL報損單日期ywyxmChar(10)NULL業(yè)務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdChar(10)NULL產(chǎn)地gy

24、sChar(10)NULL供應商ckChar(10)NULL倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人bsyyChar(100)NULL報損原因八 部門用途表部門用途表 T_bmytb 字段名類型長度是否空含義*bmbmChar(10)NOT NULL*部門編碼bmmcChar(20)NULL部門名稱ytdmChar(10)NULL用途代碼ytmcChar(10)NULL用途名稱xmfy Char(10)NULL項目

25、費用九 流水賬單流水賬單ch_lszd字段名類型長度是否空含義*xhchar(3)NOT NULL序號sjChar(15)NULL時間djhchar(2)NULL單據(jù)號ywxzchar(4)NULL業(yè)務性質(zhì)chbmchar(10)NULL存貨編碼chmcchar(20)NULL存貨名稱sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額十 期初余額表期初余額表 T_qcyeb字段名類型長度是否空含義chbmChar(10)NULL存貨編碼chmmChar(50) not NULL存貨名稱sldecimal(10,2)NU

26、LL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdchar(50)null產(chǎn)地gyschar(50)null供應商ckChar(10)NULL倉庫hwChar(10)NULL貨位bzchar(100)NULL備注十一 存貨盤點表存貨盤點表 T_chpdb字段名類型長度是否空含義pddbhChar(10) not NULL盤點單編號pddrqChar(15)NULL盤點單日期ywyxmChar(10)NULL業(yè)務員姓名bmChar(10)NULL部門chbmChar(10) not NULL存貨編碼chmcchar(20)null存貨名稱hwchar

27、(10)null貨位chdjdecimal(10,2)NULL存貨單價zcsldecimal(10,2)NULL賬存數(shù)量pdsldecimal(10,2)NULL盤點數(shù)量yksldecimal(10,2)NULL盈虧數(shù)量zdrchar(10)NULL制單人 shrchar(10)NULL審核人實驗六 存貨子系統(tǒng)基本窗口設(shè)計實驗目的：存貨子系統(tǒng)窗口設(shè)計。存貨子系統(tǒng)全局變量設(shè)計。存貨子系統(tǒng)全局函數(shù)設(shè)計。實驗環(huán)境：安裝Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫、教師提供的軟件原型平臺等。實驗方式：分組進行。實驗內(nèi)容：1、存貨子系統(tǒng)全局變量設(shè)計。全局變量定義s

28、tring g_oper_code,g_oper_name,g_sheet_code,g_printstring g_date,g_dept,g_dept_day,g_func_codestring g_dept_month_date=2000-01-01string g_orig,g_warehousestring g_sp_info,g_menu_nameboolean gb_db_connectedstring g_price_powerdecimal g_dept_intervalstring g_color=80,g_color_key=80string g_IPAddress,g_

29、MachineNamestring g_log_rec=0 /記錄日志標記 1：記錄，0：不記錄string g_sys_name=重慶工學院會計學院 實驗案例string g_comp_name=重慶工學院 會計學院會計學院 string g_proj_code=,g_proj_name=string g_drive=d:io ,g_pathfilename /導入導出路徑string g_dir_sc= /自動生成路徑integer g_sheet_code_len =10 /單據(jù)長度integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 /小區(qū)、大樓、

30、單元、房間編碼長度integer g_len4_1=3,g_len4_2=3 /g_len4_1樓層長度 g_len4_2 房間長度string g_zth=001 /帳套號string g_nkjqj=2005 /年會計期間2、存貨子系統(tǒng)全局函數(shù)設(shè)計。函數(shù)名函數(shù)功能f_oper_check判斷操作員輸入的編碼及密碼是否合法gf_dw_count顯示數(shù)據(jù)窗口的行數(shù)f_where_exist判斷有無WHERE條件f_string字符變量的處理f_sqlsqlca.sqlcode判斷，0、100：false，-1：truegf_ini_table碼表初始化f_i_o導入導出初始f_dw_test_

31、repeat對數(shù)據(jù)窗口中的導入數(shù)據(jù)進行重復性測試f_dw_test_repeat_del刪除導入導出中的重復數(shù)據(jù)函數(shù)名f_oper_check返回值類型integer函數(shù)功能判斷操作員輸入的編碼及密碼是否合法參數(shù)定義r_oper_code:stringr_pass:string腳本string r_oper_passSELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code;IF sqlca.sqlcode = 100 thenmessagebox(g_sys_name,您提供的操作員號碼不正確!)re

32、turn 1ELSEIF trim(r_oper_pass) trim(r_pass) THENmessagebox(g_sys_name,您提供的密碼和操作員號不符!rr是否沒有區(qū)分大小寫?)return 2END IFEND IFreturn 0函數(shù)名gf_dw_count返回值類型無函數(shù)功能顯示數(shù)據(jù)窗口的行數(shù)參數(shù)定義r_dw_table: datawindowr_sle_count: singlelineedit腳本long r_row,r_countr_count=r_dw_table.ROWCOUNT()r_row=r_dw_table.getrow()IF r_row0 and r

33、_count0 THENr_sle_count.TEXT=string(r_row)+/+string(r_count)ELSEIF r_count0 thenr_sle_count.TEXT=共+string(r_count)+條ELSEr_sle_count.TEXT=END IFreturn函數(shù)名f_where_exist返回值類型integer函數(shù)功能判斷有無WHERE條件參數(shù)定義r_orig_sql: string腳本if pos(r_orig_sql,WHERE)0 or pos(r_orig_sql,where)0 thenreturn 1/有WHERE條件elsereturn

34、0/無WHERE條件end if函數(shù)名f_string返回值類型string函數(shù)功能字符變量的處理參數(shù)定義r:string腳本IF ISNULL(r) OR TRIM(r)= THENr=%ELSEr= r+%END IFRETURN r函數(shù)名f_sql返回值類型boolean函數(shù)功能sqlca.sqlcode判斷，0、100：false，-1：true參數(shù)定義無腳本if sqlca.sqlcode=-1 thenmessagebox(sql錯誤信息,sqlca.sqlerrtext)rollback;return trueelsecommit;return falseend if函數(shù)名gf_

35、ini_table返回值類型無函數(shù)功能碼表初始化參數(shù)定義無腳本 /職位碼表DELETE FROM c_postion ;INSERT INTO c_postion(postion_code, postion_name) VALUES (01,董事長) ;INSERT INTO c_postion(postion_code, postion_name) VALUES (02,副董事長) ;INSERT INTO c_postion(postion_code, postion_name) VALUES (03,財務總監(jiān)) ;INSERT INTO c_postion(postion_code, p

36、ostion_name) VALUES (04,銷售總監(jiān)) ;/學歷碼表c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (01,博士) ;INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (02,碩士) ;INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (03,學士) ;/憑證類型碼表DELETE FROM ZW_C_PZLX ;INSERT

37、 INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (CH,轉(zhuǎn)賬憑證) ;INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (SK,收款憑證) ;INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (FK,付款憑證) ;if f_sql() then return函數(shù)名f_i_o返回值類型無函數(shù)功能導入導出初始參數(shù)定義腳本SetPointer(HourGlass!)delete from save_import ;/導入導出碼表delete from c_sav

38、e_import ;insert into c_save_import values (01,導入);insert into c_save_import values (02,導出);delete from c_mean ;insert into c_mean values (01,固定);insert into c_mean values (02,自由);insert into c_mean values (03,生成);delete from c_file_type ;insert into c_file_type values (01,dbf);insert into c_file_ty

39、pe values (02,txt);insert into c_file_type values (03,excel);insert into c_file_type values (04,sql);delete from c_interval ;insert into c_interval values (00,無);insert into c_interval values (01,每日);insert into c_interval values (02,每周);insert into c_interval values (03,每月);insert into c_interval v

40、alues (04,每季度);insert into c_interval values (05,每年);delete from c_flag_code ;insert into c_flag_code values (01,成功);insert into c_flag_code values (02,失敗);if f_sql() then returnINSERT INTO save_import VALUES (001,c_operator,dw_c_operator_grid,01,02,D:iodata,c_operator,01,人員信息,00,000,2002-01-01,2002

41、-01-01,01,);INSERT INTO save_import VALUES (001,c_operator,dw_c_operator_grid,02,02,D:iodata,c_operator,01,人員信息,00,000,2002-01-01,2002-01-01,01,);SetPointer(arrow!) if f_sql() then returnelse/messagebox(提示,導入導出表初始成功!)end ifreturn函數(shù)名f_dw_test_repeat返回值類型long函數(shù)功能對數(shù)據(jù)窗口中的導入數(shù)據(jù)進行重復性測試參數(shù)定義r_type:stringr_dw

42、: datawindowr_sle: singlelineedit腳本long r_row,r_rowcount,r_count,r_select,r_return=0string r_primaryr_rowcount=r_dw.rowcount()r_type=lower(r_type)CHOOSE CASE r_typeCASE c_operatorr_count=1 /關(guān)鍵字段數(shù)r_primaryr_count=FOR r_row=1 TO r_rowcountr_primary1=r_dw.getitemstring(r_row,oper_code) /取關(guān)鍵字select coun

43、t(*) into :r_select from c_operator where c_operator.oper_code = :r_primary1 ;if r_select0 then r_dw.SelectRow(r_row, TRUE)r_return=r_return + 1end ifNEXTCASE ELSEEND CHOOSEreturn r_return函數(shù)名f_dw_test_repeat_del返回值類型long函數(shù)功能刪除導入導出中的重復數(shù)據(jù)參數(shù)定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本long r_r

44、ow,r_rowcount,r_count,r_select,r_return=0string r_primaryr_type=lower(r_type)r_rowcount=r_dw.rowcount()CHOOSE CASE r_typeCASE c_operatorr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcountr_primary1=r_dw.getitemstring(r_row,oper_code)delete from c_operator where c_operator.oper_code = :r_primary1 ;NE

45、XTCASE c_suppr_count=1 /關(guān)鍵字段數(shù)r_primaryr_count=FOR r_row=1 TO r_rowcountr_primary1=r_dw.getitemstring(r_row,supp_code) /取關(guān)鍵字delete from c_supp where c_supp.supp_code = :r_primary1 ;NEXTCASE ELSEEND CHOOSEf_sql()return r_return3、通過分析，設(shè)計存貨子系統(tǒng)的通用窗口。窗口名窗口功能w_start登陸窗口W_set系統(tǒng)設(shè)置窗口W_code碼表輸入、修改窗口w_sheet_inp

46、ut單表輸入窗口W_select綜合查詢窗口w_i_o_ini數(shù)據(jù)導入導出初始窗口w_i_o數(shù)據(jù)導入導出窗口窗口名w_startMessage參數(shù)無主要功能登陸窗口實例變量聲明無窗口函數(shù)無控件事件腳本w_start:open!/居中Environment aInteger w,hGetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w - width)/2,(h - height)/2)this.title= + g_s

47、ys_name + 系統(tǒng)登錄確定cb_ok :clicked!string r_func_code,r_menu_name,r_date,r_sp_infolong r_resultr_result=f_oper_check(sle_oper_code.text,sle_pass.text)IF r_result0 THENIf r_result=1 Thensle_oper_code.Text=sle_oper_code.SetFocus()ElseIf r_result=2 Thensle_pass.Text=sle_pass.SetFocus()End IfreturnEnd Ifg_d

48、ate=string(today()g_oper_code=sle_oper_code.textSELECT oper_name ,func_code ,sheet_code,DEPT_CODE,postion_code INTO :g_oper_name,:r_func_code,:g_sheet_code,:g_dept,:r_sp_info FROM c_operator WHERE oper_code = :g_oper_code ;/操作人員的打印權(quán)限SELECT print_yn,menu_name INTO :g_print,:g_menu_name FROM c_func WH

49、ERE func_code = :r_func_code ;close(parent)open(w_set)退出cb_cancel:clicked!close(parent)窗口名W_setMessage參數(shù)無主要功能系統(tǒng)設(shè)置窗口實例變量聲明無窗口函數(shù)wf_change_menu(r_menu_name)參數(shù)：string r_menu_name返回值類型：integerstring ls_menuselect s_menu into :ls_menu from c_menu where menu_group=:r_menu_name;choose case ls_menucase m_crm

50、w_genapp_frame.ChangeMenu(m_crm)f_set_purview(r_menu_name,m_crm)case elseReturn 1end chooseReturn 0控件事件腳本W(wǎng)_set:Open!dw_dept.SetTransObject ( sqlca )dw_dept.insertrow(0)dw_dept.setitem(1,1,g_dept)em_date.text=string(today()g_date=em_date.textEnvironment aInteger w,hGetEnvironment(a)w=PixelsToUnits(a.

51、screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w - width)/2,(h - height)/2)this.title=g_sys_name + 設(shè)置 確定cb_set:clicked!string r_dept_day,r_date1string r_date,r_deptstring r_dept_month_dater_date=em_date.textr_dept=dw_dept.getitemstring(1,1)g_dept=r_deptg_date=r_dates

52、etpointer(hourglass!)open(w_genapp_frame)If wf_change_menu(g_menu_name)0 Thenmessagebox(g_sys_name,系統(tǒng)沒有給您提供可用的菜單!r程序?qū)⒔K止!)haltElseEnd Ifsetpointer(arrow!)close(parent) 退出cb_cancel:clicked!close(parent)窗口名W_codeMessage參數(shù)Message.StringParm主要功能碼表管理窗口實例變量聲明string i_type,i_codeinteger i_tab30long i_row,i_

53、colstring i_orig_sqlstring i_str_precolumn= integer i_int_clicktime=0string i_title /窗口的標題變量窗口函數(shù)1f_exit()參數(shù)：無返回值類型：無INTEGER NET,RTNdw_table.accepttext()IF dw_table.ModifiedCount( ) 0 OR dw_table.DeletedCount( ) 0 THEN Net = MessageBox(提示, 是否需要保存所修改的信息?, Exclamation!, YESNO!, 1) IF Net = 1 THENrtn =

54、dw_table.Update( ) IF rtn = 1 THEN COMMIT USING SQLCA; ELSE ROLLBACK USING SQLCA; END IF END IFEND IF窗口函數(shù)2get_tab_order()參數(shù)：無返回值類型：無integer jFOR j=1 TO i_coli_tabj=dw_table.setTabOrder(j, 0)NEXT窗口函數(shù)3set_tab_0()參數(shù)：無返回值類型：無integer jFOR j=1 TO i_coldw_table.SetTabOrder(j, 0)NEXTcb_modi.TEXT=&X不修改cb_del

55、ete.enabled=falsecb_save.enabled=false窗口函數(shù)4set_tab_old()參數(shù)：無返回值類型：無integer jFOR j=1 TO i_coldw_table.SetTabOrder(j, i_tabj)NEXTcb_modi.TEXT=&X可修改cb_modi.enabled=truecb_save.enabled=true控件事件腳本W(wǎng)_code:Open!/確定數(shù)據(jù)窗口dw_table的DATAOBJECT/確定窗口的標題/將dw_table的數(shù)據(jù)源Select描述賦予實例變量 String i_orig_sqli_type=Message.St

56、ringParmCHOOSE CASE i_typeCASE c_func dw_table.DATAOBJECT=dw_c_funci_title=系統(tǒng)操作功能碼表CASE c_postion dw_table.DATAOBJECT=dw_c_postioni_title=操作員職位碼表CASE c_edu_level dw_table.DATAOBJECT=dw_c_edu_leveli_title=學歷碼表 CASE c_supp_attr dw_table.DATAOBJECT=dw_c_supp_attri_title=往來單位屬性 CASE ELSE messagebox(提示,無

57、此參數(shù)+i_type)returnEND CHOOSEdw_table.SetTransObject ( sqlca )sle_count.TEXT=i_orig_sql=dw_table.Describe(DataWindow.Table.Select)i_col=integer(dw_table.object.datawindow.column.count) /數(shù)據(jù)窗口的列數(shù)get_tab_order()SET_TAB_0()this.title=i_title + 維護/窗口居中Environment aInteger w,hGetEnvironment(a)w=PixelsToUnit

58、s(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w - width)/2,(h - height)/2)W_code:closequery! f_exit()dw_table: clicked!this.setrow(row)i_row=this.getrow()IF i_row0 THENdw_table.SELECTROW(0,FALSE)dw_table.SELECTROW(i_row,TRUE)i_code=dw_table.getitemstring(i_row,

59、1)if cb_modi.TEXT=&X可修改 thencb_delete.enabled=trueend ifEND IFgf_dw_count(this,sle_count)dw_table: double clicked!/取得上次單擊的列對象 string i_str_precolumn= /判斷上次是按升還是按降來排序 integer i_int_clicktime=0string str_column,str_formatstr_column= /取點擊的對象if right(str_column,2) _t then return/對于列標題，取得的對象是列名+_tstr_col

60、umn=left(str_column,len(str_column) - 2)if str_column=i_str_precolumn then /已點擊過 if i_int_clicktime=0 then /0表示原來按降序 i_int_clicktime=1 str_format=str_column + A else i_int_clicktime=0 str_format=str_column + D end ifelse i_int_clicktime=1 /1表示原來按升序 str_format=str_column + Aend ifi_str_precolumn = st