會(huì)計(jì)電算化之庫(kù)存管理手冊(cè)核算系統(tǒng)實(shí)驗(yàn)指導(dǎo)書

1、會(huì)計(jì)信息化庫(kù)存管理存貨核算系統(tǒng)實(shí)驗(yàn)指導(dǎo)書會(huì)計(jì)學(xué)院會(huì)計(jì)信息化系2005年8月目 錄 TOC o 1-3 h z 實(shí)驗(yàn)一 庫(kù)存管理存貨核算系統(tǒng)業(yè)務(wù)流程分析實(shí)驗(yàn)?zāi)康模悍治鰩?kù)存管理存貨核算系統(tǒng)的業(yè)務(wù)流程，畫出存貨子系統(tǒng)業(yè)務(wù)流程圖。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實(shí)驗(yàn)方式：分組進(jìn)行。上機(jī)機(jī)時(shí)： 2機(jī)時(shí)實(shí)驗(yàn)內(nèi)容：1、庫(kù)存管理存貨核算系統(tǒng)業(yè)務(wù)流程描述。為了深入了解存貨核算與管理的特點(diǎn)，我們首先分析手工條件下存貨核算與管理的業(yè)務(wù)處理流程，掌握存貨出庫(kù)、入庫(kù)、期末結(jié)賬、對(duì)賬以及管理分析的過程。存貨包括原材料、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。在手工條件下，當(dāng)存貨到達(dá)

2、企業(yè)并辦理入庫(kù)手續(xù)后，除了倉(cāng)庫(kù)保管員要登記存貨數(shù)量賬外，財(cái)會(huì)部門也要根據(jù)各種憑單（如入庫(kù)單、驗(yàn)收?qǐng)?bào)告等）登記存貨明細(xì)賬，反映存貨增加等經(jīng)濟(jì)業(yè)務(wù)；當(dāng)各個(gè)部門領(lǐng)用存貨時(shí)（如生產(chǎn)車間領(lǐng)用材料用于生產(chǎn)、銷售部門領(lǐng)用產(chǎn)品用于銷售），倉(cāng)庫(kù)保管員又要登記存貨數(shù)量賬，財(cái)會(huì)部門又要根據(jù)各種憑單（如入庫(kù)單等）登記存貨明細(xì)賬，反映存貨減少等經(jīng)濟(jì)業(yè)務(wù)；定期編制記賬憑證傳遞到總賬子系統(tǒng)，登記總賬。此外，還要及時(shí)為管理提供各種存貨報(bào)告，如存貨狀態(tài)報(bào)告、ABC存貨成本分析報(bào)告、超儲(chǔ)積壓存貨分析報(bào)告等。下面我們對(duì)入庫(kù)流程、出庫(kù)流程以及期末結(jié)賬和管理分析流程進(jìn)行分析。（1）存貨核算與管理入庫(kù)流程分析當(dāng)采購(gòu)部門或者供應(yīng)商將存貨送

3、入倉(cāng)庫(kù)，生產(chǎn)部門或者物流部門將生產(chǎn)的產(chǎn)成品送入倉(cāng)庫(kù)，入庫(kù)業(yè)務(wù)便開始進(jìn)行了。倉(cāng)庫(kù)保管員依據(jù)采購(gòu)訂單和計(jì)劃入庫(kù)安排，檢查供應(yīng)商送貨及時(shí)性，根據(jù)事先設(shè)定的送貨接收標(biāo)準(zhǔn)，判定是否收貨。如果可以收貨，倉(cāng)庫(kù)保管員編制收貨憑證，并將收貨憑證和質(zhì)檢抽樣存貨移入質(zhì)檢部門，進(jìn)行抽樣檢驗(yàn)。如果質(zhì)檢合格，將質(zhì)檢合格存貨退返倉(cāng)庫(kù)，進(jìn)行庫(kù)存移庫(kù)操作，并編制驗(yàn)收?qǐng)?bào)告。將驗(yàn)收?qǐng)?bào)告?zhèn)鬟f給倉(cāng)庫(kù)和財(cái)務(wù)部門。倉(cāng)庫(kù)保管員根據(jù)驗(yàn)收?qǐng)?bào)告和收貨憑證編制入庫(kù)單。登記相應(yīng)存貨的入庫(kù)數(shù)量和結(jié)存數(shù)量，即存貨三級(jí)賬，并將相應(yīng)的單據(jù)傳遞到財(cái)務(wù)部門。財(cái)務(wù)賁門根據(jù)入庫(kù)單、驗(yàn)收?qǐng)?bào)告編制記賬憑證。存貨核算會(huì)計(jì)審核憑證，登記存貨明系賬，并將憑證傳遞到總賬子系統(tǒng)。

4、總賬會(huì)計(jì)定期根據(jù)記賬憑證登記總賬。（2）存貨核算與管理出庫(kù)、期末處理與管理的分析流程當(dāng)生產(chǎn)部門提出領(lǐng)料申請(qǐng)、銷售部門提出發(fā)運(yùn)產(chǎn)品時(shí)，出庫(kù)業(yè)務(wù)便開始進(jìn)行；到會(huì)計(jì)期末進(jìn)行相應(yīng)的處理，并提交各種管理分析報(bào)告。倉(cāng)庫(kù)保管員接到各車間、用料單位提出的領(lǐng)料申請(qǐng)，或者銷售部門提出的發(fā)運(yùn)請(qǐng)求，經(jīng)審核單據(jù)后，編制出庫(kù)單，并發(fā)出存貨。倉(cāng)庫(kù)保管員登記相應(yīng)存貨出庫(kù)數(shù)量和結(jié)存數(shù)據(jù)，即存貨三級(jí)賬，并將相應(yīng)的單據(jù)傳遞到財(cái)會(huì)部門。財(cái)會(huì)部門會(huì)計(jì)人員根據(jù)出庫(kù)單等單據(jù)編制記賬憑證，登記存貨明細(xì)賬，并將憑證傳遞到總賬子系統(tǒng)。由于存貨種類繁多、數(shù)量大、收發(fā)業(yè)務(wù)頻繁，存貨成本計(jì)算比較復(fù)雜，為了滿足不同企業(yè)對(duì)核算的需要，存貨可以按計(jì)劃成本計(jì)

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

6、包括超儲(chǔ)積壓一覽表、ABC成本分析表、倉(cāng)庫(kù)存貨匯總表等內(nèi)容的管理分析報(bào)告，并提出存貨管理的改進(jìn)意見和評(píng)價(jià)信息。2、通過分析存貨子系統(tǒng)的業(yè)務(wù)流程，利用Visio軟件畫出存貨子系統(tǒng)的業(yè)務(wù)流程圖。業(yè)務(wù)流程圖如圖1所示：圖1 存貨子系統(tǒng)業(yè)務(wù)流程圖實(shí)驗(yàn)二 存貨子系統(tǒng)數(shù)據(jù)處理流程分析實(shí)驗(yàn)?zāi)康模和ㄟ^存貨子系統(tǒng)的業(yè)務(wù)流程圖，進(jìn)一步分析優(yōu)化存貨子系統(tǒng)的數(shù)據(jù)處理流程，畫出存貨子系統(tǒng)的數(shù)據(jù)處理流程圖。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)內(nèi)容：1、通過分析存貨子系統(tǒng)的業(yè)務(wù)流程圖，利用Visio軟件畫出存貨子系統(tǒng)的數(shù)據(jù)處理流程圖。根據(jù)前面對(duì)存貨子系統(tǒng)業(yè)務(wù)流程圖的

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

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

9、流程圖，寫出存貨子系統(tǒng)的數(shù)據(jù)字典。數(shù)據(jù)流的描述數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來源數(shù)據(jù)流去向F1庫(kù)存產(chǎn)品信息表庫(kù)存部門記錄存貨信息的表庫(kù)存模塊其他各模塊F2庫(kù)存盤點(diǎn)表庫(kù)存部門記錄存貨期末盤點(diǎn)情況的表庫(kù)存模塊賬務(wù)模塊F3入庫(kù)單庫(kù)存部門開出的入庫(kù)單庫(kù)存模塊采購(gòu)模塊F4出庫(kù)單庫(kù)存部門開出的出庫(kù)單庫(kù)存模塊銷售模塊F5銷售退貨入庫(kù)單庫(kù)存部門開出的銷售退貨入庫(kù)單庫(kù)存模塊銷售模塊F6采購(gòu)申請(qǐng)單庫(kù)存不足時(shí)庫(kù)存部門開出的采購(gòu)申請(qǐng)單庫(kù)存模塊采購(gòu)模塊F7報(bào)損單庫(kù)存部門開出的報(bào)損單庫(kù)存模塊質(zhì)管模塊F8部門用途表各部門領(lǐng)用存貨類別表庫(kù)存模塊賬務(wù)模塊F9流水賬單存貨出入情況的賬單庫(kù)存模塊信息使用者F10期初余額表庫(kù)存期初余

10、額庫(kù)存模塊信息使用者處理邏輯的描述處理邏輯編號(hào)處理邏輯名稱簡(jiǎn)述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流P1驗(yàn)收貨物對(duì)采購(gòu)入庫(kù)的貨物進(jìn)行檢驗(yàn)采購(gòu)單驗(yàn)收單P2出庫(kù)處理對(duì)銷售的貨物進(jìn)行出庫(kù)檢驗(yàn)銷售單銷售檢驗(yàn)單P3審核調(diào)撥單對(duì)調(diào)撥單申請(qǐng)進(jìn)行審核調(diào)撥單（申請(qǐng)）調(diào)撥單（審核）P4盤點(diǎn)庫(kù)存對(duì)庫(kù)存中的存貨進(jìn)行盤點(diǎn)實(shí)物清單庫(kù)存盤點(diǎn)單P5審核報(bào)損單對(duì)報(bào)損單申請(qǐng)進(jìn)行審核報(bào)損單報(bào)損單（審核） 數(shù)據(jù)存儲(chǔ)的描述數(shù)據(jù)存儲(chǔ)編號(hào)數(shù)據(jù)存儲(chǔ)名稱簡(jiǎn)述S1庫(kù)存賬目存貨入庫(kù)、出庫(kù)、退貨、報(bào)損后修改當(dāng)前庫(kù)存量外部實(shí)體的描述外部實(shí)體編號(hào)外部實(shí)體名稱簡(jiǎn)述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流E1倉(cāng)庫(kù)部門對(duì)存貨保管、增減變化進(jìn)行管理的部門驗(yàn)收單、銷售單入庫(kù)單、出庫(kù)單E2采購(gòu)

11、部門采購(gòu)存貨的部門入庫(kù)單采購(gòu)單E3銷售部門銷售商品的部門出庫(kù)單銷售單E4財(cái)務(wù)部門進(jìn)行賬務(wù)處理的部門庫(kù)存盤點(diǎn)單、報(bào)損單帳簿、報(bào)表利用PowerDesigner軟件，建立存貨子系統(tǒng)的PDM。實(shí)驗(yàn)五 建立存貨子系統(tǒng)數(shù)據(jù)庫(kù)實(shí)驗(yàn)?zāi)康模航⒋尕涀酉到y(tǒng)的SQL Anywhere數(shù)據(jù)庫(kù)。刪除所建數(shù)據(jù)庫(kù)的transaction log file文件。建立存貨子系統(tǒng)的ODBC。通過存貨子系統(tǒng)的PDM，生成 存貨子系統(tǒng)數(shù)據(jù)庫(kù)中的各張表。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、PowerDesigner軟件、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫(kù)等。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)內(nèi)容：1、在PowerB

12、uilder中，建立存貨子系統(tǒng)的SQL Anywhere數(shù)據(jù)庫(kù)。2、在Sybase 中心Sybase Central中，利用Utilities 工具中的Change Log File Information功能，刪除所建數(shù)據(jù)庫(kù)的transaction log file文件。3、在PowerBuilder中，或在PowerBuilder中，建立存貨子系統(tǒng)的ODBC。4、在PowerDesigner AppModeler軟件，連接存貨子系統(tǒng)數(shù)據(jù)庫(kù)。5、通過存貨子系統(tǒng)的PDM，利用PowerDesigner AppModeler軟件，生成存貨子系統(tǒng)數(shù)據(jù)庫(kù)中的各張表。數(shù)據(jù)庫(kù)設(shè)計(jì)1.碼表設(shè)計(jì)一 倉(cāng)庫(kù)表倉(cāng)

13、庫(kù)表c_ch_ckb字段名類型長(zhǎng)度是否空含義ckb_codechar(6)NOT NULL倉(cāng)庫(kù)編號(hào)ckb_namechar(20)NULL倉(cāng)庫(kù)名稱二 職員表職員表c_ch_zyb字段名類型長(zhǎng)度是否空含義zyb_codechar(6)NOT NULL職員編號(hào)zyb_namechar(20)NULL職員名稱zyb_szbmchar(20)NULL所在部門三 部門表部門表c_ch_bmb字段名類型長(zhǎng)度是否空含義bmb_codechar(6)NOT NULL部門編號(hào)bmb_namechar(20)NULL部門名稱四 貨位表貨位表c_ch_hwb字段名類型長(zhǎng)度是否空含義hwb_codechar(6)NO

14、T NULL貨位編號(hào)hwb_namechar(20)NULL貨位名稱hwb_szckchar(20)NULL所在倉(cāng)庫(kù)五 業(yè)務(wù)性質(zhì)表業(yè)務(wù)性質(zhì)表c_ch_ywxzb字段名類型長(zhǎng)度是否空含義ywxzb_codechar(6)NOT NULL業(yè)務(wù)性質(zhì)編碼ywxzb_namechar(40)NULL業(yè)務(wù)性質(zhì)名稱2.基本表設(shè)計(jì)一 庫(kù)存產(chǎn)品信息表庫(kù)存產(chǎn)品信息表 T_kcxx字段名類型長(zhǎng)度是否空含義*chbmChar(10)NOT NULL存貨編碼chmcchar(50)NULL存貨名稱ggxhChar (5)NULL規(guī)格型號(hào)jldwChar(10)NULL計(jì)量單位chlbChar(10)NULL存貨類別Ch

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

16、L本月收數(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é)存單價(jià)jcjedecimal(10,2)NULL本月結(jié)存金額三 入庫(kù)單入庫(kù)單表 T_rkd字段名類型長(zhǎng)度是否空含義*rkdhChar(10)NOT NULL*入庫(kù)單編號(hào)(自動(dòng)生成)rkrqChar(15)NULL入庫(kù)單日期ywbhChar(15)NULL業(yè)務(wù)編號(hào)ywyxmChar(10)NULL業(yè)務(wù)員姓名chbmChar(10)NUL

17、L存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(10,2)NULL金額cdChar(10)NULL產(chǎn)地gysChar(10)NULL供應(yīng)商ckChar(10)NULL倉(cāng)庫(kù)hwChar(10)NULL貨位shbzChar(2)NULL審核標(biāo)志clbzChar(2)NULL處理標(biāo)志shbzChar(2)NULL收貨標(biāo)志zdrChar(10)NULL制單人shrChar(10)NULL審核人四 出庫(kù)單出庫(kù)單表 T_ckd字段名類型長(zhǎng)度是否空含義*ckdhChar(10)NOT NULL*出庫(kù)單編號(hào)(自動(dòng)生成)ckrqChar(15)N

18、ULL出庫(kù)單日期ywbhChar(15)NULL業(yè)務(wù)編號(hào)ywyxmChar(10)NULL業(yè)務(wù)員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(10,2)NULL金額ytChar(10)NULL用途bmChar(10)NULL部門ckChar(10)NULL倉(cāng)庫(kù)hwChar(10)NULL貨位shbzChar(2)NULL審核標(biāo)志clbzChar(2)NULL處理標(biāo)志shbzChar(2)NULL收貨標(biāo)志zdrChar(10)NULL制單人shrChar(10)NULL審核人bzchar(100

19、)NULL備注五 銷售退貨入庫(kù)單銷售退貨入庫(kù)單 T_xsthrkd字段名類型長(zhǎng)度是否空含義*ckthdhChar(10)NOT NULL*銷售退貨單編號(hào)(自動(dòng)生成)ckthdrqChar(15)NULL銷售退貨單日期ywbhChar(15)NULL業(yè)務(wù)編號(hào)ywyxmChar(10)NULL業(yè)務(wù)員姓名chbmChar(10)NOT NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(10,2)NULL金額bmChar(10)NULL部門ckChar(10)NULL倉(cāng)庫(kù)hwChar(10)NULL貨位shbzChar(2)NULL

20、審核標(biāo)志clbzChar(2)NULL處理標(biāo)志shbzChar(2)NULL收貨標(biāo)志zdrChar(10)NULL制單人shrChar(10)NULL審核人thyyChar(100)NULL退貨原因六 采購(gòu)申請(qǐng)單采購(gòu)申請(qǐng)單ch_cgsqd字段名類型長(zhǎng)度是否空含義*sqdbhChar(10)NOT NULL*申請(qǐng)單編號(hào)(自動(dòng)生成)rqChar(15)NULL日期chbmChar(10)NULL存貨編碼chmcChar(20)NULL存貨名稱ggxhChar(10)NULL規(guī)格型號(hào)jldwChar(4)NULL計(jì)量單位chlbChar(10)NULL存貨類別chsxChar(10)NULL存貨屬性

21、xqsldecimal(10,2)NULL需求數(shù)量chrChar(10)NULL制單人shrChar(10)NULL審核人七 報(bào)損單入庫(kù)退貨單 T_rkth字段名類型長(zhǎng)度是否空含義*bsbhChar(10)NOT NULL*報(bào)損單編號(hào)(自動(dòng)生成)bsrqChar(15)NULL報(bào)損單日期ywyxmChar(10)NULL業(yè)務(wù)員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(10,2)NULL金額cdChar(10)NULL產(chǎn)地gysChar(10)NULL供應(yīng)商ckChar(10)NULL倉(cāng)庫(kù)h

22、wChar(10)NULL貨位shbzChar(2)NULL審核標(biāo)志clbzChar(2)NULL處理標(biāo)志shbzChar(2)NULL收貨標(biāo)志zdrChar(10)NULL制單人shrChar(10)NULL審核人bsyyChar(100)NULL報(bào)損原因八 部門用途表部門用途表 T_bmytb 字段名類型長(zhǎng)度是否空含義*bmbmChar(10)NOT NULL*部門編碼bmmcChar(20)NULL部門名稱ytdmChar(10)NULL用途代碼ytmcChar(10)NULL用途名稱xmfy Char(10)NULL項(xiàng)目費(fèi)用九 流水賬單流水賬單ch_lszd字段名類型長(zhǎng)度是否空含義*x

23、hchar(3)NOT NULL序號(hào)sjChar(15)NULL時(shí)間djhchar(2)NULL單據(jù)號(hào)ywxzchar(4)NULL業(yè)務(wù)性質(zhì)chbmchar(10)NULL存貨編碼chmcchar(20)NULL存貨名稱sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(10,2)NULL金額十 期初余額表期初余額表 T_qcyeb字段名類型長(zhǎng)度是否空含義chbmChar(10)NULL存貨編碼chmmChar(50) not NULL存貨名稱sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecima

24、l(10,2)NULL金額cdchar(50)null產(chǎn)地gyschar(50)null供應(yīng)商ckChar(10)NULL倉(cāng)庫(kù)hwChar(10)NULL貨位bzchar(100)NULL備注十一 存貨盤點(diǎn)表存貨盤點(diǎn)表 T_chpdb字段名類型長(zhǎng)度是否空含義pddbhChar(10) not NULL盤點(diǎn)單編號(hào)pddrqChar(15)NULL盤點(diǎn)單日期ywyxmChar(10)NULL業(yè)務(wù)員姓名bmChar(10)NULL部門chbmChar(10) not NULL存貨編碼chmcchar(20)null存貨名稱hwchar(10)null貨位chdjdecimal(10,2)NULL存貨

25、單價(jià)zcsldecimal(10,2)NULL賬存數(shù)量pdsldecimal(10,2)NULL盤點(diǎn)數(shù)量yksldecimal(10,2)NULL盈虧數(shù)量zdrchar(10)NULL制單人 shrchar(10)NULL審核人實(shí)驗(yàn)六 存貨子系統(tǒng)基本窗口設(shè)計(jì)實(shí)驗(yàn)?zāi)康模捍尕涀酉到y(tǒng)窗口設(shè)計(jì)。存貨子系統(tǒng)全局變量設(shè)計(jì)。存貨子系統(tǒng)全局函數(shù)設(shè)計(jì)。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫(kù)、教師提供的軟件原型平臺(tái)等。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)內(nèi)容：1、存貨子系統(tǒng)全局變量設(shè)計(jì)。全局變量定義string g_oper_code,g_oper_name,g_s

26、heet_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_MachineNamestring g_log_rec=0 ame

27、 enamei=(r_col) coltypei=(enamei + .ColType) col_widthi=(enamei + .width) col_heighti=(enamei + .height) col_yi=Double(enamei + .y) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) if (enamei,i_dwc)=1 then(sqlca)(%)CHOOSE CASE enameiCASE supp_attr_codei_dwc_supp_attr_code=i_dwcCASE ELSEEND CHOOS

28、E end ifNEXT(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)(clicked!)(clicked!)=true=i_title + 輸入dw_table: buttonclicked!stringr_object,r_type, r_code,r_colr_object = StringCHOOSE CASE i_typeCASE c_operator CHOOSE CASE r_objectCASE cb_func_code bl) = this = i_row = r_columnname olType r_coltype = (r_sql)

29、IF r_coltype = ! THEN MessageBox(錯(cuò)誤, 數(shù)據(jù)類型錯(cuò)誤!) return END IF CHOOSE CASE r_coltypeCASE number,long,int r_decimal=(r_count,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_decimal)CASE dateCASE datetimeCASE ELSE IF Left(r_coltype,4) = char THENr_string=(r_count,i_col_copyr_col_row) (i_row,i_col_copyr

30、_col_row,r_string)ELSEIF Left(r_coltype,7) = decimal THEN ame enamei=(r_col_name) coltypei=(enamei + .ColType)NEXT(clicked!)=truei_dw=dw_table=dw_table: clicked!long r_rowcounti_row=rowIF not i_row0 THEN return( )(row)(0,FALSE)(i_row,TRUE)=true=true=true=truegf_dw_count(this,sle_count)r_rowcount=()i

31、f i_row=1 and r_rowcount=1 then=false=false=falseelseif i_row=r_rowcount then=false=falseelseif i_row=1 and r_rowcount1 then=false=falseend ifdw_table: double clicked!string str_column,str_formatstr_column= bf),*.dbf,+& text files(*.txt),*.txt,+& excel files(*.excel),*.xls,+& sql files(*.sql),*.sql,

32、) if r_value1 then messagebox(提示,打開文件保存對(duì)話窗口失敗!)return 0end ifr_filetype=right(r_pathfilename,3)r_pathlen=len(r_pathfilename) - len(r_filename) - 1r_path=left(r_pathfilename,r_pathlen),49152) ame enamei=if not(enamei=save_import_code or enamei=chinese_name ) then r_modi=r_modi + enamei + .width=0end

33、ifNEXT i_save_import=01 then dw_main: clicked!if not row0 then return(row)(0, FALSE)(row, TRUE)i_save_import=(row,save_import_code)if i_save_import=01 then dw_main: ue_1!(自定義事件)string r_dw_namer_dw_name=(i_row,table_dw_name)i_save_import=(i_row,save_import_code)i_type=(i_row,table_name) cb_retrieve:

34、clicked!cb_inqu_select:clicked!long r_rowcount,r_ret r_ret=gf_query i_orig_sql, r_ret=0 thenreturnend if r_rowcount0 then =trueelse=falsemessagebox(提示,無記錄!)end if導(dǎo)出.cb_copy:clicked!long r_rowcount,r_row,r_pos_datestring r_interval,r_mean_code,r_path,r_filenamestring r_date2,r_tablenameint net,r_retu

35、rn,r_rtstringr_dept_code,i_orig_sql_temp,r_drive,r_datestring r_file_type,r_file_type_namer_rowcount=()if not r_rowcount0 thenmessagebox(提示,該窗口無數(shù)據(jù)!)returnend ifNet = MessageBox(提示, 是否真的要導(dǎo)出, Exclamation!, YESNO!, 1)if net=2 then returnr_dept_code=i_dept_coder_row= not r_row0 then messagebox(提示,請(qǐng)選擇需要導(dǎo)

36、出的表!)returnend ifi_table_name=table_name)+r_file_type_namef_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 elsemessagebox(提示,該表無導(dǎo)出方式，無法導(dǎo)出!)returnend choose=false導(dǎo)入.cb_input:clicked!long r_row,r_pathlenint r_rtns

37、tring 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 messagebox(提示,請(qǐng)選擇需要導(dǎo)入的表!)returnend if+r_file_type_namecase 02 bf),*.dbf, + &Text Files (*.TXT),

38、*.TXT, + Excel Files (*.xls),*.xls, + &SQL Files (*.sql),*.sql, )case 03 +r_file_type_namecase elsemessagebox(提示,該表無導(dǎo)入方式，無法導(dǎo)入!)returnend chooseif r_rtn1 and r_rtn0 then messagebox(提示,操作失敗!)returnend ifif r_rtn=0 then returnend ifr_rtn=(r_pathfilename)if r_rtn0 thenflag_code,01) + r_filetyper_filenam

39、e=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顯示重復(fù)數(shù)據(jù) then=&F顯示不重復(fù)數(shù)據(jù)r_count=IF r_count0 THENmessagebox(提示,共 +string(r_count)+ 條重復(fù)數(shù)據(jù)行!)ELSEmessagebox(提示,無重復(fù)數(shù)據(jù)行!)END IFELSE=&F顯示重復(fù)數(shù)據(jù)r_count

40、=IF r_count0 THENmessagebox(提示,共 +string(r_count)+ 條新數(shù)據(jù)行!)ELSEmessagebox(提示,無新的數(shù)據(jù)行!)END IFEND IF刪除.cb_del:clicked!INTEGER NETNet = MessageBox(提示, 是否真的要?jiǎng)h除所選中的行, Exclamation!, YESNO!, 1)IF Net = 2 THEN return=false(i_row)gf_dw_count復(fù)位.cb_reset:clicked!()()=false=false=&F顯示重復(fù)數(shù)據(jù)退出.cb_exit:clicked!(click

41、ed!)關(guān)閉cb_close:clicked!close(parent)保存.cb_save:clicked!int r_rtnlong r_rowcount,r_return,NET,r_rowcount_repeatboolean r_retur_rowcount=()r_rowcount_repeat=()if r_rowcount1 and r_rowcount_repeat0 THEN =truedw_table:itemerror!擴(kuò)展父腳本：Extend Ancestor Scriptreturn 1刪除cb_del:clicked!INTEGER NETlong R_ROW,r

42、_countNet = MessageBox(提示, 是否真的要?jiǎng)h除所選中的行, 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(提示, 是否真的要全部刪除, Exclamation!, YESNO!, 1)IF Net = 2 THEN return=falser_count=()FOR R_ROW=1 TO r_count(

43、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 thenmessagebox(提示,修改后再保存!)returnend ifIF ( ) 0 OR ( ) 0 THENrtn = ( ) IF rtn = 1 THEN COMMIT USING SQLCA;messagebox(提

44、示,保存成功!)(Clicked!) ELSE ROLLBACK USING SQLCA;messagebox(提示,保存失敗!) END IF END IFcb_increase_copy:clicked!string r_string,r_sql,r_coltypeinteger r_col_rowlong r_count,r_count1,r_select_countdecimal r_decimalr_count=()(0)r_count1=()(r_count1)i_row=()(i_row)r_select_count=(0)if r_count0 then if not r_se

45、lect_count0 thenr_select_count=r_countend if FOR r_col_row=1 TO i_col r_coltype = coltyper_col_row IF r_coltype = ! THEN MessageBox(錯(cuò)誤, 數(shù)據(jù)類型錯(cuò)誤!) return END IF CHOOSE CASE r_coltypeCASE number,long,int r_decimal=(r_select_count,enamer_col_row) (i_row,enamer_col_row,r_decimal)CASE dateCASE datetimeCAS

46、E ELSE IF Left(r_coltype,4) = char THENr_string=(r_select_count,enamer_col_row) (i_row,enamer_col_row,r_string)ELSEIF Left(r_coltype,7) = decimal THEN 存信息輸入的free 的格式庫(kù)存信息輸入的grid的格式庫(kù)存期初的free格式的輸入庫(kù)存期初的grid格式的輸入實(shí)驗(yàn)九 存貨子系統(tǒng)軟件編程業(yè)務(wù)處理實(shí)驗(yàn)?zāi)康模和瓿纱尕涀酉到y(tǒng)單表處理模塊的編程。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫(kù)、教師提供

47、的軟件原型平臺(tái)等。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)內(nèi)容：1、存貨子系統(tǒng)單表輸入、修改處理。通過繼承窗口w_sheet_input，產(chǎn)生窗口w_sheet_input_ch，來實(shí)現(xiàn)對(duì) 存貨子 系統(tǒng)單表的輸入處理。窗口w_sheet_input_ch的相關(guān)事件及腳本修改如下：窗口名w_sheet_input_ch父窗口w_sheet_input實(shí)例變量聲明窗口函數(shù)控件事件腳本w_sheet_input_ch:open!覆蓋父腳本：Override Ancestor Scriptstring r_modi,r_col,r_col_nameinteger ii_type=CHOOSE CASE i_type

48、CASE ch_rkd =dw_ch_rkd_free=dw_ch_rkd_grid1=dw_c_supp_free=存貨入庫(kù)單 CASE ch_ckd =dw_ch_ckd_free=dw_ch_ckd_grid=dw_c_supp_free=存貨出庫(kù)單 CASE ch_xsthd =dw_ch_xsthd_free=dw_ch_xsthd_grid=dw_c_supp_free=銷售退貨單 CASE ch_chjcb=dw_ch_chjcb_grid=dw_ch_chjcd_free=dw_ch_chjcd_free=存貨結(jié)存表 CASE ch_chpdb =dw_ch_chpdb_fre

49、e =dw_ch_chpdb_grid=dw_ch_chpdb_free=存貨盤點(diǎn)單END CHOOSE(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)i_col=integer ame enamei=(r_col) coltypei=(enamei + .ColType) col_widthi=(enamei + .width) col_heighti=(enamei + .height) ) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) 售退貨單的窗口4.存貨的盤點(diǎn)表窗口5.存貨的結(jié)存表窗口實(shí)驗(yàn)九

50、 存貨子系統(tǒng)軟件編程導(dǎo)入導(dǎo)出處理實(shí)驗(yàn)?zāi)康模和瓿纱尕涀酉到y(tǒng)導(dǎo)入導(dǎo)出處理模塊的編程。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫(kù)、教師提供的軟件原型平臺(tái)等。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)內(nèi)容：1、存貨子系統(tǒng)的導(dǎo)入導(dǎo)出初始化處理。通過以下修改來實(shí)現(xiàn)對(duì)存貨子系統(tǒng)導(dǎo)入導(dǎo)出的初始化處理：創(chuàng)建新的全局函數(shù)f_i_o_ch()。通過繼承窗口w_i_o_ini，產(chǎn)生窗口w_i_o_ini_ch。函數(shù)名f_i_o_ch返回值類型無函數(shù)功能導(dǎo)入導(dǎo)出初始化參數(shù)定義無腳本INSERT INTO save_import VALUES (001,ch_rkd,dw_ch_rk

51、d_grid,01,02,D:djdata,ch_rkd,01,入庫(kù)單,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_rkd,dw_ch_rkd_grid,02,02,D:djdata,ch_rkd,01,入庫(kù)單,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_ckd,dw_ch_ckd_grid,01,02,D:djdata,ch_rkd,01,出庫(kù)單,00,000,2002-01-01,2002

52、-01-01,01,);INSERT INTO save_import VALUES (001,ch_ckd,dw_ch_ckd_grid,02,02,D:djdata,ch_rkd,01,出庫(kù)單,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_xsthd,dw_ch_xsthd_grid,01,02,D:djdata,ch_xsthd,01,銷售退貨單,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch

53、_xsthd,dw_ch_xsthd_grid,02,02,D:djdata,ch_xsthd,01,銷售退貨單,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chpdb,dw_ch_chpdb_grid,01,02,D:djdata,ch_chpdb,01,存貨盤點(diǎn)表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chpdb,dw_ch_chpdb_grid,02,02,D:djdata,ch_

54、chpdb,01,存貨盤點(diǎn)表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chjcb,dw_ch_chjcb_grid,01,02,D:djdata,ch_chjcb,01,存貨結(jié)存表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chjcb,dw_ch_chjcb_grid,02,02,D:djdata,ch_chjcb,01,存貨結(jié)存表,00,000,2002-01-01,2002-01-0

55、1,01,);窗口名w_i_o_ini_ch父窗口w_i_o_ini實(shí)例變量聲明窗口函數(shù)控件事件腳本導(dǎo)入導(dǎo)出表初始按鈕cb_ok:clicked!覆蓋父腳本：Override Ancestor Scriptinteger NETNet = MessageBox(提示, 是否真的要對(duì)導(dǎo)入導(dǎo)出表進(jìn)行初始化, Exclamation!, YESNO!, 2)IF Net = 2 THEN returnSetPointer(HourGlass!)f_i_o_ch()SetPointer(Arrow!)MessageBox(提示,導(dǎo)入導(dǎo)出表初始化完畢!)2、 存貨子系統(tǒng)的導(dǎo)入導(dǎo)出處理。通過以下修改來實(shí)現(xiàn)

56、對(duì)存貨子系統(tǒng)導(dǎo)入導(dǎo)出的初始化處理：創(chuàng)建新的全局函數(shù)f_dw_test_repeat_ch ()、f_dw_test_repeat_del_ch()。通過繼承窗口w_i_o，產(chǎn)生窗口w_i_o_ch。函數(shù)名f_dw_test_repeat_ch返回值類型long函數(shù)功能對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試參數(shù)定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本/刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù)用于w_i_o導(dǎo)入導(dǎo)出long r_row,r_rowcount,r_count,r_select,r_return=0string r_primaryr_t

57、ype=lower(r_type)r_rowcount=()CHOOSE CASE r_typeCASE c_operatorr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,oper_code) delete from c_operator where = :r_primary1 ;NEXTCASE ch_rkdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,rkd_rkdh) delete from ch_rk

58、d where = :r_primary1 ;NEXTCASE ch_ckdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,ckd_ckdh) delete from ch_ckd where = :r_primary1 ;NEXTCASE ch_xsthdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,xsthd_xsthdh) delete from ch_xsthd where = :r_primary1

59、;NEXTCASE ch_chpdbr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,chpdb_pddbh) delete from ch_chpdb where = :r_primary1 ;NEXTCASE ch_chjcbr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,chjcb_chbm) delete from ch_chjcb where = :r_primary1 ;NEXTCASE ELSEEND

60、 CHOOSEreturn r_return r_primary1=(r_row,supp_code) /取關(guān)鍵字delete from c_suppwhere = :r_primary1 ;NEXTCASE ELSEEND CHOOSEf_sql()return r_return函數(shù)名f_dw_test_repeat_del_ch返回值類型long函數(shù)功能刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù)參數(shù)定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本/刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù)用于w_i_o導(dǎo)入導(dǎo)出long r_row,r_rowcount,r_coun