【正文】 f NEXT CASE ELSE END CHOOSE return r_return 函數(shù)名 f_dw_test_repeat_del 返回值類型 long 函數(shù)功能 刪除導入導出中的重復數(shù)據(jù) 參數(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_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 //關鍵字段數(shù) 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 CHOOSE f_sql() return r_return 通過分析，設計 《存貨子系統(tǒng)》 的通用窗口。 窗口名 窗口功能 w_start 登陸窗口 21 W_set 系統(tǒng)設置窗口 W_code 碼表輸入、修改窗口 w_sheet_input 單表輸入窗口 W_select 綜合查詢窗口 w_i_o_ini 數(shù)據(jù)導入導出初始窗口 w_i_o 數(shù)據(jù)導入導出窗口 窗口名 w_start Message 參數(shù) 無 主要功能 登陸窗口 實例變量聲明 無 窗口函數(shù) 無 控件事件 腳本 w_start: open! //居中 Environment a Integer w,h GetEnvironment(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_info long r_result r_result=f_oper_check(,) IF r_result0 THEN If r_result=1 Then = () ElseIf r_result=2 Then = () End If return End If g_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_set Message 參數(shù) 無 22 主要功能 系統(tǒng)設置窗口 實例變量聲明 無 窗口函數(shù) wf_change_menu(r_menu_name) 參數(shù)： string r_menu_name 返回值類型： integer string ls_menu select 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 1 end choose Return 0 控件事件 腳本 W_set: Open! ( sqlca ) (0) (1,1,g_dept) =string(today()) g_date= Environment a Integer w,h GetEnvironment(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_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。系統(tǒng)沒有給您提供可用的菜單 !~r程序將終止 !39。) halt Else End If setpointer(arrow!) close(parent) 退出 cb_cancel: clicked! close(parent) 23 窗口名 W_code Message 參數(shù) 主要功能 碼表管理窗口 實例變量聲明 string i_type,i_code integer i_tab[30] long i_row,i_col string i_orig_sql string i_str_precolumn= integer i_int_clicktime=0 string i_title //窗口的標題變量 窗口函數(shù) 1 f_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。 ELSE ROLLBACK USING SQLCA。 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。X 不修改 39。 =false =false 窗口函數(shù) 4 set_tab_old() 參數(shù)：無 返回值類型：無 integer j FOR j=1 TO i_col (j, i_tab[j]) NEXT =39。amp。X 可修改 39。 =true =true 控件事件 腳本 24 W_code: Open! //確定數(shù)據(jù)窗口 dw_table 的 DATAOBJECT //確定窗口的標題 //將 dw_table 的數(shù)據(jù)源 Select 描述賦予實例變量 String i_orig_sql i_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。提示 39。,39。無此參數(shù) 39。+i_type) return END CHOOSE ( sqlca ) =39。39。 i_orig_sql=() i_col=integer() //數(shù)據(jù)窗口的列數(shù) get_tab_order() SET_TAB_0() =i_title + 39。維護 39。 //窗口居中 Environment a Integer w,h GetEnvironment(a) w=PixelsToUnits(,xpixelstounits!) h=PixelsToUnits(,ypixelstounits!) move((w width)/2,(h height)/2) W_code: closequery! f_exit() 25 dw_table: clicked! (row) i_row=() IF i_row0 THEN (0,FALSE) (i_row,TRUE) i_code=(i_row, 1) if =39。amp。X 可修改 39。 then =true end if END IF gf_dw_count(this,sle_count) dw_table: double clicked! //取得上次單擊的列對象 string i_str_precolumn= //判斷上次是按升還是按降來排序 integer i_int_clicktime=0 string str_column,str_format str_column= //取點擊的對象 if right(str_column,2) _t then return //對于列標題，取得的對象 是列名 +_t str_column=left(str_column,len(str_column) 2) if str_column=i_str_precolumn then //已點擊過 if i_int_clicktime=0 then //0 表示原來按降序 i_int_clicktime=1 str_format=str_column + A else i_int_clicktime=0 str_format=str_column + D end if else i_int_clicktime=1 //1 表示原來按升序 str_format=str_column + A end if i_str_precolumn = str_column (str_format) () dw_table: error! BEEP(5) dw_table: itemerror! return 1 26 dw_table: itemchanged! //用于控制對碼表中的數(shù)據(jù)進行相關操作 //控制碼表編碼的唯一性：輸入不能 重復，數(shù)據(jù)庫中已經(jīng)存在的編碼不能再次輸入 INTEGER r_col String r_code,r_code1,r LONG r_row,r_rowcount,i,j r_col=( ) //當前數(shù)據(jù)窗口列的序號 r_row=() //數(shù)據(jù)窗口當前行 r_rowcount=() IF r_col=1 THEN IF ( ) = 1 THEN r_code = (r_row, r_col) //輸入不能重復 FOR i=1 TO r_rowcount