【正文】 ]：顯示 查詢售樓合同信息 窗體 主窗體 模塊 詳細 設(shè)計代碼 Private Sub 查詢合同信息 1_Click() 查詢合同信息 .Show End Sub Private Sub 查詢樓盤信息 1_Click() 查 詢樓盤信息 .Show 沈陽理工大學(xué)課程設(shè)計專用紙 No12 12 沈陽理工大學(xué) End Sub Private Sub 查詢收款合同信息 1_Click() 查詢收款合同信息 .Show End Sub Private Sub 查詢收款信息 1_Click() 查詢收款信息 .Show End Sub Private Sub 查詢售樓合同信息 1_Click() 查詢售樓合同信息 .Show End Sub Private Sub 管理合同信息 1_Click() 管理合同信息 .Show End Sub Private Sub 管理樓盤信息 1_Click() 管理樓盤 信息 .Show End Sub Private Sub 管理收款合同信息 1_Click() 管理收款合同信息 .Show End Sub Private Sub 管理收款信息 1_Click() 管理收款信息 .Show End Sub Private Sub 管理售樓合同信息 1_Click() 管理售樓合同信息 .Show End Sub Private Sub 退出 1_Click() Unload Me End Sub Private Sub 注冊新用戶 1_Click() 注冊新用戶 .Show End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No13 13 沈陽理工大學(xué) 用戶管理模塊的詳細設(shè)計 利用 VB工程實現(xiàn) ，頁面的設(shè)計如下圖： （ 1）進入售樓管理系統(tǒng)頁面 圖 121進入售樓管理系統(tǒng) （ 2）用戶登錄頁面 圖 122用戶登錄 （ 3）注冊新用戶頁面 沈陽理工大學(xué)課程設(shè)計專用紙 No14 14 沈陽理工大學(xué) 圖 123注冊新用戶 各 模塊 功能 （ 1）進入售樓管理系統(tǒng) 點擊進入按鈕，進入主窗體 對象的屬性值表： 對象名 屬性名 屬性值 命令按鈕 Name Command1 Caption 進入系統(tǒng) 表 11 （ 2） 用戶登錄 輸入用戶與密碼，若輸入正確，則可以對售樓信息進行管理與查詢，否則退 出系統(tǒng) 對象的屬性值表： 對象名 屬性名 屬性值 標(biāo)簽框 Name Label1 Label2 Caption 輸入用戶 輸入 密碼 命令按鈕 Name CmdLand CmdCancel Caption 登錄 取消 文本框 Name Text1 Text2 表 12 （ 3） 注冊新 用戶 對新用戶進行注冊，輸入用戶名與密碼，點擊登錄按鈕，用戶注冊成功，否則退出系統(tǒng) 對象的屬性值表： 沈陽理工大學(xué)課程設(shè)計專用紙 No15 15 沈陽理工大學(xué) 對象名 屬性名 屬性值 標(biāo)簽框 Name Label1 Label2 Label3 Caption 用戶 名 輸入 密碼 確認(rèn)密碼 命令按鈕 Name Command1 Command2 Caption 登錄 取消 文本框 Name Text1 Text2 Text3 表 13 各模塊詳細設(shè)計代碼 （ 1） 進入售樓管理系統(tǒng)代碼 Private Sub Command1_Click() Unload Me 登錄 .Show End Sub （ 2） 用戶登錄代碼 Dim miCount As Integer 39。 39。 判斷密碼是否正確 If (密碼 ) = Text2 Then 主窗體 .Show Unload Me Else MsgBox 密碼錯誤，重新輸入 , vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then Unload Me End Sub Private Sub CmdCancel_Click() 沈陽理工大學(xué)課程設(shè)計專用紙 No16 16 沈陽理工大學(xué) Unload Me End Sub （ 3） 注冊新用戶代碼 Private Sub Command1_Click() Dim sqlstr As String If Text1 = Then MsgBox 請輸入用戶名！ , vbExclamation, 確認(rèn)用戶名 Exit Sub Else sqlstr = Select * from 密碼表 where 用戶名 =39。 = sqlstr If = False Then MsgBox 用戶名已存在，請重新輸入！ , vbExclamation, 檢驗用戶名 Text1 = Exit Sub End If End If If Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請重新輸入 , vbExclamation, 檢驗密碼 Text2 = : Text3 = Exit Sub ElseIf Text2 = Then MsgBox 密碼不能為空！ , vbExclamation, 檢驗密碼 Else (用戶名 ) = Trim(Text1) (密碼 ) = Trim(Text2) MsgBox 成功注冊新用戶！ , vbInformation, 添加用戶 End If End Sub Private Sub Command2_Click() Unload Me End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No17 17 沈陽理工大學(xué) 數(shù)據(jù)查詢模塊的詳細設(shè)計 利用 VB 工程實現(xiàn) ，頁面的設(shè)計如下圖： 各查詢頁面 圖 124 查詢樓盤信息頁面 圖 125 查詢合 同信息頁面 沈陽理工大學(xué)課程設(shè)計專用紙 No18 18 沈陽理工大學(xué) 圖 126 查詢收款信息頁面 圖 127 查詢收款合同信息頁面 沈陽理工大學(xué)課程設(shè)計專用紙 No19 19 沈陽理工大學(xué) 圖 128 查詢售樓合同信息頁面 各查詢 模塊 功能 bo1 主要是實現(xiàn)查詢條件的多樣化，即可以實現(xiàn)利用不同的條件進行查詢， text1 則主要是接收查詢信息，用來匹對相關(guān)信息，如果相符則輸出相符的元組。 amp。 where 樓盤信息 .樓號 like39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 樓盤信息 .戶型 like39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 合同信息 .購買人姓名 like39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 合同信息 .付款方式 like39。 = sqlstr ElseIf (7) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 收款信息 .收款金額 like39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 收款合同信息 .收款編號 like39。 = sqlstr 沈陽理工大學(xué)課程設(shè)計專用紙 No27 27 沈陽理工大學(xué) ElseIf (2) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 售樓合同信息 .合同編號 like39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 沈陽理工大學(xué)課程設(shè)計專用紙 No28 28 沈陽理工大學(xué) %39。 Trim() amp。 Command是對數(shù)據(jù)的查看以及管理，根據(jù)按鈕的顯示可以對數(shù)據(jù)進行添加、刪除等操作， 旁邊 的主要是與數(shù)據(jù)源相連，以實現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù) 進行管理，管理窗口主要實現(xiàn)數(shù)據(jù)的管理功能，輸出框與 相連之后可以實現(xiàn)對數(shù)據(jù)管理的輸出。 讓 [前移 ]按鈕無效 = True 39。 amp。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。[前移 ]按鈕無效 = True 39。 / amp。 讓 [前移 ]按鈕無效 = True 39。 amp。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdok_Click() = True = True = False = False 沈陽理工大學(xué)課程設(shè)計專用紙 No41 41 沈陽理工大學(xué) End Sub Private Sub Cmdpre_Click() 39。 amp。[前移 ]按鈕無效 = True 39。 / amp。 讓 [前移 ]按鈕無效 = True 39。 amp。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。[前移 ]按鈕無效 沈陽理工大學(xué)課程設(shè)計專用紙 No44 44 沈陽理工大學(xué) = True 39。 / amp。 讓 [前移 ]按鈕無效 = True 39。 amp。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No46 46 沈陽理工大學(xué) Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。[前移 ]按鈕無效 = True 39。 / amp。 讓 [前移 ]按鈕無效 = True 39。 amp。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。[前移 ]按鈕無效 = True 39。 / amp。 通過本次課程設(shè)計 使我了解了開發(fā)一個項目的全部過程并掌握了一些知識。數(shù)據(jù)庫技術(shù)是計算機科學(xué)中發(fā)展最快的領(lǐng)域之一，也適應(yīng)最廣泛的技術(shù)之