【正文】 上需要基礎(chǔ)資料、遷入遷出、繳費(fèi)中心、報修中心、投訴中心、停車管理、設(shè)備管理、安保管理、保潔綠化、人事管理、查詢統(tǒng)計(jì)、系統(tǒng)設(shè)置等幾個主要的功能 [17]。而我主要負(fù)責(zé)的是工程部，財(cái)務(wù)部，辦公室和保安部 4 大模塊。 2．財(cái)務(wù)部：各類費(fèi)用的 設(shè)定如水電煤氣費(fèi)以及別的常用費(fèi)用等，和各小區(qū)用戶的費(fèi)用單的填寫以及其歷史費(fèi)用的查詢和打印等，如圖 所示。 工程部 裝修隊(duì)登記 維修信息 裝修信息 小區(qū)設(shè)施 維修信息登記 維修信息查詢 裝修信息登記 裝修信息查詢 小區(qū)設(shè)施登記 小區(qū)信息查詢 數(shù)據(jù)打印管理 4 保安部：對于各小區(qū)保安隊(duì)的管理，安排等，如圖 所示。建立 DD 需要大量細(xì)致的工作，但這一工作是必須的，因?yàn)椴粌H系統(tǒng)分析階段需要它，在整個開發(fā)過程乃至系統(tǒng)交付后的長期運(yùn)行、維護(hù)過程中都需要依據(jù)它、維護(hù)它。該登陸窗口的設(shè)計(jì)的一個好處就是，用戶不需要在登陸時輸入其帳號，用戶只要在登陸窗口中選擇自己的帳號，然后輸入密碼就可以進(jìn)入，這為這一些喜歡用很長帳號和懶得幾帳號的同志省去了很多麻煩。 維修信息登記 主要實(shí)現(xiàn)由于小區(qū)本身出現(xiàn)的質(zhì)量問題，業(yè)主向物業(yè)公司提出申請讓物業(yè)公司給其進(jìn)行維修的管理，還包括對這方面投訴信息的管理。） 小區(qū)設(shè)施查詢 通過對查詢選項(xiàng)的選擇和匹配方式的選擇，查詢你想要搜索的小區(qū)設(shè)施。 數(shù)據(jù)信息打印 通過連接數(shù)據(jù)庫和打印機(jī)，打印需要的信息 圖 數(shù)據(jù)信息打印的實(shí)現(xiàn)（ 1） 各個信息的打印程序里面都帶有選擇和查詢功能。 圖 收費(fèi)通知單填寫的實(shí)現(xiàn) 在這里可以通過選擇你要管理的用戶的小區(qū)、大樓以及單元到住戶對該用戶的各項(xiàng)財(cái)務(wù)資料進(jìn)行管理。 圖 用戶費(fèi)用查詢的實(shí)現(xiàn) 改模塊是對用戶詳細(xì)費(fèi)用信息的查詢，通過選擇小區(qū)，大樓，單元和住戶可以查詢出該住戶的當(dāng)前兩個月的詳細(xì)費(fèi)用情況。 系統(tǒng)數(shù)據(jù)設(shè)定 圖 系統(tǒng)數(shù)據(jù)設(shè)定的 實(shí)現(xiàn) 對各個小區(qū)、大樓、業(yè)主設(shè)定相應(yīng)的水電煤氣費(fèi)用標(biāo)準(zhǔn)。 4． 5 辦公室和保安部主要窗口的實(shí)現(xiàn) 辦公室主要涉及文檔管理，查詢和打印幾個功能模塊 辦公室文檔管理這里可以添加，編輯和刪除文檔，并可以把這里的文檔通過右上角的“導(dǎo)出到 Word”按鈕可以把你選中的文檔導(dǎo)出到 Word 上，方便查看等。 上面是我在這個系統(tǒng)中主要完成的功能模塊。 第五章 結(jié) 論 本次開發(fā)的小區(qū)物業(yè)管理信息系統(tǒng)是以 和 SQL2021 為主要開發(fā)工具，充分利用了 的強(qiáng)大可視窗口組件和代碼自動生成功能，使整個系統(tǒng)在建設(shè)中顯得方便而又清晰，并利用 SQL2021 數(shù)據(jù)庫的安全性和簡潔性建立而成的。能夠在客戶端成功實(shí)現(xiàn)所要求的基本功能。 但是，本系統(tǒng)中還是存在一些問題： 首先，由于開發(fā)者沒有相關(guān)行業(yè)的操作經(jīng)驗(yàn)，對物業(yè)管理中的實(shí)際需求不能很號的把握，這就造成了一些功能在設(shè)置上就可能不符合實(shí)際操作人員的要求。對軟件，也沒有時間和能力進(jìn)行正式的測試，所以難免有邏輯上的錯誤出現(xiàn)。這就使得一些很好的設(shè)想不能實(shí)現(xiàn)，同時，軟件的人性化方面的考慮也不能得到解決。 致 謝 在這里，我首先必須要向我的指導(dǎo)老師陳杰老師表達(dá)我最誠摯的感謝，感謝她在我做畢 設(shè)這段時間里給我的幫助和關(guān)心。 最后，我還想對在該程序設(shè)計(jì)過程中幫助過我的人，表示感謝，每當(dāng)我在設(shè)計(jì)過程中遇到了不能解決的問題，正是由于你們的幫助，才使我的畢設(shè)工作一帆風(fēng)順。 begin if (39。,39。,[loCaseInsensitive]) then begin if (39。).AsString=39。 then begin :=False。 :=False。 end。 添加，修改，保存，刪除等相關(guān)操作功能： procedure (Sender: TObject)。添加 [amp。 then //添加數(shù)據(jù) begin 。保存 [amp。 :=39。U]39。 :=False。 :=False。 。居住位置 39。維修項(xiàng)目 39。開工時間 39。請輸入維修相關(guān)信息 39。 。添加 [amp。 :=39。E]39。 :=True。 :=True。 try 。 (39。)。 (39。).AsInteger:=[0].AsInteger+1。開工時間39。 :=0。 。Select Count(編號 ) From 維修信息 Where 開工時間 :A and 開工時間 :B39。 (39。).AsDatetime:=。B39。 。維修編號39。0039。 。重復(fù)維修編號，保存失敗 .39。 end。 end。 procedure (Sender: TObject)。修改 [amp。 then begin 。保存 [amp。 :=39。U]39。 :=False。 :=False。 。添加 [amp。 :=39。E]39。 :=True。 :=True。 。 end。 //刪除維修數(shù)據(jù) begin If 0 Then if MessageDlg(39。,mtCustom,[mbYes,mbNo],0)=mrYes then 。 procedure (Sender: TObject)。 。 end。 //添加或選擇響應(yīng)投訴信息 begin If Not Assigned(TSDJ) Then begin TSDJ:=(Self)。 end。 procedure (Sender: TObject)。 end。 var Action: TCloseAction)。 WXDJ:=Nil。 end. 打印相關(guān)數(shù)據(jù)功能代碼： procedure (Sender: TObject。 begin 。 end。 begin Close。 procedure (Sender: TObject)。 。 end。 begin if not Assigned(ZXXXDY) then begin ZXXXDY:=(Self)。 end。 procedure (Sender: TObject)。 。 end。 begin if Not Assigned(WXDY) then begin WXDY:=(Self)。 end。 end. 兩個模塊間連接，并讀取相應(yīng)的數(shù)據(jù)： procedure (Sender: TObject)。 ZDZ: Array of String。 begin if =0 then begin ShowMessage(39。)。 SetLength(ZDZ,)。大樓名 39。 。Select * From 水費(fèi) 39。 (39。)。Select 房間編號 From 房屋信息表 39。 (39。)。A39。 For a:=1 to do begin ZDZ[a]:=[a]。 or 房間編號=39。39。39。39。 end。)39。 。 a:=1。水表編號 39。 [2,a]:=.FieldByName(39。).AsString。收費(fèi)金額 39。 [4,a]:=.FieldByName(39。).AsString。計(jì)費(fèi)終止日期 39。 [6,a]:=.FieldByName(39。).AsString。本月讀數(shù) 39。 [8,a]:=.FieldByName(39。).AsString。應(yīng)收金額 39。 [10,a]:=.FieldByName(39。).AsString。本月余額 39。 a:=a+1。 end。 。Select * From 電費(fèi) Where39。 (39。)。Select 房間編號 From 房屋信息表 Where 房間編號 =:A39。 (39。).AsString:=ListBox1.[0]。 (39。39。+ZDZ[a]+39。39。)。 (39。)。 通過一個相關(guān)數(shù)據(jù)計(jì)算出別的相關(guān)數(shù)據(jù)： procedure (Sender: TObject。Shift: TShiftState)。 y:=。 [9,x]:=FloatToStr(StrToInt([8,x])*StrToFloat([3,x]))。 end。 end。是否更新水費(fèi)信息？ 39。 。Update 水費(fèi) Set 計(jì)費(fèi)終止日期 =:A,本月讀數(shù) =:B,使用數(shù)=:C,應(yīng)收金額 =:D,實(shí)收金額 =:E,本月余額 =:G39。 (39。)。 Try //更新水費(fèi) (39。).AsString:=[1,a]。A39。 (39。).AsInteger:=StrToInt([7,a])。C39。 (39。).AsFloat:=StrToFloat([9,a])。E39。 (39。).AsFloat:=StrToFloat([11,a])。 Except ShowMessage(39。+[1,a]+39。)。 End。 end。