【文章內(nèi)容簡(jiǎn)介】 ng 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。2020010139。 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。8039。,g_color_key=39。8039。 string g_IPAddress,g_MachineName string g_log_rec=39。039。 //39。記錄日志標(biāo)記 139。：記錄， 39。039。：不記錄 string g_sys_name=39。重慶工學(xué)院會(huì)計(jì)學(xué)院 實(shí)驗(yàn)案例 39。 string g_p_name=39。重慶工學(xué)院 會(huì)計(jì)學(xué)院會(huì)計(jì)學(xué)院 39。 string g_proj_code=39。39。,g_proj_name=39。39。 string g_drive=39。d:\io39。 ,g_pathfilename //導(dǎo)入導(dǎo)出路徑 string g_dir_sc=39。39。 //自動(dòng)生成路徑 integer g_sheet_code_len =10 //單據(jù)長(zhǎng)度 integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 //小區(qū)、大樓、單元、房間編碼長(zhǎng)度 integer g_len4_1=3,g_len4_2=3 //g_len4_1 樓層長(zhǎng)度 g_len4_2 房間長(zhǎng)度 string g_zth=39。00139。 //帳套號(hào) string g_nkjqj=39。202039。 //年會(huì)計(jì)期間 《存貨子系統(tǒng)》 全局函數(shù)設(shè)計(jì)。 函數(shù)名 函數(shù)功能 f_oper_check 判斷操作員輸入的編碼及密碼是否合 法 gf_dw_count 顯示數(shù)據(jù)窗口的行數(shù) f_where_exist 判斷有無(wú) WHERE 條件 f_string 字符變量的處理 f_sql 判斷， 0、 100： false， 1： true gf_ini_table 碼表初始化 f_i_o 導(dǎo)入導(dǎo)出初始 f_dw_test_repeat 對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試 f_dw_test_repeat_del 刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù) 函數(shù)名 f_oper_check 返回值類(lèi)型 integer 函數(shù)功 能 判斷操作員輸入的編碼及密碼是否合法 17 參數(shù)定義 r_oper_code:string r_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,您提供的操作員號(hào)碼不正確 !) return 1 ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,您提供的密碼和操作員號(hào)不符 !~r~r是否沒(méi)有區(qū)分大小寫(xiě) ?) return 2 END IF END IF return 0 函數(shù)名 gf_dw_count 返回值類(lèi)型 無(wú) 函數(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。/39。+string(r_count) ELSEIF r_count0 then =39。共 39。+string(r_count)+39。條 39。 ELSE =39。39。 END IF return 函數(shù)名 f_where_exist 返回值類(lèi)型 integer 函數(shù)功能 判斷有無(wú) 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 //無(wú) WHERE 條件 end if 函數(shù)名 f_string 返回值類(lèi)型 string 函數(shù)功能 字符變量的處理 參數(shù)定義 r:string 18 腳本 IF ISNULL(r) OR TRIM(r)=39。39。 THEN r=39。%39。 ELSE r= r+39。%39。 END IF RETURN r 函數(shù)名 f_sql 返回值類(lèi)型 boolean 函數(shù)功能 判斷， 0、 100： false， 1： true 參數(shù)定義 無(wú) 腳本 if =1 then messagebox(39。sql 錯(cuò)誤信息 39。,) rollback。 return true else mit。 return false end if 函數(shù)名 gf_ini_table 返回值類(lèi)型 無(wú) 函數(shù)功能 碼表初始化 參數(shù)定義 無(wú) 腳本 //職位碼表 DELETE FROM c_postion 。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0139。,39。董事長(zhǎng) 39。) 。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0239。,39。副董事長(zhǎng) 39。) 。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0339。,39。財(cái)務(wù)總監(jiān) 39。) 。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0439。,39。銷(xiāo)售總監(jiān) 39。) 。 //學(xué)歷碼表 c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。0139。,39。博士 39。) 。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。0239。,39。碩士 39。) 。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。0339。,39。學(xué)士 39。) 。 //憑證類(lèi)型碼表 DELETE FROM ZW_C_PZLX 。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。CH39。,39。轉(zhuǎn)賬憑證 39。) 。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。SK39。,39。收款憑證 39。) 。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。FK39。,39。付款憑證 39。) 。 if f_sql() then return 函數(shù)名 f_i_o 返回值類(lèi)型 無(wú) 函數(shù)功能 導(dǎo)入導(dǎo)出初始 參數(shù)定義 19 腳本 SetPointer(HourGlass!) delete from save_import 。 //導(dǎo)入導(dǎo)出碼表 delete from c_save_import 。 insert into c_save_import values (39。0139。,39。導(dǎo)入 39。)。 insert into c_save_import values (39。0239。,39。導(dǎo)出 39。)。 delete from c_mean 。 insert into c_mean values (39。0139。,39。固定 39。)。 insert into c_mean values (39。0239。,39。自由 39。)。 insert into c_mean values (39。0339。,39。生成 39。)。 delete from c_file_type 。 insert into c_file_type values (39。0139。,39。dbf39。)。 insert into c_file_type values (39。0239。,39。txt39。)。 insert into c_file_type values (39。0339。,39。excel39。)。 insert into c_file_type values (39。0439。,39。sql39。)。 delete from c_interval 。 insert into c_interval values (39。0039。,39。無(wú) 39。)。 insert into c_interval values (39。0139。,39。每日 39。)。 insert into c_interval values (39。0239。,39。每周 39。)。 insert into c_interval values (39。0339。,39。每月 39。)。 insert into c_interval values (39。0439。,39。每季度 39。)。 insert into c_interval values (39。0539。,39。每年 39。)。 delete from c_flag_code 。 insert into c_flag_code values (39。0139。,39。成功 39。)。 insert into c_flag_code values (39。0239。,39。失敗 39。)。 if f_sql() then return INSERT INTO save_import VALUES ( 39。00139。,39。c_operator39。,39。dw_c_operator_grid39。,39。0139。,39。0239。,39。D:\io\data39。, 39。c_operator39。,39。0139。,39。 人員信息39。,39。0039。,39。00039。,39。2020010139。,39。2020010139。,39。0139。,39。39。,39。39。)。 INSERT INTO save_import VALUES ( 39。00139。,39。c_operator39。,39。dw_c_operator_grid39。,39。0239。,39。0239。,39。D:\io\data39。, 39。c_operator39。,39。0139。,39。 人員信息39。,39。0039。,39。00039。,39。2020010139。,39。2020010139。,39。0139。,39。39。,39。39。)。 SetPointer(arrow!) if f_sql() then return else // messagebox(39。提示 39。,39。導(dǎo)入導(dǎo)出表初始成功 !39。) end if return 函數(shù)名 f_dw_test_repeat 返回值類(lèi)型 long 函數(shù)功能 對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試 20 參數(shù)定義 r_type:string r_dw: datawindow r_sle: singlelineedit 腳本 long r_row,r_rowcount,r_count,r_select,r_return=0 string r_primary[] r_rowcount=() r_type=lower(r_type) CHOOSE CASE r_type CASE 39。c_operator39。 r_count=1 //關(guān)鍵字段數(shù) r_primary[r_count]=39。39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。oper_code39。) //取關(guān)鍵字 select count(*) into :r_select from c_operator where = :r_primary[1] 。 if r_select0 then (r_row, TRUE) r_return=r_return + 1 end i