1、會計信息化庫存管理存貨核算系統實驗指導書會計學院會計信息化系2005年8月目 錄 TOC o 1-3 h z 實驗一 庫存管理存貨核算系統業務流程分析實驗目的：分析庫存管理存貨核算系統的業務流程，畫出存貨子系統業務流程圖。實驗環境：安裝Windows操作系統、Word軟件、Visio軟件等。實驗方式：分組進行。上機機時： 2機時實驗內容：1、庫存管理存貨核算系統業務流程描述。為了深入了解存貨核算與管理的特點，我們首先分析手工條件下存貨核算與管理的業務處理流程，掌握存貨出庫、入庫、期末結賬、對賬以及管理分析的過程。存貨包括原材料、包裝物、低值易耗品、自制半成品、產成品等。在手工條件下，當存貨到達

2、企業并辦理入庫手續后，除了倉庫保管員要登記存貨數量賬外，財會部門也要根據各種憑單（如入庫單、驗收報告等）登記存貨明細賬，反映存貨增加等經濟業務；當各個部門領用存貨時（如生產車間領用材料用于生產、銷售部門領用產品用于銷售），倉庫保管員又要登記存貨數量賬，財會部門又要根據各種憑單（如入庫單等）登記存貨明細賬，反映存貨減少等經濟業務；定期編制記賬憑證傳遞到總賬子系統，登記總賬。此外，還要及時為管理提供各種存貨報告，如存貨狀態報告、ABC存貨成本分析報告、超儲積壓存貨分析報告等。下面我們對入庫流程、出庫流程以及期末結賬和管理分析流程進行分析。（1）存貨核算與管理入庫流程分析當采購部門或者供應商將存貨送

3、入倉庫，生產部門或者物流部門將生產的產成品送入倉庫，入庫業務便開始進行了。倉庫保管員依據采購訂單和計劃入庫安排，檢查供應商送貨及時性，根據事先設定的送貨接收標準，判定是否收貨。如果可以收貨，倉庫保管員編制收貨憑證，并將收貨憑證和質檢抽樣存貨移入質檢部門，進行抽樣檢驗。如果質檢合格，將質檢合格存貨退返倉庫，進行庫存移庫操作，并編制驗收報告。將驗收報告傳遞給倉庫和財務部門。倉庫保管員根據驗收報告和收貨憑證編制入庫單。登記相應存貨的入庫數量和結存數量，即存貨三級賬，并將相應的單據傳遞到財務部門。財務賁門根據入庫單、驗收報告編制記賬憑證。存貨核算會計審核憑證，登記存貨明系賬，并將憑證傳遞到總賬子系統。

4、總賬會計定期根據記賬憑證登記總賬。（2）存貨核算與管理出庫、期末處理與管理的分析流程當生產部門提出領料申請、銷售部門提出發運產品時，出庫業務便開始進行；到會計期末進行相應的處理，并提交各種管理分析報告。倉庫保管員接到各車間、用料單位提出的領料申請，或者銷售部門提出的發運請求，經審核單據后，編制出庫單，并發出存貨。倉庫保管員登記相應存貨出庫數量和結存數據，即存貨三級賬，并將相應的單據傳遞到財會部門。財會部門會計人員根據出庫單等單據編制記賬憑證，登記存貨明細賬，并將憑證傳遞到總賬子系統。由于存貨種類繁多、數量大、收發業務頻繁，存貨成本計算比較復雜，為了滿足不同企業對核算的需要，存貨可以按計劃成本計

5、價，也可按實際成本計價。按實際成本計價時，存貨成本可以按照加權平均、移動加權平均、先進先出、后進先出和個別計價等方法進行計算。期末處理。財務部門期末對存貨進行實地盤點，編制盤盈盤虧表，經審批后通知倉庫、財會部門修改相應的存貨一級、二級以及三級賬。由于存貨數量賬（三級賬）、存貨明細賬（二級賬）、總賬（一級賬）是由不同的人員編制的，因此，會出現賬賬不一致的問題。因此，期末還需要進行三級賬的核對工作，很多企業要花費一定的人力物力每月必須進行對賬。財務部門根據不同的計價方法和成本計算方法，分別計算存貨成本差異、發出存貨成本，并進行結賬工作。存貨分析。財務管理人員需要根據入庫單、出庫單、存貨數量賬等編制

6、包括超儲積壓一覽表、ABC成本分析表、倉庫存貨匯總表等內容的管理分析報告，并提出存貨管理的改進意見和評價信息。2、通過分析存貨子系統的業務流程，利用Visio軟件畫出存貨子系統的業務流程圖。業務流程圖如圖1所示：圖1 存貨子系統業務流程圖實驗二 存貨子系統數據處理流程分析實驗目的：通過存貨子系統的業務流程圖，進一步分析優化存貨子系統的數據處理流程，畫出存貨子系統的數據處理流程圖。實驗環境：安裝Windows操作系統、Word軟件、Visio軟件等。實驗方式：分組進行。實驗內容：1、通過分析存貨子系統的業務流程圖，利用Visio軟件畫出存貨子系統的數據處理流程圖。根據前面對存貨子系統業務流程圖的

7、分析，運用系統分析法，可以繪出存貨子系統的數據流程圖。依據模塊結構設計的原則，通過對存貨子系統的數據流程圖進行模塊劃分，存貨子系統可以劃分為入庫管理、出庫管理、存管理、損管理和調撥管理等功能模塊。數據流程圖如圖2所示：圖2 存貨子系統數據流程圖實驗三 存貨子系統功能分析實驗目的：通過分析 存貨子系統的業務流程與數據處理流程圖，進一步分析存貨子系統的功能。實驗環境：安裝Windows操作系統、Word軟件、Visio軟件等。實驗方式：分組進行。實驗內容：1、通過分析存貨子系統的業務流程與數據處理流程圖，畫出存貨子系統的功能圖。根據業務流程圖和數據流程圖，存貨子系統基本可以劃分為入庫管理、出庫管理

8、、盤點管理、報損管理、調撥管理等五個功能模塊。每個功能模塊又可以繼續劃分為若干個功能模塊，直到每個功能模塊都能夠表示相當獨立的功能為止。我們的存貨子系統側重于核算模塊的設計。主要的功能結構有入庫管理、出庫管理、盤點管理模塊。功能結構圖如圖3所示：圖3 存貨子系統功能結構圖實驗四 存貨子系統數據字典及數據庫設計實驗目的：通過分析存貨子系統的數據流程圖，進一步寫出存貨子系統的數據字典。利用PowerDesigner軟件，建立存貨子系統的PDM。實驗環境：安裝Windows操作系統、Word軟件、Visio軟件、PowerDesigner軟件等。實驗方式：分組進行。實驗內容：通過分析存貨子系統的數據

9、流程圖，寫出存貨子系統的數據字典。數據流的描述數據流編號數據流名稱簡述數據流來源數據流去向F1庫存產品信息表庫存部門記錄存貨信息的表庫存模塊其他各模塊F2庫存盤點表庫存部門記錄存貨期末盤點情況的表庫存模塊賬務模塊F3入庫單庫存部門開出的入庫單庫存模塊采購模塊F4出庫單庫存部門開出的出庫單庫存模塊銷售模塊F5銷售退貨入庫單庫存部門開出的銷售退貨入庫單庫存模塊銷售模塊F6采購申請單庫存不足時庫存部門開出的采購申請單庫存模塊采購模塊F7報損單庫存部門開出的報損單庫存模塊質管模塊F8部門用途表各部門領用存貨類別表庫存模塊賬務模塊F9流水賬單存貨出入情況的賬單庫存模塊信息使用者F10期初余額表庫存期初余

10、額庫存模塊信息使用者處理邏輯的描述處理邏輯編號處理邏輯名稱簡述輸入的數據流輸出的數據流P1驗收貨物對采購入庫的貨物進行檢驗采購單驗收單P2出庫處理對銷售的貨物進行出庫檢驗銷售單銷售檢驗單P3審核調撥單對調撥單申請進行審核調撥單（申請）調撥單（審核）P4盤點庫存對庫存中的存貨進行盤點實物清單庫存盤點單P5審核報損單對報損單申請進行審核報損單報損單（審核） 數據存儲的描述數據存儲編號數據存儲名稱簡述S1庫存賬目存貨入庫、出庫、退貨、報損后修改當前庫存量外部實體的描述外部實體編號外部實體名稱簡述輸入的數據流輸出的數據流E1倉庫部門對存貨保管、增減變化進行管理的部門驗收單、銷售單入庫單、出庫單E2采購

11、部門采購存貨的部門入庫單采購單E3銷售部門銷售商品的部門出庫單銷售單E4財務部門進行賬務處理的部門庫存盤點單、報損單帳簿、報表利用PowerDesigner軟件，建立存貨子系統的PDM。實驗五 建立存貨子系統數據庫實驗目的：建立存貨子系統的SQL Anywhere數據庫。刪除所建數據庫的transaction log file文件。建立存貨子系統的ODBC。通過存貨子系統的PDM，生成 存貨子系統數據庫中的各張表。實驗環境：安裝Windows操作系統、PowerDesigner軟件、PowerBuilder軟件、SQL Anywhere數據庫等。實驗方式：分組進行。實驗內容：1、在PowerB

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

13、庫表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_hwb字段名類型長度是否空含義hwb_codechar(6)NO

14、T NULL貨位編號hwb_namechar(20)NULL貨位名稱hwb_szckchar(20)NULL所在倉庫五 業務性質表業務性質表c_ch_ywxzb字段名類型長度是否空含義ywxzb_codechar(6)NOT NULL業務性質編碼ywxzb_namechar(40)NULL業務性質名稱2.基本表設計一 庫存產品信息表庫存產品信息表 T_kcxx字段名類型長度是否空含義*chbmChar(10)NOT NULL存貨編碼chmcchar(50)NULL存貨名稱ggxhChar (5)NULL規格型號jldwChar(10)NULL計量單位chlbChar(10)NULL存貨類別Ch

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

16、L本月收數量sjedecimal(10,2)NULL本月收金額fsldecimal(10,2)NULL本月發數量fjedecimal(10,2)NULL本月發金額jcsldecimal(10,2)NULL本月結存數量jcdjdecimal(10,2)NULL本月結存單價jcjedecimal(10,2)NULL本月結存金額三 入庫單入庫單表 T_rkd字段名類型長度是否空含義*rkdhChar(10)NOT NULL*入庫單編號(自動生成)rkrqChar(15)NULL入庫單日期ywbhChar(15)NULL業務編號ywyxmChar(10)NULL業務員姓名chbmChar(10)NUL

17、L存貨編碼sldecimal(10,2)NULL數量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審核人四 出庫單出庫單表 T_ckd字段名類型長度是否空含義*ckdhChar(10)NOT NULL*出庫單編號(自動生成)ckrqChar(15)N

18、ULL出庫單日期ywbhChar(15)NULL業務編號ywyxmChar(10)NULL業務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數量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)NULL制單人shrChar(10)NULL審核人bzchar(100

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

20、審核標志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規格型號jldwChar(4)NULL計量單位chlbChar(10)NULL存貨類別chsxChar(10)NULL存貨屬性

21、xqsldecimal(10,2)NULL需求數量chrChar(10)NULL制單人shrChar(10)NULL審核人七 報損單入庫退貨單 T_rkth字段名類型長度是否空含義*bsbhChar(10)NOT NULL*報損單編號(自動生成)bsrqChar(15)NULL報損單日期ywyxmChar(10)NULL業務員姓名chbmChar(10)NULL存貨編碼sldecimal(10,2)NULL數量djdecimal(10,2)NULL單價jedecimal(10,2)NULL金額cdChar(10)NULL產地gysChar(10)NULL供應商ckChar(10)NULL倉庫h

22、wChar(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項目費用九 流水賬單流水賬單ch_lszd字段名類型長度是否空含義*x

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

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

25、單價zcsldecimal(10,2)NULL賬存數量pdsldecimal(10,2)NULL盤點數量yksldecimal(10,2)NULL盈虧數量zdrchar(10)NULL制單人 shrchar(10)NULL審核人實驗六 存貨子系統基本窗口設計實驗目的：存貨子系統窗口設計。存貨子系統全局變量設計。存貨子系統全局函數設計。實驗環境：安裝Windows操作系統、PowerBuilder軟件、SQL Anywhere數據庫、教師提供的軟件原型平臺等。實驗方式：分組進行。實驗內容：1、存貨子系統全局變量設計。全局變量定義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(錯誤, 數據類型錯誤!) 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(提示,打開文件保存對話窗口失敗!)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導出.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(提示,該窗口無數據!)returnend ifNet = MessageBox(提示, 是否真的要導出, Exclamation!, YESNO!, 1)if net=2 then returnr_dept_code=i_dept_coder_row= not r_row0 then messagebox(提示,請選擇需要導

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(提示,該表無導出方式，無法導出!)returnend choose=false導入.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(提示,請選擇需要導入的表!)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(提示,該表無導入方式，無法導入!)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顯示重復數據 then=&F顯示不重復數據r_count=IF r_count0 THENmessagebox(提示,共 +string(r_count)+ 條重復數據行!)ELSEmessagebox(提示,無重復數據行!)END IFELSE=&F顯示重復數據r_count

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

41、ed!)關閉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!擴展父腳本：Extend Ancestor Scriptreturn 1刪除cb_del:clicked!INTEGER NETlong R_ROW,r

42、_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(提示, 是否真的要全部刪除, 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(錯誤, 數據類型錯誤!) 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 的格式庫存信息輸入的grid的格式庫存期初的free格式的輸入庫存期初的grid格式的輸入實驗九 存貨子系統軟件編程業務處理實驗目的：完成存貨子系統單表處理模塊的編程。實驗環境：安裝Windows操作系統、PowerBuilder軟件、SQL Anywhere數據庫、教師提供

47、的軟件原型平臺等。實驗方式：分組進行。實驗內容：1、存貨子系統單表輸入、修改處理。通過繼承窗口w_sheet_input，產生窗口w_sheet_input_ch，來實現對 存貨子 系統單表的輸入處理。窗口w_sheet_input_ch的相關事件及腳本修改如下：窗口名w_sheet_input_ch父窗口w_sheet_input實例變量聲明窗口函數控件事件腳本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=存貨入庫單 CASE ch_ckd =dw_ch_ckd_free=dw_ch_ckd_grid=dw_c_supp_free=存貨出庫單 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=存貨結存表 CASE ch_chpdb =dw_ch_chpdb_fre

49、e =dw_ch_chpdb_grid=dw_ch_chpdb_free=存貨盤點單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.存貨的盤點表窗口5.存貨的結存表窗口實驗九

50、 存貨子系統軟件編程導入導出處理實驗目的：完成存貨子系統導入導出處理模塊的編程。實驗環境：安裝Windows操作系統、PowerBuilder軟件、SQL Anywhere數據庫、教師提供的軟件原型平臺等。實驗方式：分組進行。實驗內容：1、存貨子系統的導入導出初始化處理。通過以下修改來實現對存貨子系統導入導出的初始化處理：創建新的全局函數f_i_o_ch()。通過繼承窗口w_i_o_ini，產生窗口w_i_o_ini_ch。函數名f_i_o_ch返回值類型無函數功能導入導出初始化參數定義無腳本INSERT INTO save_import VALUES (001,ch_rkd,dw_ch_rk

51、d_grid,01,02,D:djdata,ch_rkd,01,入庫單,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,入庫單,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,出庫單,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,出庫單,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,存貨盤點表,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,存貨盤點表,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,存貨結存表,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,存貨結存表,00,000,2002-01-01,2002-01-0

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

56、對存貨子系統導入導出的初始化處理：創建新的全局函數f_dw_test_repeat_ch ()、f_dw_test_repeat_del_ch()。通過繼承窗口w_i_o，產生窗口w_i_o_ch。函數名f_dw_test_repeat_ch返回值類型long函數功能對數據窗口中的導入數據進行重復性測試參數定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本/刪除導入導出中的重復數據用于w_i_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) /取關鍵字delete from c_suppwhere = :r_primary1 ;NEXTCASE ELSEEND CHOOSEf_sql()return r_return函數名f_dw_test_repeat_del_ch返回值類型long函數功能刪除導入導出中的重復數據參數定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本/刪除導入導出中的重復數據用于w_i_o導入導出long r_row,r_rowcount,r_coun