【導讀】畢業(yè)設計（論文）字數(shù)理工科、文科類均不少于。表整潔，布局合理，文字注釋規(guī)范。本人聲明所呈交的畢業(yè)論文是本人在導師指導下進行的。院或其他教育機構(gòu)的學位或證書而使用過的材料。

　　

【正文】 （ 題目、小五、宋體 ） 29 5 系統(tǒng)實現(xiàn) （本章主要描述畢業(yè)設計課題的主要程序?qū)ο螅绱翱凇?shù)據(jù)窗口等） 系統(tǒng)登錄與修改密碼窗口 窗口說明 1. 系統(tǒng)登錄與修改密碼窗口 w_xtdl，如下表 51 所示。 表 51 窗口 w_xtdl 的設計說明 項 目 說 明 窗口名 w_xtdl 所在的 PBL 庫 賬務處理系統(tǒng) .pbl 功能 系統(tǒng)登錄 父窗口 window 界面設計 cb_dkz ks le_bhs le_mmem_rqdw _zzcb_z tglcb_xjz t cb_tc 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 30 窗口控件說明 控件類型 控件名 控件名稱 說明 數(shù)據(jù)窗口 dw_zz 選擇賬套信息 命令按鈕 cb_dkzk amp。D 打開賬套 打開指定賬套窗口 命令按鈕 cb_ztgl amp。GZ 賬套管理 進入對指定賬套進行刪除或停用等操作的窗口 命令按鈕 cb_xjzt amp。X 新建賬套 進入新建賬套窗口 命令按鈕 cb_tc amp。T 退出 退出關(guān)閉窗口 單行編輯框 sle_bh 輸入操作員編號 單行編輯框 sle_mm 輸入操作員密碼 格式編輯框 em_rq 系統(tǒng)日期 事件 腳本 W_xtdl: Open! integer r_count =string(today(),39。yyyymmdd39。) (sqlca) (0) select top 1 zth into :g_zth from zz_ztxxb 。 (1,1,g_zth) //第一次使用空數(shù)據(jù)庫時，系統(tǒng)默認增加一超級用戶 select count(*) into :r_count from zz_czyxxb 。 if r_count=0 then INSERT INTO zz_czyxxb ( zth, czybh, czyxm, czymm, ssbm_code, czyqx_code ) VALUES ( 39。0039。, 39。139。, 39。超級用戶 39。, 39。139。, 39。0039。, 39。0039。) 。 end if dw_zz: return 1 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 31 itemerror! cb_dkzk: Clicked! string r_pass,r_id,r_mm,r_ztmc,r_zt integer r_count,r_count_km //判斷系統(tǒng)是否已經(jīng)建立賬套 select count(*) into :r_count from zz_ztxxb。 if r_count=0 then messagebox(39。提示 39。,39。 系統(tǒng)還沒有任何賬套，請選擇【新建賬套】！39。) return end if //判斷所選擇的賬套是否存在 () g_zth=(1,1) select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth。 if 0 then messagebox(39。提示 39。,39。 【 39。+g_zth+39。 】賬套號不存在，請重新輸入！39。) return end if //判斷所選擇的賬套是否停用 select zt into :r_zt from zz_ztxxb where zth=:g_zth。 if r_zt=39。停用 39。 then messagebox(39。提示 39。,39。 【 39。+g_zth+39。 】賬套號已經(jīng)停用 ，請重新輸入！ 39。) return end if g_rq= g_nkjqj= mid(g_rq,1,4) //當前年會計期間 //從會計期間表中取得當前月會計期間 select ykjqj into :g_ykjqj from zz_kjqjb where zth=:g_zth and qsrq = :g_rq and jsrq =:g_rq。 //用戶合法性判斷 g_id= r_pass= select count(*) into :r_count from zz_czyxxb where zth=:g_zth and czybh=:g_id and czymm=:r_pass 。 if r_count0 then //當前賬套使用的會計科目編碼 表 ZZ_KJKMBMB 數(shù)據(jù)處理 select count(*) into :r_count_km from zz_kjkmbmb where zth=:g_zth。 //如果當前賬套使用的會計科目編碼表 ZZ_KJKMBMB中沒有數(shù)據(jù)，則將會計科目編碼 ZZ_KJKMBM 表中當前賬套使用的會計科目插入進來 if r_count_km=0 then insert into zz_kjkmbmb select * from zz_kjkmbm where zth=:g_zth 。 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 32 else select count(*) into :r_count_km from zz_kjkmbmb where zth:g_zth。 if r_count_km0 then delete from zz_kjkmbmb where zth:g_zth。 end if end if open(w_zw) //進入賬務處理系統(tǒng) close(parent) else messagebox(39。提示 39。,39。操作員輸入錯誤，請重新輸入！ 39。) end if cb_ztgl: Clicked! string r_pass,r_zth,r_ztmc,r_czyqx_code integer r_count,Net g_rq= g_nkjqj = mid(g_rq,1,4) //判斷所選擇的賬套是否存在 () g_zth=(1,1) select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth。 if 0 then messagebox(39。提示 39。,39。 【 39。+g_zth+39。 】賬套號不存在，請重新輸入！39。) return end if //用戶合法性判斷 g_id= r_pass= select count(*) into :r_count from zz_czyxxb where zth=:g_zth and czybh=:g_id and czymm=:r_pass。 if r_count=0 then messagebox(39。提示 39。,39。操作員輸入錯誤，請重新 輸入！ 39。) return else select czyqx_code into :r_czyqx_code from zz_czyxxb where zth=:g_zth and czybh=:g_id and czymm=:r_pass。 //注：本系統(tǒng)假定當用戶的權(quán)限編碼為‘ 00’時，才可進行套賬管理操作 if r_czyqx_code=39。0039。 then open(w_ztgl) //進入賬套管理操作 close(parent) else messagebox(39。提示 39。,39。對不起，您無權(quán)限進行套賬【 39。+r_ztmc+39。 】管理！ 39。) end if end if 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 33 cb_xjzt: Clicked! string r_pass,r_zth,r_czyqx_code integer r_count,Net g_id= r_pass= select count(*) into :r_count from zz_czyxxb where czybh=:g_id and czymm=:r_pass 。 if r_count=0 then messagebox(39。提示 39。,39。操作員輸入錯誤，請重新輸入！ 39。) return else select czyqx_code into :r_czyqx_code from zz_czyxxb where czybh=:g_id and czymm=:r_pass。 // 注：本系統(tǒng)假定當用戶的權(quán)限編碼為‘ 00’時，才可以進行套賬的建立操作 if r_czyqx_code=39。0039。 then g_rq= g_nkjqj = mid(g_rq,1,4) open(w_xjzt) //進入新建賬套處理 close(parent) else messagebox(39。提示 39。,39。對不起，您無權(quán)限進行新建套賬操作！ 39。) return end if end if cb_tc: Clicked! close(parent) 2. 修改操作員密碼窗口 w_xgmm，如下表 52 所示。 表 52 窗口 w_xgmm 的設計說明 項 目 說 明 窗口名 w_xgmm 所在的 PBL 庫 賬務處理 系統(tǒng) .pbl 功能 操作員密碼修改。該窗口類型為彈出窗口。 父窗口 window 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 34 界面設計 cb_xg cb_tcs le_ymms le_xmms le_qr mm 窗口控件說明 控件類型 控件名 控件名稱 說明 命令按鈕 cb_xg amp。X 修改 保存對 操作員密碼的修改 命令按鈕 cb_tc amp。T 退出 退出關(guān)閉窗口 單行編輯框 sle_ymm 輸入原密碼 單行編輯框 sle_xmm 輸入新密碼 單行編輯框 sle_qrmm 確認新密碼 事件 腳本 W_xgmm: Open! =39。更改操作員密碼 39。 cb_xg: Clicked! string r_ymm,r_xmm,r_qrmm,r_password,r_czybh integer Net r_ymm=trim() 重慶理工大學畢業(yè)論文 （ 題目、小五、宋體 ） 35 r_xmm=trim() r_qrmm=trim() select czybh,czymm into :r_czybh,:r_password from zz_czyxxb where czybh=:g_id。 if trim(r_password) r_ymm then messagebox(提示 ,原始密碼錯誤！請重新輸入！ ) =39。39。 () return end if if r_xmmr_qrmm then messagebox(提示 ,兩次密碼輸入不一致！請重新輸入！ ) return end if Net = MessageBox(提示 , 是否確認要更改密碼？ , Exclamation!, YESNO!, 2) if Net = 2 then return update zz_czyxxb set czymm=:r_xmm where czybh=:g_id。 if =0 then mit。 messagebox(提示 ,密碼更改成功！ ) =39。39。 =39。39。 =39。39。 else rollback。 messagebox(提示 ,密碼更改失敗！ ) end if cb_tc: Clicked! close(parent) 數(shù)據(jù)窗口說明 1. 賬套信息表帶條件檢索自由格數(shù)據(jù)窗口 dw_zz_ztxxb_free_r，如下表 53 所示。 表 53 數(shù)據(jù)窗口 dw_zz_ztxxb_free_r 的說明 項 目 說 明 數(shù)據(jù)窗口名 dw_zz_ztxxb_