【文章內容簡介】 。sql錯誤信息39。,) rollback。 return trueelse mit。 return falseend if函數名gf_ini_table返回值類型無函數功能碼表初始化參數定義無腳本 //職位碼表DELETE FROM c_postion 。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0139。,39。董事長39。) 。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0239。,39。副董事長39。) 。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0339。,39。財務總監(jiān)39。) 。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0439。,39。銷售總監(jiān)39。) 。//學歷碼表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。學士39。) 。//憑證類型碼表DELETE FROM ZW_C_PZLX 。INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。CH39。,39。轉賬憑證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函數名f_i_o返回值類型無函數功能導入導出初始參數定義腳本SetPointer(HourGlass!)delete from save_import 。//導入導出碼表delete from c_save_import 。 insert into c_save_import values (39。0139。,39。導入39。)。insert into c_save_import values (39。0239。,39。導出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。無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 returnINSERT 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。2002010139。,39。2002010139。,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。2002010139。,39。2002010139。,39。0139。,39。39。,39。39。)。SetPointer(arrow!) if f_sql() then returnelse// messagebox(39。提示39。,39。導入導出表初始成功!39。)end ifreturn函數名f_dw_test_repeat返回值類型long函數功能對數據窗口中的導入數據進行重復性測試參數定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本long r_row,r_rowcount,r_count,r_select,r_return=0string r_primary[]r_rowcount=()r_type=lower(r_type) CHOOSE CASE r_type CASE 39。c_operator39。 r_count=1 //關鍵字段數 r_primary[r_count]=39。39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。oper_code39。) //取關鍵字 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 if NEXT CASE ELSE END CHOOSEreturn r_return函數名f_dw_test_repeat_del返回值類型long函數功能刪除導入導出中的重復數據參數定義r_type:stringr_dw: datawindowr_sle: singlelineedit腳本long r_row,r_rowcount,r_count,r_select,r_return=0string r_primary[]r_type=lower(r_type)r_rowcount=() CHOOSE CASE r_type CASE 39。c_operator39。 r_count=1 r_primary[r_count]=39。39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。oper_code39。) delete from c_operator where = :r_primary[1] 。 NEXT CASE 39。c_supp39。 r_count=1 //關鍵字段數 r_primary[r_count]=39。39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。supp_code39。) //取關鍵字 delete from c_supp where = :r_primary[1] 。 NEXT CASE ELSE END CHOOSEf_sql()return r_return通過分析，設計《存貨子系統(tǒng)》的通用窗口。窗口名窗口功能w_start登陸窗口W_set系統(tǒng)設置窗口W_code碼表輸入、修改窗口w_sheet_input單表輸入窗口W_select綜合查詢窗口w_i_o_ini數據導入導出初始窗口w_i_o數據導入導出窗口窗口名w_startMessage參數無主要功能登陸窗口實例變量聲明無窗口函數無控件事件腳本w_start:open!//居中Environment aInteger w,hGetEnvironment(a)w=PixelsToUnits(,xpixelstounits!)h=PixelsToUnits(,ypixelstounits!)move((w width)/2,(h height)/2)=39。☆39。 + g_sys_name + 39。 系統(tǒng)登錄☆39。確定cb_ok :clicked!string r_func_code,r_menu_name,r_date,r_sp_infolong r_resultr_result=f_oper_check(,)IF r_result0 THEN If r_result=1 Then = () ElseIf r_result=2 Then = () End If returnEnd Ifg_date=string(today())g_oper_code=SELECT oper_name ,func_code ,sheet_code,DEPT_CODE,postion_code INTO :g_oper_name,:r_func_code,:g_sheet_code,:g_dept,:r_sp_info FROM c_operator WHERE oper_code = :g_oper_code 。 //操作人員的打印權限SELECT print_yn,menu_name INTO :g_print,:g_menu_name FROM c_func WHERE func_code = :r_func_code 。close(parent)open(w_set) 退出cb_cancel:clicked!close(parent)窗口名W_setMessage參數無主要功能系統(tǒng)設置窗口實例變量聲明無窗口函數wf_change_menu(r_menu_name)參數：string r_menu_name返回值類型：integerstring ls_menuselect s_menu into :ls_menu from c_menu where menu_group=:r_menu_name。choose case ls_menu case 39。m_crm39。 (m_crm) f_set_purview(r_menu_name,m_crm) case else Return 1end chooseReturn 0控件事件腳本W_set:Open! ( sqlca )(0)(1,1,g_dept)=string(today())g_date=Environment aInteger w,hGetEnvironment(a)w=PixelsToUnits(,xpixelstounits!)h=PixelsToUnits(,ypixelstounits!)move((w width)/2,(h height)/2)=g_sys_name + 39。 設置39。 確定cb_set:clicked!string r_dept_day,r_date1string r_date,r_deptstring r_dept_month_dater_date=r_dept=(1,1)g_dept=r_deptg_date=r_datesetpointer(hourglass!)op