會計信息化庫存管理存貨核算系統(tǒng)

1、會計信息化 庫存管理存貨核算系統(tǒng) 實驗指導書會計學院會計信息化系2005 年 8 月實驗一存貨子系統(tǒng)業(yè)務流程分析 1實驗二存貨子系統(tǒng)數(shù)據(jù)處理流程分析 1實驗三存貨子系統(tǒng)功能分析 2實驗四存貨子系統(tǒng)數(shù)據(jù)字典及數(shù)據(jù)庫設計 2實驗五建立存貨子系統(tǒng)數(shù)據(jù)庫 3實驗六存貨子系統(tǒng)基本窗口設計 4實驗七存貨子系統(tǒng)軟件編程一一碼表處理 44實驗八存貨子系統(tǒng)軟件編程一一單表處理 47實驗九存貨子系統(tǒng)軟件編程一一導入導出處理 53實驗一庫存管理存貨核算系統(tǒng)業(yè)務流程分析實驗目的：分析庫存管理存貨核算系統(tǒng)的業(yè)務流程，畫岀存貨子系統(tǒng)業(yè)務流程圖。實驗環(huán)境：安裝 Windows操作系統(tǒng)、 Word軟件、Visio軟件等。實驗

2、方式：分組進行。上機機時：2機時 實驗內容：1、庫存管理存貨核算系統(tǒng)業(yè)務流程描述。為了深入了解存貨核算與管理的特點，我們首先分析手工條件下存貨核算與管理的業(yè)務處理流程，掌握存貨出庫、入庫、期末結賬、對賬以及管理分析的過程。存貨包括原材料、包裝物、低值易耗品、自制半成品、產成品等。在手工條件下，當存貨到達企業(yè)并辦理入庫手續(xù)后，除了倉庫保管員要登記存貨數(shù)量賬外，財會部門也要根據(jù)各種憑單（如入庫單、驗收報告等）登記存貨明細賬，反映存貨增加等經(jīng)濟業(yè)務；當各個部門領用存貨時（如 生產車間領用材料用于生產、銷售部門領用產品用于銷售），倉庫保管員又要登記存貨數(shù)量賬， 財會部門又要根據(jù)各種憑單（如入庫單等）登

3、記存貨明細賬，反映存貨減少等經(jīng)濟業(yè)務；定期編 制記賬憑證傳遞到總賬子系統(tǒng)，登記總賬。此外，還要及時為管理提供各種存貨報告，如存貨狀 態(tài)報告、ABC存貨成本分析報告、超儲積壓存貨分析報告等。下面我們對入庫流程、岀庫流程以 及期末結賬和管理分析流程進行分析。（1 ）存貨核算與管理一一入庫流程分析當采購部門或者供應商將存貨送入倉庫，生產部門或者物流部門將生產的產成品送入倉庫， 入庫業(yè)務便開始進行了。 倉庫保管員依據(jù)采購訂單和計劃入庫安排，檢查供應商送貨及時性，根據(jù)事先設定的送 貨接收標準，判定是否收貨。 如果可以收貨， 倉庫保管員編制收貨憑證， 并將收貨憑證和質檢抽樣存貨移入質檢部門，進行抽樣檢驗。

4、 如果質檢合格，將質檢合格存貨退返倉庫，進行庫存移庫操作，并編制驗收報告。 將驗收報告?zhèn)鬟f給倉庫和財務部門。 倉庫保管員根據(jù)驗收報告和收貨憑證編制入庫單。 登記相應存貨的入庫數(shù)量和結存數(shù)量， 即存貨三級賬， 并將相應的單據(jù)傳遞到財務部門。 財務賁門根據(jù)入庫單、驗收報告編制記賬憑證。 存貨核算會計審核憑證，登記存貨明系賬，并將憑證傳遞到總賬子系統(tǒng)。 總賬會計定期根據(jù)記賬憑證登記總賬。（2）存貨核算與管理出庫、期末處理與管理的分析流程 當生產部門提出領料申請、 銷售部門提出發(fā)運產品時， 出庫業(yè)務便開始進行； 到會計期末進 行相應的處理，并提交各種管理分析報告。 倉庫保管員接到各車間、用料單位提出的

5、領料申請，或者銷售部門提出的發(fā)運請求，經(jīng) 審核單據(jù)后，編制出庫單，并發(fā)出存貨。 倉庫保管員登記相應存貨出庫數(shù)量和結存數(shù)據(jù)，即存貨三級賬，并將相應的單據(jù)傳遞到財會部門。 財會部門會計人員根據(jù)出庫單等單據(jù)編制記賬憑證，登記存貨明細賬，并將憑證傳遞到總賬子系統(tǒng)。由于存貨種類繁多、數(shù)量大、收發(fā)業(yè)務頻繁，存貨成本計算比較復雜，為 了滿足不同企業(yè)對核算的需要，存貨可以按計劃成本計價，也可按實際成本計價。按實 際成本計價時，存貨成本可以按照加權平均、移動加權平均、先進先出、后進先出和個 別計價等方法進行計算。 期末處理。財務部門期末對存貨進行實地盤點，編制盤盈盤虧表，經(jīng)審批后通知倉庫、 財會部門修改相應的存

6、貨一級、二級以及三級賬。由于存貨數(shù)量賬（三級賬）、存貨明 細賬（二級賬）、總賬（一級賬）是由不同的人員編制的，因此，會出現(xiàn)賬賬不一致的 問題。因此，期末還需要進行三級賬的核對工作，很多企業(yè)要花費一定的人力物力每月 必須進行對賬。 財務部門根據(jù)不同的計價方法和成本計算方法， 分別計算存貨成本差異、 發(fā)出存貨成本，并進行結賬工作。 存貨分析。財務管理人員需要根據(jù)入庫單、出庫單、存貨數(shù)量賬等編制包括超儲積壓一 覽表、ABC成本分析表、倉庫存貨匯總表等內容的管理分析報告，并提岀存貨管理的改 進意見和評價信息。2、通過分析存貨子系統(tǒng)的業(yè)務流程，利用Visio 軟件畫岀存貨子系統(tǒng)的業(yè)務流程圖。業(yè)務流程圖如

7、圖 1 所示：尢誤的報 損單呈交輸入f無誤輸入 有誤送達訂單部門送達報損單采購入 庫單驗 貨錯誤的報 損單銷售退貨 單采購收貨 單送 達送 達返 回提交庫存不足及超 額通知T送達 庫存盤點 單發(fā) 送質管部驗貨單發(fā)送驗貨合格送盤 占 八、送/出庫通知單送達經(jīng)理審 核i倉庫部門 商品調撥單（申請）發(fā)送一商品調撥單（審核）J信息使用、呈送報表部門嚴登記或生成分析發(fā)送込*&發(fā)送發(fā) 送登記或,生成 庫存賬目憑證V出庫單發(fā)送送達退貨入庫送達 單登 記 或 生 成登記或生成圖1 存貨子系統(tǒng)業(yè)務流程圖實驗二存貨子系統(tǒng)數(shù)據(jù)處理流程分析實驗目的：通過存貨子系統(tǒng)的業(yè)務流程圖，進一步分析優(yōu)化存貨子系統(tǒng)的數(shù)據(jù)處理流程，

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

9、的功能。實驗環(huán)境：安裝 Windows操作系統(tǒng)、 Word軟件、Visio軟件等。實驗方式：分組進行。實驗內容：1、通過分析存貨子系統(tǒng)的業(yè)務流程與數(shù)據(jù)處理流程圖，畫岀存貨子系統(tǒng)的功能圖。根據(jù)業(yè)務流程圖和數(shù)據(jù)流程圖，存貨子系統(tǒng)基本可以劃分為入庫管理、出庫 管理、盤點管理、報損管理、調撥管理等五個功能模塊。每個功能模塊又可以繼 續(xù)劃分為若干個功能模塊，直到每個功能模塊都能夠表示相當獨立的功能為止。 我們的存貨子系統(tǒng)側重于核算模塊的設計。主要的功能結構有入庫管理、出庫管 理、盤點管理模塊。功能結構圖如圖 3所示：圖3存貨子系統(tǒng)功能結構圖實驗四存貨子系統(tǒng)數(shù)據(jù)字典及數(shù)據(jù)庫設計實驗目的：通過分析存貨子系統(tǒng)

10、的數(shù)據(jù)流程圖，進一步寫岀存貨子系統(tǒng)的數(shù)據(jù)字典。利用PowerDesigner軟件，建立存貨子系統(tǒng)的PDM。實驗環(huán)境：安裝 Windows操作系統(tǒng)、 Word軟件、Visio軟件、PowerDesigner軟件等。實驗方式：分組進行。實驗內容：1、通過分析存貨子系統(tǒng)的數(shù)據(jù)流程圖，寫岀存貨子系統(tǒng)的數(shù)據(jù)字典。數(shù)據(jù)流的描述數(shù)據(jù) 流編 號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來 源數(shù)據(jù)流去 向F1庫存產品信 息表庫存部門記錄存貨信息 的表庫存模塊其他各模 塊F2庫存盤點表庫存部門記錄存貨期末 盤點情況的表庫存模塊賬務模塊F3入庫單庫存部門開出的入庫單庫存模塊采購模塊F4出庫單庫存部門開出的出庫單庫存模塊銷售模塊F5銷售退

11、貨入庫單庫存部門開出的銷售退 貨入庫單庫存模塊銷售模塊F6采購申請單庫存不足時庫存部門開 出的采購申請單庫存模塊采購模塊F7報損單庫存部門開出的報損單庫存模塊質管模塊F8部門用途表各部門領用存貨類別表庫存模塊賬務模塊F9流水賬單存貨出入情況的賬單庫存模塊信息使用者F10期初余額表庫存期初余額庫存模塊信息使用者處理邏輯的描述處理 邏輯 編號處理邏輯名 稱簡述輸入的數(shù) 據(jù)流輸出的數(shù) 據(jù)流P1驗收貨物對采購入庫的貨物進行 檢驗采購單驗收單P2出庫處理對銷售的貨物進行出庫 檢驗銷售單銷售檢驗 單P3審核調撥單對調撥單申請進行審核調撥單（申請）調撥單（審 核）P4盤點庫存對庫存中的存貨進行盤占八、實物清

12、單庫存盤點單P5審核報損單對報損單申請進行審核報損單報損單（審核）數(shù)據(jù)存儲的描述數(shù)據(jù)存儲 編號數(shù)據(jù)存儲名 稱簡述S1庫存賬目存貨入庫、出庫、退貨、報損后修改當前庫 存量外部實體的描述外部 實體 編號外部實體名 稱簡述輸入的數(shù) 據(jù)流輸出的數(shù)據(jù) 流E1倉庫部門對存貨保管、增減變化 進行管理的部門驗收單、銷 售單入庫單、出 庫單E2采購部門米購存貨的部門入庫單采購單E3銷售部門銷售商品的部門出庫單銷售單E4財務部門進行賬務處理的部門庫存盤點 單、報損單帳簿、報表2、利用PowerDesigner軟件，建立存貨子系統(tǒng)的 PDM。實驗五 建立存貨子系統(tǒng)數(shù)據(jù)庫實驗目的：建立存貨子系統(tǒng)的SQL Anywhe

13、re數(shù)據(jù)庫。刪除所建數(shù)據(jù)庫的 transaction log file文件。建立存貨子系統(tǒng)的ODBC。通過存貨子系統(tǒng)的PDM，生成 存貨子系統(tǒng)數(shù)據(jù)庫中的各張表。實驗環(huán)境：安裝 Win dows 操作系統(tǒng)、 PowerDesig ner 軟件、PowerBuilder 軟件、SQL Any where 數(shù)據(jù)庫等。實驗方式：分組進行。實驗內容：1、在PowerBuilder中，建立存貨子系統(tǒng)的 SQL Anywhere數(shù)據(jù)庫。2、 在 Sybase 中心 Sybase Central 中，利用 Utilities 工具中的 Change Log File Information 功能, 刪除所建數(shù)

14、據(jù)庫的 transaction log file文件。3、在PowerBuilder中，或在 PowerBuilder中，建立存貨子系統(tǒng)的 ODBC。4、在PowerDesigner AppModeler軟件，連接存貨子系統(tǒng)數(shù)據(jù)庫。5、通過存貨子系統(tǒng)的 PDM，利用PowerDesigner AppModeler軟件，生成存貨子系統(tǒng)數(shù) 據(jù)庫中的各張表。數(shù)據(jù)庫設計1.碼表設計倉庫表倉庫表c ch ckb字段名類型長度是否空含義ckb codechar NOT NULL倉庫編號ckb namechar(20)NULL倉庫名稱職員表職員表c ch zyb字段名類型長度是否空含義zyb codecha

15、r NOT NULL職員編號zyb namechar(20)NULL職員名稱zyb szbmchar(20)NULL所在部門部門表部門表c ch bmb字段名類型長度是否空含義bmb codechar NOT NULL部門編號bmb namechar(20)NULL部門名稱四貨位表貨位表c ch hwb字段名類型長度是否空含義hwb codechar NOT NULL貨位編號hwb namechar(20)NULL貨位名稱hwb szckchar(20)NULL所在倉庫五業(yè)務性質表業(yè)務性質表c ch ywxzb字段名類型長度是否空含義ywxzb codechar NOT NULL業(yè)務性質編碼y

16、wxzb namechar(40)NULL業(yè)務性質名稱2.基本表設計庫存產品信息表庫存產品信息表T_kcxx字段名類型長度是否空含義*chbmChar(10)NOT NULL存貨編碼chmcchar(50)NULL存貨名稱ggxhChar (5)NULL規(guī)格型號jldwChar(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

17、備注存貨結存表存貨結存表T_chjcb字段名類型長度是否空含義*chbmChar(10)NOT NULL存貨編碼qcsldecimal(10,2)NULL本月期初數(shù)量qcdjdecimal(10,2)NULL本月期初單價:qcjedecimal(10,2)NULL本月期初金額=本月 期初單價*本月期初 單價ssldecimal(10,2)NULL本月收數(shù)量sjedecimal(10,2)NULL本月收金額fsldecimal(10,2)NULL本月發(fā)數(shù)量fjedecimal(10,2)NULL本月發(fā)金額jcsldecimal(10,2)NULL本月結存數(shù)量jcdjdecimal(10,2)NU

18、LL本月結存單價jcjedecimal(10,2)NULL本月結存金額三入庫單入庫單表T_rkd字段名類型長度是否空含義*rkdhChar(10)NOT NULL*入庫單編號（自動生成）rkrqChar(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金額cdChar(10)NULL產地gysChar(10)NULL供應商ckChar(10)NULL倉庫hwChar(10)N

19、ULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人四出庫單出庫單表T_ckd字段名類型長度是否空含義*ckdhChar(10)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

20、金額ytChar(10)NULL用途bmChar(10)NULL部門ckChar(10)NULL倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人bzchar(100)NULL備注五銷售退貨入庫單銷售退貨入庫單T_xsthrkd字段名類型長度是否空含義*ckthdhChar(10)NOT NULL*銷售退貨單編號（自 動生成）ckthdrqChar(15)NULL銷售退貨單日期ywbhChar(15)NULL業(yè)務編號ywyx

21、mChar(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倉庫hwChar(10)NULL貨位shbzChar(2)NULL審核標志clbzChar(2)NULL處理標志shbzChar(2)NULL收貨標志zdrChar(10)NULL制單人shrChar(10)NULL審核人thyyChar(100)NULL退貨原因六采購申請單米購申請單ch_cgsqd字段名類型長度是否空含義*s

22、qdbhChar(10)NOT NULL*申請單編號（自動生成）rqChar(15)NULL日期chbmChar(10)NULL存貨編碼chmcChar(20)NULL存貨名稱ggxhChar(10)NULL規(guī)格型號jldwChar(4)NULL計量單位chlbChar(10)NULL存貨類別chsxChar(10)NULL存貨屬性xqsldecimal(10,2)NULL需求數(shù)量chrChar(10)NULL制單人shrChar(10)NULL審核人七報損單入庫退貨單T_rkth字段名類型長度是否空含義*bsbhChar(10)NOT NULL報損單編號 （自動生成）bsrqChar(15)

23、NULL報損單日期ywyxmChar(10)NULL業(yè)務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdChar(10)NULL產地gysChar(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| 報損原因八

24、部門用途表部門用途表T_bmytb字段名類型長度是否空含義*bmbmChar(10)NOT NULL*部門編碼bmmcChar(20)NULL部門名稱ytdmChar(10)NULL用途代碼ytmcChar(10)NULL用途名稱xmfyChar(10)NULL項目費用九流水賬單流水賬單ch_lszd字段名類型長度是否空含義*xhchar (3)NOT NULL序號sjChar(15)NULL時間djhchar (2)NULL單據(jù)號ywxzchar (4)NULL業(yè)務性質chbmchar(10)NULL存貨編碼chmcchar(20)NULL存貨名稱sldecimal(10,2)NULL數(shù)量d

25、jdecimal(10,2)NULL單價jedecimal(10,2)NULL金額十期初余額表期初余額表T_qcyeb字段名類型長度是否空含義chbmChar(10)NULL存貨編碼chmmChar(50)not NULL存貨名稱sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdchar(50)null產地gyschar(50)null供應商ckChar(10)NULL倉庫hwChar(10)NULL貨位bzchar(100)NULL備注1一存貨盤點表存貨盤點表T chpdb字段名類型長度是否空含義pddbhCha

26、r(10)not NULL盤點單編號pddrqChar(15)NULL盤點單日期ywyxmChar(10)NULL業(yè)務員姓名bmChar(10)NULL部門chbmChar(10)not NULL存貨編碼chmcchar(20)null存貨名稱hwchar(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)基本窗口設計實驗目的：存貨子系統(tǒng)窗口

27、設計。存貨子系統(tǒng)全局變量設計。存貨子系統(tǒng)全局函數(shù)設計。實驗環(huán)境：安裝 Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫、教師提供的軟件原型平臺 等。實驗方式：分組進行。實驗內容：1、存貨子系統(tǒng)全局變量設計。全局變量定義stri ng g_oper_code,g_oper_ name,g_sheet_code,g_pri ntstri ng g_date,g_dept,g_dept_day,g_fu nc_codestring g_dept_month_date=2000-01-01string g_orig,g_warehousestri ng g_sp_

28、in fo,g_me nu_n ame boolea n gb_db_c onn ected stri ng g_price_power decimal g_dept_ in terval stri ng g_color=80,g_color_key=80 stri ng g_IPAddress,g_Mach in eName str ing g log rec=Oameenamei=(r_col)coltypei=(enamei + .ColType)col_widthi=(enamei + .width)col_heighti=(enamei + .height) col_yi=Doubl

29、e(enamei + .y) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) if (enamei,i_dwc)=1 then(sqlca)(%)CHOOSE CASE enameiCASE supp_attr_code i_dwc_supp_attr_code=i_dwc CASE ELSEEND CHOOSEend ifNEXT(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)(clicked!)(clicked!)=true=i title + 輸入dw_table: butt on clicked

30、!stri ngr_object,r_type, r_code,r_colr_object = Str ingCHOOSE CASE i_typeCASE c_operatorCHOOSE CASE r_objectCASE cb fu nc codebl)=this=i_row=r colum nn ameolTyper_coltype = (r_sql)IF r coltype =! THENMessageBox(錯誤,數(shù)據(jù)類型錯誤！)r eturnEND IFCHOOSE CASE r_coltype CASE numbeF,lo ng ,i nt r_decimal=(r_cou nt

31、,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_decimal) CASE date_-一一一CASE datetimeCASE ELSEIF Left(r_coltype,4) = char THENr_str in g=(r_cou nt,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_stri ng) ELSEILeftfr coltyDe,7) = decimal THENa c N(0 THEN return()(row)(0,FALSE)(i_row,TRUE)=true=tr

32、ue=true=truegf_dw_cou nt(this,sle_cou nt) r_rowcou nt=()if i_row=1 and r_rowcou nt=1 the n =false =false=falseelseif i_row=r_rowcount then=false=falseelseif i_row=1 and r_rowcou nt1 the n=false=falseend ifdw_table: double clicked!stri ng str_colum n, str_formatstr_colu mn二bf),*.dbf,+&text files(*.tx

33、t),*.txt,+& excel files(*.excel),*.xls,+& sql files(*.sql),*.sql,)if r_value1 then messagebox(提示,打開文件保存對話窗口失敗!)return 0end ifr_filetype=right(r_pathfilename,3)r_pathlen=len(r_pathfilename) - len(r_filename) - 1 r_path=left(r_pathfilename,r_pathlen),49152)ameenamei=if not(enamei=save_import_code or e

34、namei=chinese_name ) then r_modi=r_modi +enamei + .width=0end ifNEXTi save import=01 thendw_ma in: clicked!if not row0 the n retur n(row)(0, FALSE)(row, TRUE) i_save_import=(row,save_import_code) if i save import=01 the ndw_ma in: ue_1!(自定義事件)stri ng r_dw_ namer_dw_ name=(i_row,table_dw_ name) i_sav

35、emport=(i_row,save_import_code) i_type=(i_row,table_ name)cb_retrieve: clicked!cb_in qu_select: clicked!long r_rowcou nt,r_retr_ret=gf_query i_orig_sql, r_ret=0 the n returnend ifr_rowcou nt0 the n=trueelse=falsemessagebox（提示,無記錄 r）end if導出cb_copy: clicked!long r_rowcount,r_row,r_pos_datestring r_in

36、terval,r_mean_code,r_path,r_filenamestring r_date2,r_tablenameint net,r_return,r_rt stringr_dept_code,i_orig_sql_temp,r_drive,r_date string r_file_type,r_file_type_name r_rowcou nt=（）-_if not r_rowcount0 thenmessagebox（提示該窗口無數(shù)據(jù)r）returnend ifNet = MessageBox（提示, 是否真的要導出？，Exclamation!, YESNO!, 1） if n

37、et=2 then returnr_dept_code=i_dept_coder_row= not r_row0 then messagebox（提示,請選擇需要導岀的表!） returnend if i_table_name=table_name）+r_file_type_name f_copy_gd（r_path,r_filename,r_row,r_date2,r_tablename） case 02 +r_file_type_namef_copy_gd（r_path,r_filename,r_row,r_date2,r_tablename）case else messagebox（提示

38、,該表無導出方式，無法導出!）returnend choose=false導入cb_in put: clicked!long r_row,r_pathlenint r_rtnstring r_pathfilename,r_filename,r_filetype,r_path,r_tablenamestring r_filename_code,r_interval,r_date2string r_mean_code,r_drive,r_date,r_dept_codestring r_file_type,r_file_type_namer_row= not r_row0 then message

39、box(提示,請選擇需要導入的表！) returnend if+r_file_type_name- case 02bf),*.dbf, + &Text Files (*.TXT),*.TXT, + Excel Files (*.xls),*.xls, +&SQL Files (*.sql),*.sql,) case 03 +r_file_type_name case elsemessagebox(提示,該表無導入方式，無法導入！)returnend chooseif r_rtn1 and r_rtn0 then messagebox(提示,操作失敗!) returnend ifif r_rtn

40、=0 thenreturnend ifr_rtn=(r_pathfilename)if r_rtn0 thenflag_code,01)+ r_filetyper_filename=mid(r_filename,1,pos(r_filename,r_filetype) - 1 ) file_name,r_filename) file_type_code,r_filename_code)cb_test: clicked!cb_repeat_data: clicked!long r_countif =&F顯示重復數(shù)據(jù)then=&F顯示不重復數(shù)據(jù)r_count= IF r_count0 THENme

41、ssagebox(提示共+string(r_count)+條重復數(shù)據(jù)行！)ELSEmessagebox(提示,無重復數(shù)據(jù)行!)END IFELSE=&F顯示重復數(shù)據(jù)r_count= IF r_count0 THENmessagebox(提示共+string(r_count)+條新數(shù)據(jù)行 r)ELSEmessagebox(提示,無新的數(shù)據(jù)行!)END IFEND IF刪除cb_del: clicked!INTEGER NETNet = MessageBox(提示,是否真的要刪除所選中的行？，Exclamation!,YESNO!, 1)IF Net = 2 THEN return=false(i

42、_row)gf dw cou nt復位cb_reset: clicked!()()II=false=false=&F顯示重復數(shù)據(jù)退岀cb_exit: clicked!(clicked!)關閉 cb_close: clicked!close(pare nt)保存cb_save: clicked!int r_rtnlong r_rowcou nt,r_return,NET,r_rowcou nt_repeatboolea n r_retur_rowcou nt=()r_rowcou nt_repeat=()if r_rowcou nt1 and r_rowcou nt_repeat0 THEN =

43、truedw_table: itemerror!擴展父腳本：Exte nd An cestor Scriptreturn 1刪除cb_del: clicked!INTEGER NETlong R_ROW,r_countNet = MessageBox(提示,是否真的要刪除所選中的行？，Exclamation!,YESNO!,1)IF Net = 2 THEN return=false(i_row)gf dw count(dw table,sle count)全部刪除cb_del_all: clicked!INTEGER NETlong R_ROW,r_countNet = MessageBox

44、(提示, 是否真的要全部刪除 ？，Exclamation!, YESNO!, 1) IF Net = 2 THEN return=falser_count=()FOR R_ROW=1 TO r_count(0) -gf_dw_count(dw_table,sle_count)NEXTcb_save: clicked!integer rtn, NETNet = MessageBox(提示, 是否真的要保存？，Exclamation!, YESNO!, 1) IF Net 1 THEN return()()if f_check_null(i_type,dw_table,)=1 then messa

45、gebox(提示,修改后再保存!) returnend ifIF ( ) 0 OR ( ) 0 THENrtn =()IF rtn = 1 THENCOMMIT USING SQLCA;messagebox(提示保存成功!)(Clicked!)ELSEROLLBACK USING SQLCA;messagebox(提示保存失敗!)END IFEND IFcb_in crease_copy： clicked!string r_string,r_sql,r_coltypein teger r_col_rowlong r_cou nt,r_cou nt1,r_select_cou ntdecimal

46、 r_decimalr_cou nt=()(0)r_cou nt1=()(r_cou nt1)i_row=()(i_row)r_select_cou nt=(O)if r_cou nt0 the nif not r_select_cou nt0 the n r_select_cou nt=r_cou nt end ifFOR r_col_row=1 TO i_col r_coltype = coltyper_col_row IF r_coltype = ! THENMbssageBox(錯誤,數(shù)據(jù)類型錯誤r) r eturnEND IFCHOOSE CASE r_coltype CASE number,lo ng ,i nt r_decimal=(r_select_cou nt,e nam