【正文】 jdecimal(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)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)NULL制單人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倉庫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計量單位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)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)地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報損原因八 部門用途表部門用途表 T_bmytb 字段名類型長度是否空含義*bmbmChar(10)NOT NULL*部門編碼bmmcChar(20)NULL部門名稱ytdmChar(10)NULL用途代碼ytmcChar(10)NULL用途名稱xmfy Char(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ù)量djdecimal(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產(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(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)》窗口設計。《存貨子系統(tǒng)》全局變量設計。《存貨子系統(tǒng)》全局函數(shù)設計。實驗環(huán)境：安裝Windows操作系統(tǒng)、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫、教師提供的軟件原型平臺等。實驗方式：分組進行。實驗內(nèi)容：《存貨子系統(tǒng)》全局變量設計。全局變量定義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=39。2000010139。string g_orig,g_warehousestring g_sp_info,g_menu_nameboolean gb_db_connectedstring g_price_powerdecimal g_dept_intervalstring g_color=39。8039。,g_color_key=39。8039。string g_IPAddress,g_MachineNamestring g_log_rec=39。039。 //39。記錄日志標記 139。：記錄，39。039。：不記錄string g_sys_name=39。重慶工學院會計學院 實驗案例39。string g_p_name=39。重慶工學院 會計學院會計學院 39。string g_proj_code=39。39。,g_proj_name=39。39。string g_drive=39。d:\io39。 ,g_pathfilename //導入導出路徑string g_dir_sc=39。39。 //自動生成路徑integer g_sheet_code_len =10 //單據(jù)長度integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 //小區(qū)、大樓、單元、房間編碼長度integer g_len4_1=3,g_len4_2=3 //g_len4_1樓層長度 g_len4_2 房間長度string g_zth=39。00139。 //帳套號string g_nkjqj=39。200539。 //年會計期間《存貨子系統(tǒng)》全局函數(shù)設計。函數(shù)名函數(shù)功能f_oper_check判斷操作員輸入的編碼及密碼是否合法gf_dw_count顯示數(shù)據(jù)窗口的行數(shù)f_where_exist判斷有無WHERE條件f_string字符變量的處理f_sql，0、100：false，1：truegf_ini_table碼表初始化f_i_o導入導出初始f_dw_test_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_pass SELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code。 IF = 100 then messagebox(g_sys_name,您提供的操作員號碼不正確!) return 1ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,您提供的密碼和操作員號不符!~r~r是否沒有區(qū)分大小寫?) return 2 END 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_row=()IF r_row0 and r_count0 THEN =string(r_row)+39。/39。+string(r_count)ELSEIF r_count0 then =39。共39。+string(r_count)+39。條39。ELSE =39。39。END IFreturn函數(shù)名f_where_exist返回值類型integer函數(shù)功能判斷有無WHERE條件參數(shù)定義r_orig_sql: string腳本if pos(r_orig_sql,39。WHERE39。)0 or pos(r_orig_sql,39。where39。)0 then return 1 //有WHERE條件else return 0 //無WHERE條件end if函數(shù)名f_string返回值類型string函數(shù)功能字符變量的處理參數(shù)定義r:string腳本IF ISNULL(r) OR TRIM(r)=39。39。 THEN r=39。%39。ELSE r= r+39。%39。END IFRETURN r函數(shù)名f_sql返回值類型boolean函數(shù)功能，0、100：false，1：true參數(shù)定義無腳本if =1 then messagebox(39。sql錯誤信息39。,) rollback。 return trueelse mit。