【正文】 end。 var Key: Char)。end。 perform(WM_NEXTDLGCTL,0,0)。 var Key: Char)。end。 var Action: TCloseAction)。end。 。請(qǐng)輸入登錄用戶名和密碼！39。 end。 end。 。請(qǐng)確認(rèn)登錄的用戶名和密碼是否正確！39。 //關(guān)閉登錄窗口 。 := false。 用戶: 39。 end。 := True。 := True。 //激活按鈕 with mainform do begin := True。 Next。 [a].Enabled :=true。cdx39。).AsString,1,1))。 while not Eof do begin a:=strtoint(copy(FieldByName(39。 Open。 。 SessionName:=。 order by 39。)and(=)39。39。39。 and(=39。)39。39。39。select * from user1 a,qxb b where (=39。 apassword:=trim()。 a,b:integer。3. 登錄窗體設(shè)置程序代碼：procedure (Sender: TObject)。 。 //關(guān)于系統(tǒng)begin if not Assigned(about_Form) then begin (Tabout_Form, about_Form)。end。 end。procedure (Sender: TObject)。 系統(tǒng)日期: 39。procedure (Sender: TObject)。+timetostr(now)。 //顯示系統(tǒng)時(shí)間begin [1].Text:=39。end。 end。 := true。//報(bào)修項(xiàng)目管理begin if not Assigned(bxgl_Form) then begin (Tbxgl_Form, bxgl_Form)。end。 end。 := true。 //投訴項(xiàng)目管理begin if not Assigned(tsgl_Form) then begin (Ttsgl_Form, tsgl_Form)。end。procedure (Sender: TObject)。 。 := true。 := true。procedure (Sender: TObject)。begin 。end。 end。 := true。procedure (Sender: TObject)。 。 := true。 := true。procedure (Sender: TObject)。 。 := true。 := true。procedure (Sender: TObject)。 //退出系統(tǒng)begin close。end。 。procedure (Sender: TObject)。 。end.2. 主窗體界面設(shè)置程序代碼：procedure (Sender: TObject)。 (TmainForm, mainForm)。 := 39。在開發(fā)的過(guò)程中也得到了不少同學(xué)的幫助，在此也對(duì)那些幫助過(guò)我的同學(xué)說(shuō)聲“謝謝”。在整個(gè)開發(fā)過(guò)程中不論是在開發(fā)初期的系統(tǒng)規(guī)劃，還是在開發(fā)中期的系統(tǒng)完善方面都給我提了許多好的修改意見。也正是因?yàn)槲覀兙邆淞诉@種良好的學(xué)習(xí)能力，并通過(guò)我們自身不斷的學(xué)習(xí)，就可以不斷的更新自己所掌握知識(shí)的廣度和深度，只有這樣才能使我們?cè)谝院蟮膶W(xué)習(xí)和工作中游刃有余?；窘鉀Q了開發(fā)過(guò)程中所遇到的問(wèn)題，我深深的覺(jué)得在大學(xué)培養(yǎng)的是一種學(xué)習(xí)能力而不僅僅體現(xiàn)在期終考試的分?jǐn)?shù)上。系統(tǒng)的核心模塊是樓盤信息管理、住戶信息管理、停車場(chǎng)管理、收費(fèi)項(xiàng)目管理和報(bào)修及投訴項(xiàng)目管理,這些模塊能基本滿足小區(qū)物業(yè)管理人員的日常工作和管理。 整個(gè)系統(tǒng)在設(shè)計(jì)方面由于自己的知識(shí)和認(rèn)識(shí)方面的欠缺有些地方還不盡人意，比如在數(shù)據(jù)備份和數(shù)據(jù)還原方面。另外，對(duì)Delphi不熟，所以在設(shè)計(jì)時(shí)只用了常用的幾個(gè)控件，這使得各個(gè)功能模塊的界面都很相似。這是本人在知識(shí)面上的又一次擴(kuò)充。極大地鍛煉了自己的動(dòng)手能力，這是本人在實(shí)踐經(jīng)驗(yàn)上的一次積累。在進(jìn)行前期調(diào)查和系統(tǒng)分析的過(guò)程中，使我懂得了如何進(jìn)行系統(tǒng)詳細(xì)的調(diào)查得到集中文檔資料，對(duì)組織內(nèi)部整體狀況和信息處理過(guò)程進(jìn)行分析，從業(yè)務(wù)全過(guò)程和角度進(jìn)行分析。八、 總結(jié)通過(guò)這次系統(tǒng)開發(fā)使我把大學(xué)所學(xué)知識(shí)系統(tǒng)化了，特別是數(shù)據(jù)庫(kù)、軟件工程、信息系統(tǒng)分析與設(shè)計(jì)以及數(shù)據(jù)結(jié)構(gòu)等知識(shí)。7. 投訴項(xiàng)目管理：選擇投訴信息管理可以進(jìn)行投訴信息的查詢，在表格中單擊右鍵在彈出的菜單中選擇相應(yīng)選項(xiàng)可進(jìn)行投訴信息的添加、修改、刪除操作。5. 收費(fèi)項(xiàng)目管理：選擇收費(fèi)信息管理可以進(jìn)行收費(fèi)信息的查詢，在表格中單擊右鍵在彈出的菜單中選擇相應(yīng)選項(xiàng)可進(jìn)行收費(fèi)信息的添加、修改、刪除操作。3. 住戶信息管理：選擇住戶信息管理可以進(jìn)行住戶信息的查詢，若為高級(jí)管理員用戶，在表格中單擊右鍵在彈出的菜單中選擇相應(yīng)選項(xiàng)可進(jìn)行住戶信息的添加、修改、刪除操作。(4) 退出系統(tǒng)可從此退出系統(tǒng)。輸入希望修改的密碼，然后確認(rèn)即可。啟動(dòng)登陸程序，在登陸框中輸入用戶名和密碼，此用戶名和密碼由系統(tǒng)管理員提供或者使用初始用戶名“admin”，密碼“admin”，進(jìn)行登陸后添加用戶。39。系統(tǒng)功能介紹如下：1. 系統(tǒng)用戶的添加/刪除和用戶口令的查詢/修改2. 樓盤信息的添加、編輯、查詢3. 住戶信息的添加、編輯、查詢4. 停車場(chǎng)信息的添加、編輯、查詢5. 收費(fèi)項(xiàng)目的添加、編輯、查詢和收費(fèi)項(xiàng)目的執(zhí)行6. 報(bào)修項(xiàng)目的添加、編輯、查詢7. 投訴項(xiàng)目的添加、編輯、查詢本系統(tǒng)具有簡(jiǎn)單易用的特點(diǎn)，仿WINDOWS操作方式可以使您很快上手。它將大大減少管理人員的工作量，為管理人員帶來(lái)及大的方便。七、 用戶手冊(cè)小區(qū)物業(yè)管理系統(tǒng)是基于Windows操作系統(tǒng)開發(fā)的，是一個(gè)操作簡(jiǎn)單，易使用身的小型應(yīng)用軟件。(3) 程序代碼(略)六、 系統(tǒng)測(cè)試與性能分析通過(guò)對(duì)各功能模塊的功能測(cè)試，結(jié)果顯示：此系統(tǒng)的設(shè)置已經(jīng)達(dá)到預(yù)期目標(biāo)功能。Label5: Caption = 39。Label4: Caption = 39。系統(tǒng)，基本滿足小區(qū)日常的物業(yè)管理工作需要。本系統(tǒng)是以Window為操作平臺(tái)的小型數(shù)據(jù)庫(kù)應(yīng)用管理39。小區(qū)物業(yè)管理系統(tǒng)39。DataSource1: DataSet = Query1(3) 程序代碼(見附錄)12. 關(guān)于窗體(1) 實(shí)現(xiàn)目標(biāo)：顯示系統(tǒng)簡(jiǎn)單信息。Query1: DatabaseName = 39。 Label13: Caption = 39。 Label12: Caption = 39。 Label11: Caption = 39。 Label10: Caption = 39。 Label9: Caption = 39。 Label8: Caption = 39。 Label6: Label7: Caption = 39。Label5: Caption = 39。GroupBox4: Caption = 39。 Label4: Caption = 39。)GroupBox3: Label1: Caption = 39。 39。 39。 39。 = (39。 ComboBox1: Text = 39。 Label3: Caption = 39。GroupBox2: Label2: Caption = 39。主要控件對(duì)象屬性如下：DBGrid1: DataSource = DataSource1 PopupMenu = PopupMenu1GroupBox1: Caption = 39。投訴項(xiàng)目管理窗體界面如圖19所示：圖19：投訴管理界面(2) 實(shí)現(xiàn)過(guò)程添加新窗體，設(shè)置窗體name屬性為tsgl_Form，設(shè)置窗體caption屬性為“投訴項(xiàng)目管理”，F(xiàn)ormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、DataSource、DBGrid、GroupBox、ComboBox、CheckBox、PopupMenu、label、edit、和button等控件。3) 選擇投訴信息，進(jìn)行修改。主要實(shí)現(xiàn)功能如下：1) 輸入查詢項(xiàng)目和關(guān)鍵字，進(jìn)行投訴信息查詢。xqwy39。*39。備注39。*39。*39。*39。*39。報(bào)修內(nèi)容39。是否已維修39。維修人39。報(bào)修日期39。報(bào)修人39。門牌號(hào)39。報(bào)修數(shù)據(jù)修改39。模糊查詢39。維修人39。是否已維修39。報(bào)修內(nèi)容39。報(bào)修人39。報(bào)修日期39。門牌號(hào)39。門牌號(hào)39。請(qǐng)輸入關(guān)鍵字39。請(qǐng)選擇查詢項(xiàng)目39。報(bào)修信息查詢39。并設(shè)置相應(yīng)屬性。4) 刪除報(bào)修信息。2) 在彈出菜單中調(diào)用編輯功能，通過(guò)輸入，添加報(bào)修信息。(3) 程序代碼(見附錄)10. 報(bào)修項(xiàng)目管理窗體設(shè)置(1) 實(shí)現(xiàn)目標(biāo)用戶登錄后，調(diào)用“報(bào)修項(xiàng)目管理”窗體，可以進(jìn)行報(bào)修信息的管理工作。 DataSource1: DataSet = Query1Query1: DatabaseName = 39。)CheckBox1: Caption = 39。 39。 39。 OnChange = ComboBox1Change = (39。 ComboBox1: Text = 39。 Label15: Caption = 39。 Label14: Caption = 39。 Label13: Caption = 39。 Label12: Caption = 39。 Label11: Caption = 39。 Label10: Caption = 39。 Label9: Caption = 39。 Label8:Caption = 39。 Label7: Caption = 39。 Label6: Caption = 39。 Label5:Caption = 39。 Label4: Caption = 39。 Label1: Caption = 39。 GroupBox2: Caption = 39。 Label3:Caption = 39。 Label2: Caption = 39。主要控件對(duì)象屬性如下：DBGrid1: DataSource = DataSource1 PopupMenu = PopupMenu1GroupBox1: Caption = 39。收費(fèi)管理窗體界面如圖17所示