【正文】 ywbh Char(15) NULL 業(yè)務(wù)編號(hào) ywyxm Char(10) NULL 業(yè)務(wù)員姓名 chbm Char(10) NOT NULL 存貨編碼 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價(jià) je decimal(10,2) NULL 金額 bm Char(10) NULL 部門 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 shbz Char(2) NULL 審核標(biāo)志 clbz Char(2) NULL 處理標(biāo)志 shbz Char(2) NULL 收貨標(biāo)志 zdr Char(10) NULL 制單人 shr Char(10) NULL 審核人 thyy Char(100) NULL 退貨原因 六 采購申請(qǐng)單 采購申請(qǐng)單 ch_cgsqd 字段名 類型長(zhǎng)度 是否空 含義 *sqdbh Char(10) NOT NULL *申請(qǐng)單編號(hào) (自動(dòng)生成 ) rq Char(15) NULL 日期 chbm Char(10) NULL 存貨編碼 chmc Char(20) NULL 存貨名稱 ggxh Char(10) NULL 規(guī)格型號(hào) jldw Char(4) NULL 計(jì)量單位 chlb Char(10) NULL 存貨類別 chsx Char(10) NULL 存貨屬性 xqsl decimal(10,2) NULL 需求數(shù)量 chr Char(10) NULL 制單人 shr Char(10) NULL 審核人 七 報(bào)損單 入庫退貨單 T_rkth 14 字段名 類型長(zhǎng)度 是否空 含義 *bsbh Char(10) NOT NULL *報(bào)損單編號(hào) (自動(dòng)生成 ) bsrq Char(15) NULL 報(bào)損單日期 ywyxm Char(10) NULL 業(yè)務(wù)員姓名 chbm Char(10) NULL 存貨編碼 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價(jià) je decimal(10,2) NULL 金額 cd Char(10) NULL 產(chǎn)地 gys Char(10) NULL 供應(yīng)商 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 shbz Char(2) NULL 審核標(biāo)志 clbz Char(2) NULL 處理標(biāo)志 shbz Char(2) NULL 收貨標(biāo)志 zdr Char(10) NULL 制單人 shr Char(10) NULL 審核人 bsyy Char(100) NULL 報(bào)損原因 八 部門用途表 部門用途表 T_bmytb 字段名 類型長(zhǎng)度 是否空 含義 *bmbm Char(10) NOT NULL *部門編碼 bmmc Char(20) NULL 部門名稱 ytdm Char(10) NULL 用途代碼 ytmc Char(10) NULL 用途名稱 xmfy Char(10) NULL 項(xiàng)目費(fèi)用 九 流水賬單 流水賬單 ch_lszd 字段名 類型長(zhǎng)度 是否空 含義 *xh char(3) NOT NULL 序號(hào) sj Char(15) NULL 時(shí)間 djh char(2) NULL 單據(jù)號(hào) ywxz char(4) NULL 業(yè)務(wù)性質(zhì) chbm char(10) NULL 存貨編碼 chmc char(20) NULL 存貨名稱 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價(jià) je decimal(10,2) NULL 金額 15 十 期初余額表 期初余額表 T_qcyeb 字段名 類型長(zhǎng)度 是否空 含義 chbm Char(10) NULL 存貨編碼 chmm Char(50) not NULL 存貨名稱 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價(jià) je decimal(10,2) NULL 金額 cd char(50) null 產(chǎn)地 gys char(50) null 供應(yīng)商 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 bz char(100) NULL 備注 十一 存貨盤點(diǎn)表 存貨盤點(diǎn)表 T_chpdb 字段名 類型長(zhǎng)度 是否空 含義 pddbh Char(10) not NULL 盤點(diǎn) 單編號(hào) pddrq Char(15) NULL 盤點(diǎn)單日期 ywyxm Char(10) NULL 業(yè)務(wù)員姓名 bm Char(10) NULL 部門 chbm Char(10) not NULL 存貨編碼 chmc char(20) null 存貨名稱 hw char(10) null 貨位 chdj decimal(10,2) NULL 存貨單價(jià) zcsl decimal(10,2) NULL 賬存數(shù)量 pdsl decimal(10,2) NULL 盤點(diǎn)數(shù)量 yksl decimal(10,2) NULL 盈虧數(shù)量 zdr char(10) NULL 制單人 shr char(10) NULL 審核人 實(shí)驗(yàn)六 《 存貨子系統(tǒng)》基本窗口設(shè)計(jì) 實(shí)驗(yàn)?zāi)康模? 《存貨子系統(tǒng)》窗口設(shè)計(jì)。 16 實(shí)驗(yàn)方式： 分組進(jìn)行。 string g_orig,g_warehouse string g_sp_info,g_menu_name boolean gb_db_connected string g_price_power decimal g_dept_interval string g_color=39。 string g_IPAddress,g_MachineName string g_log_rec=39。：記錄， 39。 string g_p_name=39。,g_proj_name=39。 ,g_pathfilename //導(dǎo)入導(dǎo)出路徑 string g_dir_sc=39。 //帳套號(hào) string g_nkjqj=39。 IF = 100 then messagebox(g_sys_name,您提供的操作員號(hào)碼不正確 !) return 1 ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,您提供的密碼和操作員號(hào)不符 !~r~r是否沒有區(qū)分大小寫 ?) return 2 END IF END IF return 0 函數(shù)名 gf_dw_count 返回值類型 無 函數(shù)功能 顯示數(shù)據(jù)窗口的行數(shù) 參數(shù)定義 r_dw_table: datawindow r_sle_count: singlelineedit 腳本 long r_row,r_count r_count=() r_row=() IF r_row0 and r_count0 THEN =string(r_row)+39。+string(r_count)+39。 END IF return 函數(shù)名 f_where_exist 返回值類型 integer 函數(shù)功能 判斷有無 WHERE 條件 參數(shù)定義 r_orig_sql: string 腳本 if pos(r_orig_sql,39。)0 then return 1 //有 WHERE 條件 else return 0 //無 WHERE 條件 end if 函數(shù)名 f_string 返回值類型 string 函數(shù)功能 字符變量的處理 參數(shù)定義 r:string 18 腳本 IF ISNULL(r) OR TRIM(r)=39。 ELSE r= r+39。,) rollback。0139。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。) 。財(cái)務(wù)總監(jiān) 39。,39。0139。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。) 。學(xué)士 39。CH39。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。) 。付款憑證 39。 insert into c_save_import values (39。)。導(dǎo)出 39。0139。 insert into c_mean values (39。)。生成 39。0139。 insert into c_file_type values (39。)。excel39。,39。 insert into c_interval values (39。)。每日 39。,39。0339。 insert into c_interval values (39。)。每年 39。0139。 insert into c_flag_code values (39。)。c_operator39。0139。D:\io\data39。0139。0039。2020010139。0139。39。,39。,39。,39。,39。,39。,39。,39。,39。提示 39。c_operator39。oper_code39。 r_count=1 r_primary[r_count]=39。) delete from c_operator where = :r_primary[1] 。39。 NEXT CASE ELSE END CHOOSE f_sql() return r_return 通過分析，設(shè)計(jì) 《存貨子系統(tǒng)》 的通用窗口。 系統(tǒng)登錄☆ 39。 choose case ls_menu case 39。 確定 cb_set: clicked! string r_dept_day,r_date1 string r_date,r_dept string r_dept_month_date r_date= r_dept=(1,1) g_dept=r_dept g_date=r_date setpointer(hourglass!) open(w_genapp_frame) If wf_change_menu(g_menu_name)0 Then messagebox(g_sys_name,39。 END IF END IF END IF 窗口函數(shù) 2 get_tab_order() 參數(shù)：無 返回值類型：無 integer j FOR j=1 TO i_col i_tab[j]=(j, 0) NEXT 窗口函數(shù) 3 set_tab_0() 參數(shù)：無 返回值類型：無 integer j FOR j=1 TO i_col (j, 0) NEXT =39。amp。,39。 i_orig_sql=() i_col=integer() //數(shù)據(jù)窗口的列數(shù) get_tab_order() SET_TAB_0() =i_title + 39。X 可修改 39。編碼輸入重復(fù) ! 請(qǐng)重新輸入 !39。 CASE 39。c_edu_level39。提示 39。39。 ~39。 ~39。+ r_code +~39。c_func39。 r_where_sql= where like + r_code amp。 + i_orig_sql + r_where_sql + 39。amp。提示 39。 messagebox(39。) END IF END IF set_tab_0() if =39。 39。today39。c_operator39。 messagebox(39。) ((),39。) return 1 END CHOOSE END IF return 0 31 控件事件 腳本 W_sheet_input: Open! string r_modi,r_col,r_col_name integer i i_type= CHOOSE CASE i_type CASE 39。) CHOOSE CASE ename[i] CASE 39。 =dw_c_operator_grid =dw_c_operator_free =dw_c_operator_free i_title=操作員情況表 CASE c_corp =dw_c_corp_grid =dw_c_corp_free =dw_c_corp_free i_title=公司信息