售樓信息管理系統(tǒng)課程設(shè)計.doc

沈陽理工大學(xué)課程設(shè)計專用紙 Noii成 績 評 定 表學(xué)生姓名班級學(xué)號專 業(yè)課程設(shè)計題目售樓信息管理系統(tǒng)評語組長簽字：成績?nèi)掌?2013 年12月 日課程設(shè)計任務(wù)書學(xué) 院專 業(yè)學(xué)生姓名班級學(xué)號課程設(shè)計題目售樓信息管理系統(tǒng)實踐教學(xué)要求與任務(wù):設(shè)計為MDI窗體，含有主菜單：文件、數(shù)據(jù)管理、數(shù)據(jù)查詢。文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出菜單：結(jié)束程序運行數(shù)據(jù)管理 包含以下子菜單：管理樓盤信息菜單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯示管理售樓合同信息窗體 數(shù)據(jù)查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體工作計劃與進(jìn)度安排:第一周：數(shù)據(jù)庫設(shè)計，利用SQL Server創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計，設(shè)計調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第二周：管理功能設(shè)計，設(shè)計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。 撰寫課程設(shè)計報告，驗收與答辯。指導(dǎo)教師： 2013年12月1 日專業(yè)負(fù)責(zé)人：2013年 12月 日學(xué)院教學(xué)副院長：2013 年12月 日 沈陽理工大學(xué)課程設(shè)計專用紙 No54摘 要近幾年，中國經(jīng)濟(jì)快速、平穩(wěn)發(fā)展，伴隨著中國城市化進(jìn)程加快和住房體制的改革，售樓行業(yè)得到了迅猛發(fā)展，房地產(chǎn)銷售業(yè)務(wù)量急劇擴大，因此對售樓管理提出了更高的要求。售樓信息管理系統(tǒng)就是為了實現(xiàn)這一目標(biāo)而設(shè)計的，管理人員通過該系統(tǒng)可以及時了解樓盤的動態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關(guān)銷售樓盤的其他各種詳細(xì)資料，以便及時做出正確決策。 本系統(tǒng)主要實現(xiàn)以下功能：售樓管理，即管理所有的售樓信息、合同信息、收款信息，并對售樓數(shù)據(jù)進(jìn)行添加、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的售樓信息；系統(tǒng)的核心實現(xiàn)對樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費等情況的管理。 系統(tǒng)以中文版Visual Basic 6.0為前臺開發(fā)工具，用中文版SQL 2000作為后臺數(shù)據(jù)庫。關(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ù)庫設(shè)計22.1 需求分析22.2 E-R模型22.3 關(guān)系模型42.4 表結(jié)構(gòu)設(shè)計5第三章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計103.1 主窗體模塊的詳細(xì)設(shè)計103.2 用戶管理模塊的詳細(xì)設(shè)計133.3 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計173.4 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計28總結(jié)50參考文獻(xiàn)51II第1章 系統(tǒng)功能概述1.1 系統(tǒng)功能分析該系統(tǒng)具備的功能包括樓盤管理、合同管理、收款管理、售樓合同管理、收款合同管理、退出系統(tǒng)。具體主要實現(xiàn)如下功能：售樓信息管理部分包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理，其功能是分別實現(xiàn)對樓盤信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分?jǐn)?shù)據(jù)內(nèi)容的添加、刪除等操作。售樓信息查詢部分包括樓盤信息查詢、合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息查詢，其功能是分別實現(xiàn)對樓盤信息、合同信息、收款信息、售樓合同信息和收款合同信息查詢的各部分?jǐn)?shù)據(jù)內(nèi)容的查詢操作。1.2 系統(tǒng)結(jié)構(gòu)圖圖1.1售樓管理信息系統(tǒng)總體結(jié)構(gòu)售樓信息管理售樓樓盤信息售樓合同信息售樓收款信息樓盤編號樓號單元號樓層房號戶型面積合同編號合同簽訂日期購買人姓名身份證號售樓人員姓名合同單價付款方式貸款銀行收款編號交款日期收款金額交款人收款人第2章 數(shù)據(jù)庫設(shè)計2.1 需求分析通過對用戶需求的分析，確定系統(tǒng)應(yīng)具備的功能包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理、退出系統(tǒng)。具體主要實現(xiàn)如下功能：售樓信息管理部分包括樓盤信息管理與查詢、合同信息管理與查詢、收款信息管理與查詢、售樓合同信息管理與查詢和收款合同信息管理與查詢，其功能是實現(xiàn)對樓盤各部分?jǐn)?shù)據(jù)內(nèi)容的添加、刪除和查詢等操作。（1）樓盤信息：包括樓盤信息的添加、刪除和查詢。樓盤信息包括樓盤編號，樓號，單元號，樓層，房號，戶型和面積。（2）收款信息：包括收款信息的添加、刪除和查詢。收款信息包括收款編號，交款日期，收款金額，交款人和收款人。（3）合同信息：包括合同信息的添加、刪除和查詢。合同信息包括合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式和貸款銀行。（4）售樓合同信息：包括售樓合同信息的添加、刪除和查詢。售樓合同信息包括合同編號，樓盤編號，合同簽訂日期和身份證號。（5）收款合同信息：包括收款合同信息的添加、刪除和查詢。收款合同信息包括收款編號，合同編號，交款人和收款人。2.2 E-R模型(1) 局部E-R模型：圖1.2樓盤信息樓盤信息樓盤編號樓號單元號樓層房號戶型面積圖1.3合同信息合同信息合同編號合同簽訂日期身份證號售樓人員姓名購買人姓名合同單價付款方式貸款銀行圖1.4收款信息收款信息收款編號交款日期收款金額交款人收款人圖1.5售樓合同信息售樓合同信息樓盤編號合同編號身份證號合同簽訂日期圖1.6收款合同信息收款合同信息收款編號合同編號交款人收款人(2) 全局E-R模型：圖1.7售樓信息管理系統(tǒng)E-R模型樓盤信息購買合同信息支付收款信息 m n n m樓盤編號身份證號合同編號合同編號交款人收款編號合同簽訂日期收款人2.3 關(guān)系模型（1） 樓盤信息（樓盤編號，樓號，單元號，樓層，房號，戶型，面積）（2）合同信息（合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行）（3）收款信息（收款編號，交款日期，收款金額，交款人，收款人,有線電視費，電費）（4）售樓合同信息（樓盤編號，合同編號，合同簽訂日期，身份證號）（5）收款合同信息（收款編號，合同編號，收款人，交款人）2.4 表結(jié)構(gòu)設(shè)計（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售樓合同信息表屬性基本數(shù)據(jù)如下圖： 圖1.17售樓合同信息表基本數(shù)據(jù)（6）收款合同信息表的建立與基本數(shù)據(jù)圖1.18收款合同信息表屬性基本數(shù)據(jù)如下圖：圖1.19收款合同信息表基本數(shù)據(jù)第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1 主窗體模塊的詳細(xì)設(shè)計利用VB工程實現(xiàn)，頁面的設(shè)計如下圖：1、主窗體頁面圖1.20主窗體2、主窗體模塊功能（1）設(shè)計為MDI窗體，含有主菜單：文件、數(shù)據(jù)管理、數(shù)據(jù)查詢。文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出菜單：結(jié)束程序運行數(shù)據(jù)管理 包含以下子菜單：管理樓盤信息菜單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯示管理售樓合同信息窗體 數(shù)據(jù)查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體3、主窗體模塊詳細(xì)設(shè)計代碼Private 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 管理樓盤信息1_Click()管理樓盤信息.ShowEnd SubPrivate Sub 管理收款合同信息1_Click()管理收款合同信息.ShowEnd SubPrivate Sub 管理收款信息1_Click()管理收款信息.ShowEnd SubPrivate Sub 管理售樓合同信息1_Click()管理售樓合同信息.ShowEnd SubPrivate Sub 退出1_Click()Unload MeEnd SubPrivate Sub 注冊新用戶1_Click()注冊新用戶.ShowEnd Sub3.2 用戶管理模塊的詳細(xì)設(shè)計1、利用VB工程實現(xiàn)，頁面的設(shè)計如下圖：（1）進(jìn)入售樓管理系統(tǒng)頁面圖1.21進(jìn)入售樓管理系統(tǒng)（2）用戶登錄頁面圖1.22用戶登錄（3）注冊新用戶頁面圖1.23注冊新用戶2、各模塊功能（1）進(jìn)入售樓管理系統(tǒng) 點擊進(jìn)入按鈕，進(jìn)入主窗體對象的屬性值表：表1-1對象名屬性名屬性值命令按鈕NameCommand1Caption進(jìn)入系統(tǒng)（2） 用戶登錄 輸入用戶與密碼，若輸入正確，則可以對售樓信息進(jìn)行管理與查詢，否則退出系統(tǒng)對象的屬性值表：表1-2對象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Caption輸入用戶 輸入密碼 命令按鈕NameCmdLand CmdCancelCaption登錄 取消文本框NameText1 Text2（3） 注冊新用戶 對新用戶進(jìn)行注冊，輸入用戶名與密碼，點擊登錄按鈕，用戶注冊成功，否則退出系統(tǒng)對象的屬性值表：表1-3對象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Label3Caption用戶名 輸入密碼 確認(rèn)密碼命令按鈕NameCommand1 Command2Caption登錄 取消文本框NameText1 Text2 Text33、各模塊詳細(xì)設(shè)計代碼（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.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若沒找到符合Where條件的記錄 MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告 Text1.Text = Text1.SetFocus Text1獲得焦點Else 判斷密碼是否正確 If Adodc1.Recordset.Fields(密碼) = Text2 Then 主窗體.Show Unload Me Else MsgBox 密碼錯誤，重新輸入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub（3）注冊新用戶代碼Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請輸入用戶名！, vbExclamation, 確認(rèn)用戶名 Text1.SetFocus Exit SubElse sqlstr = Select * from 密碼表 where 用戶名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用戶名已存在，請重新輸入！, vbExclamation, 檢驗用戶名 Text1 = Text1.SetFocus Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請重新輸入, vbExclamation, 檢驗密碼 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗密碼 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用戶名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注冊新用戶！, vbInformation, 添加用戶End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.3 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計利用VB工程實現(xiàn)，頁面的設(shè)計如下圖：1、各查詢頁面圖1.24查詢樓盤信息頁面圖1.25查詢合同信息頁面圖1.26查詢收款信息頁面圖1.27查詢收款合同信息頁面圖1.28查詢售樓合同信息頁面2、 各查詢模塊功能combo1主要是實現(xiàn)查詢條件的多樣化，即可以實現(xiàn)利用不同的條件進(jìn)行查詢，text1則主要是接收查詢信息，用來匹對相關(guān)信息，如果相符則輸出相符的元組。輸出框下面的主要是與數(shù)據(jù)源相連，以實現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實現(xiàn)查詢功能，輸出框與相連之后可以實現(xiàn)對查詢結(jié)果的輸出。（1） 查詢樓盤信息 選擇查詢對象，輸入所要查詢對象的內(nèi)容，點擊查詢按鈕，進(jìn)行查詢，如圖所示圖1.29對樓盤信息進(jìn)行查詢對象的屬性值表：表14控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，樓號，單元號，樓層，房號，戶型，面積 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（2） 查詢合同信息當(dāng)查詢合同信息時，對購買人姓名查詢對象進(jìn)行查詢，輸入王字進(jìn)行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示圖1.30對合同信息進(jìn)行查詢對象的屬性值表：表15控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（3） 查詢收款信息圖1.31對收款信息進(jìn)行查詢對象的屬性值表：表16控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：收款編號，交款日期，收款金額，交款人，收款人標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（4） 查詢收款合同信息圖1.32對收款合同信息進(jìn)行查詢對象的屬性值表：表17控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，收款編號，交款人，收款人 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（5） 查詢售樓合同信息圖1.33對售樓合同信息進(jìn)行查詢對象的屬性值表：表18控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，合同編號，身份證號，合同簽訂日期標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)3、各查詢模塊詳細(xì)設(shè)計代碼（1）查詢樓盤信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr & where 樓盤信息.樓盤編號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = 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 & where 樓盤信息.單元號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = select * 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 樓盤信息.房號 like & 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.RecordSource = 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()主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo1.AddItem 樓盤編號 Combo1.AddItem 樓號 Combo1.AddItem 單元號 Combo1.AddItem 樓層 Combo1.AddItem 房號 Combo1.AddItem 戶型 Combo1.AddItem 面積End Sub（2）查詢合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.合同編號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = 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 & where 合同信息.購買人姓名 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = select * 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 合同信息.售樓人員姓名 like & 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.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = select * from 合同信息 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 & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗體.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 合同編號 Combo1.AddItem 合同簽定日期 Combo1.AddItem 購買人姓名 Combo1.AddItem 身份證號 Combo1.AddItem 售樓人員姓名 Combo1.AddItem 合同單價 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 & where 收款信息.收款編號 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) & % 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 Combo2.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 收款信息 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 收款編號 Combo2.AddItem 交款日期 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 收款合同信息.合同編號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = 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 & where 收款合同信息.交款人 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf 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 SubPrivate Sub Form_Load()Combo1.AddItem 合同編號 Combo1.AddItem 收款編號 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 售樓合同信息.樓盤編號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = 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 & where 售樓合同信息.身份證號 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf 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 SubPrivate Sub Form_Load() Combo1.AddItem 樓盤編號 Combo1.AddItem 合同編號 Combo1.AddItem 身份證號 Combo1.AddItem 合同簽訂日期End Sub3.4 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計利用VB工程實現(xiàn)，頁面的設(shè)計如下圖：1、 各管理頁面（1）管理樓盤信息頁面圖1.34管理樓盤信息頁面點擊表格顯示進(jìn)入所有樓盤信息頁面圖1.35顯示所有樓盤信息表（2）管理合同信息頁面圖1.36管理合同信息頁面點擊表格顯示進(jìn)入所有合同信息頁面圖1.37顯示所有合同信息表（3）管理收款信息頁面圖1.38管理收款信息頁面點擊表格顯示進(jìn)入所有收款信息頁面圖1.39顯示所有收款信息表（4）管理收款合同信息頁面圖1.40管理收款合同信息頁面點擊表格顯示進(jìn)入所有收款合同信息頁面圖1.41顯示所有收款合同信息表（5）管理售樓合同信息頁面圖1.42管理收款合同信息頁面點擊表格顯示進(jìn)入所有售樓合同信息頁面圖1.43顯示所有售樓合同信息表2、 各管理模塊功能該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動；用一個標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M(jìn)行新增、確認(rèn)、刪除、取消操作。Command是對數(shù)據(jù)的查看以及管理，根據(jù)按鈕的顯示可以對數(shù)據(jù)進(jìn)行添加、刪除等操作，旁邊的主要是與數(shù)據(jù)源相連，以實現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行管理，管理窗口主要實現(xiàn)數(shù)據(jù)的管理功能，輸出框與相連之后可以實現(xiàn)對數(shù)據(jù)管理的輸出。（1）管理合同信息：當(dāng)顯示管理信息頁面時，點擊按鈕可以查詢每條信息記錄，并對其進(jìn)行新增與刪除，如下圖所示圖1.44新增一條合同記錄頁面對象屬性值表：表19控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄：文本框DataSourceAdodc1DataField合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （2）管理樓盤信息：對象屬性值表：表110控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄：文本框DataSourceAdodc1DataField樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （3）管理收款信息：對象屬性值表：表111控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption收款編號，交款日期，收款金額，交款人，收款人，記錄：文本框DataSourceAdodc1DataField收款編號，交款日期，收款金額，交款人，收款人，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （4）管理收款合同信息：對象屬性值表：表112控件名屬性設(shè)置值標(biāo)簽控件NameLabel1- Label19Caption合同編號，收款編號，交款人，收款人，記錄：文本框DataSourceAdodc1DataField合同編號，收款編號，交款人，收款人，記錄：Text空，其他默認(rèn)命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認(rèn)，刪除，取消，返回，首