【正文】 ：圖17：收費(fèi)管理界面(2) 實(shí)現(xiàn)過程添加新窗體，設(shè)置窗體name屬性為wgsf_Form，設(shè)置窗體caption屬性為“物管收費(fèi)管理”，F(xiàn)ormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、DataSource、DBGrid、GroupBox、ComboBox、CheckBox、一個(gè)PopupMenu、label、edit、和button等控件。3) 選擇收費(fèi)信息，進(jìn)行修改。主要實(shí)現(xiàn)功能如下：1) 輸入查詢項(xiàng)目和關(guān)鍵字，進(jìn)行收費(fèi)信息查詢。Default39。xqwy39。Default39。xqwy39。Default39。xqwy39。全部39。取車日期39。停車日期39。車位編號(hào)39。車位編號(hào)39。請(qǐng)輸入關(guān)鍵字39。停車綜合查詢39。費(fèi)用39。開始時(shí)間39。結(jié)束時(shí)間39。車位編號(hào)39。取車39。結(jié)束日期39。開始日期39。統(tǒng)計(jì)查詢39。模糊查詢39。全部39。狀態(tài)：未使用39。狀態(tài)：使用中39。車位編號(hào)39。車位編號(hào)39。請(qǐng)輸入關(guān)鍵字39。請(qǐng)選擇查詢項(xiàng)目39。停車位查詢39。并設(shè)置相應(yīng)屬性。4) 在停車綜合查詢中，進(jìn)行停車、取車和停車信息的刪除。2) 通過彈出菜單調(diào)用停車位編輯對(duì)話框，進(jìn)行停車位的添加、修改和刪除。(3) 程序代碼(見附錄)8. 停車場(chǎng)管理窗體設(shè)置(1) 實(shí)現(xiàn)目標(biāo)：用戶登錄后，調(diào)用“停車場(chǎng)管理”窗體，可以進(jìn)行停車場(chǎng)信息的管理工作。DataSource1: DataSet = Query1Query1: DatabaseName = 39。StaticText2: Caption = 39。StaticText1: Caption = 39。主要控件對(duì)象屬性如下： PopupMenu = PopupMenu1GroupBox1: Caption = 39。(2) 實(shí)現(xiàn)過程：添加新窗體，設(shè)置窗體name屬性為zhgl_Form，設(shè)置窗體caption屬性為“住戶信息管理”，F(xiàn)ormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose、一個(gè)DataSource、一個(gè)DBGrid、PopupMenu、一個(gè)Panel、三個(gè)GroupBox、三個(gè)ComboBox、一個(gè)CheckBox、兩個(gè)Statictext、十個(gè)label、五個(gè)edit、和五個(gè)button控件。4) 選擇住戶信息，進(jìn)行修改。主要功能如下：1) 輸入查詢項(xiàng)目和關(guān)鍵字，進(jìn)行住戶信息查詢，查詢界面如圖14所示：圖14：住戶管理界面2) 單擊右鍵，調(diào)出住戶信息編輯框。銷售39。出租39。產(chǎn)權(quán)號(hào) 39。面積 39。土地號(hào) 39。戶主 39。 LabeledEdit1: name=mph_LEdit = 39。主要控件對(duì)象屬性如下：Label1: Caption = 39。界面如圖13所示：圖13：樓盤信息添加界面(2) 實(shí)現(xiàn)過程：添加新窗體，設(shè)置窗體name屬性為modilp_Form，、一個(gè)GroupBox、兩個(gè)CheckBox、一個(gè)label、和兩個(gè)button控件。xqwy39。上述所有項(xiàng)目不能為空！39。注意事項(xiàng)39。四房二廳39。三房二廳39。三房一廳39。二房二廳39。二房一廳39。一房一廳39。一房一廳39。是39。樓盤信息修改39。模糊查詢39。是否出售39。是否出租39。產(chǎn)權(quán)證號(hào)39。戶型39。戶主39。門牌號(hào)39。門牌號(hào)39。請(qǐng)輸入關(guān)鍵字39。請(qǐng)選擇查詢項(xiàng)目39。樓盤信息查詢39。出售39。出租39。面積(平方米)39。房屋產(chǎn)權(quán)證號(hào)39。土地使用證號(hào)39。戶型39。39。 = 39。 = 39。主要控件對(duì)象屬性如下：DBGrid1: DataSource=DataSource1 PopupMenu=PopupMenu1 FieldName = 39。樓盤管理窗體界面如圖12所示：圖12：樓盤管理界面(2) 實(shí)現(xiàn)過程添加新窗體，設(shè)置窗體name屬性為lpgl_Form，設(shè)置窗體caption屬性為“樓盤信息管理”，F(xiàn)ormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、一個(gè)DataSource、一個(gè)DBGrid、三個(gè)GroupBox、五個(gè)ComboBox、一個(gè)CheckBox、兩個(gè)Statictext、一個(gè)PopupMenu、十個(gè)label、五個(gè)edit、和五個(gè)button控件。3) 選擇樓盤信息，進(jìn)行修改。主要功能如下：1) 輸入查詢項(xiàng)目和關(guān)鍵字，進(jìn)行樓盤信息查詢。取 消39。確 定39。39。確認(rèn)密碼(320個(gè)字符) 39。39。 nmm_LEdit: = 39。原密碼 PasswordChar = 39。修改密碼39。RequestLive = TrueDataSource1: DataSet = Query1(3) 程序代碼：（見附錄）4. 修改密碼窗體設(shè)置(1) 實(shí)現(xiàn)目標(biāo)：為保證系統(tǒng)的安全性，同時(shí)減少系統(tǒng)管理員的工作量，應(yīng)該使用戶登錄后可以自己修改個(gè)人密碼。 SessionName = 39。Query1: DatabaseName = 39。BitBtn2: Caption = 39。)BitBtn1: Caption = 39。 39。 = ( 39。ComboBox1: AutoComplete = False Style = csDropDownList Text = 39。Edit3: PasswordChar = 39。Edit2: PasswordChar = 39。Label4: Caption = 39。Label3: Caption = 39。Label2: Caption = 39。 Enabled = FalseLabel1: Caption = 39。DBGrid1: DataSource = DataSource1 GroupBox1: Caption = 39。SpeedButton6: Caption = 39。刪除用戶SpeedButton1: Caption = 39。修改用戶39。新增用戶39。ToolBar139。并設(shè)置相應(yīng)屬性。主要實(shí)現(xiàn)用戶信息的添加、修改、刪除和查詢功能。*39。取 消39。確 定39。密 碼39。用戶名 39。用戶登錄39。并設(shè)置相應(yīng)屬性。Timer1: OnTimer = Timer1TimerStatusBar1: (Panels) Alignment = taCenterCoolBar1: AutoSize = True (Bands) Control = ToolBar1 ImageIndex = 1(3) 程序代碼（見附錄）2. 登錄窗體設(shè)置 (1) 實(shí)現(xiàn)目標(biāo) 系統(tǒng)啟動(dòng)后，用戶登錄系統(tǒng)，首先進(jìn)入“用戶登錄”界面，主要實(shí)現(xiàn)功能：用戶憑用戶名和密碼進(jìn)入系統(tǒng)，用戶名或密碼錯(cuò)誤提示。 LoginPrompt = FalseSessionName = 39。 Connected = True DatabaseName = 39。Database1: AliasName = 39。主程序界面如圖8所示：圖8：主界面(2) 實(shí)現(xiàn)過程1) 添加新窗體，設(shè)置窗體name屬性為 mainForm,設(shè)置窗體caption屬性為“小區(qū)物業(yè)管理系統(tǒng)”。l 顯示系統(tǒng)日期、時(shí)間、登錄的用戶名。主程序界面主要實(shí)現(xiàn)如下功能：l 主菜單快速選取項(xiàng)目，調(diào)用相應(yīng)子程序。圖53. 單擊“選擇”按鈕，如圖6所示：圖64. 單擊“確定”按鈕后ODBC管理器將顯示新建的“xqwy”名稱，如7圖所示。（一） 建立數(shù)據(jù)庫本系統(tǒng)數(shù)據(jù)庫的類型采用Microsoft Access, ：系統(tǒng)用戶數(shù)據(jù)表user、用戶權(quán)限表qxb、系統(tǒng)菜單功能表cdx、樓盤數(shù)據(jù)表lpb、住戶數(shù)據(jù)表zhb、停車場(chǎng)數(shù)據(jù)表txb、收費(fèi)項(xiàng)目數(shù)據(jù)表sfb、報(bào)修項(xiàng)目數(shù)據(jù)表bxb、投訴項(xiàng)目數(shù)據(jù)表tsb。在訪問數(shù)據(jù)庫時(shí)，采用公用數(shù)據(jù)模塊存放訪問數(shù)據(jù)庫需要的對(duì)象。五、 系統(tǒng)實(shí)現(xiàn)實(shí)現(xiàn)功能模塊時(shí)，采用先模塊化，后集成的方式。本系統(tǒng)設(shè)計(jì)還用到了一個(gè)第三方控件：Vclskin控件，它使每個(gè)Form 顯示的都是自己的Caption ，包括所有的對(duì)話框和提示信息。)。39。+datetimetostr(now)+39。39。39。39。39。+cwbh+39。39。(39。insert into tcb(bh,zt,rcsj) 39。Execsql：對(duì)于不返回?cái)?shù)據(jù)集的語法（DELETE、INSERT、UPDATE等語法），使用Execsql方法。)。(39。l 運(yùn)行SQL：添加SQL內(nèi)容后，還要運(yùn)行SQL。 where id=39。)。(39。 如果要賦值的語句過長(zhǎng)，可以使用ADD方法分批賦值。select * from lpb39。 如：；l 添加SQL內(nèi)容：清除數(shù)據(jù)后，可以使用ADD方法來賦值。Tquery組件可以與本地?cái)?shù)據(jù)庫連接或遠(yuǎn)程數(shù)據(jù)庫服務(wù)器連接，通過使用SQL語言，程序可以對(duì)數(shù)據(jù)庫進(jìn)行比較復(fù)雜的查詢，且占用內(nèi)存較少，這是Tquery組件較Ttable組件的優(yōu)點(diǎn)，但是對(duì)于本地?cái)?shù)據(jù)表格的處理Tquery組件可能比Ttable組件要慢。在delphi里Tquery組件和Ttable組件同樣具有連接訪問數(shù)據(jù)庫的功能，兩者在使用上很相似，Ttable處理一個(gè)表很方便，不能進(jìn)行處理多表,而且處理過程中占用內(nèi)存效大。負(fù)責(zé)人Bz文本100姓名Rq日期/時(shí)間60表8tsb表結(jié)構(gòu)字段名數(shù)據(jù)類型字節(jié)數(shù)索引說明Id自動(dòng)編號(hào)長(zhǎng)整型是維修人Wxf是/否維修否Bz文本100姓名Rq日期/時(shí)間60表7bxb表結(jié)構(gòu)字段名數(shù)據(jù)類型字節(jié)數(shù)索引說明Id自動(dòng)編號(hào)長(zhǎng)整型是物管費(fèi)Qtf數(shù)字雙精度型電費(fèi)Qf數(shù)字雙精度型門牌號(hào)Sf數(shù)字雙精度型Bh文本6表6表5tc表結(jié)構(gòu)字段名數(shù)據(jù)類型字節(jié)數(shù)索引說明Id自動(dòng)編號(hào)長(zhǎng)整型是編號(hào)cwbh文本3車位編號(hào)Zt文本1狀態(tài)Je文本雙精度型表4電話Bz文本100戶型Czr文本50表3zhb表結(jié)構(gòu)字段名數(shù)據(jù)類型字