售樓信息管理系統(tǒng)課程設(shè)計(jì)報(bào)告書

1、 . . . 成 績(jī) 評(píng) 定 表學(xué)生班級(jí)學(xué)號(hào)專 業(yè)課程設(shè)計(jì)題目售樓信息管理系統(tǒng)評(píng)語(yǔ)組長(zhǎng)簽字：成績(jī)?nèi)掌?013 年12月 日54 / 58課程設(shè)計(jì)任務(wù)書學(xué) 院專 業(yè)學(xué)生班級(jí)學(xué)號(hào)課程設(shè)計(jì)題目售樓信息管理系統(tǒng)實(shí)踐教學(xué)要求與任務(wù):設(shè)計(jì)為MDI窗體，含有主菜單：文件、數(shù)據(jù)管理、數(shù)據(jù)查詢。文件菜單包含以下子菜單與其功能：注冊(cè)新用戶菜單：打開“注冊(cè)新用戶”窗體退出菜單：結(jié)束程序運(yùn)行數(shù)據(jù)管理 包含以下子菜單：管理樓盤信息菜單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯示管理售樓合同信息窗

2、體 數(shù)據(jù)查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體工作計(jì)劃與進(jìn)度安排:第一周：數(shù)據(jù)庫(kù)設(shè)計(jì)，利用SQL Server創(chuàng)建數(shù)據(jù)庫(kù)與數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁(yè)、登陸窗體與MDI窗體。第二周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體與打印報(bào)表功能。 撰寫課程設(shè)計(jì)報(bào)告，驗(yàn)收與答辯。指導(dǎo)教師：2013年12月1 日專業(yè)負(fù)責(zé)人：2013年 12月 日學(xué)院教學(xué)副院長(zhǎng)：2013 年12月 日摘 要近幾年，中國(guó)經(jīng)濟(jì)快速、平穩(wěn)發(fā)展，伴隨著

3、中國(guó)城市化進(jìn)程加快和住房體制的改革，售樓行業(yè)得到了迅猛發(fā)展，房地產(chǎn)銷售業(yè)務(wù)量急劇擴(kuò)大，因此對(duì)售樓管理提出了更高的要求。售樓信息管理系統(tǒng)就是為了實(shí)現(xiàn)這一目標(biāo)而設(shè)計(jì)的，管理人員通過該系統(tǒng)可以與時(shí)了解樓盤的動(dòng)態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關(guān)銷售樓盤的其他各種詳細(xì)資料，以便與時(shí)做出正確決策。本系統(tǒng)主要實(shí)現(xiàn)以下功能：售樓管理，即管理所有的售樓信息、合同信息、收款信息，并對(duì)售樓數(shù)據(jù)進(jìn)行添加、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的售樓信息；系統(tǒng)的核心實(shí)現(xiàn)對(duì)樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費(fèi)等情況的管理。系統(tǒng)以中文版Visual Basic 6.0為前臺(tái)

4、開發(fā)工具，用中文版SQL 2000作為后臺(tái)數(shù)據(jù)庫(kù)。關(guān)鍵詞：Visual Basic SQL sever 2000 售樓信息管理系統(tǒng)目 錄第一章系統(tǒng)功能概述11.1 系統(tǒng)功能分析11.2 系統(tǒng)結(jié)構(gòu)圖1第二章數(shù)據(jù)庫(kù)設(shè)計(jì)22.1 需求分析22.2 E-R模型22.3 關(guān)系模型42.4 表結(jié)構(gòu)設(shè)計(jì)5第三章系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)103.1 主窗體模塊的詳細(xì)設(shè)計(jì)103.2 用戶管理模塊的詳細(xì)設(shè)計(jì)133.3 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計(jì)173.4 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計(jì)28總結(jié)50參考文獻(xiàn)51第1章 系統(tǒng)功能概述1.1 系統(tǒng)功能分析該系統(tǒng)具備的功能包括樓盤管理、合同管理、收款管理、售樓合同管理、收款合同管理、退

5、出系統(tǒng)。具體主要實(shí)現(xiàn)如下功能：售樓信息管理部分包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理，其功能是分別實(shí)現(xiàn)對(duì)樓盤信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分?jǐn)?shù)據(jù)容的添加、刪除等操作。售樓信息查詢部分包括樓盤信息查詢、合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息查詢，其功能是分別實(shí)現(xiàn)對(duì)樓盤信息、合同信息、收款信息、售樓合同信息和收款合同信息查詢的各部分?jǐn)?shù)據(jù)容的查詢操作。1.2 系統(tǒng)結(jié)構(gòu)圖圖1.1售樓管理信息系統(tǒng)總體結(jié)構(gòu)售樓信息管理售樓樓盤信息售樓合同信息售樓收款信息樓盤編號(hào)樓號(hào)單元號(hào)樓層房號(hào)戶型面積合同編號(hào)合同簽訂日期購(gòu)買人XX

6、XX號(hào)售樓人員XX合同單價(jià)付款方式貸款銀行收款編號(hào)交款日期收款金額交款人收款人第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1 需求分析通過對(duì)用戶需求的分析，確定系統(tǒng)應(yīng)具備的功能包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理、退出系統(tǒng)。具體主要實(shí)現(xiàn)如下功能：售樓信息管理部分包括樓盤信息管理與查詢、合同信息管理與查詢、收款信息管理與查詢、售樓合同信息管理與查詢和收款合同信息管理與查詢，其功能是實(shí)現(xiàn)對(duì)樓盤各部分?jǐn)?shù)據(jù)容的添加、刪除和查詢等操作。（1）樓盤信息：包括樓盤信息的添加、刪除和查詢。樓盤信息包括樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型和面積。（2）收款信息：包括收款信息的添加、刪除

7、和查詢。收款信息包括收款編號(hào)，交款日期，收款金額，交款人和收款人。（3）合同信息：包括合同信息的添加、刪除和查詢。合同信息包括合同編號(hào)，合同簽訂日期，購(gòu)買人，號(hào)，售樓人員，合同單價(jià)，付款方式和貸款銀行。（4）售樓合同信息：包括售樓合同信息的添加、刪除和查詢。售樓合同信息包括合同編號(hào)，樓盤編號(hào)，合同簽訂日期和號(hào)。（5）收款合同信息：包括收款合同信息的添加、刪除和查詢。收款合同信息包括收款編號(hào)，合同編號(hào)，交款人和收款人。2.2 E-R模型(1) 局部E-R模型：圖1.2樓盤信息樓盤信息樓盤編號(hào)樓號(hào)單元號(hào)樓層房號(hào)戶型面積圖1.3合同信息合同信息合同編號(hào)合同簽訂日期XX號(hào)售樓人員XX購(gòu)買人XX合同單價(jià)

8、付款方式貸款銀行圖1.4收款信息收款信息收款編號(hào)交款日期收款金額交款人收款人圖1.5售樓合同信息售樓合同信息樓盤編號(hào)合同編號(hào)XX號(hào)合同簽訂日期圖1.6收款合同信息收款合同信息收款編號(hào)合同編號(hào)交款人收款人(2) 全局E-R模型：圖1.7售樓信息管理系統(tǒng)E-R模型樓盤信息購(gòu)買合同信息支付收款信息 m n n m樓盤編號(hào)XX號(hào)合同編號(hào)合同編號(hào)交款人收款編號(hào)合同簽訂日期收款人2.3 關(guān)系模型（1） 樓盤信息（樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積）（2）合同信息（合同編號(hào)，合同簽訂日期，購(gòu)買人，號(hào)，售樓人員，合同單價(jià)，付款方式，貸款銀行）（3）收款信息（收款編號(hào)，交款日期，收款金額，交款人，收

9、款人,有線電視費(fèi)，電費(fèi)）（4）售樓合同信息（樓盤編號(hào)，合同編號(hào)，合同簽訂日期，號(hào)）（5）收款合同信息（收款編號(hào)，合同編號(hào)，收款人，交款人）2.4 表結(jié)構(gòu)設(shè)計(jì)（1）用戶信息表的建立與基本數(shù)據(jù)圖1.8密碼表屬性基本數(shù)據(jù)如下圖：圖1.9密碼表基本數(shù)據(jù)（2）樓盤信息表的建立與基本數(shù)據(jù)圖1.10樓盤信息表屬性基本數(shù)據(jù)如下圖：圖1.11樓盤信息表基本數(shù)據(jù)（3）合同信息表的建立與基本數(shù)據(jù)圖1.12合同信息表屬性基本數(shù)據(jù)如下圖：圖1.13合同信息表基本數(shù)據(jù)（4）收款信息表的建立與基本數(shù)據(jù)圖1.14收款信息表屬性基本數(shù)據(jù)如下圖：圖1.15收款信息表基本數(shù)據(jù)（5）售樓合同信息表的建立與基本數(shù)據(jù)圖1.16售樓合同信

10、息表屬性基本數(shù)據(jù)如下圖：圖1.17售樓合同信息表基本數(shù)據(jù)（6）收款合同信息表的建立與基本數(shù)據(jù)圖1.18收款合同信息表屬性基本數(shù)據(jù)如下圖：圖1.19收款合同信息表基本數(shù)據(jù)第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 主窗體模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖：1、主窗體頁(yè)面圖1.20主窗體2、主窗體模塊功能（1）設(shè)計(jì)為MDI窗體，含有主菜單：文件、數(shù)據(jù)管理、數(shù)據(jù)查詢。文件菜單包含以下子菜單與其功能：注冊(cè)新用戶菜單：打開“注冊(cè)新用戶”窗體退出菜單：結(jié)束程序運(yùn)行數(shù)據(jù)管理 包含以下子菜單：管理樓盤信息菜單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信

11、息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯示管理售樓合同信息窗體 數(shù)據(jù)查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體3、主窗體模塊詳細(xì)設(shè)計(jì)代碼Private Sub 查詢合同信息1_Click()查詢合同信息.ShowEnd SubPrivate Sub 查詢樓盤信息1_Click()查詢樓盤信息.ShowEnd SubPrivate Sub 查詢收款合同信息1_Click()查詢收款合同信息.Show

12、End SubPrivate Sub 查詢收款信息1_Click()查詢收款信息.ShowEnd SubPrivate Sub 查詢售樓合同信息1_Click()查詢售樓合同信息.ShowEnd SubPrivate Sub 管理合同信息1_Click()管理合同信息.ShowEnd SubPrivate Sub 管理樓盤信息1_Click()管理樓盤信息.ShowEnd SubPrivate Sub 管理收款合同信息1_Click()管理收款合同信息.ShowEnd SubPrivate Sub 管理收款信息1_Click()管理收款信息.ShowEnd SubPrivate Sub 管理售

13、樓合同信息1_Click()管理售樓合同信息.ShowEnd SubPrivate Sub 退出1_Click()Unload MeEnd SubPrivate Sub 注冊(cè)新用戶1_Click()注冊(cè)新用戶.ShowEnd Sub3.2 用戶管理模塊的詳細(xì)設(shè)計(jì)1、利用VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖：（1）進(jìn)入售樓管理系統(tǒng)頁(yè)面圖1.21進(jìn)入售樓管理系統(tǒng)（2）用戶登錄頁(yè)面圖1.22用戶登錄（3）注冊(cè)新用戶頁(yè)面圖1.23注冊(cè)新用戶2、各模塊功能（1）進(jìn)入售樓管理系統(tǒng) 點(diǎn)擊進(jìn)入按鈕，進(jìn)入主窗體對(duì)象的屬性值表：表1-1對(duì)象名屬性名屬性值命令按鈕NameCommand1Caption進(jìn)入系統(tǒng)（2） 用戶

14、登錄 輸入用戶與密碼，若輸入正確，則可以對(duì)售樓信息進(jìn)行管理與查詢，否則退出系統(tǒng)對(duì)象的屬性值表：表1-2對(duì)象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Caption輸入用戶 輸入密碼 命令按鈕NameCmdLandCmdCancelCaption登錄 取消文本框NameText1Text2（3） 注冊(cè)新用戶 對(duì)新用戶進(jìn)行注冊(cè)，輸入用戶名與密碼，點(diǎn)擊登錄按鈕，用戶注冊(cè)成功，否則退出系統(tǒng)對(duì)象的屬性值表：表1-3對(duì)象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Label3Caption用戶名 輸入密碼 確認(rèn)密碼命令按鈕NameCommand1Command2Caption登錄

15、 取消文本框NameText1Text2 Text33、各模塊詳細(xì)設(shè)計(jì)代碼（1）進(jìn)入售樓管理系統(tǒng)代碼Private Sub Command1_Click()Unload Me登錄.ShowEnd Sub（2）用戶登錄代碼Dim miCount As Integer '用于記錄輸入密碼次數(shù)Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr = "Select * From 密碼表 Where 用戶名= '" & Text1 & "' "Adodc1.Record

16、Source = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then '若沒找到符合Where條件的記錄 MsgBox "用戶名錯(cuò)誤，重新輸入", vbExclamation, "警告" Text1.Text = " "Text1.SetFocus ' Text1獲得焦點(diǎn)Else ' 判斷密碼是否正確 If Adodc1.Recordset.Fields("密碼") = Text2 Then 主窗體.Show Unload Me Else Msg

17、Box "密碼錯(cuò)誤，重新輸入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub（3）注冊(cè)新用戶代碼Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" Then M

18、sgBox "請(qǐng)輸入用戶名！", vbExclamation, "確認(rèn)用戶名" Text1.SetFocus Exit SubElse sqlstr = "Select * from 密碼表 where 用戶名='" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用戶名已存在，請(qǐng)重新輸入！", vbExcla

19、mation, "檢驗(yàn)用戶名" Text1 = "" Text1.SetFocus Exit Sub End IfEnd IfIf Text2 <> Text3 Then MsgBox "二次輸入的密碼不一致，請(qǐng)重新輸入", vbExclamation, "檢驗(yàn)密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密碼不能為空！

20、", vbExclamation, "檢驗(yàn)密碼" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "成功注冊(cè)新用戶！", vbInformation, "添加用戶"End IfEnd SubPri

21、vate Sub Command2_Click()Unload MeEnd Sub3.3 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖：1、各查詢頁(yè)面圖1.24查詢樓盤信息頁(yè)面圖1.25查詢合同信息頁(yè)面圖1.26查詢收款信息頁(yè)面圖1.27查詢收款合同信息頁(yè)面圖1.28查詢售樓合同信息頁(yè)面2、 各查詢模塊功能combo1主要是實(shí)現(xiàn)查詢條件的多樣化，即可以實(shí)現(xiàn)利用不同的條件進(jìn)行查詢，text1則主要是接收查詢信息，用來(lái)匹對(duì)相關(guān)信息，如果相符則輸出相符的元組。輸出框下面的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實(shí)現(xiàn)查詢功能，輸出框與相連之后可以實(shí)現(xiàn)對(duì)查詢結(jié)果的輸出

22、。（1） 查詢樓盤信息 選擇查詢對(duì)象，輸入所要查詢對(duì)象的容，點(diǎn)擊查詢按鈕，進(jìn)行查詢，如圖所示圖1.29對(duì)樓盤信息進(jìn)行查詢對(duì)象的屬性值表：表14控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積 標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（2） 查詢合同信息當(dāng)查詢合同信息時(shí)，對(duì)購(gòu)買人查詢對(duì)象進(jìn)行查詢，輸入王字進(jìn)行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示圖1.30對(duì)合同信息進(jìn)行查詢對(duì)象的屬性值表：表1

23、5控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號(hào)，合同簽訂日期，購(gòu)買人，號(hào)，售樓人員，合同單價(jià)，付款方式，貸款銀行 標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（3） 查詢收款信息圖1.31對(duì)收款信息進(jìn)行查詢對(duì)象的屬性值表：表16控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：收款編號(hào)，交款日期，收款金額，交款人，收款人標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdf

24、hCaption查詢 返回DataGrid1屬性默認(rèn)（4） 查詢收款合同信息圖1.32對(duì)收款合同信息進(jìn)行查詢對(duì)象的屬性值表：表17控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號(hào)，收款編號(hào)，交款人，收款人 標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（5） 查詢售樓合同信息圖1.33對(duì)售樓合同信息進(jìn)行查詢對(duì)象的屬性值表：表18控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號(hào)，合同編號(hào)，號(hào)，合同簽訂日期標(biāo)

25、簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)3、各查詢模塊詳細(xì)設(shè)計(jì)代碼（1）查詢樓盤信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.樓盤編號(hào) like'" & Trim(Text1.Text)

26、 & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.樓號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refres

27、h ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.單元號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select *

28、from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.樓層 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.房號(hào) like'

29、" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.戶型 like'" & Trim(Text1.Text) & "%'" Adodc1.Record

30、Source = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.面積 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click(

31、)主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo1.AddItem "樓盤編號(hào)" Combo1.AddItem "樓號(hào)" Combo1.AddItem "單元號(hào)" Combo1.AddItem "樓層" Combo1.AddItem "房號(hào)" Combo1.AddItem "戶型" Combo1.AddItem "面積"End Sub（2）查詢合同信息代碼Private Sub cmdcx_Cli

32、ck()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同編號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqls

33、tr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同簽訂日期 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "

34、;where 合同信息.購(gòu)買人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.號(hào) like'" & Trim(Text1.Text) & "%&

35、#39;" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.售樓人員 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Comb

36、o1.List(5) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同單價(jià) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = "select * from 合同信息 &q

37、uot; sqlstr = sqlstr & "where 合同信息.付款方式 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.RefreshElseIf Combo1.List(7) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.貸款銀行 like'" &a

38、mp; Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem "合同編號(hào)" Combo1.AddItem "合同簽定日期" Combo1.AddItem "購(gòu)買人" Combo1.AddItem "號(hào)"

39、 Combo1.AddItem "售樓人員" Combo1.AddItem "合同單價(jià)" Combo1.AddItem "付款方式" Combo1.AddItem "貸款銀行"End Sub（3）查詢收款信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo2.List(0) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "wh

40、ere 收款信息.收款編號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(1) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.交款日期 like'" & Trim(Text1.Text) & "%

41、'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(2) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款金額 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Com

42、bo2.List(3) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.交款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(4) = Combo2.Text Then sqlstr = "select * from 收款信息 &q

43、uot; sqlstr = sqlstr & "where 收款信息.收款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo2.AddItem "收款編號(hào)" Combo2.AddItem "交款日期&

44、quot; Combo2.AddItem "收款金額" Combo2.AddItem "交款人" Combo2.AddItem "收款人"End Sub（4）查詢收款合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.合同編號(hào) like'

45、" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.收款編號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.

46、RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.交款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Co

47、mbo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.收款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load()Comb

48、o1.AddItem "合同編號(hào)" Combo1.AddItem "收款編號(hào)" Combo1.AddItem "交款人" Combo1.AddItem "收款人"End Sub（5）查詢售樓合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where

49、 售樓合同信息.樓盤編號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.合同編號(hào) like'" & Trim(Text1.Text) & &quo

50、t;%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.號(hào) like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf

51、 Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.合同簽訂日期 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗體.ShowUnload MeEnd SubPriv

52、ate Sub Form_Load() Combo1.AddItem "樓盤編號(hào)" Combo1.AddItem "合同編號(hào)" Combo1.AddItem "號(hào)" Combo1.AddItem "合同簽訂日期"End Sub3.4 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖：1、 各管理頁(yè)面（1）管理樓盤信息頁(yè)面圖1.34管理樓盤信息頁(yè)面點(diǎn)擊表格顯示進(jìn)入所有樓盤信息頁(yè)面圖1.35顯示所有樓盤信息表（2）管理合同信息頁(yè)面圖1.36管理合同信息頁(yè)面點(diǎn)擊表格顯示進(jìn)入所有合同信息頁(yè)面圖1.37顯示所有合同信

53、息表（3）管理收款信息頁(yè)面圖1.38管理收款信息頁(yè)面點(diǎn)擊表格顯示進(jìn)入所有收款信息頁(yè)面圖1.39顯示所有收款信息表（4）管理收款合同信息頁(yè)面圖1.40管理收款合同信息頁(yè)面點(diǎn)擊表格顯示進(jìn)入所有收款合同信息頁(yè)面圖1.41顯示所有收款合同信息表（5）管理售樓合同信息頁(yè)面圖1.42管理收款合同信息頁(yè)面點(diǎn)擊表格顯示進(jìn)入所有售樓合同信息頁(yè)面圖1.43顯示所有售樓合同信息表2、 各管理模塊功能該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前一個(gè)、后一個(gè)，控制記錄指針的移動(dòng)；用一個(gè)標(biāo)簽Label顯示：當(dāng)前記錄號(hào)/記錄總數(shù)；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示

54、商品信息表，單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫?duì)記錄進(jìn)行新增、確認(rèn)、刪除、取消操作。Command是對(duì)數(shù)據(jù)的查看以與管理，根據(jù)按鈕的顯示可以對(duì)數(shù)據(jù)進(jìn)行添加、刪除等操作，旁邊的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行管理，管理窗口主要實(shí)現(xiàn)數(shù)據(jù)的管理功能，輸出框與相連之后可以實(shí)現(xiàn)對(duì)數(shù)據(jù)管理的輸出。（1）管理合同信息：當(dāng)顯示管理信息頁(yè)面時(shí)，點(diǎn)擊按鈕可以查詢每條信息記錄，并對(duì)其進(jìn)行新增與刪除，如下圖所示圖1.44新增一條合同記錄頁(yè)面對(duì)象屬性值表：表19控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption合同編號(hào)，合同簽訂日期，購(gòu)買人，號(hào)，售樓人員，合同單價(jià)，付

55、款方式，貸款銀行，記錄：文本框DataSourceAdodc1DataField合同編號(hào)，合同簽訂日期，購(gòu)買人，號(hào)，售樓人員，合同單價(jià)，付款方式，貸款銀行，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （2）管理樓盤信息：對(duì)象屬性值表：表110控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄：文

56、本框DataSourceAdodc1DataField樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （3）管理收款信息：對(duì)象屬性值表：表111控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption收款編號(hào)，交款日期，收款金額，交款人，收款人，記錄：文本框DataSourceAdodc1DataField收

57、款編號(hào)，交款日期，收款金額，交款人，收款人，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （4）管理收款合同信息：對(duì)象屬性值表：表112控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption合同編號(hào)，收款編號(hào)，交款人，收款人，記錄：文本框DataSourceAdodc1DataField合同編號(hào)，收款編號(hào)，交款人，收款人，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （5）管理售樓合同信息：對(duì)象屬性值表：表113控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Capt