房屋租賃管理系統(tǒng)畢業(yè)論文

房屋租賃管理系統(tǒng)設(shè)計(jì)目錄摘............................................................................................................................................2一前.題背景...................................................................................................................................................3具選擇...................................................................................................................................................3二系統(tǒng)總體設(shè).系結(jié)構(gòu)...................................................................................................................................................4能結(jié)構(gòu)設(shè)計(jì)...........................................................................................................................................4統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì).5體結(jié)構(gòu)...................................................................................................................................................6三各模塊設(shè).據(jù)控件模塊...........................................................................................................................................7戶(hù)登錄模塊...........................................................................................................................................7窗體設(shè)計(jì).產(chǎn)管理模塊設(shè)計(jì).................................................................................................................................同管理模塊設(shè)計(jì).................................................................................................................................租管理模塊設(shè)計(jì)................................................................................................................................21息統(tǒng)計(jì)模塊設(shè)計(jì).................................................................................................................................統(tǒng)維護(hù)模塊設(shè)計(jì).................................................................................................................................四經(jīng)驗(yàn)總.發(fā)步驟.................................................................................................................................................發(fā)心得.................................................................................................................................................致...............................................................................................................................................30參考文.word檔可自由復(fù)制編輯

房屋租賃管理系統(tǒng)設(shè)計(jì)摘要Delphi是一個(gè)極為優(yōu)秀的快速開(kāi)發(fā)工具，在開(kāi)發(fā)數(shù)據(jù)庫(kù)方面的功能極為強(qiáng)大。房屋租賃管理系統(tǒng)就是在delphi平臺(tái)下開(kāi)發(fā)的。本文共六個(gè)小節(jié)，二、三小節(jié)是主要內(nèi)容，主要介紹了房屋租賃管理系統(tǒng)軟件的開(kāi)發(fā)過(guò)程：系統(tǒng)總體設(shè)計(jì)和各模塊詳細(xì)設(shè)計(jì)。詳細(xì)介紹了系統(tǒng)的總體結(jié)構(gòu)，各個(gè)模塊的功能、流程、實(shí)現(xiàn)、及其所用到的主要控件和函數(shù)。其中對(duì)應(yīng)一些簡(jiǎn)單的流程限于篇幅沒(méi)有給出，對(duì)于重要的組件和函數(shù)作了詳細(xì)介紹。veryfastinthedevelopmentsoftware,it'sextremelyandinthe,TheManagesystemofleasinginThistextistotallyofsixandthird,theyprimarilyintroducethedevelopmentprocessofthesystemofManageofleasinghouses:Totaldesignofdesignoftotalconstruction、usingofeach、process、componentmainfunctionmainlysimpleprocessesareintroducedbecausethelimitoftext.ontheotherhandwemainlycomponentsimportant.word檔可自由復(fù)制編輯

一

前言1題景伴隨著計(jì)算機(jī)的發(fā)展軟件已經(jīng)稱(chēng)為電腦用戶(hù)不可缺少的一部分并且應(yīng)用也越來(lái)越廣泛，不論時(shí)是大型軟件還是小型的，在各行各業(yè)中都得到了廣泛的應(yīng)用。在房產(chǎn)方面，不論是從設(shè)計(jì)還是到管理，都用到了計(jì)算機(jī)，用到了軟件，通過(guò)研究發(fā)現(xiàn)，在管理上小型的租賃管理軟件非常的靈活，非常的實(shí)用，并且對(duì)一般的用戶(hù)來(lái)說(shuō)，不用花費(fèi)太多的金錢(qián)自己去買(mǎi)大型的軟件，鑒于此開(kāi)發(fā)小型軟件還是很實(shí)用的，所以此次課程設(shè)計(jì)選擇了開(kāi)發(fā)一個(gè)小型軟件：房屋租賃管理系統(tǒng)。2具擇軟件的開(kāi)發(fā)平臺(tái)種類(lèi)很多在開(kāi)發(fā)效率和功能方面Delphi具有很大的優(yōu)勢(shì)Delphi本身因簡(jiǎn)單易學(xué)、功能強(qiáng)大、編譯速度快而在眾多的軟件開(kāi)發(fā)工具中脫穎而出?，F(xiàn)在廣為流傳的一句話(huà)說(shuō)真正的程序員用明的程序員用DelphiDelphi強(qiáng)大的功能，此軟件的開(kāi)發(fā)平臺(tái)選擇了Delphi。word檔可自由復(fù)制編輯

二系統(tǒng)總設(shè)計(jì)1系構(gòu)房屋租賃管理系統(tǒng)采用C/S構(gòu)，前臺(tái)采用Delphi開(kāi)發(fā)平臺(tái)，Delphi有著強(qiáng)大的界面開(kāi)發(fā)平臺(tái)，其開(kāi)發(fā)主要應(yīng)用了窗體與組件。W環(huán)境中，人機(jī)交換主要在一些窗體和對(duì)話(huà)框中進(jìn)行的，Delphi，窗體指的是窗口和對(duì)話(huà)框，進(jìn)行可視化設(shè)計(jì)一般就是從窗體開(kāi)始在窗體中完成的。房屋租賃管理系統(tǒng)的后臺(tái)應(yīng)用了Delphi的Database據(jù)庫(kù)桌面)可以創(chuàng)建、查看和修改數(shù)據(jù)表的結(jié)構(gòu)，它為用戶(hù)開(kāi)發(fā)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用程序提供了方便，它在創(chuàng)建、修改、聯(lián)結(jié)方面非常的簡(jiǎn)單。它可以嵌入Sql查詢(xún)語(yǔ)句，從而查詢(xún)非常的簡(jiǎn)單。此次程序的開(kāi)發(fā)中應(yīng)用了BDE組件前后臺(tái)聯(lián)結(jié)到一起B(yǎng)DE即DatabaseEngine的縮寫(xiě)。BDEAdministrator，它是數(shù)據(jù)庫(kù)引擎管理工具。BDE組件和數(shù)據(jù)訪(fǎng)問(wèn)組件使數(shù)據(jù)庫(kù)應(yīng)用程序和數(shù)據(jù)庫(kù)之間建立了聯(lián)系，同時(shí)數(shù)據(jù)庫(kù)應(yīng)用程序還需要將這種聯(lián)系提供給用戶(hù)，讓用戶(hù)也能瀏覽和運(yùn)算數(shù)據(jù)庫(kù)，這就是數(shù)據(jù)庫(kù)應(yīng)用程序的用戶(hù)接口。數(shù)據(jù)控制組件主要用于顯示和編輯數(shù)據(jù)庫(kù)表中的數(shù)據(jù)，因而也稱(chēng)為數(shù)據(jù)瀏覽組件，它為編程人員設(shè)計(jì)用戶(hù)接口提供了極大的方便。2能構(gòu)計(jì)房屋租賃管理系統(tǒng)是一個(gè)關(guān)于房屋及其出租業(yè)務(wù)的管理信息系統(tǒng)，包括用戶(hù)登錄、房屋管理、合同管理、租金管理、統(tǒng)計(jì)和系統(tǒng)維護(hù)幾個(gè)功能模塊，其結(jié)構(gòu)圖如下房屋租賃管理系統(tǒng)用戶(hù)登錄模

塊房產(chǎn)管理模

塊

合同管理模塊

租金管理模塊

統(tǒng)計(jì)模塊

系統(tǒng)維護(hù)模塊房產(chǎn)信息管理

合同信息管理

到期合同管理

合同信息查詢(xún)

租金收取

租金查詢(xún)

本月租金統(tǒng)計(jì)履約金統(tǒng)計(jì)

到期合同空閑房屋統(tǒng)計(jì)

數(shù)據(jù)備份

數(shù)據(jù)

密碼管理恢復(fù)word檔可自由復(fù)制編輯

各主要模塊功能如下

：(1)用戶(hù)登錄模塊：用來(lái)確認(rèn)用戶(hù)輸入的密碼，以判斷用戶(hù)是否合法，合法用戶(hù)才能進(jìn)入系統(tǒng)。(2)房產(chǎn)管理模塊：該模塊用來(lái)更新和維護(hù)系統(tǒng)中的房產(chǎn)信息，主要實(shí)現(xiàn)對(duì)房產(chǎn)數(shù)據(jù)包括瀏覽、修改、插入和刪除等的操作。(3)合同管理模塊：合同即房屋租賃合同。該模塊包括合同信息管理、到期合同處理和合同信息查詢(xún)幾個(gè)功能。其中合同信息管理具有產(chǎn)生新的租賃合同以及對(duì)已有合同數(shù)據(jù)的瀏覽等操作。其中合同信息管理具有自動(dòng)警告到期以及提示其租金交情況的功能：合同信息查詢(xún)能提供多種方式的組合信息查詢(xún)。(4)租金管理模塊：租金收取和租金查詢(xún)。(5)統(tǒng)計(jì)模塊：對(duì)本月租金、到期合同、履約金和當(dāng)前空閑房屋的信息統(tǒng)計(jì)。(6)系統(tǒng)維護(hù)模塊：數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、密碼管理。3統(tǒng)據(jù)設(shè)對(duì)于一個(gè)大型的復(fù)雜的數(shù)據(jù)庫(kù)系統(tǒng)述和清理數(shù)據(jù)之間的關(guān)系采，在此基礎(chǔ)上通過(guò)歸化的到關(guān)系模型，而房屋租賃系統(tǒng)較為簡(jiǎn)單，沒(méi)有采用E-R，其包含的實(shí)體、屬性和關(guān)系如下：房產(chǎn)：房屋號(hào)、坐落位置、面積、狀態(tài)、租賃合同號(hào)合同：合同號(hào)、租期、起租日期、到期日期、付款期限、月租金、租金總額、履約金、乙方單位、聯(lián)系人、電話(huà)、手機(jī)、BB、備注。租金：合同號(hào)、應(yīng)收日期、應(yīng)收金額、實(shí)收日期、實(shí)收金額、發(fā)票號(hào)此系統(tǒng)具有三個(gè)數(shù)據(jù)表：房產(chǎn)數(shù)據(jù)表、合同數(shù)據(jù)表、租金數(shù)據(jù)表。房產(chǎn)數(shù)據(jù)表結(jié)構(gòu)：

Typedec6zuoluomianjiN8ChetonghaoC合同數(shù)據(jù)表結(jié)構(gòu)：

contract.dbfTypedechetonghaoNzuqiN2qizuriqiC8daoqiriqiCfukuanqixianC4yuezujinN12zujinzongeN2word檔可自由復(fù)制編輯

lvyuejinN2yijfangC30lianxiren8C20BBbeizhu1(3):租金數(shù)據(jù)表結(jié)構(gòu)：

rent.dbffieldtypedechetonghaoN0CshishoujinN12shishouriqishishoujinN124體構(gòu)房屋租賃管理工程用戶(hù)登錄窗體主窗體房產(chǎn)管理窗體

合同管理窗體

租金管理窗體

信息統(tǒng)計(jì)

系統(tǒng)維護(hù)窗word檔可自由復(fù)制編輯

三各模塊設(shè)計(jì)1據(jù)件塊在房屋租賃系統(tǒng)中有三個(gè)數(shù)據(jù)表：房產(chǎn)數(shù)據(jù)表house(house.dbf)、合同數(shù)據(jù)表和租金數(shù)據(jù)rent(rent.dbf)。在房產(chǎn)管理模塊、合同理和租金管理模塊中用到了這三個(gè)表，為了使用方便，我們將要用到的數(shù)據(jù)表組件和數(shù)據(jù)源組件集中放在一個(gè)數(shù)據(jù)模塊上，這樣可以通過(guò)數(shù)據(jù)模塊來(lái)統(tǒng)一管理這些數(shù)據(jù)組件。使用了數(shù)據(jù)模塊后，訪(fǎng)問(wèn)位于其上的組件的組件的方法：數(shù)據(jù)模塊名.件對(duì)象。數(shù)據(jù)庫(kù)組件對(duì)象主要屬性設(shè)置組件對(duì)象名

屬性

屬性值HdatasourceFtablefangwuglTablenamefangwuglTablenamerent.dbfTablename注：是虛擬路徑名2戶(hù)錄塊用戶(hù)登錄窗體運(yùn)行是讓用戶(hù)輸入密碼確定用戶(hù)是否合法能否進(jìn)入系統(tǒng)。word檔可自由復(fù)制編輯

其界面如下：注：loginform窗體組件的bordericons屬性的子項(xiàng)、和bimaxinmize均為false這是為了讓該窗體在運(yùn)行時(shí)不顯示系統(tǒng)圖標(biāo)，避免用戶(hù)自行關(guān)閉該窗體，從而跳過(guò)用戶(hù)權(quán)限檢查。如圖：(1)用戶(hù)登錄此時(shí)最多為三次如果密碼仍不正確系統(tǒng)將關(guān)閉，為此在登錄窗體初始化事件定義一變量，程序如下：Tloginform.FormCreate(Sender:beginentertime:=0;”確認(rèn)按鈕”流程如下word檔可自由復(fù)制編輯

變量設(shè)置外部文件與量pwfile相打開(kāi)pwfile讀取密碼到possword中yes密碼與原密碼相同no給出提示信息輸入次數(shù)超過(guò)三次no重新輸入（3）取消按鈕功能實(shí)現(xiàn)代碼如下：Tloginform.BitBtn2Click(Sender:TObject);begin3窗設(shè)界面如下：

關(guān)閉窗口yes

程序結(jié)束word檔可自由復(fù)制編輯

主要實(shí)現(xiàn)功能：用戶(hù)成功登錄后，引導(dǎo)用戶(hù)進(jìn)入各模塊。主窗體是系統(tǒng)的控制中心，應(yīng)用程序在運(yùn)行時(shí)將首先顯示主窗體。用戶(hù)登錄窗體的在主窗體被激活前顯示，以起到合法性檢查的作用。A定義變量varhavelogin：；檢查是否已經(jīng)登錄。B：主窗體創(chuàng)建事件給havelogin初值Tmainform.FormCreate(Sender:TObject);beginhavelogin:=false;C：onactive件的處理過(guò)程中顯示用戶(hù)登錄窗體，程序代碼如下Tmainform.FormActivate(Sender:TObject);beginifhavelogin4產(chǎn)理塊計(jì)功能：房產(chǎn)管理窗體用來(lái)更新和維護(hù)系統(tǒng)中房產(chǎn)信息，主要實(shí)現(xiàn)對(duì)房產(chǎn)數(shù)據(jù)，包括瀏覽、修改、插入和刪除等的操作。（1）房產(chǎn)信息管理界面如下：word檔可自由復(fù)制編輯

TdbnavigatorMaindbgrid房產(chǎn)信息管理中使用了許多具有數(shù)據(jù)感知（Data—功能的數(shù)據(jù)控制組件，如TDBEdit組件，他們通過(guò)數(shù)據(jù)源組件和數(shù)據(jù)表相連，能自動(dòng)顯示數(shù)據(jù)表中當(dāng)前記錄對(duì)應(yīng)字段的數(shù)據(jù)值。數(shù)據(jù)導(dǎo)航組件TDBNzvigator用于實(shí)現(xiàn)數(shù)據(jù)導(dǎo)航和插入、刪除等操作，通過(guò)它不需要變成就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的常規(guī)操作，這是Delphi的特點(diǎn)和優(yōu)勢(shì)。此程序簡(jiǎn)單，代碼如下：word檔可自由復(fù)制編輯

beginmaindbgrid.readonly:=false;//置maimdbgrid內(nèi)容可被修改Thouseform.FormShow(Sender:TObject);beginwithdobegin//打開(kāi)房屋數(shù)據(jù)表5同理塊計(jì)功能：合同管理模塊包括：合同信息管理、到期合同處理、合同信息查詢(xún)和合同總表瀏覽（1）合同信息管理ecodede

e在合同信息管理中使用了數(shù)據(jù)導(dǎo)航器組件來(lái)瀏覽、添加、和刪除合同數(shù)據(jù)表中的合同信息。A：合同據(jù)瀏覽瀏覽合同數(shù)據(jù)是通過(guò)單擊數(shù)據(jù)導(dǎo)航組件對(duì)象的first、、next和last四個(gè)按鈕實(shí)現(xiàn)的，他們可以改變指向當(dāng)前記錄的指針。與數(shù)據(jù)庫(kù)中字段相應(yīng)的數(shù)據(jù)感知組件所顯示的數(shù)據(jù)隨之而變。word檔可自由復(fù)制編輯

Last組件對(duì)象用來(lái)顯示當(dāng)前合同所租用房屋的房屋號(hào)，由于一份合同可以租用多個(gè)房屋，即在一份合同中會(huì)包含多個(gè)房屋號(hào)，因而在阿合同數(shù)據(jù)表中就沒(méi)有存放所租用房屋的信息，這些信息存放在房產(chǎn)數(shù)據(jù)表中，即房產(chǎn)數(shù)據(jù)表中的合同號(hào)字段存放租用租用該房屋的合同號(hào)，在瀏覽合同數(shù)據(jù)時(shí)，當(dāng)前合同所租用房屋的房屋號(hào)需自己查訊得到定義過(guò)程用于將當(dāng)前合同所租用房屋的房屋號(hào)在表框中顯示，程序流程如下：not？YesYeschoicedhousecode.Items.append（fangwuhao）End：增加新合同：增加一份新的房屋租賃合同是通過(guò)單擊數(shù)據(jù)導(dǎo)航器組件對(duì)象的按鈕實(shí)現(xiàn)的。單擊insert按鈕后將在和合同數(shù)據(jù)表的末尾產(chǎn)生word檔可自由復(fù)制編輯

一個(gè)新的合同記錄，用戶(hù)可在與該記錄的各字段相連的數(shù)據(jù)控制組件對(duì)象中填入新合同的有關(guān)內(nèi)容。Insert添加一份新的合同分以下步驟；

設(shè)置進(jìn)入新合同狀態(tài)自動(dòng)填入新合同號(hào)自動(dòng)填入起租日期dbedit5=caltodaydateWithhtabledoNot?Yes狀態(tài)<>YesEmptyhousecode.items.append(屋號(hào)各步驟簡(jiǎn)介如下：：設(shè)置進(jìn)入新合同狀態(tài)，varaddrecord初始化：word檔可自由復(fù)制編輯

begin用戶(hù)單擊數(shù)據(jù)導(dǎo)航器組件對(duì)象dbnavigator1的insert按，進(jìn)入增加新合同狀態(tài)：addrecord：＝true；：自動(dòng)生產(chǎn)新的合同號(hào)，在合同管理窗體的事件程序中算出當(dāng)前新合同的合同號(hào)。此過(guò)程有單獨(dú)定義

newrecordcontractno，具體源程序。：自動(dòng)填入起租日期。此過(guò)程有單獨(dú)定義，具體見(jiàn)源程序。：自動(dòng)提示當(dāng)前處于空閑狀態(tài)的房屋號(hào)。：關(guān)閉數(shù)據(jù)導(dǎo)航器組件對(duì)象中除確認(rèn)（和取消（cancel）按鈕外的其他按鈕。因?yàn)橐环莺贤幢淮_認(rèn)要么被取消，進(jìn)入增加新合同狀態(tài)后只能通過(guò)確認(rèn)或取消后才能離開(kāi)時(shí)須關(guān)閉數(shù)據(jù)導(dǎo)航器組件對(duì)象Dbnavigator和取消（）按鈕外的其他按鈕，以防止用戶(hù)單擊其他按鈕中斷新合同的生成。C：確認(rèn)合同：在增加新合同中，完成新合同的填寫(xiě)后單擊數(shù)據(jù)導(dǎo)航器組件對(duì)象post按鈕表示確認(rèn)此分新合同。此時(shí)須完成以下步驟：：檢查新合同中必填寫(xiě)的項(xiàng)是否已經(jīng)填寫(xiě)完。流程如下：success：boolean;Yes存在某必填項(xiàng)空？Successfalse顯示提示信息word檔可自由復(fù)制編輯

：在房產(chǎn)數(shù)據(jù)表中修改所租用房屋信息。流程如下：Choicedhousecode.item.count>0anddbedit4,text<>WiththuosedoForI:=0yes房號(hào),choicedhousecode.items[i],[])合同號(hào)＝dbedit1.text狀態(tài)＝出租Post：在租金數(shù)據(jù)表中生產(chǎn)按照此份新合同應(yīng)交租金的記錄項(xiàng)。新合同在確認(rèn)時(shí)，需要在租金表中自動(dòng)增加按照合同內(nèi)容客戶(hù)應(yīng)交租金的金額和時(shí)間的記錄項(xiàng)，記錄項(xiàng)條數(shù)為新合同中按付款期限應(yīng)交租金的次數(shù)。流程如下：word檔可自由復(fù)制編輯

Times,per,year,month,i:integer;(times期，付款期限Startime，，：；sumTemps:=dbcombobox3.text分為“按季半”“按年”則per依賦值12Starttime＝起租日期；＝租年份、month＝起租月份＝起租日分初始化＝ForI:=0(timesdo在renttable中入應(yīng)收日期，應(yīng)收金額重賦在合同表中填入到期日期和租金總額：數(shù)據(jù)導(dǎo)航器組件對(duì)象復(fù)原樣：結(jié)束增加新合同狀態(tài)。D：取消新合同進(jìn)入增加新合同狀態(tài)后，單擊數(shù)據(jù)導(dǎo)航器組件對(duì)象dbnavigator的按鈕表示放棄此分新合同。此時(shí)要結(jié)束增加新合同狀態(tài)將數(shù)據(jù)導(dǎo)航器組件對(duì)象Dbnavigtor復(fù)原樣。程序如下：ifthenBeginAddrecord:=false;bcancel];：刪除合同word檔可自由復(fù)制編輯

刪除是通過(guò)單擊數(shù)據(jù)導(dǎo)航器組件對(duì)象Delete鈕實(shí)現(xiàn)的合同被刪除后，該合同在數(shù)據(jù)庫(kù)中的數(shù)據(jù)將全部被刪除。流程如下：For編),choicedhousecode,items[i],[])狀態(tài)和合同號(hào)置空post（2）到期合同處理到期合同處理主要有兩個(gè)工能：到期合同處理（正常終止合同）和異常終止合同處理。注釋?zhuān)?1)到期合同：指合同的到期日期已到。判斷到期合同的方是：一是否是有效合同，二是是否已到期。（）異常終止是指雖沒(méi)到期但由于某中原因合同不能繼續(xù)執(zhí)行，需要被終止。界面如下：word檔可自由復(fù)制編輯

主要步驟：A：初始合同數(shù)據(jù)，即將符合要求的合同號(hào)列入已到期合同combobox和將所有有效合同列入異常停止合同中件在onshow事件中實(shí)現(xiàn)。今日日期賦值給WithctableWhilenotIf“期日期“標(biāo)＝撿起加入到異常終止合同框中If“到日期=“標(biāo)”＝””“到日期<today將加入到已期合同框中B：選擇需要處理的合同號(hào)：計(jì)算到期合同的組租金交數(shù)據(jù)應(yīng)付租金總額就是該合同中簽訂的租金總額，就是合同數(shù)據(jù)表中該合同的租金總額字段的值：實(shí)付租金總額為租金數(shù)據(jù)表中該合同所以紀(jì)錄項(xiàng)實(shí)付金額的累加值。＝將用戶(hù)選中的合同號(hào)賦值給contractnum定位：datacontrls.ctable.locate(合同號(hào)[])將‘租金總額‘賦值給應(yīng)收租金額累加每次所付“收金“值給實(shí)收租金總額word檔可自由復(fù)制編輯

C：計(jì)算異常終止合同的租金交情況；此流程與上述類(lèi)似；D：終止合同，此流流程簡(jiǎn)單，簡(jiǎn)要介紹如下：：用戶(hù)瀏覽了所須終止的合同交情況后，如果決定馬上終止該合同，就單擊終止按鈕。為了作為歷史數(shù)據(jù)備案，合同終止后我們并不將其從數(shù)據(jù)庫(kù)中刪除，只是將其狀態(tài)改變?yōu)闊o(wú)效。終止合同的操作能容容如下：：將合同狀態(tài)改為無(wú)效，即合同表中該合同的標(biāo)志子段的值改為2b：釋放改合同租用的所有房屋，即在房產(chǎn)數(shù)據(jù)表中將該合同租用房屋的狀態(tài)字段改為0合同號(hào)字段改為空。同時(shí)為了作為歷史數(shù)據(jù)保存，將該合同的房屋號(hào)放在合同數(shù)據(jù)表中的備注字段中。c：在租金數(shù)據(jù)表中將該合同所有租金交情況記錄改為無(wú)效，即標(biāo)志字段的值改為2（3）合同信息查詢(xún)：合同信息查訊的主界面如下應(yīng)用按鈕以Radio按鈕方式提供了三種查詢(xún)：按合同號(hào)查詢(xún)、按組主名查詢(xún)和按租用單位查詢(xún)。A合同號(hào)查詢(xún)”事件將所有有效的合同加入到合同號(hào)combobox中，標(biāo)志num流程如下：用以標(biāo)注第一各按鈕Mlabel.caption:=合號(hào)：示信息Withdo將所有的合同號(hào)加入到combobox中word檔可自由復(fù)制編輯

B:按租主名查詢(xún)”事:＝。流程與上擂同。

將所有有效合同的租主加入到合同號(hào)combobox中標(biāo)志C租用單位查詢(xún)”事件：將所有的有效合同的乙方單位加入到中標(biāo)志＝3流程與上擂同。D詢(xún)事件：num：

按合同號(hào)查詢(xún)

租用單位查詢(xún)

按租主名查詢(xún)（4）合同總表瀏覽Maindbgrid其設(shè)置很簡(jiǎn)單只需對(duì)maindbgrid作屬性設(shè)置即可。6租管模設(shè)租金管理窗體包括租金收取和租金查詢(xún)兩個(gè)功能（1）租金收取的界面如下

。word檔可自由復(fù)制編輯

contractnumMustdateA：初始化合同數(shù)據(jù)：應(yīng)用程序進(jìn)入租金收取界面時(shí)自動(dòng)填入日日期，并將所有有效的合同號(hào)自動(dòng)填入到contractnum中以供用戶(hù)選擇這個(gè)事件發(fā)生在租金收取界面的Onshow事件中。流程如下：填入今日日期Contractnum.clearWithdatacontrlsdonoteof?標(biāo)<此同號(hào)加入到中初始化各感知組件不可用B：選中合同號(hào)租金收取時(shí)，首先在組合框的下拉列表中選中對(duì)應(yīng)的合同號(hào)，word檔可自由復(fù)制編輯

應(yīng)用程序?qū)⒆饨饠?shù)據(jù)表中該合同的所有記錄項(xiàng)的應(yīng)收日期字段的值自動(dòng)加入到組合框中，供用戶(hù)房屋租用者此次交租金的應(yīng)收日期。這時(shí)在Contractnum組合框的事中實(shí)現(xiàn)的。此程序簡(jiǎn)單，不作概述C：選中應(yīng)收日期用戶(hù)在mustdate組合框中選中房屋租用者此次交租金的應(yīng)收日期后應(yīng)用程序在租金數(shù)據(jù)表中定位這條記錄中將顯示應(yīng)收金額字段的值，將金日日期填在實(shí)收日期項(xiàng)中，這是在組合框的件中實(shí)現(xiàn)的。此程序簡(jiǎn)單，不作概述。此外令各感知組件可用。D:填入實(shí)收金額用戶(hù)在實(shí)收金額中填入房屋租用者此次實(shí)際交得租金額。由于dbedit3是對(duì)應(yīng)用租金數(shù)據(jù)表得實(shí)收金額字段得數(shù)據(jù)感知組件，它會(huì)自動(dòng)將填入得值加入到數(shù)據(jù)庫(kù)中。（2）按合同號(hào)租金查詢(xún)按合同號(hào)租金查詢(xún)頁(yè)面得界面如下圖：contactCodeA;按合同號(hào)租金查詢(xún)頁(yè)面的件的能是將租金數(shù)據(jù)表所獲有記錄得合同號(hào)字段得值以不重復(fù)得形式填入到合框中以供用戶(hù)選擇。流程如下：word檔可自由復(fù)制編輯

Temp=;WithrtableYesNot？同號(hào)Yes？Temp=backup用戶(hù)在contractcode組合框的下拉列表中選中所要查詢(xún)的同號(hào)后，該合同的所有租金收取記錄將在dbgrid中示。（3）按發(fā)票號(hào)租金查詢(xún)：按發(fā)票號(hào)租金查詢(xún)與按合同號(hào)租金查詢(xún)類(lèi)似，只要少作改動(dòng)即可。7息計(jì)塊計(jì)（1）信息統(tǒng)計(jì)窗體對(duì)本月租金、已到期合同、履約金和空閑房屋進(jìn)行統(tǒng)計(jì)其窗體解如下：word檔可自由復(fù)制編輯

主要步驟如下得到今日日期（year＋按鈕選擇選中本月租金信息統(tǒng)計(jì)：應(yīng)用sql查詢(xún)where應(yīng)日期like履約金統(tǒng)計(jì)sql詢(xún)（履約<>）(標(biāo)志=”空閑房屋統(tǒng)計(jì)：應(yīng)用查狀＝

已到期合同sql查詢(xún)where（到期日期<todate）and（標(biāo)志=“word檔可自由復(fù)制編輯

8統(tǒng)護(hù)塊計(jì)系統(tǒng)維護(hù)窗體包括數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和密碼管理三個(gè)功能。（1）數(shù)據(jù)備份數(shù)據(jù)備份的頁(yè)面如下：“開(kāi)始數(shù)據(jù)備”按鈕將3各數(shù)據(jù)文件和一個(gè)密碼文件保存到軟盤(pán)驅(qū)動(dòng)器A：中的軟盤(pán)理單擊開(kāi)始數(shù)據(jù)備份按鈕的事件代碼如下：此程序主要用到函數(shù)copyfile(原文件目的地)此過(guò)程簡(jiǎn)單，具體參見(jiàn)原程序（1）數(shù)據(jù)恢復(fù)：數(shù)據(jù)恢復(fù)界面設(shè)計(jì)如下“開(kāi)始數(shù)據(jù)恢復(fù)鈕將軟盤(pán)驅(qū)動(dòng)器A中的三個(gè)數(shù)據(jù)文件和一個(gè)密碼文件保存到應(yīng)程序所在的路徑下，并將三個(gè)表打開(kāi)始數(shù)據(jù)恢復(fù)”按鈕事件如下：此過(guò)程主要用到兩個(gè)函數(shù)fileexists(file)和copyfile(源文件及其路徑目標(biāo)文件如fileexists('house.dbf')判斷house.dbf是否存在word檔可自由復(fù)制編輯

copyfile('a:\house.dbf','house.dbf',false)判斷是否將復(fù)制到了當(dāng)前目錄下的，成功返回此過(guò)程簡(jiǎn)單，具體參見(jiàn)原程序。（2）密碼管理：密碼管理界面如下：密碼管理用于修改系統(tǒng)登錄密碼，它要求原密碼輸入正確，并且新密碼與確認(rèn)密碼相同，這在確認(rèn)按鈕中實(shí)現(xiàn)，流程如下：word檔可自由復(fù)制編輯

pwfile：textfile；

：Assignfile(pwfile,config.sys密文件傳遞給參數(shù)pwfile打開(kāi)pwfile將原密碼付給password：readln(pwfile,password)（pwfile輸入密password？

碼＝NoYes給出提示信息；提示信

No

新密碼=確認(rèn)密碼？Yes修改，并提示修改成功重新輸入word檔可自由復(fù)制編輯

四經(jīng)驗(yàn)總結(jié)1發(fā)驟開(kāi)發(fā)一個(gè)軟件大體經(jīng)過(guò)以下幾步：前期準(zhǔn)備：此階段根據(jù)用戶(hù)需要，設(shè)計(jì)數(shù)據(jù)庫(kù)及程序界面，在此過(guò)程中盡量弄用戶(hù)需求，近可能的與用戶(hù)交流，滿(mǎn)足用戶(hù)需求，此階段相當(dāng)重要，若此步與用戶(hù)相去甚遠(yuǎn)，或者不能滿(mǎn)足用戶(hù)的需求，作為一個(gè)軟件來(lái)說(shuō)，是失敗的，最終導(dǎo)致前功盡棄。b)總體設(shè)計(jì)：此階段是在第一階段的基礎(chǔ)上，對(duì)軟件進(jìn)行總體設(shè)計(jì)，總體設(shè)計(jì)是在全局應(yīng)用的基礎(chǔ)上，對(duì)程序功能