【正文】 )SELECT count(*) INTO :r_count FROM gdzc_jbzl WHERE gdzc_code= :r_code 。)CHOOSE CASE i_col_nameCASE gdzc_coder_code= data //(r_row,39。,Exclamation!, YESNO!, 2)IF NET=1 THEN CLOSE(PARENT)else RETURNEND IFdw_fw:Clicked!integer r_rowcount,r_countdecimal r_value,r_zcyz,r_ljzj,r_zcjz,r_zcjz2,r_yjclstring r_code integer r_rowstring r_kp_code,r_gdzc_code,r_gdzc_name,r_gdzc_lb,r_gdzc_zjfs,r_gdzc_zjrq,r_gdzc_bdrq,r_gdzc_bdfs,r_gdzc_syzt,r_gdzc_ggxhstring r_gdzc_jzdw,r_gdzc_sybm,r_gdzc_zjff,r_gdzc_ygzl,r_gdzc_zjkmstring r_gdzc_bz,r_gdzc_jstz,r_gdzc_jjyt,r_gdzc_cfdd,r_bz, ls_yfdecimal r_gdzc_ljzj,r_gdzc_zj,r_gdzc_ycz,r_gdzc_yz,r_gdzc_ysynx//()r_row=()r_rowcount=()i_col_name=()//當(dāng)前數(shù)據(jù)窗口列的名稱//i_kp_code_l=(r_row,39。,39。) end ifend if cb_fw:Clicked!()(0)cb_tc:Clicked!INTEGER NETNET=MESSAGEBOX(39。,39。)43 / 89 end if else messagebox(39。,39。 messagebox(39。保存成功!39。提示39。)// (Clicked!)// (0)// return 1else if ( ) 0 OR ( ) 0 THEN//如果有修改或刪除的行 r_ret = ( ) if r_ret = 1 then COMMIT USING SQLCA。,39。if r_count0 then// MESSAGEBOX(39。39。請于年末計提39。提示信息39。lr_czy_code39。表 54 窗口 w_material_jzzb的設(shè)計說明項 目 說 明窗口名 w_material_jzzb所在的 PBL 庫 功能 固定資產(chǎn)減值準(zhǔn)備。確定要退出嗎?39。提示39。你沒有輸入信息！39。提示39。保存失敗!39。提示39。) (Clicked!)40 / 89 (0)else ROLLBACK USING SQLCA。,39。 messagebox(39。gdzc_sybm39。gdzc_ysynx39。gdzc_zjkm39。gdzc_zjff39。SH_YN_CODE39。kp_code39。lr_czy_code39。lr_czy_code39。父窗口 Window38 / 89界面設(shè)計窗口控件說明事件 腳本w_material_ad:Open! //CONNECT。messagebox(提示,密碼修改失敗！)end ifend ifcb_2:Clicked! close(parent)3. 固定資產(chǎn)增加窗口 w_material_add，如下表 53 所示。39。39。39。if =0 thenmit。39。父窗口 Window界面設(shè)計窗口控件說明事件 腳本cb_1:Clicked!string r_ymm,r_xmm,r_qrmm,r_password,r_codeinteger r_retr_ymm=trim()r_xmm=trim()r_qrmm=trim()37 / 89select CZY_CODE,password into :r_code,:r_password from c_czy where czy_code=:g_czy_code。) CLOSE(PARENT)end ifend ifend if cb_tc:Clicked! halt //關(guān)閉窗口2. 修改操作員密碼窗口 w_pwd_modify，如下表 52 所示。,39。) return else messagebox(39。,39。(1,len()) //控制密碼輸入為 3 次if i_r3 then messagebox(39。) RETURN 1end if//驗證密碼是否正確if TRIM(r_password)=r_pass thenopen(w_main)CLOSE(PARENT) else()36 / 89=39。,39。 then messagebox(39。 or r_pass=39。 //驗證用戶名和密碼不能為空if g_czy_code=39。)r_pass=TRIM()if g_czy_code= then messagebox(提示,請選擇用戶)else //從表里查找數(shù)據(jù)賦予變量SELECT PASSWORD,czy_name,qx INTO :r_password,:g_czy_name,:gs_groupid FROM C_CZY WHERE amp。 //關(guān)閉游標(biāo)=string(today()) //設(shè)置登陸時間 (sqlca)(0) //窗口居中Environment r_aInteger r_w,r_hGetEnvironment(r_a)r_w=PixelsToUnits(,xpixelstounits!)r_h=PixelsToUnits(,ypixelstounits!)move((r_w width)/2,(r_h height)/2)cb_dl:Clicked!STRING r_pass,r_password,r_qx,r_code2,r_qxsz //定義取數(shù)變量i_r=i_r+1 //控制錯誤輸入次數(shù)//g_czy_code=TRIM() //取相關(guān)數(shù)據(jù)g_czy_code = (1,39。 //執(zhí)行游標(biāo)do while =0(r_czy) //向下拉列表框中添加數(shù)據(jù)35 / 89 fetch cursor1 into :r_czy。 //聲明游標(biāo)open cursor1。) 。, 39。, 39。if r_count=0 then INSERT INTO c_czy ( czy_code, czy_name, password) VALUES ( 39。34 / 895 系統(tǒng)實現(xiàn)1. 系統(tǒng)登錄與修改密碼窗口 login，如下表 51 所示。為了保護數(shù)據(jù)安全，本系統(tǒng)設(shè)計采用動態(tài)更新方法來保護數(shù)據(jù)。31 / 89 圖 415 固定資產(chǎn)卡片查詢輸出界面 固定信息查詢的輸出界面圖 416 固定資產(chǎn)信息查詢輸出界面32 / 89圖 417 固定資產(chǎn)折舊信息查詢輸出界面圖 418 固定資產(chǎn)匯總信息輸出界面33 / 89雖然在進行數(shù)據(jù)庫設(shè)計時，考慮到種種意外情況發(fā)生，并采取各種保護措施來防止數(shù)據(jù)被破壞。對一些超范圍輸入給出提示信息，以防出現(xiàn)一些不合理的信息。設(shè)定常用操作的快捷鍵從而減少輸入時間，提高效率。對于能夠設(shè)置默認值的項盡量設(shè)置默認值，通過下拉式數(shù)據(jù)窗口和彈出式數(shù)據(jù)窗口，用戶也可以方便地選擇其他自定義信息，經(jīng)用戶選擇后可將數(shù)據(jù)自動添加到當(dāng)前窗口中，以減少固定資產(chǎn)信息錄入人員的犯錯次數(shù)，提高工作效率。對各種常用信息的輸入基本上都采用了表格形式的數(shù)據(jù)窗口進行數(shù)據(jù)輸入，以保證界面的友好性和統(tǒng)一性。在輸入設(shè)計中，提高效率和減少錯誤是兩個最根本的原則。輸入數(shù)據(jù)的正確性直接決定處理結(jié)果的正確性，如果輸入數(shù)據(jù)有誤，即使計算和處理十分正確，也無法獲得可靠的輸出信息。表 44 減值準(zhǔn)備信息表列名 中文名稱 類型與長度 空否 說明gdzc_code 固定資產(chǎn)編號Char(13) 否 固定資產(chǎn)編號gdzc_zjyf 固定資產(chǎn)減值準(zhǔn)備記提月份Char(10) 否 固定資產(chǎn)減值準(zhǔn)備記提月份gdzc_jzje 計提金額 decimal(10)) 是 計提金額zz_yn_code 審核標(biāo)志 Char(2) 是 審核標(biāo)志bz 備注 Varchar(200) 是 備注gdzc_shdate 審核時間 Varchar(10) 是 審核時間shry 審核人員 Varchar(10) 是 審核人員本系統(tǒng)共用了 1 個由 PowerBuilder 建立的庫，這個庫相互組合構(gòu)成了這整個系統(tǒng)。表 43 折舊方法表列名 中文名稱 類型與長度 空否 說明gdzc_zjff_code 折舊方法編號Char(10 否 折舊方法編號gdzc_zjff_mc 折舊名稱 Char(16) 是 折舊名稱gdzc_zjff_jsgs 折舊計算法Char(60) 是 折舊計算法 (4) 表中文名稱：減值準(zhǔn)備信息表，見表 44。表 42 固定資產(chǎn)增加信息表列名 中文名稱 類型與長度 空否 說明kp_code 卡片編號 Char(10) 否 卡片編號gdzc_code 固定資產(chǎn)編號 Char(10) 否 固定資產(chǎn)編號gdzc_name 固定資產(chǎn)名稱 Char(50) 是 固定資產(chǎn)名稱gdzc_lb 固定資產(chǎn)類別 Char(30) 是 固定資產(chǎn)類別gdzc_zjrq 增加日期 Char(15) 是 增加日期gdzc_zjfs 增加方式 Char(20) 是 增加方式gdzc_syzt 使用狀態(tài) Char(15) 是 使用狀態(tài)gdzc_ggxh 型號 Char(10) 是 型號gdzc_jzdw 建造單位 Char(50) 是 建造單位gdzc_sybm 屬于部門 Char(15) 是 屬于部門gdzc_zjff 折舊方法 Char(15) 是 折舊方法gdzc_ysynx 預(yù)計使用年限 decimal(5) 是 預(yù)計使用年限gdzc_ygzl 預(yù)計工作量 decimal (10)是 預(yù)計工作量gdzc_yz 原值 decimal(10) 是 原值gdzc_ljzj 累計折舊 decimal (10)是 累計折舊gdzc_jz 凈值 decimal(10) 是 凈值gdzc_ycz 預(yù)計殘值 decimal (10)是 預(yù)計殘值gdzc_zjkm 折舊科目 Char(20) 是 折舊科目gdzc_bz 幣種 Char(10) 是 幣種gdzc_jstz 技術(shù)特征 Char(30) 是 技術(shù)特征gdzc_jjyt 經(jīng)濟用途 Char(30) 是 經(jīng)濟用途gdzc_cfdd 存放地點 Char(50) 是 存放地點lr_czy_code 錄入員 Char(10) 是 錄入員sh_czy_code 審核員 Char(10) 是 審核員sh_yn_code 審核標(biāo)志 Char(10) 是 審核標(biāo)志24 / 89sh_shrq 審核日期 Char(30) 是 審核日期zz_code 轉(zhuǎn)賬標(biāo)志 Char(10) 是 轉(zhuǎn)賬標(biāo)志bz 備注 Char(50) 是 備注 (3) 表中文名稱：折舊方法表，見表 43。23 / 89表 41 操作員表列名 中文名稱 類型與長度 空否 說明czy_code 操作員編號 Char(10) 否 操作員編號czy_name 操作員名 Char(20) 是 操作員名稱bm_code 部門編號 Char(10) 是 部門編號Password 密碼 Char(6) 是 密碼Qx 權(quán)限 Char(20) 是 權(quán)限 (2) 表中文名稱：固定資產(chǎn)增加信息表，見表 42。 (1) 表中文名稱：管理員表，見表 41?，F(xiàn)在需要將上面的實體模型轉(zhuǎn)換成為實際數(shù)據(jù)庫內(nèi)的表，也就是數(shù)據(jù)庫邏輯結(jié)構(gòu)。22 / 89折舊管理資產(chǎn)折舊 批量折舊圖 47 折舊管理功能圖 其他功能如圖 48 所示。21 / 89日常業(yè)務(wù)固定資產(chǎn)卡片增加 固定資產(chǎn)增加審核固定資產(chǎn)變更固定資產(chǎn)變更審核固定資產(chǎn)清理固定資產(chǎn)清理審核 固定資產(chǎn)減值準(zhǔn)備 固定資產(chǎn)減值審核 圖 45 日常業(yè)務(wù)功能圖查詢與報表功能如圖 46 所示。20 / 89基礎(chǔ)數(shù)據(jù)維護科目類別維護固定資產(chǎn)類別維護圖43 基礎(chǔ)數(shù)據(jù)維護功能圖碼表維護功能如圖 44 所示。19 / 89固定資產(chǎn)管理系統(tǒng)基礎(chǔ)