會計(jì)信息化庫存管理存貨核算系統(tǒng)實(shí)驗(yàn)指導(dǎo)書-資料下載頁

【導(dǎo)讀】安裝Windows操作系統(tǒng)、Word軟件、Visio軟件等。對賬以及管理分析的過程。存貨包括原材料、包裝物、低值易耗品、自制半成品、產(chǎn)成品等。此外，還要及時(shí)為管理提。將生產(chǎn)的產(chǎn)成品送入倉庫，入庫業(yè)務(wù)便開始進(jìn)行了。時(shí)性，根據(jù)事先設(shè)定的送貨接收標(biāo)準(zhǔn)，判定是否收貨。檢抽樣存貨移入質(zhì)檢部門，進(jìn)行抽樣檢驗(yàn)。③如果質(zhì)檢合格，將質(zhì)檢合格存貨退返倉庫，進(jìn)行庫存移庫操作，并編制驗(yàn)收報(bào)告。⑨總賬會計(jì)定期根據(jù)記賬憑證登記總賬。②倉庫保管員登記相應(yīng)存貨出庫數(shù)量和結(jié)存數(shù)據(jù)，即存貨三級賬，并將相應(yīng)的單據(jù)傳遞到財(cái)會部門。明細(xì)賬，并將憑證傳遞到總賬子系統(tǒng)。按實(shí)際成本計(jì)價(jià)時(shí)，存貨成本可以按照加權(quán)平均、移。動(dòng)加權(quán)平均、先進(jìn)先出、后進(jìn)先出和個(gè)別計(jì)價(jià)等方法進(jìn)行計(jì)算。財(cái)務(wù)部門期末對存貨進(jìn)行實(shí)地盤點(diǎn)，編制盤盈盤虧。出存貨成本，并進(jìn)行結(jié)賬工作。貨子系統(tǒng)》的數(shù)據(jù)處理流程圖。管理、出庫管理、存管理、損管理和調(diào)撥管理等功能模塊。

　　

【正文】 r_code1 = (i, r_col) IF r_code=r_code1 THEN BEEP(5) MESSAGEBOX(39。提示 39。,39。編碼輸入重復(fù) ! 請重新輸入 !39。) (r_row, r_col,39。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 。 CASE 39。c_postion39。 SELECT postion_code INTO :r FROM c_postion WHERE postion_code= :r_code 。 CASE 39。c_edu_level39。 SELECT edu_level_code INTO :r FROM c_edu_level WHERE edu_level_code= :r_code 。 CASE c_supp_attr SELECT supp_attr_code INTO :r FROM c_supp_attr WHERE supp_attr_code= :r_code 。 END CHOOSE IF 100 then MESSAGEBOX(39。提示 39。,39。該編碼已經(jīng)存在 ! 請重新輸入 !39。) (r_row, r_col,39。39。) RETURN 1 END IF END IF END IF 44 確定 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。%39。 r_name=f_string(r_name) //r_code=39。 ~39。+ r_code +39。~39。 //SQL server //r_name=39。 ~39。+ r_name +39。~39。 //SQL server r_code=~39。+ r_code +~39。 //SQL anywhere r_name=~39。+ r_name +~39。 //SQL anywhere CHOOSE CASE i_type CASE 39。c_func39。 r_where_sql= where like + r_code amp。 + and like + r_name CASE 39。c_postion39。 r_where_sql= where like + r_code amp。 + and like + r_name CASE c_edu_level r_where_sql= where like + r_code amp。 + and like + r_name CASE c_supp_attr r_where_sql= where like + r_code amp。 + and like + r_name END CHOOSE //r_modi_sql = =39。 + i_orig_sql + r_where_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 45 復(fù)位 cb_reset: clicked! () =39。39。 增加 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。amp。G 可修改 39。 THEN SET_TAB_0() ELSE set_tab_old() (()) (1) () (0,false) ((),true) END IF 刪除 cb_delete: clicked! INTEGER NET long R_ROW,r_count if not (i_row) then return Net = MessageBox(提示 , 是否真的要?jiǎng)h除所選中的行 ?, Exclamation!, YESNO!, 2) IF Net = 2 THEN return =false (i_row) gf_dw_count(dw_table,sle_count) 46 保存 cb_save: clicked! integer rtn, NET Net = MessageBox( 提示 , 是否真的要保存 ?, Exclamation!, YESNO!, 1) IF Net 1 THEN return () IF ( ) 0 OR ( ) 0 THEN rtn = ( ) IF rtn = 1 THEN COMMIT USING SQLCA。 messagebox(39。提示 39。,39。保存成功 !39。) (Clicked!) ELSE ROLLBACK USING SQLCA。 messagebox(39。提示 39。,39。保存失敗 !39。) END IF END IF set_tab_0() if =39。amp。X 可修改 39。 then =true end if 47 打印 cb_print: clicked! str_printtool l_str_printtool //定義結(jié)構(gòu)，存 放調(diào)用參數(shù) = dw_table// 賦值：需要打印的datawindow名字 = 39。 39。//主標(biāo)題 = 39。39。//副標(biāo)題，如果賦值 39。today39。 打印時(shí)自動(dòng)顯示當(dāng)前日期 = g_date//腳注，如果賦值39。today39。 打印時(shí)自動(dòng)顯示當(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 48 退出 cb_cancel: clicked! close(parent) 49 窗口名 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 50 string r_code1 CHOOSE CASE i_type CASE 39。c_operator39。 select oper_code into :r_code1 from c_operator where oper_code=:r_code。 END CHOOSE if =0 then CHOOSE CASE i_type CASE 39。c_operator39。 messagebox(39。提示 39。,39。該編碼已經(jīng)存在 ! ~r~n 請重新輸入 !39。) ((),39。oper_code39。,39。39。) return 1 END CHOOSE END IF return 0 控件事件 腳本 51 W_sheet_input: Open! string r_modi,r_col,r_col_name integer i i_type= CHOOSE CASE i_type CASE 39。c_operator39。 =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 CHOOSE i_col=integer(nt) //數(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。%39。) CHOOSE CASE ename[i] CASE 39。supp