【正文】 = sqlstr ElseIf (2) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 收款編號 交款日期 收款金額 交款人 收款人End Sub（4）查詢收款合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (3) = 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。 where like39。 %39。 amp。 = sqlstr ElseIf (7) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (5) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (3) = 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。 where like39。 %39。 amp。 = sqlstr ElseIf (6) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (4) = 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。（1） 查詢樓盤信息 選擇查詢對象，輸入所要查詢對象的內(nèi)容，點擊查詢按鈕，進行查詢，如圖所示對象的屬性值表：表1—4控件名屬性設置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，樓號，單元號，樓層，房號，戶型，面積 標簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認（2） 查詢合同信息當查詢合同信息時，對’購買人姓名’查詢對象進行查詢，輸入王字進行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示對象的屬性值表：表1—5控件名屬性設置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行 標簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認（3） 查詢收款信息對象的屬性值表：表1—6控件名屬性設置值文本框NameText1組合框NameCombo1ListCombo1：收款編號，交款日期，收款金額，交款人，收款人標簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認（4） 查詢收款合同信息對象的屬性值表：表1—7控件名屬性設置值文本框NameText1組合框NameCombo1ListCombo1：合同編號，收款編號，交款人，收款人 標簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認（5） 查詢售樓合同信息對象的屬性值表：表1—8控件名屬性設置值文本框NameText1組合框NameCombo1ListCombo1：樓盤編號，合同編號，身份證號，合同簽訂日期標簽控件NameLabel1Caption選擇查詢對象命令按鈕Namecmdcx cmdfhCaption查詢 返回DataGrid1屬性默認各查詢模塊詳細設計代碼（1）查詢樓盤信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 = 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ù)查詢模塊的詳細設計利用VB工程實現(xiàn)，頁面的設計如下圖：各查詢頁面 各查詢模塊功能bo1主要是實現(xiàn)查詢條件的多樣化，即可以實現(xiàn)利用不同的條件進行查詢，text1則主要是接收查詢信息，用來匹對相關信息，如果相符則輸出相符的元組。 Text1 amp。 判斷密碼是否正確 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, 確認用戶名 Exit SubElse sqlstr = Select * from 密碼表 where 用戶名=39。若沒找到符合Where條件的記錄 MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告 = 39。 39。 amp。[文件]菜單包含以下子菜單及其功能：[注冊新用戶]菜單：打開“注冊新用戶”窗體[退出]菜單：結束程序運行[數(shù)據(jù)管理] 包含以下子菜單：[管理樓盤信息]菜單：顯示管理樓盤信息窗體[管理合同信息]菜單：顯示管理合同信息窗體[管理收款信息]菜單：顯示管理收款信息窗體[管理收款合同信息]菜單：顯示管理收款合同信息窗體[管理售樓合同信息]菜單：顯示管理售樓合同信息窗體 [數(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