【正文】 參 考 文 獻(xiàn) [1]薛華成 .管理信息系統(tǒng) .北京 :清華大學(xué)出版社 [2]周文俊，倪波等主編，圖書(shū)館研究論文集 ,北京 ,書(shū)目文獻(xiàn)出版社 ,1996 [3]李兵 ,李麗梅 ,淺談圖書(shū)館自動(dòng)化系統(tǒng)發(fā)展 ,江西圖書(shū)館學(xué)刊 1999 [4] (美 )小瑞芒德同時(shí)感謝大學(xué)。在 畢業(yè)設(shè)計(jì)過(guò)程中經(jīng)常給我提出許多關(guān)鍵性的問(wèn)題，使我受益匪淺。 非常感謝我的同班同學(xué)，在我的畢業(yè)設(shè)計(jì)中，他們的指導(dǎo)給予了我極大的幫助，使我對(duì)整個(gè)畢業(yè)設(shè)計(jì)的思路有了總體的把握，并耐心的幫我解決了許多實(shí)際問(wèn)題，使我有了很大收獲。在這段時(shí)間里，我從他們身上不僅學(xué)到了許多的專(zhuān)業(yè)知識(shí)，更感受到了他們工作中的兢兢業(yè)業(yè)，生活中的平易近人。本系統(tǒng)是在指導(dǎo)老師的指導(dǎo) 下修改完成的。借此論文之際，我想向所有人表示我的謝意。 致 謝 在做畢業(yè)設(shè)計(jì)的這段時(shí)間里是我學(xué)生生涯中最有價(jià)值的一段時(shí)光。 第 六 章 結(jié) 論 本系統(tǒng)是在對(duì)相關(guān)人員進(jìn)行詳細(xì)調(diào)研后 ，確定了系統(tǒng)涉及的領(lǐng)域，包括系統(tǒng)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)、程序設(shè)計(jì)等，是一個(gè)具有實(shí)際應(yīng)用意義的典型管理系統(tǒng)。 本次開(kāi)發(fā)的賓館客房管理系統(tǒng)采用了并行轉(zhuǎn)換方式，以保證平衡可靠的過(guò)度。 系統(tǒng)轉(zhuǎn)換的主要工作：確定了系統(tǒng)的轉(zhuǎn)換方式以后，除了做好組織準(zhǔn)備、物質(zhì)準(zhǔn)備和人員培訓(xùn)以外，最重要并且工作量最大的是數(shù)據(jù)準(zhǔn)備和系統(tǒng)初始化工作。 測(cè)試結(jié)果一覽表 測(cè)試名稱(chēng) 測(cè)試結(jié)果 問(wèn)題所在 “主界面”測(cè)試 與系統(tǒng)目標(biāo)相符 “ 房產(chǎn)管理 ”測(cè)試 該部分基本能實(shí)現(xiàn)系統(tǒng)的目標(biāo)，對(duì) 提示信息作了修改 “ 合同管理 ”測(cè)試 該部分能夠?qū)崿F(xiàn)信函、行文、報(bào)表、投訴等功能，與系統(tǒng)目標(biāo)相符 “ 租金管理 ”測(cè)試 不能實(shí)現(xiàn)提案記錄的添加，現(xiàn)已改正 源代碼書(shū)寫(xiě)錯(cuò)誤 “ 信息統(tǒng)計(jì) ”測(cè)試 與系統(tǒng)目標(biāo)相符 “ 系統(tǒng)維護(hù) ”測(cè)試 與系統(tǒng)目標(biāo)相符 “ 背景設(shè)置 ”測(cè)試 與系統(tǒng)目標(biāo)相符 系統(tǒng)安裝 新舊系統(tǒng)轉(zhuǎn)換新舊系統(tǒng)轉(zhuǎn)換，也稱(chēng)系統(tǒng)切換與運(yùn)行，是指以新開(kāi)發(fā)的系統(tǒng)替換舊的系統(tǒng)，并使之投入使用的過(guò)程。 測(cè)試結(jié)果：（見(jiàn)下頁(yè)表） 軟件功能結(jié)果： 按照前一階段編制的“房屋出租管理系統(tǒng)模塊功能表”，對(duì)系統(tǒng)每個(gè)模塊功能，用白盒法與黑盒法進(jìn)行了系統(tǒng)的測(cè)試，并沒(méi)有發(fā)現(xiàn)錯(cuò)誤，說(shuō)明了我的軟件預(yù)期功能全部實(shí)現(xiàn)。 測(cè)試內(nèi)容說(shuō)明 測(cè)試名稱(chēng)： ①“主界面”測(cè)試 ②“房產(chǎn)管理”測(cè)試③“合同管理”測(cè)試 ④“租金管理”測(cè)試 ⑤“信息統(tǒng)計(jì)”測(cè)試 ⑥“系統(tǒng)維護(hù)”測(cè)試 ⑦“背景設(shè)置”測(cè)試 測(cè)試進(jìn)度： 第一天 “主界面”測(cè)試 “房產(chǎn)管理”測(cè)試 “合同管理”測(cè)試 第二天 “租金管理”測(cè)試 “信息統(tǒng)計(jì)”測(cè)試 “系統(tǒng)維護(hù)”測(cè)試 第三天 “背景設(shè)置”測(cè)試 測(cè)試分析報(bào)告 引 言： ① 背景：近三天來(lái)，我按照測(cè)試計(jì)劃有條不紊地測(cè)試完了系統(tǒng)，發(fā)現(xiàn)了許多錯(cuò)誤，并改正了，測(cè)試完畢后，我又對(duì)測(cè)試結(jié)果進(jìn)行了分析。 ②質(zhì)量：檢查每模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者，糾正錯(cuò)誤，保證質(zhì)量。 目的：系統(tǒng)不可能沒(méi)有錯(cuò)誤，為了保證系統(tǒng)的質(zhì)量，為了使系統(tǒng)和用戶的需求無(wú)誤，最有效的方法就是進(jìn)行軟件測(cè)試，為了使測(cè)試有條不紊地進(jìn)行，我制定了該測(cè)試計(jì)劃。 //按房子類(lèi)型查詢 end 待出租的房屋窗體的設(shè)計(jì) 功能是能查看到所有空房的具體情況。 end。).Value := 。 (39。 :=39。 end。).Value := 。 (39。 :=39。 //在 Combobox1中顯示房子類(lèi)型 procedure (Sender: TObject)。 end。 end。 。select distinct 類(lèi)型 from 房產(chǎn)表 39。 。房子類(lèi)型： 39。 //在 Combobox1中顯示坐落位置 procedure (Sender: TObject)。 end。 end。 。select distinct 坐落位置 from 房產(chǎn)表 39。 。坐落位置： 39。 窗體布局如下 : 圖 421 房產(chǎn)信息查詢窗體 功能實(shí)現(xiàn)的代碼如下： procedure (Sender: TObject)。 end。).Value:=。 (39。lx39。 。 :=39。 窗體的布局如下： 圖 420房?jī)r(jià)查詢窗口 功能 實(shí)現(xiàn)的代碼如下： procedure (Sender: TObject)。 代碼的實(shí)現(xiàn)也很簡(jiǎn)單，跟第一個(gè)主窗體“房屋管理系統(tǒng)”類(lèi)似。 主窗體游客瀏覽的創(chuàng)建 該窗體的設(shè)計(jì)是為了給租房者提供信息的，包括“房?jī)r(jià)查詢”“房產(chǎn)咨詢”“有房出租”三大模塊。 //修改密碼且保 存新密碼 end。密碼修改成功！ 39。 。密碼 39。 。新密碼與確認(rèn)密碼不一致！ 39。用戶名或密碼錯(cuò)誤 39。密碼39。 。name39。select * from 用戶表 where 用戶名 =:name39。 begin 。 具體的功能控件屬性 功能實(shí)現(xiàn)的代碼設(shè)計(jì) 窗體布局如下圖： 圖 417 數(shù)據(jù)恢復(fù)窗口圖 密碼管理的 窗體創(chuàng)建 該窗體也是“系統(tǒng)維護(hù)”模塊的一部分，能實(shí)現(xiàn)密碼的修改。 該窗體的功能理論上是對(duì)新數(shù)據(jù)進(jìn)行保存，防止數(shù)據(jù)的丟失。 //打印預(yù)覽統(tǒng)計(jì)情況 空閑房屋統(tǒng)計(jì)窗體的設(shè)計(jì) 與履約金統(tǒng)計(jì)窗 口的設(shè)計(jì)類(lèi)似。 。039。bz39。select * from 合同表 where 標(biāo)志 =:bz39。 begin 。 end。+inttostr()+39。 := 39。039。bz39。select * from 合同表 where 標(biāo)志 =:bz39。 begin 。 end。 。).Value:=39。 (39。 :=39。 //按紐“統(tǒng)計(jì)”的實(shí)現(xiàn)代碼，即到期合同的統(tǒng)計(jì)情況 procedure (Sender: TObject)。 條 39。共 39。 。).Value:=39。 (39。 :=39。 功能是統(tǒng)計(jì)和打印出已到期的合同情況，窗體設(shè)計(jì)如下； 圖 414 已到期合同的統(tǒng)計(jì)窗口 具體 實(shí)現(xiàn)功能的代碼如下 ： procedure (Sender: TObject)。 end。 if [0].Value null then :=[0].Value else :=39。).Value :=rq2。 (39。ssrq139。 。 :=39。 。ssrq239。).Value :=rq1。 (39。select * from 租金表 where 實(shí)收日期 =:ssrq1 and 實(shí)收日期 =:ssrq239。 //實(shí)現(xiàn)時(shí)間的設(shè)置 。039。 rq2 := rq2 + inttostr(monthof())。 if monthof()10 then rq2 := rq2 + 39。 rq1 := rq1 + inttostr(dayof())。 if dayof()10 then rq1 := rq1 +39。039。 begin rq1 := inttostr(yearof( ))。 窗體布局如下圖： 圖 413 租金信息統(tǒng)計(jì)窗口 功能實(shí)現(xiàn)代碼如下： 功能實(shí)現(xiàn)主要點(diǎn)擊“統(tǒng)計(jì)”按紐，就可以完成，該按紐的代碼為： procedure (Sender: TObject)。 租金信息統(tǒng)計(jì)窗口的設(shè)計(jì) 該窗體是屬于“信息統(tǒng)計(jì)”模塊的其中一個(gè)窗口。 //打印預(yù)覽租金表 end. 按發(fā)票號(hào)租金查詢窗口的設(shè)計(jì) 功能是輸入要查詢的發(fā)票號(hào)，可查看該發(fā)票號(hào)所對(duì)應(yīng)的租金情況， 圖 412 按發(fā)票號(hào)租金查詢窗口 具體功能的實(shí)現(xiàn)代碼與“按合同號(hào)租金查詢窗口”類(lèi)似，此處略。 end。 。hth39。select * from 租金表 where 合同號(hào) =:hth39。 then else begin 。 begin if =39。 end。 //顯示全部租金收取情況 procedure (Sender: TObject)。39。39。 。 :=39。 “顯示全部”按紐的代碼為： procedure (Sender: TObject)。 //顯示所輸入合同號(hào)的租金收取總額 end。 。hth39。select sum(實(shí)收金額 ) from 租金表 where 合同號(hào)=:hth39。 //用于顯示所輸入合同號(hào)的租金情況 。).Value := 。 (39。 :=39。39。 表 44 主要控件屬性如下 對(duì)象名 屬性 取值（說(shuō)明） Form14 (form) caption 按合同號(hào)租金查詢 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext Select *from 租金表 ADOdataset2 (ADODataset) Name ADODataset2 Connection ADOconnection1 Active false Commandtext Select * from 租金表 Datasource1 (Datasource) Name Datasource1 Dataset ADODataset1 Edit1 (Edit) Text (空 )用于輸入合同號(hào) Edit2 (Edit) Text (空 )用于顯示所選合同號(hào)的租金收取總額 Readonly true Button1(TButton) Caption 退出 Button2(TButton) Caption 顯示 Button3(TButton) Caption 顯示全部 Button4(TButton) Caption 打印 實(shí)現(xiàn)上述功能的代碼有： “顯示”按紐的程序?yàn)椋? procedure (Sender: TObject)。 //打印租金收取單 按合同號(hào)租金查詢窗體的設(shè)計(jì) 該窗體的功能是輸入合同號(hào)后查詢?cè)摵贤淖饨鹎闆r，并且可以總結(jié)出該合同的總體上繳租金。 。).Value:=。 (39。 :=39。 //對(duì)租金的收取進(jìn)行保存 procedure (Sender: TObject)。)。 showmessage(39。 圖 410租金收取窗體 功能的實(shí)現(xiàn)代碼如下： procedure (Sender: TObject)。 //按租用單位查詢 合同信息總表瀏覽窗體的設(shè)計(jì)（略） 與房產(chǎn)信息總表瀏覽窗體的設(shè)計(jì)類(lèi)似。 條 39。共 39。 end。).Value := 。 (39。 :=39。 end。).Value := 。 (39。 :=39。 end。).Value := 。 (39。 :=39。 窗體布局如圖： 圖 49 合同信息查詢窗體 本窗體的功能主要 是通過(guò)“查詢“按鈕的 clicked 事件來(lái)實(shí)現(xiàn)的，具體代碼如下： procedure (Sender: TObject)。 end。)。 showmessage(39。 。).Value:=39。 (39。).Value := 39。 (39。 。hth39。select * from 合同 表 where 合同號(hào) =:hth39。 begin if = then begin 。 end。 本窗體能打印房產(chǎn)信息的總表，打印按紐的 clicked事件的代碼為： procedure (Sender: TObject)。 end。 := false。 := true。 :=false。 :=false。 :=false。 begin 。 //對(duì)所顯示的記錄進(jìn)行打印 end。 。fwh39。select * from 房產(chǎn)表 where 房屋號(hào)=:fwh39。 begin 。 //對(duì)插入或修改的記錄進(jìn)行保存，保存后顯示“保存完畢” end。保存完畢 39。 beg