【正文】 oper_code39。提示39。%39。c_postion39。supp_attr_code39。oper_code39。 select oper_code into :r_code1 from c_operator where oper_code=:r_code。//主標(biāo)題 = 39。提示39。G可修改39。 + and like + r_name CASE c_edu_level r_where_sql= where like + r_code amp。 //SQL anywherer_name=~39。+ r_code +39。,39。c_postion39。 then =true end ifEND IFgf_dw_count(this,sle_count)dw_table: double clicked!//取得上次單擊的列對(duì)象 string i_str_precolumn= //判斷上次是按升還是按降來(lái)排序 integer i_int_clicktime=0string str_column,str_formatstr_column= //取點(diǎn)擊的對(duì)象if right(str_column,2) _t then return//對(duì)于列標(biāo)題，取得的對(duì)象是列名+_tstr_column=left(str_column,len(str_column) 2)if str_column=i_str_precolumn then //已點(diǎn)擊過(guò) if i_int_clicktime=0 then //0表示原來(lái)按降序 i_int_clicktime=1 str_format=str_column + A else i_int_clicktime=0 str_format=str_column + D end ifelse i_int_clicktime=1 //1表示原來(lái)按升序 str_format=str_column + Aend ifi_str_precolumn = str_column(str_format)()dw_table: error!BEEP(5)dw_table: itemerror!return 1dw_table: itemchanged!//用于控制對(duì)碼表中的數(shù)據(jù)進(jìn)行相關(guān)操作//控制碼表編碼的唯一性：輸入不能重復(fù)，數(shù)據(jù)庫(kù)中已經(jīng)存在的編碼不能再次輸入INTEGER r_colString r_code,r_code1,rLONG r_row,r_rowcount,i,jr_col=( ) //當(dāng)前數(shù)據(jù)窗口列的序號(hào)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。無(wú)此參數(shù)39。amp。m_crm39。窗口名窗口功能w_start登陸窗口W_set系統(tǒng)設(shè)置窗口W_code碼表輸入、修改窗口w_sheet_input單表輸入窗口W_select綜合查詢窗口w_i_o_ini數(shù)據(jù)導(dǎo)入導(dǎo)出初始窗口w_i_o數(shù)據(jù)導(dǎo)入導(dǎo)出窗口窗口名w_startMessage參數(shù)無(wú)主要功能登陸窗口實(shí)例變量聲明無(wú)窗口函數(shù)無(wú)控件事件腳本w_start:open!//居中Environment aInteger w,hGetEnvironment(a)w=PixelsToUnits(,xpixelstounits!)h=PixelsToUnits(,ypixelstounits!)move((w width)/2,(h height)/2)=39。 NEXT CASE 39。) //取關(guān)鍵字 select count(*) into :r_select from c_operator where = :r_primary[1] 。,39。0139。0039。D:\io\data39。c_operator39。,39。,39。, 39。,39。0239。)。0439。每周39。insert into c_interval values (39。sql39。insert into c_file_type values (39。,39。insert into c_mean values (39。,39。insert into c_save_import values (39。) 。SK39。) 。0239。銷售總監(jiān)39。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。,39。%39。WHERE39。/39。39。重慶工學(xué)院 會(huì)計(jì)學(xué)院會(huì)計(jì)學(xué)院 39。039。實(shí)驗(yàn)內(nèi)容：《存貨子系統(tǒng)》全局變量設(shè)計(jì)。在PowerBuilder中，或在PowerBuilder中，建立《存貨子系統(tǒng)》的ODBC。實(shí)驗(yàn)五 建立《存貨子系統(tǒng)》數(shù)據(jù)庫(kù)實(shí)驗(yàn)?zāi)康模?建立《存貨子系統(tǒng)》的SQL Anywhere數(shù)據(jù)庫(kù)。我們的存貨子系統(tǒng)側(cè)重于核算模塊的設(shè)計(jì)。根據(jù)前面對(duì)存貨子系統(tǒng)業(yè)務(wù)流程圖的分析，運(yùn)用系統(tǒng)分析法，可以繪出存貨子系統(tǒng)的數(shù)據(jù)流程圖。財(cái)務(wù)部門根據(jù)不同的計(jì)價(jià)方法和成本計(jì)算方法，分別計(jì)算存貨成本差異、發(fā)出存貨成本，并進(jìn)行結(jié)賬工作。② 倉(cāng)庫(kù)保管員登記相應(yīng)存貨出庫(kù)數(shù)量和結(jié)存數(shù)據(jù)，即存貨三級(jí)賬，并將相應(yīng)的單據(jù)傳遞到財(cái)會(huì)部門。④ 將驗(yàn)收?qǐng)?bào)告?zhèn)鬟f給倉(cāng)庫(kù)和財(cái)務(wù)部門。存貨包括原材料、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。實(shí)驗(yàn)方式：分組進(jìn)行。① 倉(cāng)庫(kù)保管員依據(jù)采購(gòu)訂單和計(jì)劃入庫(kù)安排，檢查供應(yīng)商送貨及時(shí)性，根據(jù)事先設(shè)定的送貨接收標(biāo)準(zhǔn)，判定是否收貨。⑨ 總賬會(huì)計(jì)定期根據(jù)記賬憑證登記總賬。財(cái)務(wù)部門期末對(duì)存貨進(jìn)行實(shí)地盤(pán)點(diǎn)，編制盤(pán)盈盤(pán)虧表，經(jīng)審批后通知倉(cāng)庫(kù)、財(cái)會(huì)部門修改相應(yīng)的存貨一級(jí)、二級(jí)以及三級(jí)賬。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。實(shí)驗(yàn)內(nèi)容：通過(guò)分析《存貨子系統(tǒng)》的業(yè)務(wù)流程與數(shù)據(jù)處理流程圖，畫(huà)出《存貨子系統(tǒng)》的功能圖。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)方式：分組進(jìn)行?！洞尕涀酉到y(tǒng)》全局函數(shù)設(shè)計(jì)。,g_color_key=39。：不記錄string g_sys_name=39。string g_drive=39。 //年會(huì)計(jì)期間《存貨子系統(tǒng)》全局函數(shù)設(shè)計(jì)。ELSE =39。 THEN r=39。 return falseend if函數(shù)名gf_ini_table返回值類型無(wú)函數(shù)功能碼表初始化參數(shù)定義無(wú)腳本 //職位碼表DELETE FROM c_postion 。,39。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。博士39。0339。轉(zhuǎn)賬憑證39。FK39。,39。delete from c_mean 。,39。delete from c_file_type 。,39。insert into c_file_type values (39。,39。insert into c_interval values (39。每月39。0539。成功39。00139。0239。人員信息39。2002010139。INSERT INTO save_import VALUES ( 39。,39。,39。,39。)。39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。supp_code39。 //操作人員的打印權(quán)限SELECT print_yn,menu_name INTO :g_print,:g_menu_name FROM c_func WHERE func_code = :r_func_code 。) haltElse End Ifsetpointer(arrow!)close(parent) 退出cb_cancel:clicked!close(parent)窗口名W_codeMessage參數(shù)主要功能碼表管理窗口實(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 //窗口的標(biāo)題變量窗口函數(shù)1f_exit()參數(shù)：無(wú)返回值類型：無(wú)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。=true=true控件事件腳本W(wǎng)_code:Open!//確定數(shù)據(jù)窗口dw_table的DATAOBJECT//確定窗口的標(biāo)題//將dw_table的數(shù)據(jù)源Select描述賦予實(shí)例變量 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=學(xué)歷碼表 CASE c_supp_attr =dw_c_supp_attr i_title=往來(lái)單位屬性 CASE ELSE messagebox(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。39。 CASE c_supp_attr SELECT supp_attr_code INTO :r FROM c_supp_attr WHERE supp_attr_code= :r_code 。%39。~39。 + and like + r_name CASE 39。39。保存成功!39。X可修改39。today39。,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。 CHOOSE CASE r_object CASE cb_func_code //所有按鈕以cb_開(kāi)頭(命名規(guī)則：cb_+列名) r_type=39。 CHOOSE CASE CASE 39。,1,())// if r_row=0 then// string