【正文】 ue 39。 End SubPrivate Sub cmdok_Click() = True = True = False = FalseEnd SubPrivate Sub Cmdpre_Click() 39。 amp。 讓[前移]按鈕無效 = True 39。[前移]按鈕無效 = True 39。 End SubPrivate Sub cmdok_Click() = True = True = False = FalseEnd SubPrivate Sub Cmdpre_Click() 39。 amp。 讓[前移]按鈕無效 = True 39。[前移]按鈕無效 = True 39。 End SubPrivate Sub cmdok_Click() = True = True = False = FalseEnd SubPrivate Sub Cmdpre_Click() 39。 amp。 讓[前移]按鈕無效 = True 39。[前移]按鈕無效 = True 39。 End SubPrivate Sub cmdok_Click() = True = True = False = FalseEnd SubPrivate Sub Cmdpre_Click() 39。 amp。 讓[前移]按鈕無效 = True 39。 Trim() amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 amp。 判斷密碼是否正確 If (密碼) = Text2 Then Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入 , vbExclamation, 警告 = 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 MsgBox 請(qǐng)輸入用戶名！, vbExclamation, 確認(rèn)用戶名 Exit SubElse sqlstr = Select * from 密碼表 where 用戶名=39。[文件]菜單包含以下子菜單及其功能：[注冊(cè)新用戶]菜單：打開“注冊(cè)新用戶”窗體[退出]菜單：結(jié)束程序運(yùn)行[數(shù)據(jù)管理] 包含以下子菜單：[管理樓盤信息]菜單：顯示管理樓盤信息窗體[管理合同信息]菜單：顯示管理合同信息窗體[管理收款信息]菜單：顯示管理收款信息窗體[管理收款合同信息]菜單：顯示管理收款合同信息窗體[管理售樓合同信息]菜單：顯示管理售樓合同信息窗體 [數(shù)據(jù)查詢]包含以下子菜單：[查詢樓盤信息]：顯示查詢樓盤信息窗體[查詢合同信息]：顯示查詢合同信息窗體[查詢收款信息]：顯示查詢收款信息窗體[查詢收款合同信息]：顯示查詢收款合同信息窗體[查詢售樓合同信息]：顯示查詢售樓合同信息窗體主窗體模塊詳細(xì)設(shè)計(jì)代碼Private Sub 查詢合同信息1_Click()End SubPrivate Sub 查詢樓盤信息1_Click()End SubPrivate Sub 查詢收款合同信息1_Click()End SubPrivate Sub 查詢收款信息1_Click()End SubPrivate Sub 查詢售樓合同信息1_Click()End SubPrivate Sub 管理合同信息1_Click()End SubPrivate Sub 管理樓盤信息1_Click()End SubPrivate Sub 管理收款合同信息1_Click()End SubPrivate Sub 管理收款信息1_Click()End SubPrivate Sub 管理售樓合同信息1_Click()End SubPrivate Sub 退出1_Click()Unload MeEnd SubPrivate Sub 注冊(cè)新用戶1_Click()End Sub 用戶管理模塊的詳細(xì)設(shè)計(jì)利用VB工程實(shí)現(xiàn)，頁面的設(shè)計(jì)如下圖：（1）進(jìn)入售樓管理系統(tǒng)頁面（2）用戶登錄頁面（3）注冊(cè)新用戶頁面各模塊功能（1）進(jìn)入售樓管理系統(tǒng) 點(diǎn)擊進(jìn)入按鈕，進(jìn)入主窗體對(duì)象的屬性值表：表11對(duì)象名屬性名屬性值命令按鈕NameCommand1Caption進(jìn)入系統(tǒng)（2） 用戶登錄 輸入用戶與密碼，若輸入正確，則可以對(duì)售樓信息進(jìn)行管理與查詢，否則退出系統(tǒng)對(duì)象的屬性值表：表12對(duì)象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Caption輸入用戶 輸入密碼 命令按鈕NameCmdLand CmdCancelCaption登錄 取消文本框NameText1 Text2（3） 注冊(cè)新用戶 對(duì)新用戶進(jìn)行注冊(cè)，輸入用戶名與密碼，點(diǎn)擊登錄按鈕，用戶注冊(cè)成功，否則退出系統(tǒng)對(duì)象的屬性值表：表13對(duì)象名屬性名屬性值標(biāo)簽框NameLabel1 Label2 Label3Caption用戶名 輸入密碼 確認(rèn)密碼命令按鈕NameCommand1 Command2Caption登錄 取消文本框NameText1 Text2 Text3各模塊詳細(xì)設(shè)計(jì)代碼（1）進(jìn)入售樓管理系統(tǒng)代碼Private Sub Command1_Click()Unload MeEnd Sub（2）用戶登錄代碼Dim miCount As Integer 39。收款信息包括收款編號(hào)，交款日期，收款金額，交款人和收款人。關(guān)鍵詞：Visual Basic SQL sever 2000 售樓信息管理系統(tǒng)目 錄第一章 系統(tǒng)功能概述 1 系統(tǒng)功能分析 1 系統(tǒng)結(jié)構(gòu)圖 1第二章 數(shù)據(jù)庫設(shè)計(jì) 2 需求分析 2 ER模型 2 關(guān)系模型 4 表結(jié)構(gòu)設(shè)計(jì) 5第三章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) 10 主窗體模塊的詳細(xì)設(shè)計(jì) 10 用戶管理模塊的詳細(xì)設(shè)計(jì) 13 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計(jì) 17 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計(jì) 28總結(jié) 50參考文獻(xiàn) 51II第1章 系統(tǒng)功能概述 系統(tǒng)功能分析該系統(tǒng)具備的功能包括樓盤管理、合同管理、收款管理、售樓合同管理、收款合同管理、退出系統(tǒng)。 總體結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。指導(dǎo)教師： 2013年12月1 日專業(yè)負(fù)責(zé)人：2013年 12月 日學(xué)院教學(xué)副院長：2013 年12月 日 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No54摘 要近幾年，中國經(jīng)濟(jì)快速、平穩(wěn)發(fā)展，伴隨著中國城市化進(jìn)程加快和住房體制的改革，售樓行業(yè)得到了迅猛發(fā)展，房地產(chǎn)銷售業(yè)務(wù)量急劇擴(kuò)大，因此對(duì)售樓管理提出了更高的要求。 系統(tǒng)結(jié)構(gòu)圖售樓信息管理售樓樓盤信息售樓合同信息售樓收款信息樓盤編號(hào)樓號(hào)單元號(hào)樓層房號(hào)戶型面積合同編號(hào)合同簽訂日期購買人姓名身份證號(hào)售樓人員姓名合同單價(jià)付款方式貸款銀行收款編號(hào)交款日期收款金額交款人收款人第2章 數(shù)據(jù)庫設(shè)計(jì) 需求分析通過對(duì)用戶需求的分析，確定系統(tǒng)應(yīng)具備的功能包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理、退出系統(tǒng)。（4）售樓合同信息：包括售樓合同信息的添加、刪除和查詢。 Text1 amp。 39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 Trim() amp。可以對(duì)記錄進(jìn)行新增、確認(rèn)、刪除、取消操作。在Label8上顯示當(dāng)前記錄號(hào)/記錄總數(shù)： = 記錄： amp。記錄指針移到下一條記錄 = True = TrueIf