【正文】 主要功能 登陸窗口 實(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。 + g_sys_name + 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 。 close(parent) open(w_set) 退出 cb_cancel: clicked! close(parent) 窗口名 W_set Message 參數(shù) 無 22 主要功能 系統(tǒng)設(shè)置窗口 實(shí)例變量聲明 無 窗口函數(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。m_crm39。 設(shè)置 39。系統(tǒng)沒有給您提供可用的菜單 !~r程序?qū)⒔K止 !39。 ELSE ROLLBACK USING SQLCA。amp。 =false =false 窗口函數(shù) 4 set_tab_old() 參數(shù)：無 返回值類型：無 integer j FOR j=1 TO i_col (j, i_tab[j]) NEXT =39。X 可修改 39。提示 39。無此參數(shù) 39。39。維護(hù) 39。amp。 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= //取點(diǎn)擊的對象 if right(str_column,2) _t then return //對于列標(biāo)題，取得的對象 是列名 +_t str_column=left(str_column,len(str_column) 2) if str_column=i_str_precolumn then //已點(diǎn)擊過 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ù)進(jìn)行相關(guān)操作 //控制碼表編碼的唯一性：輸入不能 重復(fù)，數(shù)據(jù)庫中已經(jīng)存在的編碼不能再次輸入 INTEGER r_col String r_code,r_code1,r LONG r_row,r_rowcount,i,j r_col=( ) //當(dāng)前數(shù)據(jù)窗口列的序號 r_row=() //數(shù)據(jù)窗口當(dāng)前行 r_rowcount=() IF r_col=1 THEN IF ( ) = 1 THEN r_code = (r_row, r_col) //輸入不能重復(fù) FOR i=1 TO r_rowcount IF ir_row THEN r_code1 = (i, r_col) IF r_code=r_code1 THEN BEEP(5) MESSAGEBOX(39。,39。) (r_row, r_col,39。) //當(dāng)前行當(dāng)前列的值設(shè)為空 RETURN 1 END IF END IF NEXT //數(shù)據(jù)庫中已經(jīng)存在的編碼不能再次輸入 CHOOSE CASE i_type CASE c_func SELECT func_code INTO :r FROM c_func WHERE func_code= :r_code 。c_postion39。 CASE 39。 SELECT edu_level_code INTO :r FROM c_edu_level WHERE edu_level_code= :r_code 。 END CHOOSE IF 100 then MESSAGEBOX(39。,39。) (r_row, r_col,39。) RETURN 1 END IF END IF END IF 27 確定 cb_retr: clicked! //按查詢條件對碼表中的數(shù)據(jù)進(jìn)行查詢 string r_code,r_name long r_row string r_where_sql,r_modi_sql,r_state r_code=trim() r_name=trim() r_code=f_string(r_code) //x=x+39。 r_name=f_string(r_name) //r_code=39。+ r_code +39。 //SQL server //r_name=39。+ r_name +39。 //SQL server r_code=~39。 //SQL anywhere r_name=~39。 //SQL anywhere CHOOSE CASE i_type CASE 39。 r_where_sql= where like + r_code amp。c_postion39。 + and like + r_name CASE c_edu_level r_where_sql= where like + r_code amp。 + and like + r_name END CHOOSE //r_modi_sql = =39。 //SQL server r_modi_sql = =~ + i_orig_sql + r_where_sql + ~ //SQL anywhere r_state = (r_modi_sql) IF r_state = THEN r_row=( ) () ELSE MessageBox(提示 , 數(shù)據(jù)窗口修改失敗 ! + r_state) return END IF gf_dw_count(dw_table,sle_count) SET_TAB_0() if r_row0 then (1) (0,FALSE) (1,TRUE) end if 復(fù)位 cb_reset: clicked! () =39。 28 增加 cb_insert: clicked! long r_row (0) r_row=() (r_row) () (1) (r_row) () (0,FALSE) (r_row,TRUE) set_tab_old() gf_dw_count(dw_table,sle_count) 不修改 cb_modi: clicked! IF =39。G 可修改 39。 messagebox(39。,39。) (Clicked!) ELSE ROLLBACK USING SQLCA。提示 39。保存失敗 !39。amp。 then =true end if 29 打印 cb_print: clicked! str_printtool l_str_printtool //定義結(jié)構(gòu)，存 放調(diào)用參數(shù) = dw_table//賦值：需要打印的 datawindow 名字 = 39。//主標(biāo)題 = 39。//副標(biāo)題，如果賦值 39。 打印時(shí)自動顯示當(dāng)前日期 = g_date//腳注，如果賦值 39。 打印時(shí)自動顯示當(dāng)前日期 =1//主標(biāo)題下劃線， 1 有下劃線，其它無下劃線 =0//副標(biāo)題下劃線， 1 有下劃線，其它無下劃線 =0//腳注下劃線， 1 有下劃線，其它無下劃線 =3//腳注對齊方式， 1 右對齊， 2 中間對齊，3 左對齊，其它無效 openWithparm(w_printtool,l_str_printtool)//調(diào)用打印窗口 //long job //INTEGER NET,NET1 // //Net = MessageBox(提示 , 是否真的要打印 ?, Exclamation!, YESNO!, 1) //IF Net = 1 THEN // Net1 = MessageBox(提示 , 請準(zhǔn)備好打印機(jī) !, Exclamation!, YESNO!, 1) // IF NET1=1 THEN // =FALSE // job = PrintOpen( ) // PrintDataWindow(job, dw_table) // PrintClose(job) // MessageBox(提示 , 打印完畢 !) // =TRUE // END IF //END IF 退出 cb_cancel: clicked! close(parent) 30 窗口名 W_sheet_input Message 參數(shù) 主要功能 單表管理窗口 實(shí)例變量聲明 string i_type integer i_col, i_col_count //數(shù)據(jù)窗口的列數(shù) datawindowchild i_dwc,i_dwc_supp_attr_code long i_row string i_str_precolumn= integer i_int_clicktime=0 string i_form, i_where_sql,i_modi_sql,i_orig_sql,i_orig_sql_new long i_x,i_y,i_width,i_height string ename[],coltype[],col_width[], col_height[],col_height_t[] double col_y[],col_y_t[],col_interval[],col_interval_t[] integer i_col_copy_count string i_col_copy[] string i_title//窗口的標(biāo)題變量 窗口函數(shù) f_itemchanged(r_code) 參數(shù)： string r_code 返回值類型： integer string r_code1 CHOOSE CASE i_type CASE 39。 select oper_code into :r_code1 from c_operator where oper_code=:r_code。c_operator39。提示 39。該編碼已經(jīng)存在 ! ~r~n 請重新輸入 !39。oper_code39。39。c_operator39。%39。supp_a