【正文】 g_code values (39。成功 39。0139。 delete from c_flag_code 。每年 39。0539。)。,39。 insert into c_interval values (39。每月 39。0339。)。,39。 insert into c_interval values (39。每日 39。0139。)。,39。 insert into c_interval values (39。)。,39。 insert into c_file_type values (39。excel39。0339。)。,39。 insert into c_file_type values (39。dbf39。0139。 delete from c_file_type 。生成 39。0339。)。,39。 insert into c_mean values (39。固定 39。0139。 delete from c_mean 。導(dǎo)出 39。0239。)。,39。 insert into c_save_import values (39。 if f_sql() then return 函數(shù)名 f_i_o 返回值類型 無 函數(shù)功能 導(dǎo)入導(dǎo)出初始 參數(shù)定義 19 腳本 SetPointer(HourGlass!) delete from save_import 。付款憑證 39。FK39。) 。,39。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。轉(zhuǎn)賬憑證 39。CH39。 //憑證類型碼表 DELETE FROM ZW_C_PZLX 。學(xué)士 39。0339。) 。,39。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。博士 39。0139。) 。,39。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。財(cái)務(wù)總監(jiān) 39。0339。) 。,39。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。董事長 39。0139。 return false end if 函數(shù)名 gf_ini_table 返回值類型 無 函數(shù)功能 碼表初始化 參數(shù)定義 無 腳本 //職位碼表 DELETE FROM c_postion 。,) rollback。 END IF RETURN r 函數(shù)名 f_sql 返回值類型 boolean 函數(shù)功能 判斷， 0、 100： false， 1： true 參數(shù)定義 無 腳本 if =1 then messagebox(39。 ELSE r= r+39。 THEN r=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。)0 or pos(r_orig_sql,39。 END IF return 函數(shù)名 f_where_exist 返回值類型 integer 函數(shù)功能 判斷有無 WHERE 條件 參數(shù)定義 r_orig_sql: string 腳本 if pos(r_orig_sql,39。 ELSE =39。+string(r_count)+39。+string(r_count) ELSEIF r_count0 then =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。 //年會(huì)計(jì)期間 《存貨子系統(tǒng)》 全局函數(shù)設(shè)計(jì)。 //帳套號(hào) string g_nkjqj=39。 //自動(dòng)生成路徑 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。 ,g_pathfilename //導(dǎo)入導(dǎo)出路徑 string g_dir_sc=39。 string g_drive=39。,g_proj_name=39。 string g_proj_code=39。 string g_p_name=39。：不記錄 string g_sys_name=39。：記錄， 39。 //39。 string g_IPAddress,g_MachineName string g_log_rec=39。,g_color_key=39。 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_oper_code,g_oper_name,g_sheet_code,g_print string g_date,g_dept,g_dept_day,g_func_code string g_dept_month_date=39。 16 實(shí)驗(yàn)方式： 分組進(jìn)行。 《存貨子系統(tǒng)》 全局函數(shù)設(shè)計(jì)。 數(shù)據(jù)庫設(shè)計(jì) 表設(shè)計(jì) 10 一 倉庫表 倉庫表 c_ch_ckb 字段名 類型長度 是否空 含義 ckb_code char(6) NOT NULL 倉庫編號(hào) ckb_name char(20) NULL 倉庫名稱 二 職員表 職員表 c_ch_zyb 字段名 類型長度 是否空 含義 zyb_code char(6) NOT NULL 職員編號(hào) zyb_name char(20) NULL 職員名稱 zyb_szbm char(20) NULL 所在部門 三 部門表 部門表 c_ch_bmb 字段名 類型長度 是否空 含義 bmb_code char(6) NOT NULL 部門編號(hào) bmb_name char(20) NULL 部門名稱 四 貨位表 貨位表 c_ch_hwb 字段名 類型長度 是否空 含義 hwb_code char(6) NOT NULL 貨位編號(hào) hwb_name char(20) NULL 貨位名稱 hwb_szck char(20) NULL 所在倉庫 五 業(yè)務(wù)性質(zhì)表 業(yè)務(wù)性質(zhì)表 c_ch_ywxzb 字段名 類型長度 是否空 含義 ywxzb_code char(6) NOT NULL 業(yè)務(wù)性質(zhì)編碼 ywxzb_name char(40) NULL 業(yè)務(wù)性質(zhì)名稱 11 一 庫存產(chǎn)品信息表 庫存產(chǎn)品信息表 T_kcxx 字段名 類型長度 是否空 含義 *chbm Char(10) NOT NULL 存貨編碼 chmc char(50) NULL 存貨名稱 ggxh Char (5) NULL 規(guī)格型號(hào) jldw Char(10) NULL 計(jì)量單位 chlb Char(10) NULL 存貨類別 Chsx Char(20) NULL 存貨屬性 Jhjg Char(10) NULL 計(jì)劃價(jià)格 ckjg char(10) NULL 參考價(jià)格 hw char(10) NULL 貨位 sh char(10) NULL 審核標(biāo)志 qyrq Char(30) NULL 啟用日期 bz char(100) NULL 備注 二 存貨結(jié)存表 存貨結(jié)存表 T_chjcb 字段名 類型長度 是否空 含義 *chbm Char(10) NOT NULL 存貨編碼 qcsl decimal(10,2) NULL 本月期初數(shù)量 qcdj decimal(10,2) NULL 本月期初單價(jià) qcje decimal(10,2) NULL 本月期初金額 =本月期初單價(jià) *本月期初單價(jià) ssl decimal(10,2) NULL 本月收數(shù)量 sje decimal(10,2) NULL 本月收金額 fsl decimal(10,2) NULL 本月發(fā)數(shù)量 fje decimal(10,2) NULL 本月發(fā)金額 jcsl decimal(10,2) NULL 本月結(jié)存數(shù)量 jcdj decimal(10,2) NULL 本月結(jié)存單價(jià) jcje decimal(10,2) NULL 本月結(jié)存金額 三 入庫單 入庫單表 T_rkd 字段名 類型長度 是否空 含義 *rkdh Char(10) NOT NULL *入庫單編號(hào) (自動(dòng)生成 ) rkrq Char(15) NULL 入庫單日期 ywbh Char(15) NULL 業(yè)務(wù)編號(hào) 12 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 審核人 四 出庫單 出庫單表 T_ckd 字段名 類型長度 是否空 含義 *ckdh Char(10) NOT NULL *出庫單編號(hào) (自動(dòng)生成 ) ckrq Char(15) NULL 出庫單日期 ywbh Char(15) NULL 業(yè)務(wù)編號(hà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 金額 yt Char(10) 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 審核人 bz char(100) NULL 備注 五 銷售退貨入庫單 13 銷售退貨入庫單 T_xsthrkd 字段名 類型長度 是否空 含義 *ckthdh Char(10) NOT NULL *銷售退貨單編號(hào) (自動(dòng)生成 ) ckthdrq Char(15) NULL 銷售退貨單日期 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