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