【正文】 wo_name=(+39。) END CHOOSEEND CHOOSEdw_table: itemerror!return 1dw_table: losefocus!()dw_table: itemchanged!string r_col,r_code,r_code1,r_date,r_kh_code,r_zffs_code long r_row,r_count,r_sql_countINTEGER NET,i decimal r_sum_ye,r_ye,r_jhfkjestring r_ht_idinteger r_ht_itemnoif not ()=1 then return//r_editstyle=//if r_editstyle=39。 CHOOSE CASE CASE 39。//選擇的碼表 END CHOOSE CASE ELSE return END CHOOSEopenwithparm(w_code_sheet_inqu,r_type)r_code=r_col=mid(r_object,4) //取按鈕對應的列名((),r_col,r_code)dw_table: double clicked!String ls,ld,r_StringParm,r_columnnamer_columnname=()i_row=()if not i_row 0 then return if lower(right(r_columnname,2 )) 39。 CHOOSE CASE r_object CASE cb_func_code //所有按鈕以cb_開頭(命名規(guī)則：cb_+列名) r_type=39。 i_dwc_supp_attr_code=i_dwc CASE ELSE END CHOOSE end ifNEXT(sqlca)(sqlca) (sqlca) (dw_table)(dw_print)(clicked!)(clicked!)=true=====i_title + 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=公司信息 END CHOOSEi_col=integer() //數(shù)據(jù)窗口的列數(shù)//注意：只有dw_free中掛的下拉數(shù)據(jù)窗口是帶retrieve參數(shù)的，dw_table，dw_print均未帶FOR i=1 TO i_col r_col = +string(i) + .Name // i代表第i列, . ename[i]=(r_col) //ename[i]放第i列列名. coltype[i]=(ename[i] + .ColType) col_width[i]=(ename[i] + .width) col_height[i]=(ename[i] + .height) col_y[i]=Double((ename[i] + .y)) col_height_t[i]=(ename[i] + ) col_y_t[i]=Double((ename[i] + )) if (ename[i],i_dwc)=1 then (sqlca) (39。,39。,39。 END CHOOSE if =0 then CHOOSE CASE i_type CASE 39。today39。39。X可修改39。,39。保存成功!39。 THEN SET_TAB_0()ELSE set_tab_old() (()) (1) () (0,false) ((),true)END IF刪除cb_delete:clicked!INTEGER NETlong R_ROW,r_countif not (i_row) then returnNet = MessageBox(提示, 是否真的要刪除所選中的行?, Exclamation!, YESNO!, 2)IF Net = 2 THEN return=false(i_row)gf_dw_count(dw_table,sle_count)保存cb_save:clicked!integer rtn, NETNet = MessageBox(提示, 是否真的要保存?, Exclamation!, YESNO!, 1)IF Net 1 THEN return()IF ( ) 0 OR ( ) 0 THEN rtn = ( ) IF rtn = 1 THEN COMMIT USING SQLCA。39。 + and like + r_name CASE c_supp_attr r_where_sql= where like + r_code amp。 + and like + r_name CASE 39。+ r_name +~39。~39。~39。%39。該編碼已經(jīng)存在! 請重新輸入!39。 CASE c_supp_attr SELECT supp_attr_code INTO :r FROM c_supp_attr WHERE supp_attr_code= :r_code 。 SELECT postion_code INTO :r FROM c_postion WHERE postion_code= :r_code 。39。提示39。//窗口居中Environment aInteger w,hGetEnvironment(a)w=PixelsToUnits(,xpixelstounits!)h=PixelsToUnits(,ypixelstounits!)move((w width)/2,(h height)/2)W_code:closequery! f_exit()dw_table: clicked!(row)i_row=()IF i_row0 THEN (0,FALSE) (i_row,TRUE) i_code=(i_row, 1) if =39。+i_type) returnEND CHOOSE ( sqlca )=39。=true=true控件事件腳本W(wǎng)_code:Open!//確定數(shù)據(jù)窗口dw_table的DATAOBJECT//確定窗口的標題//將dw_table的數(shù)據(jù)源Select描述賦予實例變量 String i_orig_sqli_type=CHOOSE CASE i_type CASE c_func =dw_c_func i_title=系統(tǒng)操作功能碼表 CASE c_postion =dw_c_postion i_title=操作員職位碼表 CASE c_edu_level =dw_c_edu_level i_title=學歷碼表 CASE c_supp_attr =dw_c_supp_attr i_title=往來單位屬性 CASE ELSE messagebox(39。X不修改39。) haltElse End Ifsetpointer(arrow!)close(parent) 退出cb_cancel:clicked!close(parent)窗口名W_codeMessage參數(shù)主要功能碼表管理窗口實例變量聲明string i_type,i_codeinteger i_tab[30]long i_row,i_colstring i_orig_sqlstring i_str_precolumn= integer i_int_clicktime=0string i_title //窗口的標題變量窗口函數(shù)1f_exit()參數(shù)：無返回值類型：無INTEGER NET,RTN()IF ( ) 0 OR ( ) 0 THEN Net = MessageBox(提示, 是否需要保存所修改的信息?, Exclamation!, YESNO!, 1) IF Net = 1 THEN rtn = ( ) IF rtn = 1 THEN COMMIT USING SQLCA。 (m_crm) f_set_purview(r_menu_name,m_crm) case else Return 1end chooseReturn 0控件事件腳本W(wǎng)_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。 //操作人員的打印權(quán)限SELECT print_yn,menu_name INTO :g_print,:g_menu_name FROM c_func WHERE func_code = :r_func_code 。☆39。supp_code39。c_supp39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。 if r_select0 then (r_row, TRUE) r_return=r_return + 1 end if NEXT CASE ELSE END CHOOSEreturn r_return函數(shù)名f_dw_test_repeat_del返回值類型long函數(shù)功能刪除導入導出中的重復數(shù)據(jù)參數(shù)定義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。39。導入導出表初始成功!39。)。,39。,39。,39。,39。, 39。,39。,39。INSERT INTO save_import VALUES ( 39。39。2002010139。00039。人員信息39。c_operator39。0239。dw_c_operator_grid39。00139。,39。成功39。delete from c_flag_code 。0539。,39。每月39。)。insert into c_interval values (39。0139。,39。)。insert into c_file_type values (39。0339。,39。dbf39。delete from c_file_type 。0339。,39。固定39。delete from c_mean 。0239。,39。if f_sql() then return函數(shù)名f_i_o返回值類型無函數(shù)功能導入導出初始參數(shù)定義腳本SetPointer(HourGlass!)delete from save_import 。FK39。,39。轉(zhuǎn)賬憑證39。//憑證類型碼表DELETE FROM ZW_C_PZLX 。0339。,39。博士39。) 。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。0339。,39。董事長39。 return falseend if函數(shù)名gf_ini_table返回值類型無函數(shù)功能碼表初始化參數(shù)定義無腳本 //職位碼表DELETE FROM c_postion 。END IFRETURN r函數(shù)名f_sql返回值類型boolean函數(shù)功能，0、100：false，1：true參數(shù)定義無腳本if =1 then messagebox(39。 THEN r=39。)0 or pos(r_orig_sql,39。ELSE =39。+string(r_count)ELSEIF r_count0 then =39。 //年會計期間《存貨子系統(tǒng)》全局函數(shù)設計。 //自動生成路徑