【導(dǎo)讀】在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，企業(yè)要生。存要發(fā)展，要高效率地把企業(yè)活動(dòng)有機(jī)地組織起來(lái)，就必須加強(qiáng)企業(yè)管理，點(diǎn)相適應(yīng)的管理信息系統(tǒng)。上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。通過(guò)分析傳統(tǒng)的人工。管理圖書(shū)館的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理圖書(shū)館的方案。列出了幾個(gè)主要的程序框圖，并附帶了一些主要的窗口和程序。本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。

　　

【正文】 days,fine INTO :li_days,:ld_fine FROM regular。 //計(jì)算罰金 ld_countfine=countfine(li_days,ld_fine,countday(ld_date1,ld_date2)) //查詢“圖書(shū)名稱” SELECT title INTO :ls_title FROM bookinfo 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)。 if 0 then messagebox(系統(tǒng)提示 ,沒(méi)有借閱信息！ ) () return else =ls_title =ls_memberid 37 =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)輸入圖書(shū)編號(hào)！ ) () return else select bookonloan into :ls_bookonloan from bookinfo where bookid=:ls_bookid。 if ls_bookonloan=n then messagebox(系統(tǒng)提示 ,本書(shū)已歸還！ ) else DELETE loan where bookid=:ls_bookid。 update bookinfo set bookonloan=39。n39。 where bookid=:ls_bookid。 mit。 end if end if () = = = = = “關(guān)閉”按鈕： close(parent) （ 10）圖書(shū)查詢 “按 圖書(shū)標(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 說(shuō)明：由于“按出版日期查詢”使用的是 date型數(shù)據(jù)，所以分開(kāi)闡述。 其中，查詢條件為 char型： 38 圖 說(shuō)明：屬于此類的查詢包括：“按圖書(shū)標(biāo)題查詢“、“按作者姓名查詢”、“按出版社查詢” “按關(guān)鍵詞查詢”、“按 ISBN號(hào)查詢”。由于“按圖書(shū)標(biāo)題查詢“窗口 w_search_title為模板窗口，其他窗口都是繼承得來(lái)，所以僅分析這個(gè)窗口。 功能介紹：根據(jù)查詢條件，檢索出符合條件的數(shù)據(jù) 操作方法：輸入檢索條件，點(diǎn)擊“查詢”按鈕進(jìn)行查詢，點(diǎn)擊“重置”按鈕重新輸入查詢條件。 代碼分析： 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, bookinfo.number, bookinfo.title, bookinfo.author, bookinfo.pub, bookinfo.publishdate, bookinfo.isbn, 39 bookinfo.keywords, bookinfo.abstract FROM bookinfo WHERE bookinfo.title like :query//:query為查詢變量 查詢條件為 date 型： 圖 說(shuō)明：屬于此類查詢的查詢包 括：“按出版日期 某個(gè)階段查詢”、“按出版日期 某個(gè)日期查詢“、“按出版日期 某日期之前查詢”、“按出版日期 某日期之后查詢”。我們將 對(duì)“按 出版日期 某個(gè) 階段查詢 ”窗口w_search_date_between 進(jìn)行分析。 功能介紹：根據(jù)查詢條件，檢索出符合條件的數(shù)據(jù) 操作方法：輸入檢索條件，點(diǎn)擊“查詢”按鈕進(jìn)行查詢，點(diǎn)擊“重置”按鈕重新輸入查詢條件。 代碼分析： Open 事件：類同“按圖書(shū)標(biāo)題查詢“窗口 “查詢”按鈕： date id_start,id_end if isdate() then if isdate() then id_start=date() id_end=date() else 40 messagebox(數(shù)據(jù)錯(cuò)誤 ,請(qǐng)重新輸入結(jié)束日期 .) () return end if else messagebox(數(shù)據(jù)錯(cuò)誤 ,請(qǐng)重新輸入開(kāi)始日期 .) () return end if if id_startid_end then messagebox(數(shù)據(jù)錯(cuò)誤 ,開(kāi)始日期不能大于結(jié)束日期 .) else (id_start,id_end) end if () “重置”按鈕： = = () 數(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 41 WHERE bookinfo.publishdate between :date1 and :date2 //:date1 與 :date2 為查詢變量 （ 11）統(tǒng)計(jì)窗口 各類圖書(shū)比例窗口 w_count_booktype、庫(kù)存 /借出比例窗口 w_count_loan 說(shuō)明：由于這兩個(gè)窗口大同小異，所以僅對(duì) w_count_booktype 進(jìn)行說(shuō)明 。 圖 功 能介紹：統(tǒng)計(jì)現(xiàn)有各類圖書(shū)比例，并以餅型圖顯示出來(lái)。 數(shù)據(jù)窗口的數(shù)據(jù)源 SQL 語(yǔ)句： SELECT bookinfo.bookonloan, count(*) FROM bookinfo GROUP BY bookinfo.bookonloan （ 12） 用戶管理窗口 w_people 42 圖 功能介紹：添加、刪除、修改用戶信息。 操作方法： ：點(diǎn)擊“添加”按鈕，輸入用戶名、密碼、選擇等級(jí)，點(diǎn)擊“保存” ：點(diǎn)擊欲刪除的用戶，點(diǎn)擊“刪除”按鈕 ：修改用戶信息，點(diǎn)擊“保存”按紐 代碼分析： Open事件：類同“新書(shū)入庫(kù)窗口 w_newbook” 數(shù)據(jù)窗口 rowfocuschanged事件 :(0,false) //高亮顯示當(dāng)前選中的行 (currentrow,true) 數(shù)據(jù)窗口 clicked事件： =true //點(diǎn)擊數(shù)據(jù)窗口后使“刪除”按鈕可用 “增加”按紐：類同“新書(shū)入庫(kù)窗口 w_newbook” “保存”按紐：類同“新書(shū)入庫(kù)窗口 w_newbook” “刪除”按紐：類同“舊書(shū)銷毀窗口 w_delbook” （ 13 ）圖書(shū)信息設(shè)置 圖書(shū)分類設(shè)置窗口 w_bookclass、出版社信息窗口 w_pubinfo 圖 功 能介紹：設(shè)置圖 書(shū)分類信息與出版社信息，同時(shí)可以對(duì)出版社信息進(jìn)行查詢 43 說(shuō)明：設(shè)置“圖書(shū)分類信息”是為了今后統(tǒng)計(jì)現(xiàn)有圖書(shū)類型比例，設(shè)置“出版社信息”是為了今后查詢出版社信息 ,同時(shí)在“新書(shū)入庫(kù)”時(shí)方便相應(yīng)項(xiàng)目的輸入（下拉 Datawindow） 代碼分析：略 （ 14 ）借閱規(guī)則設(shè)置窗口 w_regular 圖 功能介紹：設(shè)置罰金規(guī)則 操作方法：填寫“免費(fèi)使用天數(shù)”、“罰金費(fèi)率”，點(diǎn)擊“啟用規(guī)則”開(kāi)啟或關(guān)閉此項(xiàng)規(guī)則，點(diǎn)擊“確定”實(shí)施規(guī)則 。 代碼分析： Open 事件： int li_days dec ld_fine char lc_flag //查詢“免費(fèi)天數(shù)”、“罰金”、“啟用開(kāi)關(guān)” 44 select Days,fine,flag into :li_days,:ld_fine,:lc_flag from regular。 =string(li_days) =string(ld_fine) //判斷是否啟用設(shè)置，并表現(xiàn)出來(lái) if lc_flag=39。y39。 then =true =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ù)！ ) 45 () return end if if =.00 or isnull() then messagebox(系統(tǒng)提示 ,請(qǐng)輸入罰金！ ) () return end if //啟用規(guī)則 lc_flag=39。y39。 else //關(guān)閉規(guī)則 lc_flag=39。n39。 end if //更新規(guī)則 UPDATE regular SET Days=:li_days,fine=:ld_fine,Flag=:lc_flag。 close(parent) “取消”按紐： close(parent) 7 補(bǔ)充說(shuō)明 （ 1）窗口中的 Tab 順序應(yīng)符合實(shí)際操作習(xí)慣，并將合適的按鈕設(shè)為 default （ 2）將“刪除”按鈕初始狀態(tài)設(shè)為“非使能”，并在適當(dāng)?shù)臅r(shí)候通過(guò)程序使其“使能”，是為了防止誤刪。 （ 3）圖書(shū)借閱與歸還窗口中部分輸入框設(shè)為 DisplayOnly，僅做結(jié)果顯示之用?！皻w還” 窗口中“應(yīng)付罰金”輸入框的使能與否由該項(xiàng)規(guī)則是否“啟用”來(lái)定。 46 七 結(jié)束語(yǔ) 在對(duì) 管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程有了基本了解后，本人使用 PowerBuilder 開(kāi)發(fā)了這個(gè) “圖書(shū)管理系統(tǒng)”。系統(tǒng)基本 實(shí)現(xiàn)了內(nèi)部圖書(shū)借閱管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。例如對(duì) 圖書(shū)進(jìn)行登記，對(duì)舊書(shū)進(jìn)行銷毀。添加借閱人以及注銷借閱人。圖書(shū)的借閱、歸還?？梢园醋髡?、出版社、出版時(shí)間等信息對(duì)圖書(shū)進(jìn)行查詢， 并能反映出圖書(shū)的借閱情況 。實(shí)現(xiàn)了簡(jiǎn)單的統(tǒng)計(jì)分析功能，可以展示出庫(kù)存圖書(shū)與借出圖書(shū)的比例、館藏圖書(shū)種類的情況。并能對(duì)借閱規(guī)則進(jìn)行設(shè)置。還 能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶進(jìn)行管理，按照不同的工作職能提供不同的功能授權(quán)。 通過(guò)對(duì)該系統(tǒng)的設(shè)計(jì)、開(kāi)發(fā)和調(diào)試 ， 一方面讓我了解了 MIS 系統(tǒng)的開(kāi)發(fā)過(guò)程與方法， 另一方面，讓我 初步掌握 了 PowerBuilder 開(kāi)發(fā)工具的使用方法，熟悉了窗口、菜單以及一些可視化控件的使用方法。通過(guò)使用還了解到窗口對(duì)象、數(shù)據(jù)窗口對(duì)