【正文】 ub Private Sub room_Click() Frmroom. Show ?打開(kāi)房間管理界面 End Sub Private Sub sale_Click() Frmsale. Show ?打開(kāi)樓盤銷售界面 End Sub Private Sub statistics_Click() Frmstatistics. Show ?打開(kāi)統(tǒng)計(jì)分析界面 End Sub 公共模塊 在 Visual Basic 中可以使用公共模塊來(lái)存放整個(gè)項(xiàng)目所需的公共函數(shù)和全局變量，來(lái)提高代碼的利用率。 表 5 主窗體屬性設(shè)置 控件 屬性 屬性值 10 樓盤銷售管理系統(tǒng)（ Form） Name Frmmain Caption 樓盤銷售管理系統(tǒng) BackColor amp。 txtRoomArea2 End If Set rs = SelectSQL(SQLStr, msg) Set = rs End Sub 5 系統(tǒng)主界面 系統(tǒng)主界面主要用于構(gòu)建系統(tǒng)的主窗體，并編寫(xiě)一些公共模塊，方便其他子窗體的構(gòu)建和調(diào)用。 ” ? ” End If If = 1 Then ?如果通過(guò)利潤(rùn)來(lái)進(jìn)行分析 SQLStr = SQLStr amp。 Left(Trim() , 4) amp。分析條件主要有樓房號(hào)、利潤(rùn)以及付款方式。 “ ? and roomID=?” amp。通過(guò)查詢語(yǔ)句查詢所單擊的當(dāng)前節(jié)點(diǎn)對(duì)應(yīng)的房間數(shù)據(jù)，最后用Text 文本顯示出來(lái)。 “ ?ORDER BY buildingID,roomID ” Set ms = SelectSQL(SQLStr, msg) If ms. RecordCount 〈〉 0 Then ?如果該樓房包含房間 Do Until ?添加子節(jié)點(diǎn)（房間節(jié)點(diǎn)） C_key = Trim((“buildingID”) amp。 Private Sub Tree() ?構(gòu)造樹(shù)操作 Dim rst As ?定義記錄集 Dim ms As Dim nod1 As Node ‘定義 Node 對(duì)象 Dim nod2 As Node ‘定義 Node 對(duì)象 Dim F_key As String ?保存父節(jié)點(diǎn)的關(guān)鍵字 Dim F_text As String ?保存父節(jié)點(diǎn)的文本 Dim C_key As String ?保存子節(jié)點(diǎn)的關(guān)鍵字 Dim C_text As String ?保存子節(jié)點(diǎn)的文本 Set rst = Nothing Set ms = Nothing SQLStr = “SELECT buildingID,bdname FROM 樓房信息表 ORDER BY buildingID” Set rst = SelectSQL(SQLStr, msg) If rst .RecordCount = 0 Then ?如果沒(méi)有樓房信息 MsgBox “沒(méi)有樓房信息，請(qǐng)先建立樓房信息！ ” Exit Sub Else TreeView1. ?清空 TreeView 控件 8 Do Until ?添加父節(jié)點(diǎn)（樓房節(jié)點(diǎn)） F_key = Trim((“buildingID”) amp。 在 ImageList1控件中插入樓房和房間的圖標(biāo)。 ● Text：代表節(jié)點(diǎn)顯示的文本。 1. 添加項(xiàng) 向 TreeView 中添加項(xiàng)的方法如下所示。 TreeView 控件用來(lái)顯示信息的分級(jí)視圖，控件中的各項(xiàng)信息都有一個(gè)與之相關(guān)聯(lián)的Node 對(duì)象。 Node 集合包含一個(gè)或多個(gè) Node 對(duì)象，語(yǔ)法如下。它包含了稱做節(jié)點(diǎn)（ node）的條目列表。 Private Sub LoadData() ?裝載數(shù)據(jù) Dim list As ListItem 6 Dim key As String Set Rs = Nothing SQLStr = “SELECT * FROM 樓房信息表 ORDER BY buildingID” Set rs = SelectSQL(SQLStr, msg) ?查詢樓房信息 ?清空 ListView 控件 If = 0 Then ?若沒(méi)有樓房信息，添加按鈕可用，其他按鈕不可用 = True : = False : =False = False: = False Else Do Until Key = (“buildingID”) amp。 ImageList1控件用來(lái)存放圖標(biāo)，在插入每一個(gè)圖標(biāo)后會(huì)自 動(dòng)獲得一個(gè)索引，供 ListView1 控件引用。 ListView 控件可以使用 4 種不同視圖顯示項(xiàng)目，通過(guò)這些控件，可將項(xiàng) 目組成有或沒(méi)有列標(biāo)頭的列，并顯示伴隨的圖標(biāo)和文本，這樣可以直觀而方便地瀏覽各個(gè)對(duì)象的數(shù)據(jù)。在數(shù)據(jù)庫(kù)中，各個(gè)表之間的關(guān) 系是通過(guò)使用外鍵來(lái)維護(hù)的，所有的主表和外鍵表對(duì) Insert 和 Update 具有強(qiáng)制性，同時(shí)具有級(jí)聯(lián)刪除相關(guān)記錄的特征。 表 1 樓房信息表 字段名稱 含義 數(shù)據(jù)類型 可否為空 說(shuō)明 buildingID 樓房名 Char(4) 主鍵 樓房號(hào)為 4 位 bdname 樓名 Nvarchar(50) Not Null 樓房名稱 bdposition 所處位置 Nvarchar(200) Null 樓房所處位置 area 占地面積 Float(8) Null 樓房占地面積，單位平方米 investment 總投資 Float(8) Null 樓房總投資額，單位元 layers 層數(shù) Int(4) Null 樓房層數(shù) roomN 房間數(shù) Int(4) Null 房間數(shù)目 bdintroduction 簡(jiǎn)介 Text(16) Null 樓房簡(jiǎn)單介紹 2. 房間信息表 房間信息表負(fù)責(zé)維護(hù)房間信息，主要包括房間號(hào)、樓房號(hào)、位置、房間大小、適用戶型、 4 銷售狀態(tài)、簡(jiǎn)介、成本價(jià)、銷售價(jià)、折扣率等，表結(jié)構(gòu)如表 32 所示。 3 數(shù)據(jù)庫(kù)設(shè)計(jì) 根據(jù)系統(tǒng)需求分析，需要建立 4張表，即樓房信息表、房間信息表、客戶信息表和銷售記錄表。記錄的信息包括銷售 ID、房間號(hào) 、樓房號(hào)、客戶編號(hào)、成本價(jià)、銷售價(jià)、折扣率、利潤(rùn)、付款方式、交易日期、備注等。這類信息主要包括客戶編號(hào)、姓名、性別、出生日期、婚否、家庭成員數(shù)、職位、身份證號(hào)、經(jīng)濟(jì)收入、備注。 信息查詢功能實(shí)現(xiàn)對(duì)樓房信息和房間信息的查詢。該模塊提供對(duì)信息的增加、修改和刪除功能。 每一個(gè)功能模塊都包含了一系列的子功能。 ● 能夠根據(jù)市場(chǎng)變化對(duì)房屋進(jìn)行定價(jià)。 ● 銷售信息管理：主要負(fù)責(zé)客戶信息、房屋定價(jià)、房屋銷售以及統(tǒng)計(jì)分析。本章將全面地介紹系統(tǒng)的功能特性，并對(duì)系統(tǒng)進(jìn)行需求分析和數(shù)據(jù)建模，實(shí)現(xiàn)一個(gè)完整的樓盤銷售管理系統(tǒng)。在房地產(chǎn)開(kāi)發(fā)工程中，樓盤銷售 是非常重要的環(huán)節(jié)，也是房地產(chǎn)開(kāi)發(fā)的關(guān)鍵環(huán)節(jié)。 如何提供樓盤銷售服務(wù)質(zhì)量，也顯得非常迫切。 1 系統(tǒng)需求 樓盤銷售管理系統(tǒng)主要負(fù)責(zé)管理房屋信息，并對(duì)房屋進(jìn)行定價(jià)，然后進(jìn)行銷售，為用戶提供不同信息的統(tǒng)計(jì) 分析，滿足管理人員的需要。 樓盤銷售管理系統(tǒng)是為了滿足用戶進(jìn)行樓盤銷售而開(kāi)發(fā)的。 ● 能夠管理所有的房屋信息，包括樓房信息和房間信息。 圖 1 樓盤銷售管理系統(tǒng)功能 房屋信息管理 房屋信息管理模塊以來(lái)管理樓盤信息和房間信息，它包括樓房管理、房間管理和信息查樓盤銷售管理系統(tǒng) 銷售信息管理 房屋信息管理 2 詢 3 個(gè)子功能，如圖 2 所示。 房間管理功能實(shí)現(xiàn)對(duì)房間信息的維護(hù)。該模塊提供模式匹配和多條件查詢。 2. 房屋定價(jià) 房屋定價(jià)功能主要實(shí)現(xiàn)對(duì)房間的統(tǒng)一定價(jià)，涉及的信息包括成本價(jià)、銷售價(jià)、折扣率。銷售 ID為標(biāo)識(shí)種子，自增為 1；銷售價(jià)是指打折后的銷售價(jià)格；利潤(rùn) =銷售價(jià) 成本價(jià)。 數(shù)據(jù)表設(shè)計(jì) 下面依次說(shuō)明這 4個(gè)數(shù)據(jù)表的具體構(gòu)成。 表 2 房間信息表 字段名稱 含義 數(shù)據(jù)類型 可否為空 說(shuō)明 roomID 房間號(hào) Char(4) 聯(lián)合主鍵 房間號(hào)為 4位 及 4位 以下 buildingID 樓房號(hào) Char(4) 聯(lián)合主鍵，外鍵 父表為樓房信息表 rmposition 位置 Nvarchar(200) Null 房間具體位置 rmsize 房間大小 Float(8) Null 房間大小，單位平方米 type 適用戶型 Char(8) Not Null 居民用房、商業(yè)用房 status 銷售狀態(tài) Char(6) Not Null 已銷售、未銷售 rmintroduction 簡(jiǎn)介 Text(16) Null 房間的簡(jiǎn)單介紹 cost 成本價(jià) Float(8) Null 成本價(jià) price 銷售價(jià) Float(8) Null 銷售價(jià) discountrate 折扣率 Float(8) Null 折扣率 3. 客戶信息表 客戶信息表主要用于維護(hù)客戶的基本信息，主要包括客戶編號(hào)、姓名、性別、出生日期、婚否、家庭成員數(shù)、職位、身份證號(hào)、經(jīng)濟(jì)收入、備注等，表結(jié)構(gòu)如表 3 所示。 4 關(guān)鍵技術(shù) 本節(jié)結(jié)合樓盤銷售管理系統(tǒng)，詳細(xì)敘述如何使用 ListView 控件和 TreeView 控件，以及如何構(gòu)建 SQL 多條件查詢語(yǔ)句這些關(guān)鍵技術(shù)，下面分別敘述。 ListView 控件并不是默認(rèn)的工具箱的配置項(xiàng)目，必須手工添加引用部件。 右擊 ListView1 控件，單擊【屬性】命令，彈出【屬性頁(yè)】對(duì)話框。 (“bdname”) Set list = (, , key, 1) Loop ?編輯控件可用性 ‘ = True: = True: = True = False: = False ?返回到第一條記錄 End If …… End Sub 用戶單擊 ListView 的 ListItem 來(lái)觸發(fā) ListView 的 Click 事件，并通過(guò)查詢語(yǔ)句查詢所需要單 擊的 ListView 對(duì)應(yīng)的樓房數(shù)據(jù) ,最后用 Text 文本顯示出來(lái)。每一個(gè)節(jié)點(diǎn)都可以有自己的節(jié)點(diǎn)，從而提供一種更深層的數(shù)據(jù)定義。 ,treeview,(index) 用戶可以使用標(biāo)準(zhǔn)的集合方法（例如， Add 和 Remove 方法）操作 Node 對(duì)象。每個(gè) Node 對(duì)象均由一個(gè)標(biāo)簽和一 個(gè)可選的位圖組成， TreeView 控件可以使用ImageList 屬性指定的 ImageList 控件，來(lái)顯示 Node 對(duì)象的位圖和圖標(biāo)。 “Relative”,Relationship, “Key”, “Text”, “Image”, “SelectedImage” ● Relative：代表相關(guān)聯(lián)的親屬，用關(guān)鍵字表示。 ● Image：表示節(jié)點(diǎn)被選中時(shí)的圖標(biāo)。在插入每一個(gè)圖標(biāo)后都會(huì)自動(dòng)獲得一個(gè)索引，供 TreeView1控件引用。 (“bdname”)) F_text = Trim((“bdname”)) Set nod1 = TreeView1. (, , F_key, F_text, 1) ?查詢相應(yīng)樓房所包含的房間 SQLStr = “SELECT * FROM 房間信息表 where” SQLStr = SQLStr amp。 (“roomID”)) C_text = Trim((“roomID”)) Set nod2 = TreeView1. (F_key, tvwChild, C_key, C_text 2) Loop End If rst. MoveNext Loop End If End Sub 其中， Set NOD1 = TreeView1. (, , F_key, F_text, 1)語(yǔ)句把各樓房名稱添加到TreeView 的 Node 上面； Se