【正文】 ywbh Char(15) NULL 業(yè)務編號 ywyxm Char(10) NULL 業(yè)務員姓名 chbm Char(10) NOT NULL 存貨編碼 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價 je decimal(10,2) NULL 金額 bm Char(10) NULL 部門 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 shbz Char(2) NULL 審核標志 clbz Char(2) NULL 處理標志 shbz Char(2) NULL 收貨標志 zdr Char(10) NULL 制單人 shr Char(10) NULL 審核人 thyy Char(100) NULL 退貨原因 六 采購申請單 采購申請單 ch_cgsqd 字段名 類型長度 是否空 含義 *sqdbh Char(10) NOT NULL *申請單編號 (自動生成 ) rq Char(15) NULL 日期 chbm Char(10) NULL 存貨編碼 chmc Char(20) NULL 存貨名稱 ggxh Char(10) NULL 規(guī)格型號 jldw Char(4) NULL 計量單位 chlb Char(10) NULL 存貨類別 chsx Char(10) NULL 存貨屬性 xqsl decimal(10,2) NULL 需求數(shù)量 chr Char(10) NULL 制單人 shr Char(10) NULL 審核人 七 報損單 入庫退貨單 T_rkth 14 字段名 類型長度 是否空 含義 *bsbh Char(10) NOT NULL *報損單編號 (自動生成 ) bsrq Char(15) NULL 報損單日期 ywyxm Char(10) NULL 業(yè)務員姓名 chbm Char(10) NULL 存貨編碼 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價 je decimal(10,2) NULL 金額 cd Char(10) NULL 產(chǎn)地 gys Char(10) NULL 供應商 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 shbz Char(2) NULL 審核標志 clbz Char(2) NULL 處理標志 shbz Char(2) NULL 收貨標志 zdr Char(10) NULL 制單人 shr Char(10) NULL 審核人 bsyy Char(100) NULL 報損原因 八 部門用途表 部門用途表 T_bmytb 字段名 類型長度 是否空 含義 *bmbm Char(10) NOT NULL *部門編碼 bmmc Char(20) NULL 部門名稱 ytdm Char(10) NULL 用途代碼 ytmc Char(10) NULL 用途名稱 xmfy Char(10) NULL 項目費用 九 流水賬單 流水賬單 ch_lszd 字段名 類型長度 是否空 含義 *xh char(3) NOT NULL 序號 sj Char(15) NULL 時間 djh char(2) NULL 單據(jù)號 ywxz char(4) NULL 業(yè)務性質 chbm char(10) NULL 存貨編碼 chmc char(20) NULL 存貨名稱 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價 je decimal(10,2) NULL 金額 15 十 期初余額表 期初余額表 T_qcyeb 字段名 類型長度 是否空 含義 chbm Char(10) NULL 存貨編碼 chmm Char(50) not NULL 存貨名稱 sl decimal(10,2) NULL 數(shù)量 dj decimal(10,2) NULL 單價 je decimal(10,2) NULL 金額 cd char(50) null 產(chǎn)地 gys char(50) null 供應商 ck Char(10) NULL 倉庫 hw Char(10) NULL 貨位 bz char(100) NULL 備注 十一 存貨盤點表 存貨盤點表 T_chpdb 字段名 類型長度 是否空 含義 pddbh Char(10) not NULL 盤點 單編號 pddrq Char(15) NULL 盤點單日期 ywyxm Char(10) NULL 業(yè)務員姓名 bm Char(10) NULL 部門 chbm Char(10) not NULL 存貨編碼 chmc char(20) null 存貨名稱 hw char(10) null 貨位 chdj decimal(10,2) NULL 存貨單價 zcsl decimal(10,2) NULL 賬存數(shù)量 pdsl decimal(10,2) NULL 盤點數(shù)量 yksl decimal(10,2) NULL 盈虧數(shù)量 zdr char(10) NULL 制單人 shr char(10) NULL 審核人 實驗六 《 存貨子系統(tǒng)》基本窗口設計 實驗目的： 《存貨子系統(tǒng)》窗口設計。 16 實驗方式： 分組進行。 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 //導入導出路徑 string g_dir_sc=39。 //帳套號 string g_nkjqj=39。 IF = 100 then messagebox(g_sys_name,您提供的操作員號碼不正確 !) return 1 ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,您提供的密碼和操作員號不符 !~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。) 。財務總監(jiān) 39。,39。0139。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。) 。學士 39。CH39。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。) 。付款憑證 39。 insert into c_save_import values (39。)。導出 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 通過分析，設計 《存貨子系統(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。編碼輸入重復 ! 請重新輸入 !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=公司信息