【正文】 integer g_sheet_code_len =10 //單據(jù)長(zhǎng)度integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 //小區(qū)、大樓、單元、房間編碼長(zhǎng)度integer g_len4_1=3,g_len4_2=3 //g_len4_1樓層長(zhǎng)度 g_len4_2 房間長(zhǎng)度string g_zth=39。string g_drive=39。string g_proj_code=39。：不記錄string g_sys_name=39。 //39。,g_color_key=39。全局變量定義string g_oper_code,g_oper_name,g_sheet_code,g_printstring g_date,g_dept,g_dept_day,g_func_codestring g_dept_month_date=39。《存貨子系統(tǒng)》全局函數(shù)設(shè)計(jì)。在PowerDesigner AppModeler軟件，連接《存貨子系統(tǒng)》數(shù)據(jù)庫(kù)。實(shí)驗(yàn)方式：分組進(jìn)行。刪除所建數(shù)據(jù)庫(kù)的transaction log file文件。實(shí)驗(yàn)方式：分組進(jìn)行。主要的功能結(jié)構(gòu)有入庫(kù)管理、出庫(kù)管理、盤點(diǎn)管理模塊。實(shí)驗(yàn)內(nèi)容：通過(guò)分析《存貨子系統(tǒng)》的業(yè)務(wù)流程與數(shù)據(jù)處理流程圖，畫(huà)出《存貨子系統(tǒng)》的功能圖。依據(jù)模塊結(jié)構(gòu)設(shè)計(jì)的原則，通過(guò)對(duì)存貨子系統(tǒng)的數(shù)據(jù)流程圖進(jìn)行模塊劃分，存貨子系統(tǒng)可以劃分為入庫(kù)管理、出庫(kù)管理、存管理、損管理和調(diào)撥管理等功能模塊。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。⑤ 存貨分析。財(cái)務(wù)部門期末對(duì)存貨進(jìn)行實(shí)地盤點(diǎn)，編制盤盈盤虧表，經(jīng)審批后通知倉(cāng)庫(kù)、財(cái)會(huì)部門修改相應(yīng)的存貨一級(jí)、二級(jí)以及三級(jí)賬。③ 財(cái)會(huì)部門會(huì)計(jì)人員根據(jù)出庫(kù)單等單據(jù)編制記賬憑證，登記存貨明細(xì)賬，并將憑證傳遞到總賬子系統(tǒng)。⑨ 總賬會(huì)計(jì)定期根據(jù)記賬憑證登記總賬。⑤ 倉(cāng)庫(kù)保管員根據(jù)驗(yàn)收?qǐng)?bào)告和收貨憑證編制入庫(kù)單。① 倉(cāng)庫(kù)保管員依據(jù)采購(gòu)訂單和計(jì)劃入庫(kù)安排，檢查供應(yīng)商送貨及時(shí)性，根據(jù)事先設(shè)定的送貨接收標(biāo)準(zhǔn)，判定是否收貨。在手工條件下，當(dāng)存貨到達(dá)企業(yè)并辦理入庫(kù)手續(xù)后，除了倉(cāng)庫(kù)保管員要登記存貨數(shù)量賬外，財(cái)會(huì)部門也要根據(jù)各種憑單（如入庫(kù)單、驗(yàn)收?qǐng)?bào)告等）登記存貨明細(xì)賬，反映存貨增加等經(jīng)濟(jì)業(yè)務(wù)；當(dāng)各個(gè)部門領(lǐng)用存貨時(shí)（如生產(chǎn)車間領(lǐng)用材料用于生產(chǎn)、銷售部門領(lǐng)用產(chǎn)品用于銷售），倉(cāng)庫(kù)保管員又要登記存貨數(shù)量賬，財(cái)會(huì)部門又要根據(jù)各種憑單（如入庫(kù)單等）登記存貨明細(xì)賬，反映存貨減少等經(jīng)濟(jì)業(yè)務(wù)；定期編制記賬憑證傳遞到總賬子系統(tǒng)，登記總賬。實(shí)驗(yàn)方式：分組進(jìn)行。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。存貨包括原材料、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。（1）存貨核算與管理——入庫(kù)流程分析當(dāng)采購(gòu)部門或者供應(yīng)商將存貨送入倉(cāng)庫(kù)，生產(chǎn)部門或者物流部門將生產(chǎn)的產(chǎn)成品送入倉(cāng)庫(kù)，入庫(kù)業(yè)務(wù)便開(kāi)始進(jìn)行了。④ 將驗(yàn)收?qǐng)?bào)告?zhèn)鬟f給倉(cāng)庫(kù)和財(cái)務(wù)部門。⑧ 存貨核算會(huì)計(jì)審核憑證，登記存貨明系賬，并將憑證傳遞到總賬子系統(tǒng)。② 倉(cāng)庫(kù)保管員登記相應(yīng)存貨出庫(kù)數(shù)量和結(jié)存數(shù)據(jù)，即存貨三級(jí)賬，并將相應(yīng)的單據(jù)傳遞到財(cái)會(huì)部門。④ 期末處理。財(cái)務(wù)部門根據(jù)不同的計(jì)價(jià)方法和成本計(jì)算方法，分別計(jì)算存貨成本差異、發(fā)出存貨成本，并進(jìn)行結(jié)賬工作。業(yè)務(wù)流程圖如圖1所示：圖1 存貨子系統(tǒng)業(yè)務(wù)流程圖實(shí)驗(yàn)二 《存貨子系統(tǒng)》數(shù)據(jù)處理流程分析實(shí)驗(yàn)?zāi)康模和ㄟ^(guò)《存貨子系統(tǒng)》的業(yè)務(wù)流程圖，進(jìn)一步分析優(yōu)化《存貨子系統(tǒng)》的數(shù)據(jù)處理流程，畫(huà)出《存貨子系統(tǒng)》的數(shù)據(jù)處理流程圖。根據(jù)前面對(duì)存貨子系統(tǒng)業(yè)務(wù)流程圖的分析，運(yùn)用系統(tǒng)分析法，可以繪出存貨子系統(tǒng)的數(shù)據(jù)流程圖。實(shí)驗(yàn)方式：分組進(jìn)行。我們的存貨子系統(tǒng)側(cè)重于核算模塊的設(shè)計(jì)。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、Word軟件、Visio軟件、PowerDesigner軟件等。實(shí)驗(yàn)五 建立《存貨子系統(tǒng)》數(shù)據(jù)庫(kù)實(shí)驗(yàn)?zāi)康模?建立《存貨子系統(tǒng)》的SQL Anywhere數(shù)據(jù)庫(kù)。實(shí)驗(yàn)環(huán)境：安裝Windows操作系統(tǒng)、PowerDesigner軟件、PowerBuilder軟件、SQL Anywhere數(shù)據(jù)庫(kù)等。在PowerBuilder中，或在PowerBuilder中，建立《存貨子系統(tǒng)》的ODBC?！洞尕涀酉到y(tǒng)》全局變量設(shè)計(jì)。實(shí)驗(yàn)內(nèi)容：《存貨子系統(tǒng)》全局變量設(shè)計(jì)。8039。039。039。重慶工學(xué)院 會(huì)計(jì)學(xué)院會(huì)計(jì)學(xué)院 39。39。39。200539。/39。條39。WHERE39。39。%39。 return trueelse mit。,39。0239。INSERT INTO c_postion(postion_code, postion_name) VALUES (39。) 。銷售總監(jiān)39。,39。0239。INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。) 。,39。SK39。INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。) 。0139。insert into c_save_import values (39。)。,39。0239。insert into c_mean values (39。)。,39。0239。insert into c_file_type values (39。)。sql39。0039。insert into c_interval values (39。)。每周39。,39。0439。insert into c_interval values (39。)。,39。0239。if f_sql() then returnINSERT INTO save_import VALUES ( 39。,39。,39。, 39。,39。,39。,39。,39。)。c_operator39。0239。D:\io\data39。0139。0039。2002010139。0139。39。,39。 r_count=1 //關(guān)鍵字段數(shù) r_primary[r_count]=39。) //取關(guān)鍵字 select count(*) into :r_select from c_operator where = :r_primary[1] 。39。 NEXT CASE 39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。窗口名窗口功能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。確定cb_ok :clicked!string r_func_code,r_menu_name,r_date,r_sp_infolong r_resultr_result=f_oper_check(,)IF r_result0 THEN If r_result=1 Then = () ElseIf r_result=2 Then = () End If returnEnd Ifg_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 。m_crm39。系統(tǒng)沒(méi)有給您提供可用的菜單!~r程序?qū)⒔K止!39。amp。X可修改39。無(wú)此參數(shù)39。維護(hù)39。 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。) (r_row, r_col,39。c_postion39。 SELECT edu_level_code INTO :r FROM c_edu_level WHERE edu_level_code= :r_code 。,39。) RETURN 1 END IF END IFEND IF確定cb_retr:clicked! //按查詢條件對(duì)碼表中的數(shù)據(jù)進(jìn)行查詢string r_code,r_namelong r_rowstring r_where_sql,r_modi_sql,r_stater_code=trim()r_name=trim()r_code=f_string(r_code) //x=x+39。+ r_code +39。+ r_name +39。 //SQL anywherer_name=~39。 r_where_sql= where like + r_code amp。 + and like + r_name CASE c_edu_level r_where_sql= where like + r_code amp。 //SQL serverr_modi_sql = =~ + i_orig_sql + r_where_sql + ~ //SQL anywherer_state = (r_modi_sql)IF r_state = THEN r_row=( ) ()ELSE MessageBox(提示, 數(shù)據(jù)窗口修改失敗! + r_state) returnEND IFgf_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。G可修改39。,39。提示39。amp。//主標(biāo)題 = 39。 打印時(shí)自動(dòng)顯示當(dāng)前日期 = g_date//腳注，如果賦值39。 select oper_code into :r_code1 from c_operator where oper_code=:r_code。提示39。oper_code39。c_operator39。supp_attr_code39。c_operator39。c_postion39。c_supp39。%39。+data+39。提示39。39。oper_code3