【正文】 文本框NameText1 Text2 Text3各模塊詳細(xì)設(shè)計代碼（1）進入售樓管理系統(tǒng)代碼Private Sub Command1_Click()Unload MeEnd Sub（2）用戶登錄代碼Dim miCount As Integer 39。用于記錄輸入密碼次數(shù)Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr = Select * From 密碼表 Where 用戶名= 39。 amp。 Text1 amp。 39。 = sqlstrIf Then 39。若沒找到符合Where條件的記錄 MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告 = 39。 Text1獲得焦點Else 39。 判斷密碼是否正確 If (密碼) = Text2 Then Unload Me Else MsgBox 密碼錯誤，重新輸入 , vbExclamation, 警告 = 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)用戶名 Exit SubElse sqlstr = Select * from 密碼表 where 用戶名=39。 amp。 Text1 amp。 39。 = sqlstr If = False Then MsgBox 用戶名已存在，請重新輸入！, vbExclamation, 檢驗用戶名 Text1 = Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請重新輸入, vbExclamation, 檢驗密碼 Text2 = : Text3 = Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗密碼 Else (用戶名) = Trim(Text1) (密碼) = Trim(Text2) MsgBox 成功注冊新用戶！, vbInformation, 添加用戶End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 數(shù)據(jù)查詢模塊的詳細(xì)設(shè)計利用VB工程實現(xiàn)，頁面的設(shè)計如下圖：各查詢頁面 各查詢模塊功能bo1主要是實現(xiàn)查詢條件的多樣化，即可以實現(xiàn)利用不同的條件進行查詢，text1則主要是接收查詢信息，用來匹對相關(guān)信息，如果相符則輸出相符的元組。輸出框下面的主要是與數(shù)據(jù)源相連，以實現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù)進行查詢，查詢窗口主要實現(xiàn)查詢功能，輸出框與相連之后可以實現(xiàn)對查詢結(jié)果的輸出。（1） 查詢樓盤信息 選擇查詢對象，輸入所要查詢對象的內(nèi)容，點擊查詢按鈕，進行查詢，如圖所示對象的屬性值表：表1—4控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，樓號，單元號，樓層，房號，戶型，面積 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（2） 查詢合同信息當(dāng)查詢合同信息時，對’購買人姓名’查詢對象進行查詢，輸入王字進行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示對象的屬性值表：表1—5控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（3） 查詢收款信息對象的屬性值表：表1—6控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：收款編號，交款日期，收款金額，交款人，收款人標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（4） 查詢收款合同信息對象的屬性值表：表1—7控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，收款編號，交款人，收款人 標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)（5） 查詢售樓合同信息對象的屬性值表：表1—8控件名屬性設(shè)置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，合同編號，身份證號，合同簽訂日期標(biāo)簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認(rèn)各查詢模塊詳細(xì)設(shè)計代碼（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。 %39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (4) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (5) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 樓盤編號 樓號 單元號 樓層 房號 戶型 面積End Sub（2）查詢合同信息代碼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。 %39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (4) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (5) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。