會(huì)計(jì)信息化庫(kù)存管理存貨核算系統(tǒng)

1、會(huì)計(jì)信息化庫(kù)存管理存貨核算系統(tǒng)實(shí)驗(yàn)指導(dǎo)書目 錄 實(shí)驗(yàn)一 存貨子系統(tǒng)業(yè)務(wù)流程分析1實(shí)驗(yàn)二 存貨子系統(tǒng)數(shù)據(jù)處理流程分析1實(shí)驗(yàn)三 存貨子系統(tǒng)功能分析2實(shí)驗(yàn)四 存貨子系統(tǒng)數(shù)據(jù)字典及數(shù)據(jù)庫(kù)設(shè)計(jì)2實(shí)驗(yàn)五 建立存貨子系統(tǒng)數(shù)據(jù)庫(kù)3實(shí)驗(yàn)六 存貨子系統(tǒng)基本窗口設(shè)計(jì)4實(shí)驗(yàn)七 存貨子系統(tǒng)軟件編程碼表處理44實(shí)驗(yàn)八 存貨子系統(tǒng)軟件編程單表處理47實(shí)驗(yàn)九 存貨子系統(tǒng)軟件編程導(dǎo)入導(dǎo)出處理53實(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ù)

2、存管理存貨核算系統(tǒng)業(yè)務(wù)流程描述。為了深入了解存貨核算與管理的特點(diǎn)，我們首先分析手工條件下存貨核算與管理的業(yè)務(wù)處理流程，掌握存貨出庫(kù)、入庫(kù)、期末結(jié)賬、對(duì)賬以及管理分析的過(guò)程。存貨包括原材料、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。在手工條件下，當(dāng)存貨到達(dá)企業(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ù)；定期編制記賬憑證

3、傳遞到總賬子系統(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)商將存貨送入倉(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)告。

4、 將驗(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)。 總賬會(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ù)保管員

5、登記相應(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ì)價(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í)賬）是由不同的人

6、員編制的，因此，會(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ù)量賬等編制包括超儲(chǔ)積壓一覽表、ABC成本分析表、倉(cāng)庫(kù)存貨匯總表等內(nèi)容的管理分析報(bào)告，并提出存貨管理的改進(jìn)意見和評(píng)價(jià)信息。2、通過(guò)分析存貨子系統(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)康模和ㄟ^(guò)存貨子系統(tǒng)的業(yè)務(wù)流程圖，進(jìn)一步分

7、析優(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、通過(guò)分析存貨子系統(tǒng)的業(yè)務(wù)流程圖，利用Visio軟件畫出存貨子系統(tǒng)的數(shù)據(jù)處理流程圖。根據(jù)前面對(duì)存貨子系統(tǒng)業(yè)務(wù)流程圖的分析，運(yùn)用系統(tǒng)分析法，可以繪出存貨子系統(tǒng)的數(shù)據(jù)流程圖。依據(jù)模塊結(jié)構(gòu)設(shè)計(jì)的原則，通過(guò)對(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)康模和ㄟ^(guò)分析 存貨子系統(tǒng)的業(yè)務(wù)流程與數(shù)據(jù)處

8、理流程圖，進(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、通過(guò)分析存貨子系統(tǒng)的業(yè)務(wù)流程與數(shù)據(jù)處理流程圖，畫出存貨子系統(tǒng)的功能圖。根據(jù)業(yè)務(wù)流程圖和數(shù)據(jù)流程圖，存貨子系統(tǒng)基本可以劃分為入庫(kù)管理、出庫(kù)管理、盤點(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)康?/p>

9、：通過(guò)分析存貨子系統(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)容：1、 通過(guò)分析存貨子系統(tǒng)的數(shù)據(jù)流程圖，寫出存貨子系統(tǒng)的數(shù)據(jù)字典。數(shù)據(jù)流的描述數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來(lái)源數(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銷售

10、退貨入庫(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ù)存期初余額庫(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)損

11、單對(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)部門采購(gòu)存貨的部門入庫(kù)單采購(gòu)單E3銷售部門銷售商品的部門出庫(kù)單銷售單E4財(cái)務(wù)部門進(jìn)行賬務(wù)處理的部門庫(kù)存盤點(diǎn)單、報(bào)損單帳簿、報(bào)表2、 利用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ù)的transacti

12、on log file文件。建立存貨子系統(tǒng)的ODBC。通過(guò)存貨子系統(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、在PowerBuilder中，建立存貨子系統(tǒng)的SQL Anywhere數(shù)據(jù)庫(kù)。2、在Sybase 中心Sybase Central中，利用Utilities 工具中的Change Log File Information功能，刪除所建數(shù)據(jù)庫(kù)的transaction log file文件。3、在PowerBuilder中

13、，或在PowerBuilder中，建立存貨子系統(tǒng)的ODBC。4、在PowerDesigner AppModeler軟件，連接存貨子系統(tǒng)數(shù)據(jù)庫(kù)。5、通過(guò)存貨子系統(tǒng)的PDM，利用PowerDesigner AppModeler軟件，生成存貨子系統(tǒng)數(shù)據(jù)庫(kù)中的各張表。數(shù)據(jù)庫(kù)設(shè)計(jì)1.碼表設(shè)計(jì)一 倉(cāng)庫(kù)表倉(cāng)庫(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職員名稱z

14、yb_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)NOT 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.

15、基本表設(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存貨類別ChsxChar(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字段名類

16、型長(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)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é)存單價(jià)jcjedecimal(10,2)N

17、ULL本月結(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)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ù)hwChar(10)NULL貨位shbzChar(2)NULL審核標(biāo)志

18、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)NULL出庫(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用途bmCh

19、ar(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)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ù)員姓名chb

20、mChar(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審核標(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

21、*申請(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存貨屬性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

22、(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ù)hwChar(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 字段名

23、類型長(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)度是否空含義*xhchar(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à)j

24、edecimal(10,2)NULL金額十 期初余額表期初余額表 T_qcyeb字段名類型長(zhǎng)度是否空含義chbmChar(10)NULL存貨編碼chmmChar(50) not NULL存貨名稱sldecimal(10,2)NULL數(shù)量djdecimal(10,2)NULL單價(jià)jedecimal(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)

25、單編號(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存貨單價(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)全局變量

26、設(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_sheet_code,g_printstring g_date,g_dept,g_dept_day,g_func_codestring g_dept_month_date='2000-01-01'string g_orig,g_warehousestring g_sp_info,g_menu

27、_nameboolean gb_db_connectedstring g_price_powerdecimal g_dept_intervalstring g_color='80',g_color_key='80'string g_IPAddress,g_MachineNamestring g_log_rec='0' /'記錄日志標(biāo)記 1'：記錄，'0'：不記錄string g_sys_name='重慶工學(xué)院會(huì)計(jì)學(xué)院 實(shí)驗(yàn)案例'string g_comp_name='重慶工學(xué)院 會(huì)計(jì)學(xué)院會(huì)計(jì)

28、學(xué)院 'string g_proj_code='',g_proj_name=''string g_drive='d:io' ,g_pathfilename /導(dǎo)入導(dǎo)出路徑string g_dir_sc='' /自動(dòng)生成路徑integer g_sheet_code_len =10 /單據(jù)長(zhǎng)度integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 /小區(qū)、大樓、單元、房間編碼長(zhǎng)度integer g_len4_1=3,g_len4_2=3 /g_len4_1樓層長(zhǎng)度 g_len4_2 房間長(zhǎng)度

29、string g_zth='001' /帳套號(hào)string g_nkjqj='2005' /年會(huì)計(jì)期間2、存貨子系統(tǒng)全局函數(shù)設(shè)計(jì)。函數(shù)名函數(shù)功能f_oper_check判斷操作員輸入的編碼及密碼是否合法gf_dw_count顯示數(shù)據(jù)窗口的行數(shù)f_where_exist判斷有無(wú)WHERE條件f_string字符變量的處理f_sqlsqlca.sqlcode判斷，0、100：false，-1：truegf_ini_table碼表初始化f_i_o導(dǎo)入導(dǎo)出初始f_dw_test_repeat對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試f_dw_test_repeat_del刪除

30、導(dǎo)入導(dǎo)出中的重復(fù)數(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,"您提供的操作員號(hào)碼不正確!")return 1ELSEIF trim(r_oper_pass) <

31、;> trim(r_pass) THENmessagebox(g_sys_name,"您提供的密碼和操作員號(hào)不符!rr是否沒有區(qū)分大小寫?")return 2END IFEND IFreturn 0函數(shù)名gf_dw_count返回值類型無(wú)函數(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_row>0 and r_count>

32、;0 THENr_sle_count.TEXT=string(r_row)+'/'+string(r_count)ELSEIF r_count>0 thenr_sle_count.TEXT='共'+string(r_count)+'條'ELSEr_sle_count.TEXT=''END IFreturn函數(shù)名f_where_exist返回值類型integer函數(shù)功能判斷有無(wú)WHERE條件參數(shù)定義r_orig_sql: string腳本if pos(r_orig_sql,'WHERE')>0 or po

33、s(r_orig_sql,'where')>0 thenreturn 1/有WHERE條件elsereturn 0/無(wú)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ù)定義無(wú)腳本if sqlca.sqlcode=-

34、1 thenmessagebox('sql錯(cuò)誤信息',sqlca.sqlerrtext)rollback;return trueelsecommit;return falseend if函數(shù)名gf_ini_table返回值類型無(wú)函數(shù)功能碼表初始化參數(shù)定義無(wú)腳本 /職位碼表DELETE FROM c_postion ;INSERT INTO c_postion(postion_code, postion_name) VALUES ('01','董事長(zhǎng)') ;INSERT INTO c_postion(postion_code, postion_na

35、me) VALUES ('02','副董事長(zhǎng)') ;INSERT INTO c_postion(postion_code, postion_name) VALUES ('03','財(cái)務(wù)總監(jiān)') ;INSERT INTO c_postion(postion_code, postion_name) VALUES ('04','銷售總監(jiān)') ;/學(xué)歷碼表c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (&

36、#39;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','學(xué)士') ;/憑證類型碼表DELETE FROM ZW_C_PZLX ;INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES ('CH&

37、#39;,'轉(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返回值類型無(wú)函數(shù)功能導(dǎo)入導(dǎo)出初始參數(shù)定義腳本SetPointer(HourGlass!)delete from save_import ;/導(dǎo)入導(dǎo)出碼表delete fro

38、m c_save_import ;insert into c_save_import values ('01','導(dǎo)入');insert into c_save_import values ('02','導(dǎo)出');delete from c_mean ;insert into c_mean values ('01','固定');insert into c_mean values ('02','自由');insert into c_mean values ('0

39、3','生成');delete from c_file_type ;insert into c_file_type values ('01','dbf');insert into c_file_type values ('02','txt');insert into c_file_type values ('03','excel');insert into c_file_type values ('04','sql');delete from

40、c_interval ;insert into c_interval values ('00','無(wú)');insert into c_interval values ('01','每日');insert into c_interval values ('02','每周');insert into c_interval values ('03','每月');insert into c_interval values ('04','每季度'

41、);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_

42、c_operator_grid','01','02','D:iodata','c_operator','01','人員信息','00','000','2002-01-01','2002-01-01','01','','');INSERT INTO save_import VALUES ('001','c_operator','dw_c_ope

43、rator_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('提示','導(dǎo)入導(dǎo)出表初始成功!

44、')end ifreturn函數(shù)名f_dw_test_repeat返回值類型long函數(shù)功能對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試參數(shù)定義r_type:stringr_dw: 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_operator'r_count=1 /關(guān)鍵字段數(shù)r_prim

45、aryr_count=''FOR r_row=1 TO r_rowcountr_primary1=r_dw.getitemstring(r_row,'oper_code') /取關(guān)鍵字select count(*) into :r_select from c_operator where c_operator.oper_code = :r_primary1 ;if r_select>0 then r_dw.SelectRow(r_row, TRUE)r_return=r_return + 1end ifNEXTCASE ELSEEND CHOOSEretu

46、rn r_return函數(shù)名f_dw_test_repeat_del返回值類型long函數(shù)功能刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù)參數(shù)定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本long r_row,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_operator'r_count=1r_primaryr_count='

47、'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 ;NEXTCASE 'c_supp'r_count=1 /關(guān)鍵字段數(shù)r_primaryr_count=''FOR r_row=1 TO r_rowcountr_primary1=r_dw.getitemstring(r_row,'supp_code')

48、 /取關(guān)鍵字delete from c_supp where c_supp.supp_code = :r_primary1 ;NEXTCASE ELSEEND CHOOSEf_sql()return r_return3、通過(guò)分析，設(shè)計(jì)存貨子系統(tǒng)的通用窗口。窗口名窗口功能w_start登陸窗口W_set系統(tǒng)設(shè)置窗口W_code碼表輸入、修改窗口w_sheet_input單表輸入窗口W_select綜合查詢窗口w_i_o_ini數(shù)據(jù)導(dǎo)入導(dǎo)出初始窗口w_i_o數(shù)據(jù)導(dǎo)入導(dǎo)出窗口窗口名w_startMessage參數(shù)無(wú)主要功能登陸窗口實(shí)例變量聲明無(wú)窗口函數(shù)無(wú)控件事件腳本w_start:open!/居中E

49、nvironment aInteger w,hGetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w - width)/2,(h - height)/2)this.title='' + g_sys_name + ' 系統(tǒng)登錄'確定cb_ok :clicked!string r_func_code,r_menu_name,r_date,r_sp_infolong r_resultr_res

50、ult=f_oper_check(sle_oper_code.text,sle_pass.text)IF r_result<>0 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_date=string(today()g_oper_code=sle_oper_code.textSELECT oper_name

51、 ,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 WHERE func_code = :r_func_code ;close(parent)open(w_set)退出cb_cance

52、l:clicked!close(parent)窗口名W_setMessage參數(shù)無(wú)主要功能系統(tǒng)設(shè)置窗口實(shí)例變量聲明無(wú)窗口函數(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'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