庫(kù)存管理存貨核算系統(tǒng)實(shí)驗(yàn)指導(dǎo)書(shū)(參考版)
2025-04-21 12:17本頁(yè)面
【正文】 ) return 1 end if return 1 CASE else RETURN END CHOOSEEND CHOOSE 表格格式rb_table:clicked!=true=false=false //需要點(diǎn)擊后才能刪除自由格式rb_free:clicked!=true=false=true //可刪除當(dāng)前行cb_prior:clicked!long r_rowr_row=()r_row=()(r_row)(0,false)(r_row,true)(r_row)if ()=1 then =false =falseend if=true=truegf_dw_count(dw_table,sle_count)cb_next:clicked!long r_rowr_row=()r_row=()(r_row)(0,false)(r_row,true)(r_row)if ()=() then =false =falseend if=true=truegf_dw_count(dw_table,sle_count)cb_first:clicked!long r_row(1)r_row=()(r_row)(0,FALSE)(r_row,TRUE)(1)=false=false=true=truegf_dw_count(dw_table,sle_count)cb_last:clicked!long r_countr_count=()(r_count)(0,false)(r_count,true)(r_count)=false=false=true=truegf_dw_count(dw_table,sle_count)增加cb_increase:clicked!long r_rowcountstring r_codeif =true then () (1)else () (1)end if(0)(clicked!)gf_dw_count(dw_table,sle_count)r_rowcount=()r_code = f_sheet_code(i_type,r_code) //產(chǎn)生單據(jù)。 r_code=data //相當(dāng)于r_code=( r_row, col) // r_code1=f_sheet_len(r_code) //r_code1是規(guī)格化后的編碼// if r_coder_code1 then// r_code = r_code1// end if // (r_code) if f_itemchanged(r_code)=1 then (r_row,r_col,39。 CHOOSE CASE r_col CASE 39。)// ()// return 1// end if//end ifr_row=()if not r_row0 then returnr_col=( ) if not ()=1 then return CHOOSE CASE i_type CASE 39。)// (39。,ls_dwo_name+39。) // messagebox(39。,1,())// if r_row=0 then// string ls_dwo_name// ls_dwo_name=(+39。 then // (,i_dwc) // is like ()// string ls_data_column// ls_data_column= // r_row=(ls_data_column+=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。 (data+39。 CHOOSE CASE CASE 39。 then return 1//日期選擇處理AcceptText() str_calendar lstr_cal // create a structure (included in the calendar .pbl) = this = i_row = r_columnname //openwithparm(w_pb_calendar,lstr_cal)r_StringParm=ld=(i_row,)ld=f_null_string(ld)if ld r_StringParm then (i_row,r_columnname,r_StringParm)end ifReturn 1dw_table: editchanged!if isnull(data) then returnCHOOSE CASE i_type CASE 39。//選擇的碼表 END CHOOSE CASE ELSE return END CHOOSEopenwithparm(w_code_sheet_inqu,r_type)r_code=r_col=mid(r_object,4) //取按鈕對(duì)應(yīng)的列名((),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。 //選擇的碼表 CASE cb_postion_code//所有按鈕以cb_開(kāi)頭(命名規(guī)則：cb_+列名) r_type=39。 CHOOSE CASE r_object CASE cb_func_code //所有按鈕以cb_開(kāi)頭(命名規(guī)則：cb_+列名) r_type=39。dw_table: buttonclicked!string r_object,r_type, r_code,r_colr_object = String()CHOOSE CASE i_type CASE 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。) CHOOSE CASE ename[i] CASE 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。) return 1 END CHOOSE END IFreturn 0控件事件腳本W(wǎng)_sheet_input:Open!string r_modi,r_col,r_col_nameinteger ii_type=CHOOSE CASE i_type CASE 39。,39。) ((),39。,39。 messagebox(39。 END CHOOSE if =0 then CHOOSE CASE i_type CASE 39。c_operator39。today39。today39。39。 39。X可修改39。) END IF END IFset_tab_0()if =39。,39。 messagebox(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(提示, 是否真的要?jiǎng)h除所選中的行?, 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。amp。39。 + i_orig_sql + r_where_sql + 39。 + and like + r_name CASE c_supp_attr r_where_sql= where like + r_code amp。 r_where_sql= where like + r_code amp。 + and like + r_name CASE 39。c_func39。+ r_name +~39。+ r_code +~39。~39。 ~39。~39。 ~39。%39。39。該編碼已經(jīng)存在! 請(qǐng)重新輸入!39。提示39。 CASE c_supp_attr SELECT supp_attr_code INTO :r FROM c_supp_attr WHERE supp_attr_code= :r_code 。c_edu_level39。 SELECT postion_code INTO :r FROM c_postion WHERE postion_code= :r_code 。 CASE 39。39。編碼輸入重復(fù)! 請(qǐng)重新輸入!39。提示39。X可修改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_orig_sql=()i_col=integer() //數(shù)據(jù)窗口的列數(shù)get_tab
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1