【正文】 用操作的快捷鍵從而減少輸入時(shí)間，提高效率。(4) 提供輸入時(shí)的數(shù)據(jù)校驗(yàn)功能。對(duì)一些超范圍輸入給出提示信息，以防出現(xiàn)一些不合理的信息。 圖 49 登錄系統(tǒng)輸入界面 部門信息維護(hù)輸入界面查詢、新增、輸入部門信息重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)29圖 410 部門信息維護(hù)輸入界面 密碼信息輸入界面修改密碼圖 411 密碼信息輸入界面部門系統(tǒng)初始化重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)30圖 412 供用戶信息輸入界面輸入固定資產(chǎn)增加信息重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)31圖 413 固定資產(chǎn)增加輸入界面輸入固定資產(chǎn)減值信息圖 414 固定資產(chǎn)減值準(zhǔn)備輸入界面本系統(tǒng)的輸出主要是以查詢的方式，方便用戶隨時(shí)查看信息。重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)32 圖 415 固定資產(chǎn)卡片查詢輸出界面 固定信息查詢的輸出界面圖 416 固定資產(chǎn)信息查詢輸出界面重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)33圖 417 固定資產(chǎn)折舊信息查詢輸出界面圖 418 固定資產(chǎn)匯總信息輸出界面重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)34雖然在進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)，考慮到種種意外情況發(fā)生，并采取各種保護(hù)措施來防止數(shù)據(jù)被破壞。但在計(jì)算機(jī)系統(tǒng)中硬件的故障、軟件的錯(cuò)誤、用戶的失誤以及數(shù)據(jù)庫(kù)遭受惡意破壞都會(huì)影響數(shù)據(jù)的正確性。為了保護(hù)數(shù)據(jù)安全，本系統(tǒng)設(shè)計(jì)采用動(dòng)態(tài)更新方法來保護(hù)數(shù)據(jù)。該方法為了保障數(shù)據(jù)庫(kù)的安全性，確保數(shù)據(jù)之間不發(fā)生沖突，所有需要對(duì)固定資產(chǎn)信息進(jìn)行修改的地方都做到了對(duì)數(shù)據(jù)庫(kù)的動(dòng)態(tài)更新，以保證數(shù)據(jù)的一致性。重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)355 系統(tǒng)實(shí)現(xiàn)1. 系統(tǒng)登錄與修改密碼窗口 login，如下表 51 所示。表 51 窗口 login的設(shè)計(jì)說明項(xiàng) 目 說 明窗口名 W_login所在的 PBL 庫(kù) 功能 系統(tǒng)登錄父窗口 Window界面設(shè)計(jì) 事件 腳本W(wǎng)_login:Open! integer r_countstring r_czy//第一次使用空數(shù)據(jù)庫(kù)時(shí)，系統(tǒng)默認(rèn)增加一超級(jí)用戶select count(*) into :r_count from c_czy 。if r_count=0 then INSERT INTO c_czy ( czy_code, czy_name, password) VALUES ( 39。0139。, 39。超級(jí)用戶39。, 39。0139。) 。 end ifdeclare cursor1 cursor for select distinct czy_code from c_czy。 //聲明游標(biāo)open cursor1。 //打開游標(biāo)fetch cursor1 into :r_czy。 //執(zhí)行游標(biāo)do while =0(r_czy) //向下拉列表框中添加數(shù)據(jù)重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)36 fetch cursor1 into :r_czy。loopclose cursor1。 //關(guān)閉游標(biāo)=string(today()) //設(shè)置登陸時(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 //控制錯(cuò)誤輸入次數(shù)//g_czy_code=TRIM() //取相關(guān)數(shù)據(jù)g_czy_code = (1,39。userid39。)r_pass=TRIM()if g_czy_code= then messagebox(提示,請(qǐng)選擇用戶)else //從表里查找數(shù)據(jù)賦予變量SELECT PASSWORD,czy_name,qx INTO :r_password,:g_czy_name,:gs_groupid FROM C_CZY WHERE amp。 czy_code=:g_czy_code。 //驗(yàn)證用戶名和密碼不能為空if g_czy_code=39。39。 or r_pass=39。39。 then messagebox(39。提示39。,39。請(qǐng)輸入密碼!39。) RETURN 1end if//驗(yàn)證密碼是否正確if TRIM(r_password)=r_pass thenopen(w_main)CLOSE(PARENT) else()重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)37=39。39。(1,len()) //控制密碼輸入為 3 次if i_r3 then messagebox(39。提示39。,39。密碼不正確!39。) return else messagebox(39。提示39。,39。登陸超過三次，即將退出系統(tǒng)!39。) CLOSE(PARENT)end ifend ifend if cb_tc:Clicked! halt //關(guān)閉窗口2. 修改操作員密碼窗口 w_pwd_modify，如下表 52 所示。表 52 窗口 w_pwd_modify的設(shè)計(jì)說明項(xiàng) 目 說 明窗口名 W_pwd_modify所在的 PBL 庫(kù) 功能 密碼修改。父窗口 Window界面設(shè)計(jì)窗口控件說明事件 腳本cb_1:Clicked!string r_ymm,r_xmm,r_qrmm,r_password,r_codeinteger r_retr_ymm=trim()r_xmm=trim()r_qrmm=trim()重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)38select CZY_CODE,password into :r_code,:r_password from c_czy where czy_code=:g_czy_code。if trim(r_password) r_ymm thenmessagebox(提示,原始密碼錯(cuò)誤！)=39。39。()return 0end ifif r_xmmr_qrmm thenmessagebox(提示,兩次密碼輸入不一致！)return 0end ifr_ret = MessageBox(提示, 您確定要修改密碼?, Exclamation!, YESNO!, 1)if r_ret = 1 THENupdate C_czyset password=:r_xmmwhere czy_code=:g_czy_code。if =0 thenmit。messagebox(提示,密碼修改成功！)=39。39。=39。39。=39。39。close(parent)elserollback。messagebox(提示,密碼修改失?。?end ifend ifcb_2:Clicked! close(parent)3. 固定資產(chǎn)增加窗口 w_material_add，如下表 53 所示。表 53 窗口 w_material_add的設(shè)計(jì)說明項(xiàng) 目 說 明窗口名 w_material_add所在的 PBL 庫(kù) 功能 固定資產(chǎn)增加。父窗口 Window重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)39界面設(shè)計(jì)窗口控件說明事件 腳本w_material_ad:Open! //CONNECT。i_type=((),39。lr_czy_code39。,g_czy_name)i_title=固定資產(chǎn)增加 ( sqlca )(0)(39。lr_czy_code39。,0)(39。kp_code39。, 0)(39。SH_YN_CODE39。, 0)=i_titlecb_zj:Clicked!long m_row(0)m_row=()(m_row)()(1)(m_row)(0,FALSE)//dw_3_count(dw_mx,sle_1)(m_row,TRUE)cb_sc:Clicked!INTEGER NETinteger n_rown_row=()if not (n_row) then return//當(dāng)前行是否選擇中重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)40Net = MessageBox(提示, 是否刪除當(dāng)前記錄?, Exclamation!, YESNO!, 2)IF Net = 2 THEN return(n_row)(0)cb_bc:Clicked!integer r_retstring r_zc_code,r_zjff,r_zjkm,r_synx,r_sybm,r_syzt()r_zjff=((),39。gdzc_zjff39。)r_zjkm=((),39。gdzc_zjkm39。)r_synx=string(((),39。gdzc_ysynx39。))r_sybm=((),39。gdzc_sybm39。)if r_zjff= or isnull(r_zjff) then messagebox(提示,請(qǐng)選擇折舊方法！)return 1end if if r_zjkm= or isnull(r_zjkm) then messagebox(提示,請(qǐng)指定折舊科目！)return 1 end ifif r_zjkm=累計(jì)折舊 or r_zjkm=管理費(fèi)用 or r_zjkm=制造費(fèi)用 or r_zjkm=銷售費(fèi)用 then elsemessagebox(提示,請(qǐng)指定正確的折舊科目!)return 1end if if r_synx= or isnull(r_synx) then messagebox(提示,請(qǐng)指定使用年限！)return 1end ifif r_sybm= or isnull(r_sybm) then messagebox(提示,請(qǐng)指定使用部門！)return 1end ifif ( ) 0 or ( ) 0 then //如果有修改或刪除的行 r_ret = ( ) if r_ret = 1 then COMMIT USING SQLCA。 messagebox(39。提示39。,39。保存成功!39。) (Clicked!)重慶理工大學(xué)畢業(yè)論文 工業(yè)企業(yè)固定資產(chǎn)管理系統(tǒng)41 (0)else ROLLBACK USING SQLCA。 messagebox(39。提示39。,39。保存失敗!39。) end ifelse messagebox(39。提示39。,39。你沒有輸入信息！39。)end if cb_fw:Clicked!()(0)cb_tc:Clicked!INTEGER NETNET=MESSAGEBOX(39。提示39。,39。確定要退出嗎?39。,Exclamation!, YESNO!, 2)IF NET=1 THEN CLOSE(PARENT)else RETURNEND IFdw_fw:Clicked!IF row0 THEN(0,true)(row,false)END IF4. 固定資產(chǎn)減值準(zhǔn)備窗口 w_material_jzzb，如下表 54 所示。