【文章內容簡介】 n 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 If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 沈陽理工大學課程設計專用紙 No24 24 樓盤編號 樓號 單元號 樓層 房號 戶型 面積 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。 %39。 = sqlstr 沈陽理工大學課程設計專用紙 No25 25 ElseIf (6) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where 合同信息 .付款方式 like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (7) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where 合同信息 .貸款銀行 like39。 amp。 Trim() amp。 %39。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 合同編號 合同簽定日期 購買人姓名 身份證號 售樓人員姓名 合同單價 付款方式 貸款銀行 End Sub （ 3）查詢收款信息代碼 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 收款信息 沈陽理工大學課程設計專用紙 No26 26 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 End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 收款編號 交款日期 收款金額 交款人 收款人 End Sub （ 4）查詢收款合同信息代碼 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 沈陽理工大學課程設計專用紙 No27 27 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 End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 合同編號 收款編號 交款人 收款 人 End Sub （ 5）查詢售樓合同信息代碼 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。 沈陽理工大學課程設計專用紙 No28 28 = sqlstr ElseIf (3) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 where 售樓合同信息 .合同簽訂日期 like39。 amp。 Trim() amp。 %39。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 樓盤編號 合同編號 身份證號 合同簽訂日期 End Sub 數據管理模塊的詳細設計 利用 VB工程實現，頁面的設計如下圖： 各管理頁面 （ 1）管理樓盤信息頁面 沈陽理工大學課程設計專用紙 No29 29 圖 管理樓盤信息頁面 點擊 ’表格顯示 ’進入所有樓盤信息頁面 圖 顯示所有樓盤信息表 （ 2）管理合同信息頁面 沈陽理工大學課程設計專用紙 No30 30 圖 管理合同信息頁面 點擊 ’表格顯示 ’進入所有合同信息頁面 圖 顯示所有合同信息表 （ 3）管理收款信息頁面 沈陽理工大學課程設計專用紙 No31 31 圖 管理收款信息頁面 點擊 ’表格顯示 ’進入所有收款信息頁面 圖 顯示所有收款信息表 （ 4）管理收款合同信息頁面 沈陽理工大學課程設計專用紙 No