【正文】 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()36 / 89=39。39。(1,len()) //控制密碼輸入為 3 次if i_r3 then messagebox(39。提示39。,39。密碼不正確!39。) return else messagebox(39。提示39。,39。登陸超過(guò)三次，即將退出系統(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ì)說(shuō)明項(xiàng) 目 說(shuō) 明窗口名 W_pwd_modify所在的 PBL 庫(kù) 功能 密碼修改。父窗口 Window界面設(shè)計(jì)窗口控件說(shuō)明事件 腳本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。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ì)說(shuō)明項(xiàng) 目 說(shuō) 明窗口名 w_material_add所在的 PBL 庫(kù) 功能 固定資產(chǎn)增加。父窗口 Window38 / 89界面設(shè)計(jì)窗口控件說(shuō)明事件 腳本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)前行是否選擇中39 / 89Net = 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=銷(xiāo)售費(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)指定使用部門(mén)！)return 1end ifif ( ) 0 or ( ) 0 then //如果有修改或刪除的行 r_ret = ( ) if r_ret = 1 then COMMIT USING SQLCA。 messagebox(39。提示39。,39。保存成功!39。) (Clicked!)40 / 89 (0)else ROLLBACK USING SQLCA。 messagebox(39。提示39。,39。保存失敗!39。) end ifelse messagebox(39。提示39。,39。你沒(méi)有輸入信息！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 所示。表 54 窗口 w_material_jzzb的設(shè)計(jì)說(shuō)明項(xiàng) 目 說(shuō) 明窗口名 w_material_jzzb所在的 PBL 庫(kù) 功能 固定資產(chǎn)減值準(zhǔn)備。父窗口 Window41 / 89界面設(shè)計(jì)窗口控件說(shuō)明事件 腳本w_material_jzz:Open!i_type=((),39。lr_czy_code39。,g_czy_name) ( sqlca )(0)cb_zj:Clicked!long r_row//先檢查年末，于先做折舊if month(today()) 12 thenmessagebox(39。提示信息39。, 39。請(qǐng)于年末計(jì)提39。)return end if//select ()(0)r_row=()(r_row)()(1)(r_row)(0,FALSE)(r_row,TRUE)cb_sc:Clicked!INTEGER NETinteger n_rown_row=()42 / 89if not (n_row) then return//當(dāng)前行是否選擇中Net = MessageBox(提示, 是否刪除當(dāng)前記錄?, Exclamation!, YESNO!, 2)IF Net = 2 THEN return(n_row)(0)cb_bc:Clicked!integer r_ret,r_countstring r_zc_code, ls_yfdec{2} ld_jeif () 1 then return //if i_kp_code_l= or isnull(i_kp_code_l) then// messagebox(提示,卡片編號(hào)不能為空)// return//end ifr_zc_code = [()]if isnull(r_zc_code) or r_zc_code = 39。39。 thenmessagebox(提示,資產(chǎn)編號(hào)不能為空)return end if ld_je = [()]if isnull(ld_je) or ld_je = 0 thenmessagebox(提示,金額不能為 0)return end if//SELECT count(*) INTO :r_count FROM gdzc_bd WHERE kp_code= :i_kp_code_l 。if r_count0 then// MESSAGEBOX(39。提示39。,39。該編碼已存在! 請(qǐng)重新輸入!39。)// (Clicked!)// (0)// return 1else if ( ) 0 OR ( ) 0 THEN//如果有修改或刪除的行 r_ret = ( ) if r_ret = 1 then COMMIT USING SQLCA。 messagebox(39。提示39。,39。保存成功!39。)(Clicked!)(0) else ROLLBACK USING SQLCA。 messagebox(39。提示39。,39。保存失敗!39。)43 / 89 end if else messagebox(39。提示39。,39。你沒(méi)有輸入信息！39。) end ifend 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!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ù)窗口列的名稱(chēng)//i_kp_code_l=(r_row,39。kp_Y_code39。)CHOOSE CASE i_col_nameCASE gdzc_coder_code= data //(r_row,39。gdzc_code39。)SELECT count(*) INTO :r_count FROM gdzc_jbzl WHERE gdzc_code= :r_code 。if r_count0 then SELECT KP_code,GDZC_CODE,GDZC_NAME,GDZC_lb,GDZC_zjfs,gdzc_zjrq,gd44 / 89zc_bdrq,gdzc_bdfs,gdzc_syzt,gdzc_ggxh, gdzc_jzdw,gdzc_sybm,gdzc_zjff,gdzc_ysynx,gdzc_ygzl,gdzc