【文章內(nèi)容簡介】 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 沈陽理工大學課程設計專用紙 No24 24 沈陽理工大學 Private 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。 %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 沈陽理工大學課程設計專用紙 No26 26 沈陽理工大學 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 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。 沈陽理工大學課程設計專用紙 No28 28 沈陽理工大學 %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 數(shù)據(jù)管理 模塊的詳細設計 利用 VB 工程實現(xiàn) ，頁面的設計如下圖： 各管理頁面 （ 1）管理樓盤信息頁面 沈陽理工大學課程設計專用紙 No29 29 沈陽理工大學 圖 134 管理樓盤信息頁面 點擊 ’表格顯示 ’進入所有樓盤信息頁面 圖 135 顯示所有樓盤信息表 （ 2）管理合 同信息頁面 沈陽理工大學課程設計專用紙 No30 30 沈陽理工大學 圖 136 管理合同信息頁面 點擊 ’表格顯示 ’進入所有合同信息頁面 圖 137 顯示所有合同信息表 （ 3）管理收款信息頁面 沈陽理工大學課程設計專用紙 No31 31 沈陽理工大學 圖 138 管理收款信息頁面 點擊 ’表格顯示 ’進入所有收款信息頁面 圖 139 顯示所有收款信息表 （ 4）管理收款合同信息頁面 沈陽理工大學課程設計專用紙 No32 32 沈陽理工大學 圖 140 管理收款合同信息頁面 點擊 ’表格顯示 ’進入所有收款合同信息頁面 圖 141 顯示所有收款合同信息表 （ 5）管理售樓合同信息頁面 沈陽理工大學課程設計專用紙 No33 33 沈陽理工大學 圖 142 管理收款合同信息頁面 點擊 ’表格顯示 ’進入所有售樓合同信息頁面 圖 143 顯 示所有售樓合同信息表 各管理 模塊 功能 該窗體以文本框顯示當前記錄，用按鈕 [首記錄 ]、