【正文】 %39。39。該編碼已經(jīng)存在 ! ~r~n 請(qǐng)重新輸入 !39。c_operator39。 打印時(shí)自動(dòng)顯示當(dāng)前日期 =1//主標(biāo)題下劃線， 1 有下劃線，其它無(wú)下劃線 =0//副標(biāo)題下劃線， 1 有下劃線，其它無(wú)下劃線 =0//腳注下劃線， 1 有下劃線，其它無(wú)下劃線 =3//腳注對(duì)齊方式， 1 右對(duì)齊， 2 中間對(duì)齊，3 左對(duì)齊，其它無(wú)效 openWithparm(w_printtool,l_str_printtool)//調(diào)用打印窗口 //long job //INTEGER NET,NET1 // //Net = MessageBox(提示 , 是否真的要打印 ?, Exclamation!, YESNO!, 1) //IF Net = 1 THEN // Net1 = MessageBox(提示 , 請(qǐng)準(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 返回值類(lèi)型： integer string r_code1 CHOOSE CASE i_type CASE 39。//副標(biāo)題，如果賦值 39。 then =true end if 29 打印 cb_print: clicked! str_printtool l_str_printtool //定義結(jié)構(gòu)，存 放調(diào)用參數(shù) = dw_table//賦值：需要打印的 datawindow 名字 = 39。保存失敗 !39。) (Clicked!) ELSE ROLLBACK USING SQLCA。 messagebox(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。 + and like + r_name END CHOOSE //r_modi_sql = =39。c_postion39。 //SQL anywhere CHOOSE CASE i_type CASE 39。 //SQL server r_code=~39。 //SQL server //r_name=39。 r_name=f_string(r_name) //r_code=39。) (r_row, r_col,39。 END CHOOSE IF 100 then MESSAGEBOX(39。 CASE 39。) //當(dāng)前行當(dāng)前列的值設(shè)為空 RETURN 1 END IF END IF NEXT //數(shù)據(jù)庫(kù)中已經(jīng)存在的編碼不能再次輸入 CHOOSE CASE i_type CASE c_func SELECT func_code INTO :r FROM c_func WHERE func_code= :r_code 。,39。amp。39。提示 39。 =false =false 窗口函數(shù) 4 set_tab_old() 參數(shù)：無(wú) 返回值類(lèi)型：無(wú) integer j FOR j=1 TO i_col (j, i_tab[j]) NEXT =39。 ELSE ROLLBACK USING SQLCA。 設(shè)置 39。 close(parent) open(w_set) 退出 cb_cancel: clicked! close(parent) 窗口名 W_set Message 參數(shù) 無(wú) 22 主要功能 系統(tǒng)設(shè)置窗口 實(shí)例變量聲明 無(wú) 窗口函數(shù) wf_change_menu(r_menu_name) 參數(shù)： string r_menu_name 返回值類(lèi)型： integer string ls_menu select s_menu into :ls_menu from c_menu where menu_group=:r_menu_name。 + g_sys_name + 39。) //取關(guān)鍵字 delete from c_supp where = :r_primary[1] 。 r_count=1 //關(guān)鍵字段數(shù) r_primary[r_count]=39。oper_code39。c_operator39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。) end if return 函數(shù)名 f_dw_test_repeat 返回值類(lèi)型 long 函數(shù)功能 對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試 20 參數(shù)定義 r_type:string r_dw: datawindow r_sle: singlelineedit 腳本 long r_row,r_rowcount,r_count,r_select,r_return=0 string r_primary[] r_rowcount=() r_type=lower(r_type) CHOOSE CASE r_type CASE 39。 SetPointer(arrow!) if f_sql() then return else // messagebox(39。39。2020010139。00039。 人員信息39。c_operator39。0239。dw_c_operator_grid39。00139。,39。,39。,39。,39。,39。,39。,39。,39。失敗 39。)。 insert into c_flag_code values (39。,39。每季度 39。)。 insert into c_interval values (39。0239。,39。無(wú) 39。 delete from c_interval 。0439。,39。txt39。)。 insert into c_file_type values (39。,39。自由 39。)。 insert into c_mean values (39。,39。導(dǎo)入 39。 //導(dǎo)入導(dǎo)出碼表 delete from c_save_import 。,39。收款憑證 39。) 。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。,39。碩士 39。) 。 //學(xué)歷碼表 c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。0439。,39。副董事長(zhǎng) 39。) 。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。sql 錯(cuò)誤信息 39。%39。where39。39。共 39。 函數(shù)名 函數(shù)功能 f_oper_check 判斷操作員輸入的編碼及密碼是否合 法 gf_dw_count 顯示數(shù)據(jù)窗口的行數(shù) f_where_exist 判斷有無(wú) WHERE 條件 f_string 字符變量的處理 f_sql 判斷， 0、 100： false， 1： true gf_ini_table 碼表初始化 f_i_o 導(dǎo)入導(dǎo)出初始 f_dw_test_repeat 對(duì)數(shù)據(jù)窗口中的導(dǎo)入數(shù)據(jù)進(jìn)行重復(fù)性測(cè)試 f_dw_test_repeat_del 刪除導(dǎo)入導(dǎo)出中的重復(fù)數(shù)據(jù) 函數(shù)名 f_oper_check 返回值類(lèi)型 integer 函數(shù)功 能 判斷操作員輸入的編碼及密碼是否合法 17 參數(shù)定義 r_oper_code:string r_pass:string 腳本 string r_oper_pass SELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code。00139。d:\io39。39。重慶工學(xué)院會(huì)計(jì)學(xué)院 實(shí)驗(yàn)案例 39。記錄日志標(biāo)記 139。8039。2020010139。 實(shí)驗(yàn)環(huán)境： 安裝 Windows 操作系統(tǒng)、 PowerBuilder 軟件、 SQL Anywhere 數(shù)據(jù)庫(kù)、教師提供的軟件原型平臺(tái)等。 通過(guò) 《存貨子系統(tǒng)》的 PDM，利用 PowerDesigner AppModeler 軟件，生成《存貨子系統(tǒng)》數(shù)據(jù)庫(kù)中的各張表。 實(shí)驗(yàn)內(nèi)容： 在 PowerBuilder 中，建立《存貨子系統(tǒng)》的 SQL Anywhere 數(shù)據(jù)庫(kù)。 建立《存貨子系統(tǒng)》的 ODBC。 7 實(shí)驗(yàn)內(nèi)容： 通過(guò)分析 《存貨子系統(tǒng)》 的數(shù)據(jù)流程圖，寫(xiě)出 《存貨子系統(tǒng)》 的數(shù)據(jù)字典。功能結(jié)構(gòu)圖如圖 3所示： 存貨核算與管理系統(tǒng) 入庫(kù)管理 出庫(kù)管理調(diào)撥管理驗(yàn)貨單管理采購(gòu)入庫(kù)單錄入采購(gòu)入庫(kù)單審核采購(gòu)入庫(kù)單記賬銷(xiāo)售退貨單管理出庫(kù)通知單管理出庫(kù)單錄入出庫(kù)單審核出庫(kù)單記賬 盤(pán)點(diǎn)管理庫(kù)存盤(pán)點(diǎn)單錄入庫(kù)存盤(pán)點(diǎn)單審核庫(kù)存盤(pán)點(diǎn)單記賬報(bào)損單錄入報(bào)損單審核報(bào)損單記賬報(bào)損管理調(diào)撥單錄入調(diào)撥單審核調(diào)撥單記賬圖 3 存貨子系統(tǒng)功能結(jié)構(gòu)圖 實(shí)驗(yàn)四 《 存貨子系統(tǒng)》數(shù)據(jù)字典及數(shù)據(jù)庫(kù)設(shè)計(jì) 實(shí)驗(yàn)?zāi)康模? 通過(guò)分析《存貨子系統(tǒng)》的數(shù)據(jù)流程圖，進(jìn)一步寫(xiě)出《存貨子系統(tǒng)》的數(shù)據(jù)字 典。 6 根據(jù)業(yè)務(wù)流程圖和數(shù)據(jù)流程圖 ，存貨子系統(tǒng)基本可以劃分為入庫(kù)管理、出庫(kù)管理、盤(pán)點(diǎn)管理、報(bào)損管理、調(diào)撥管理等五個(gè)功能模塊。數(shù)據(jù)流程圖如圖 2 所示： E3銷(xiāo)售部門(mén)E1倉(cāng)庫(kù)部門(mén)P2出庫(kù)處理S1庫(kù)存帳目驗(yàn)收單P4盤(pán)點(diǎn)庫(kù)存P3審核調(diào)撥單調(diào)撥單（申請(qǐng)）調(diào)撥單（審核）庫(kù)存盤(pán)點(diǎn)單調(diào)撥單（審核）E4財(cái)務(wù)部門(mén)庫(kù)存盤(pán)點(diǎn)單出庫(kù)單、入庫(kù)單出庫(kù)單、退貨入庫(kù)單E2采購(gòu)部門(mén)P1驗(yàn)收貨物采購(gòu)單入庫(kù)單實(shí)物清單P5審核報(bào)損單報(bào)損單報(bào)損單（審核）報(bào)損單（審核）銷(xiāo)售單銷(xiāo)售退貨單銷(xiāo)售單 圖 2 存貨子系統(tǒng)數(shù)據(jù)流程圖 實(shí)驗(yàn)三 《 存貨子系統(tǒng)》功能分析 實(shí)驗(yàn)?zāi)康模? 通過(guò)分析《 存貨子系統(tǒng)》的業(yè)務(wù)流程與數(shù)據(jù)處理流程圖，進(jìn)一步分析《存貨子系統(tǒng)》的功能。