【正文】 。 where like39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。輸出框下面的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實(shí)現(xiàn)查詢功能，輸出框與相連之后可以實(shí)現(xiàn)對(duì)查詢結(jié)果的輸出。（5）收款合同信息：包括收款合同信息的添加、刪除和查詢。 本系統(tǒng)主要實(shí)現(xiàn)以下功能：售樓管理，即管理所有的售樓信息、合同信息、收款信息，并對(duì)售樓數(shù)據(jù)進(jìn)行添加、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的售樓信息；系統(tǒng)的核心實(shí)現(xiàn)對(duì)樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費(fèi)等情況的管理。收款合同信息包括收款編號(hào)，合同編號(hào)，交款人和收款人。（1） 查詢樓盤信息 選擇查詢對(duì)象，輸入所要查詢對(duì)象的內(nèi)容，點(diǎn)擊查詢按鈕，進(jìn)行查詢，如圖所示對(duì)象的屬性值表：表1—4控件名屬性設(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ì)’購買人姓名’查詢對(duì)象進(jìn)行查詢，輸入王字進(jìn)行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示對(duì)象的屬性值表：表1—5控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行 標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（3） 查詢收款信息對(duì)象的屬性值表：表1—6控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：收款編號(hào)，交款日期，收款金額，交款人，收款人標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（4） 查詢收款合同信息對(duì)象的屬性值表：表1—7控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號(hào)，收款編號(hào)，交款人，收款人 標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（5） 查詢售樓合同信息對(duì)象的屬性值表：表1—8控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期標(biāo)簽控件NameLabel1Caption選擇查詢對(duì)象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)各查詢模塊詳細(xì)設(shè)計(jì)代碼（1）查詢樓盤信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 amp。實(shí)現(xiàn)了需求分析階段提出的售樓信息管理功能，包括樓盤信息管理，合同信息管理，收款信息管理，收款合同信息管理，售樓合同信息管理等，完成了樓盤信息查詢，合同信息查詢，收款信息查詢，收款合同信息查詢，售樓合同信息查詢等，解決了對(duì)客戶資料、售樓合同、收費(fèi)情況進(jìn)行整理的工作量大的問題。本人完全意識(shí)到本聲明的法律后果由本人承擔(dān)。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫的成果作品。 / amp。 如果記錄指針移到了末記錄之后 39。 / amp。 如果記錄指針移到了末記錄之后 39。 / amp。 如果記錄指針移到了末記錄之后 39。 / amp。 如果記錄指針移到了末記錄之后 39。 / amp。 如果記錄指針移到了末記錄之后 39。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ù)管理的輸出。 where like39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where like39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 %39。 = sqlstr If = False Then MsgBox 用戶名已存在，請(qǐng)重新輸入！, vbExclamation, 檢驗(yàn)用戶名 Text1 = Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗(yàn)密碼 Else (用戶名) = Trim(Text1) (密碼) = Trim(Text2) MsgBox 成功注冊(cè)新用戶！, vbInformation, 添加用戶End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁面的設(shè)計(jì)如下圖：各查詢頁面 各查詢模塊功能bo1主要是實(shí)現(xiàn)查詢條件的多樣化，即可以實(shí)現(xiàn)利用不同的條件進(jìn)行查詢，text1則主要是接收查詢信息，用來匹對(duì)相關(guān)信息，如果相符則輸出相符的元組。售樓合同信息包括合同編號(hào)，樓盤編號(hào)，合同簽訂日期和身份證號(hào)。售樓信息管理系統(tǒng)就是為了實(shí)現(xiàn)這一目標(biāo)而設(shè)計(jì)的，管理人員通過該系統(tǒng)可以及時(shí)了解樓盤的動(dòng)態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關(guān)銷售樓盤的其他各種詳細(xì)資料，以便及時(shí)做出正確決策。 系統(tǒng)以中文版Visual Basic ，用中文版SQL 2000作為后臺(tái)數(shù)據(jù)庫。 ER模型(1) 局部ER模型：樓盤信息樓盤編號(hào)樓號(hào)單元號(hào)樓層房號(hào)戶型面積合同信息合同編號(hào)合同簽訂日期身份證號(hào)售樓人員姓名購買人姓名合同單價(jià)付款方式貸款銀行收款信息收款編號(hào)交款日期收款金額交款人收款人售樓合同信息樓盤編號(hào)合同編號(hào)身份證號(hào)合同簽訂日期收款合同信息收款編號(hào)合同編號(hào)交款人收款人(2) 全局ER模型：樓盤信息購買合同信息支付收款信息 m n n m樓盤編號(hào)身份證號(hào)合同編號(hào)合同編號(hào)交款人收款編號(hào)合同簽訂日期收款人 關(guān)系模型（1） 樓盤信息（樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積）（2）合同信息（合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行）（3）收款信息（收款編號(hào)，交款日期，收款金額，交款人，收款人,有線電視費(fèi)，電費(fèi)）（4）售樓合同信息（樓盤編號(hào)，合同編號(hào)，合同簽訂日期，身份證號(hào)）（5）收款合同信息（收款編號(hào)，合同編號(hào)，收款人，交款人） 表結(jié)構(gòu)設(shè)計(jì)（1）用戶信息表的建立與基本數(shù)據(jù)基本數(shù)據(jù)如下圖：（2）樓盤信息表的建立與基本數(shù)據(jù)基本數(shù)據(jù)如下圖： （3）合同信息表的建立與基本數(shù)據(jù) 基本數(shù)據(jù)如下圖： （4）收款信息表的建立與基本數(shù)據(jù)基本數(shù)據(jù)如下圖： （5）售樓合同信息表的建立與基本數(shù)據(jù)基本數(shù)據(jù)如下圖： （6）收款合同信息表的建立與基本數(shù)據(jù)基本數(shù)據(jù)如下圖：第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) 主窗體模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁面的設(shè)計(jì)如下圖：主窗體頁面主窗體模塊功能（1）設(shè)計(jì)為MDI窗體，含有主菜單：[文件]、[數(shù)據(jù)管理]、[數(shù)據(jù)查詢]。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 讓[首記錄]按鈕無效 = False 39。 / amp。 讓[首記錄]按鈕無效 = False 39。 / amp。 讓[首記錄]按鈕無效 = False 39。