【正文】 else countfine=(countday days)*fine//超根據(jù)期多少計(jì)算罰金 end if return countfine 5 應(yīng)用程序?qū)ο? App_librarain 功能介紹： PB 程序由一 個(gè)應(yīng)用程序開始，即每個(gè) PB 程序在開始運(yùn)行時(shí)，先執(zhí)行應(yīng)用程序?qū)ο蟮?Open事件。 代碼分析： // Profile librarian = ODBC = False = ConnectString=39。UID=。 Connect using SQLCA。系統(tǒng)提示 39。連接數(shù)據(jù)庫(kù)失?。?39。如果錯(cuò)誤，顯示出錯(cuò)誤提示。 代碼分析： Open事件： ()//“用戶名”輸入框獲得焦點(diǎn) =923 =588 “登錄”按鈕： string name,pwd char lev int test name= pwd= 26 //檢測(cè)用戶名與密碼是否匹配 SELECT level INTO :lev FROM people WHERE name=:name and password=:pwd。 窗口設(shè)置；本窗口為容器窗口，故它的 WindowType 為 mdihelp!,表示本窗口為多文檔界面，可以有菜單、工具欄與狀態(tài)欄。 Menuname 屬性設(shè)為m_main,即是與本窗口連接的菜單名稱。 代碼分析：每個(gè)相應(yīng)的菜單項(xiàng)的 clicked 事件都使用 opensheet 方法來打開相應(yīng)的功能窗口，如“新書入庫(kù)”的菜單項(xiàng)下的 clicked 事件的處理代碼為： opensheet(w_newbook,w_newbook,parentwindow,0,cascaded!) 28 （ 4）新書入庫(kù)窗口 w_newbook 圖 功 能介紹：增加、修改圖書信息。+ls_bookid+39。 //提交事務(wù) ()//“新增”按鈕獲得焦點(diǎn) else rollback。 操作方法：首先通過圖書編號(hào)檢索出圖書信息，然后點(diǎn)擊“銷毀”按鈕注銷圖書。+ls_bookid+39。刪除詢問 39。真的要注銷此書嗎？ 31 39。 else rollback。 代碼分析： Open 事件： =1243 =1160 “借閱人號(hào)”輸入框 modified 事件： string ls_memberid,ls_membername ls_memberid=trim() select membername//根據(jù)“借閱人編號(hào)”查詢出“借閱人姓名” into :ls_membername from memberinfo where memberid=:ls_memberid。 if 0 then messagebox(系統(tǒng)提示 ,沒有此圖書信息！ ) () return else =ls_title end if “借閱”按鈕： string ls_bookid,ls_memberid,ls_bookonloan date ldt_nowdate ldt_nowdate=today()//獲得“當(dāng)前日期” ls_bookid=trim()//獲得“借閱人號(hào)” ls_memberid=trim()//獲得“圖書編號(hào)” //強(qiáng)制輸入“借閱人號(hào)”與“圖書編號(hào)” if ls_memberid= or isnull(ls_memberid) then messagebox(系統(tǒng)提示 ,請(qǐng)輸入借閱人編號(hào)！ ) () return end if if ls_bookid= or isnull(ls_bookid) then messagebox(系統(tǒng)提示 ,請(qǐng)輸入圖書編號(hào)！ ) () 36 return end if //根據(jù)“圖書編號(hào)”查詢圖書是否借出 SELECT bookonloan INTO:ls_bookonloan FROM bookinfo WHERE bookid=:ls_bookid。 mit。y39。 mit。并根據(jù)是否啟用了“罰金制度”（在“罰金規(guī)則窗口”設(shè)置），決定是否計(jì)算罰金。 if lc_flag=39。 then =true =1285 =1256 “圖書編號(hào)”輸入框 modified事件： string ls_bookid,ls_title,ls_memberid,ls_membername date ld_date1,ld_date2 int li_days dec ld_fine,ld_countfine ld_date2=today()//獲得當(dāng)前日期 ls_bookid=trim()//獲得“圖書編號(hào)” //根據(jù)“圖書編號(hào)”查詢出“借閱日期” SELECT loandate INTO :ld_date1 FROM loan 38 WHERE bookid=:ls_bookid。 //計(jì)算罰金 ld_countfine=countfine(li_days,ld_fine,countday(ld_date1,ld_date2)) //查詢“圖書名稱” SELECT title INTO :ls_title FROM bookinfo WHERE bookid=:ls_bookid。 if 0 then messagebox(系統(tǒng)提示 ,沒有借閱信息！ ) () return else =ls_title =ls_memberid =ls_membername if =true then =string(ld_countfine) end if “歸還”按鈕： string ls_bookid,ls_bookonloan ls_bookid= if ls_bookid= or isnull(ls_bookid) then messagebox(系統(tǒng)提示 ,請(qǐng)輸入圖書編號(hào)！ ) () return else 39 select bookonloan into :ls_bookonloan from bookinfo where bookid=:ls_bookid。 update bookinfo set bookonloan=39。 where bookid=:ls_bookid。 end if end if () = = = = = “關(guān)閉”按鈕： close(parent) （ 10）圖書查詢 “按圖書標(biāo)題查詢“窗口 w_search_title “按作者姓名查詢”窗口 w_search_author “按出版社查詢”窗口 w_search_pub “按關(guān)鍵詞查詢”窗口 w_search_keyword “按 ISBN號(hào)查詢”窗口 w_search_isbn “按出版日期 某個(gè)階段查詢”窗口 w_search_date_between “按出版日期 某個(gè)日期查詢“窗口 w_search_date_date “按出版日期 某日期之前查詢”窗口 w_search_date_before “按出版日期 某日期之后查詢”窗口 w_search_date_after 說明：由于“按出版日期查詢”使用的是 date型數(shù)據(jù)，所以分開闡述。由于“按圖書標(biāo)題查詢“窗口w_search_title為模板窗口，其他窗口都是繼承得來，所以僅分析這個(gè)窗口。 代碼分析： Open事件： (sqlca) =3616 =1096 “查詢”按鈕： string ls_title ls_title=trim() if = then messagebox(提示信息 ,請(qǐng)輸入 +mid(,4,4)) else ls_title=%+ls_title+%//設(shè)置檢索條件 (ls_title) end if () “重置”按鈕： = () 數(shù)據(jù)窗口的數(shù)據(jù)源 SQL語(yǔ)句： SELECT bookinfo.bookonloan, 41 bookinfo.number, bookinfo.title, bookinfo.author, bookinfo.pub, bookinfo.publishdate, bookinfo.isbn, bookinfo.keywords, bookinfo.abstract FROM bookinfo WHERE bookinfo.title like :query//:query為查詢變量 查詢條件為 date 型： 圖 說明：屬于此類查詢的查詢包括：“按出版日期 某個(gè)階 段查詢”、“按出版日期 某個(gè)日期查詢“、“按出版日期 某日期之前查詢”、“按出版日期 某日期之后查詢”。 功能介紹：根據(jù)查詢條件，檢索出符合條件的數(shù)據(jù) 操作方法：輸入檢索條件，點(diǎn)擊“查詢”按鈕進(jìn)行查詢，點(diǎn)擊“重置”按鈕重新輸入查詢條件。 圖 44 功 能介紹：統(tǒng)計(jì)現(xiàn)有各類圖書比例，并以餅型圖顯示出來。 操作方法： ：點(diǎn)擊“添加”按鈕，輸入用戶名、密碼、選擇等級(jí)，點(diǎn)擊“保存” ：點(diǎn)擊欲刪除的用戶，點(diǎn)擊“刪除”按鈕 ：修改用戶信息，點(diǎn)擊“保存”按紐 代碼 分析： Open事件：類同“新書入庫(kù)窗口 w_newbook” 數(shù)據(jù)窗口 rowfocuschanged事件 :(0,false) //高亮顯示當(dāng)前選中的行 (currentrow,true) 數(shù)據(jù)窗口 clicked事件： =true //點(diǎn)擊數(shù)據(jù)窗口后使“刪除”按鈕可用 “增加”按紐：類同“新書入庫(kù)窗口 w_newbook” 45 “保存”按紐：類同“新書入庫(kù)窗口 w_newbook” “刪除”按紐：類同“舊書銷毀窗口 w_delbook” （ 13 ）圖書信息設(shè)置 圖書分類設(shè)置窗口 w_bookclass、出版社信息窗口 w_pubinfo 圖 功 能介紹：設(shè)置圖書分類信息與出版社信息，同時(shí)可以對(duì)出版社信息進(jìn)行查詢 說明：設(shè)置“圖書分類信息”是為了今后統(tǒng)計(jì)現(xiàn)有圖書類型比例，設(shè)置“出版社信息”是為了今后查詢出版社信息 ,同時(shí)在“新書入庫(kù)”時(shí)方便相應(yīng)項(xiàng)目的輸入（下拉 Datawindow） 代碼分析：略 46 （ 14 ）借閱規(guī)則設(shè)置窗口 w_regular 圖 功能介紹：設(shè)置罰金規(guī)則 操作方法：填寫“免費(fèi)使用天數(shù)”、“罰金費(fèi)率”，點(diǎn)擊“啟用規(guī)則”開啟或關(guān)閉此項(xiàng)規(guī)則，點(diǎn)擊“確定”實(shí)施規(guī)則。 =string(li_days) =string(ld_fine) //判斷是否啟用設(shè)置，并表現(xiàn)出來 if lc_flag=39。 then =true 47 =true =true end if =1787 =1120 “啟用”復(fù)選框： if then =true =true else =false =false end if “確認(rèn)”按紐： char lc_flag int li_days dec ld_fine li_days=integer() ld_fine=dec() //判斷是否啟用規(guī)則 if then if = or isnull() then messagebox(系統(tǒng)提示 ,請(qǐng)輸入免費(fèi)借閱天數(shù)！ ) () return end if if =.00 or isnull() then 48 messagebox(系統(tǒng)提示 ,請(qǐng)輸入罰金！ ) () return end if //啟用規(guī)則 lc_flag=39。 else //關(guān)閉規(guī)則 lc_flag=39。 end if //更新規(guī)則 UPDATE regular SET Days=:li_days,fine=:ld_fine,Flag=:lc_flag。 （ 3）圖書借閱與歸還窗口中部分輸入框設(shè)為 DisplayOnly，僅做結(jié)果顯示之用。 49 七 結(jié)束語(yǔ) 在對(duì) 管理信息系統(tǒng)的開發(fā)過程有了基本了解后，本人使用PowerBuilder 開發(fā)了這個(gè)“圖書管理系統(tǒng)”。例如對(duì) 圖書進(jìn)行登記，對(duì)舊書進(jìn)行銷毀。圖書的借閱、歸還。實(shí)現(xiàn)了簡(jiǎn)單的統(tǒng)計(jì)分析功能，可以展示出庫(kù)存圖書與借出圖書的比例、館藏圖書種類的情況。還 能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶進(jìn)行管理，按照不 同的工作職能提供不同的功能