【文章內容簡介】 過程添加新窗體，設置窗體name屬性為lpgl_Form，設置窗體caption屬性為“樓盤信息管理”，FormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、一個DataSource、一個DBGrid、三個GroupBox、五個ComboBox、一個CheckBox、兩個Statictext、一個PopupMenu、十個label、五個edit、和五個button控件。并設置相應屬性。主要控件對象屬性如下：DBGrid1: DataSource=DataSource1 PopupMenu=PopupMenu1 FieldName = 39。Mph39。 = 39。門牌號39。 = 39。戶主39。39。 = 39。戶型39。 = 39。土地使用證號39。 = 39。房屋產權證號39。 = 39。面積(平方米)39。 = 39。出租39。 = 39。出售39。GroupBox1: Caption = 39。樓盤信息查詢39。Label9: Caption = 39。請選擇查詢項目39。Label10: Caption = 39。請輸入關鍵字39。ComboBox4: Text = 39。門牌號39。 OnChange = ComboBox4Change = ( 39。門牌號39。 39。戶主39。 39。戶型39。 39。產權證號39。 39。是否出租39。 39。是否出售39。) CheckBox1: Caption = 39。模糊查詢39。 GroupBox2: Caption = 39。樓盤信息修改39。ComboBox2: Text = 39。是39。ComboBox3: Text = 39。一房一廳39。 = (39。一房一廳39。 39。二房一廳39。 39。二房二廳39。 39。三房一廳39。 39。三房二廳39。 39。四房二廳39。)StaticText1: Caption = 39。注意事項39。StaticText2: Caption = 39。上述所有項目不能為空！39。DataSource1: DataSet = Query1Query1: DatabaseName = 39。xqwy39。(3) 程序代碼(見附錄)6. 添加樓盤信息窗體設置(1) 實現目標：管理員登錄后可以在樓盤管理窗體的彈出窗體中通過輸入樓盤信息添加樓盤信息。界面如圖13所示：圖13：樓盤信息添加界面(2) 實現過程：添加新窗體，設置窗體name屬性為modilp_Form，、一個GroupBox、兩個CheckBox、一個label、和兩個button控件。并設置相應屬性。主要控件對象屬性如下：Label1: Caption = 39。戶型39。 LabeledEdit1: name=mph_LEdit = 39。門牌號 LabeledEdit2: name=hz_LEdit = 39。戶主 39。 LabeledEdit3: name=tdh_LEdit = 39。土地號 39。LabeledEdit4: name=mj_LEdit = 39。面積 39。LabeledEdit5: name= cqh_LEdit = 39。產權號 39。 CheckBox1: name= cz_C Caption = 39。出租39。CheckBox2: name= xs_C Caption = 39。銷售39。 GroupBox1: (3) 程序代碼(見附錄)7. 住戶信息管理窗體設置實現目標實現過程程序代碼(1) 實現目標用戶登錄后，調用“用戶信息管理”窗體，可以進行住戶信息的管理工作。主要功能如下：1) 輸入查詢項目和關鍵字，進行住戶信息查詢，查詢界面如圖14所示：圖14：住戶管理界面2) 單擊右鍵，調出住戶信息編輯框。界面如圖15所示：圖15：住戶信息編輯框3) 通過輸入，添加住戶信息。4) 選擇住戶信息，進行修改。5) 刪除住戶信息。(2) 實現過程：添加新窗體，設置窗體name屬性為zhgl_Form，設置窗體caption屬性為“住戶信息管理”，FormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose、一個DataSource、一個DBGrid、PopupMenu、一個Panel、三個GroupBox、三個ComboBox、一個CheckBox、兩個Statictext、十個label、五個edit、和五個button控件。并設置相應屬性。主要控件對象屬性如下： PopupMenu = PopupMenu1GroupBox1: Caption = 39。住戶信息查詢39。StaticText1: Caption = 39。帶*號的項目不能為空！39。StaticText2: Caption = 39。注意：39。DataSource1: DataSet = Query1Query1: DatabaseName = 39。xqwy39。(3) 程序代碼(見附錄)8. 停車場管理窗體設置(1) 實現目標：用戶登錄后，調用“停車場管理”窗體，可以進行停車場信息的管理工作。主要功能如下：1) 在停車位查詢框中輸入查詢項目和關鍵字，進行停車位信息查詢。2) 通過彈出菜單調用停車位編輯對話框，進行停車位的添加、修改和刪除。3) 在停車綜合查詢中通過輸入查詢項目和關鍵字，停車信息的查詢。4) 在停車綜合查詢中，進行停車、取車和停車信息的刪除。停車場管理窗體界面如圖16所示：圖16：停車場管理界面(2) 實現過程；添加新窗體，設置窗體name屬性為tcgl_Form，設置窗體caption屬性為“停車場管理”，FormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、DataSource、DBGrid、GroupBox、ComboBox、CheckBox、Statictext、PopupMenu、label、edit、和button等控件。并設置相應屬性。主要控件對象屬性如下：GroupBox1: Caption = 39。停車位查詢39。Label2: Caption = 39。請選擇查詢項目39。Label3: Caption = 39。請輸入關鍵字39。ComboBox1: AutoComplete = False Style = csDropDownList Text = 39。車位編號39。 OnChange = ComboBox1Change = ( 39。車位編號39。 39。狀態(tài)：使用中39。39。狀態(tài)：未使用39。 39。全部39。)CheckBox1: Caption = 39。模糊查詢39。 Panel1: BorderStyle = bsSingle GroupBox2: Caption = 39。統(tǒng)計查詢39。Label4: Caption = 39。開始日期39。Label5: Caption = 39。結束日期39。DBGrid2: DataSource = DataSource2GroupBox3: Caption = 39。取車39。Label6: Caption = 39。車位編號39。Label7: Caption = 39。結束時間39。Label8: Caption = 39。開始時間39。Label10: Caption = 39。費用39。GroupBox4: Caption = 39。停車綜合查詢39。Label11: Caption = 39。請輸入關鍵字39。ComboBox3: Text = 39。車位編號39。 OnChange = ComboBox3Change = ( 39。車位編號39。 39。停車日期39。 39。取車日期39。 39。全部39。) DBGrid1: DataSource = DataSource1 PopupMenu = PopupMenu2StatusBar1: Query1: DatabaseName = 39。xqwy39。 SessionName = 39。Default39。Query2: DatabaseName = 39。xqwy39。 SessionName = 39。Default39。DataSource1: DataSet = Query1DataSource2: DataSet = Query2 Query3: DatabaseName = 39。xqwy39。 SessionName = 39。Default39。(3) 程序代碼(見附錄)9. 物業(yè)收費管理窗體設置(1) 實現目標用戶登錄后，調用“物業(yè)收費管理”窗體，可以進行物業(yè)收費信息的管理工作。主要實現功能如下：1) 輸入查詢項目和關鍵字，進行收費信息查詢。2) 在彈出菜單中調用編輯功能，通過輸入，添加收費信息。3) 選擇收費信息，進行修改。4) 刪除收費信息。收費管理窗體界面如圖17所示：圖17：收費管理界面(2) 實現過程添加新窗體，設置窗體name屬性為wgsf_Form，設置窗體caption屬性為“物管收費管理”，FormStyle = fsMDIChild OldCreateOrder = False Position = poDefault Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate、DataSource、DBGrid、GroupBox、ComboBox、CheckBox、一個PopupMenu、label、edit、和button等控件。并設置相應屬性。主要控件對象屬性如下：DBGrid1: DataSource = DataSource1 PopupMenu = PopupMenu1GroupBox1: Caption = 39。物業(yè)收費查詢39。 Label2: Caption = 39。請選擇查