【正文】 通過對(duì)該系統(tǒng)的設(shè)計(jì)、開發(fā)和調(diào)試 ， 一方面讓我了解了 MIS 系統(tǒng)的開。并能對(duì)借閱規(guī)則進(jìn)行設(shè)置?？梢园醋髡?、出版社、出版時(shí)間等信息對(duì)圖書進(jìn)行查詢， 并能反映出圖書的借閱情況 。添加借閱人以及注銷借閱人。系統(tǒng)基本 實(shí)現(xiàn)了內(nèi)部圖書借閱管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。“歸還” 窗口中“應(yīng)付罰金”輸入框的使能與否由該 項(xiàng)規(guī)則是否“啟用”來(lái)定。 close(parent) “取消”按紐： close(parent) 7 補(bǔ)充說明 （ 1）窗口中的 Tab 順序應(yīng)符合實(shí)際操作習(xí)慣，并將合適的按鈕設(shè)為default （ 2）將“刪除”按鈕初始狀態(tài)設(shè)為“非使能”，并在適當(dāng)?shù)臅r(shí)候通過程序使其“使能”，是為了防止誤刪。n39。y39。y39。 代碼分析： Open 事件： int li_days dec ld_fine char lc_flag //查詢“免費(fèi)天數(shù)”、“罰金”、“啟用開關(guān)” select Days,fine,flag into :li_days,:ld_fine,:lc_flag from regular。 數(shù)據(jù)窗口的數(shù)據(jù)源 SQL語(yǔ)句： SELECT bookinfo.bookonloan, count(*) FROM bookinfo GROUP BY bookinfo.bookonloan （ 12） 用戶管理窗口 w_people 圖 功能介紹：添加、刪除、修改用戶信息。 代碼分析： 42 Open 事件：類同“按圖書標(biāo)題查詢“窗口 “查詢”按鈕： date id_start,id_end if isdate() then if isdate() then id_start=date() id_end=date() else messagebox(數(shù)據(jù)錯(cuò)誤 ,請(qǐng)重新輸入結(jié)束日期 .) () return end if else messagebox(數(shù)據(jù)錯(cuò)誤 ,請(qǐng)重新輸入開始日期 .) () return end if if id_startid_end then messagebox(數(shù)據(jù)錯(cuò)誤 ,開始日期不能大于結(jié)束日期 .) else (id_start,id_end) end if () “重置”按鈕： = = () 43 數(shù)據(jù)窗口的數(shù)據(jù)源 SQL語(yǔ)句： SELECT bookinfo.bookonloan, bookinfo.number, bookinfo.title, bookinfo.author, bookinfo.pub, bookinfo.publishdate, bookinfo.isbn, bookinfo.keywords, bookinfo.abstract FROM bookinfo WHERE bookinfo.publishdate between :date1 and :date2 //:date1 與 :date2 為查詢變量 （ 11）統(tǒng)計(jì)窗口 各類圖書比例窗口 w_count_booktype、庫(kù)存 /借出比例窗口 w_count_loan 說明：由于這兩個(gè)窗口大同小異，所以僅對(duì) w_count_booktype 進(jìn)行說明 。我們將對(duì)“按出版日期 某個(gè)階段查詢”窗口 w_search_date_between 進(jìn)行分析。 功能介紹：根據(jù)查詢條件，檢索出符合條件的數(shù)據(jù) 操作方法：輸入檢索條件，點(diǎn)擊“查詢”按鈕進(jìn)行查詢，點(diǎn)擊“重置”按鈕重新輸入查詢條件。 其中，查詢條件為 char型： 40 圖 說明：屬于此類的查詢包括：“按圖書標(biāo)題查詢“、“按作者姓名查詢”、“按出版社查詢” “按關(guān)鍵詞查詢”、“按 ISBN 號(hào)查詢”。 mit。n39。 if ls_bookonloan=n then messagebox(系統(tǒng)提示 ,本書已歸還！ ) else DELETE loan where bookid=:ls_bookid。 //查詢“ 借閱人號(hào)”、“借閱人姓名” SELECT memberid,membername INTO :ls_memberid,:ls_membername FROM memberinfo WHERE memberid in (SELECT memberid FROM loan WHERE bookid=:ls_bookid)。 //查詢“免費(fèi)天數(shù)”、“罰金規(guī)定” SELECT days,fine INTO :li_days,:ld_fine FROM regular。y39。 代碼分析： Open事件： char lc_flag //查詢“規(guī)則”是否啟用，并表現(xiàn)出來(lái) select flag into :lc_flag from regular。 end if //“借閱人號(hào)”得到焦點(diǎn)，所有輸入框清空 () = = = = 37 “ 關(guān)閉 ” 按鈕： close(parent) （ 9） 還書窗口 w_return 圖 功能介紹： 歸還圖書 操作方法：輸入“圖書編號(hào)”，判斷后顯示出圖書名稱、借閱人編號(hào)、借閱人姓名。 WHERE bookid=:ls_bookid。 //設(shè)置該圖書為“借出”狀態(tài) UPDATE bookinfo set bookonloan=39。 if ls_bookonloan=y then messagebox(系統(tǒng)提示 ,本書已經(jīng)外借！ ) () return else //添加圖書借閱記錄 INSERT INTO loan (bookid,memberid,loandate) VALUES (:ls_bookid,:ls_memberid,:ldt_nowdate)。 if 0 then//判斷是否有該“借閱人” messagebox(系統(tǒng)提示 ,沒有此借閱人信息！ ) ()//“借閱人編號(hào)”輸入框獲得焦點(diǎn) return else ()//“圖書編號(hào)”輸入框獲得焦點(diǎn) =ls_membername//顯示“”借閱人姓名 end if “圖書 編號(hào)”輸入框 modified 事件： string ls_bookid,ls_title ls_bookid=trim() 35 select title into :ls_title from bookinfo where bookid=:ls_bookid。 messagebox(錯(cuò)誤提示 ,無(wú)法注銷！ ) end if li_row=()//得到當(dāng)前行 if li_row() then//判斷是否至少有兩行存在 (0,false) //高亮顯示當(dāng)前行 (li_row,true) end if end if else messagebox(系統(tǒng)提示 ,沒有要注銷的數(shù)據(jù) ) end if =false//使“銷毀”按鈕恢復(fù)不可用狀態(tài) 32 （ 6） 登記借閱人窗口 w_newmember 圖 功能介紹：增加、修改借閱人信息 操作方法：類同“新書入庫(kù)窗口 w_newbook” 代碼分析： Open 事件：類同“新書入庫(kù)窗口 w_newbook” “ 檢索 ” 按鈕：類同“新書入庫(kù)窗口 w_newbook” “新增”按鈕：類同“新書入庫(kù)窗口 w_newbook” “保存”按鈕：類同“新書入庫(kù)窗口 w_newbook” （ 7）注銷借閱人窗口 w_delmember 33 圖 功能介紹：刪除借閱人信息 操作方法：類同“舊書銷毀窗口 w_delbook” 代碼分析： Open 事件：類同“舊書銷毀窗口 w_delbook” “檢索”按鈕：類同“舊書銷毀窗口 w_delbook” “銷毀”按鈕：類同“舊書銷毀窗口 w_delbook” （ 8） 借書窗口 w_loan 圖 34 功能介紹：借閱圖書， 操作方法：輸入 “借閱人編號(hào)”與“圖書編號(hào)”后，借閱人姓名與圖書編號(hào)將顯示出來(lái)，然后點(diǎn)擊“借閱”按鈕借閱圖書。,question!,Yesno!,2)=1 then (li_row) //刪除行 if ()0 then//更新數(shù)據(jù)庫(kù) mit。,39。)//過 濾數(shù)據(jù) ()//使“銷毀”按鈕可用 =true () “銷毀”按鈕： long li_row li_row=()//得到當(dāng)前行號(hào) if li_row0 then//判斷是否有可刪除的行 if messagebox(39。 代碼分析： Open 事件：類同“新書入庫(kù)窗口 w_newbook” “檢索”按鈕： string ls_bookid,ls_filter ls_bookid=(bookid=39。 //回滾事務(wù) messagebox(系統(tǒng)提示 ,保存失敗！請(qǐng)檢驗(yàn)數(shù)據(jù)的正確性 ) (1) //數(shù)據(jù)窗口第一列獲得焦點(diǎn) () end if else ()//“新增”按鈕獲得焦點(diǎn) end if 30 （ 5） 舊書銷毀窗口 w_delbook 圖 功能介紹：刪除圖書信息。)//設(shè)置過濾條件 ()//過濾數(shù)據(jù) “上一條”按鈕： ()//滾動(dòng)到上一行 29 “下一條”按鈕： ()//滾動(dòng)到下一行 “新增”按鈕： long ll_row ll_row=(0) //在數(shù)據(jù)窗口中增加一行 (ll_row) //數(shù)據(jù)窗口滾動(dòng)到當(dāng)前行 (2) //使第一列為當(dāng)前列，并得到焦點(diǎn) () “保存”按鈕： long ll_row ()//將數(shù)據(jù)寫入主緩沖區(qū) if ()0 then //檢測(cè) 數(shù)據(jù)是否被修改 if ()0 then //如果被修改則更新數(shù)據(jù)庫(kù) mit。 操作方法： ：點(diǎn)擊“新增”按鈕，添加圖書信息，完成后點(diǎn)擊“保存”按鈕 ：通過“圖書編號(hào)”檢索出圖書信息，修改后點(diǎn)擊“保存”按鈕 代碼分析： Open 事件： (sqlca) //為數(shù)據(jù)窗口指定事務(wù)對(duì)象 ()//為數(shù)據(jù)窗口從數(shù)據(jù)庫(kù)中獲得數(shù)據(jù) =2926 //設(shè)置窗口的高度和寬度 =1572 “檢索”按鈕： string ls_bookid,ls_filter ls_bookid= (bookid=39。 27 （ 3） 菜單 m_main 圖 功能介紹：打開各功能窗口 操作方法：點(diǎn)擊菜單項(xiàng)或工具欄上相應(yīng)的按鈕，狀態(tài)欄可顯示幫助信息。 WindowState 為maximized!，表示窗口在運(yùn)行時(shí)是最大化的風(fēng)格。 if lev then open(w_main) level(lev)//根據(jù)權(quán)限設(shè)定菜單狀態(tài) else () test=messagebox(提示： ,用戶名或者密碼錯(cuò)誤！,Exclamation!, OKCancel!, 2) end if//檢測(cè)是否重新登錄 if test=1 then return 1 else close(parent) end if （ 2） 主窗口 w_main 功能介紹：本窗口作為菜單及其他子窗口的容器。 操作方法：填寫“用戶名”與“密碼”后，點(diǎn)擊“登錄”按鈕進(jìn)行驗(yàn)證，點(diǎn)擊“放棄”退出。) end if 6 具體窗口的實(shí)現(xiàn) （ 1）登錄窗口 w_login 圖 功能介紹：本窗口主要是檢查操作員輸入的用戶名及密碼是否正確，如果正確，允許登錄。,39。 //判斷數(shù)據(jù)庫(kù)連接是否成功 if = 0 then open(w_login) else 25 messagebox(39。PWD=39。DSN=librarian。在 Open事件中連接數(shù)據(jù)庫(kù)，并打開登陸窗口 w_login。 (integer(day(date2)) integer(day(date1)))*1 return day 函數(shù) countfine countfine (integer days, decimal fine, integer c