【正文】 ，若輸入正確，則可以對(duì)售樓信息進(jìn)行管理與查詢，否則退出系統(tǒng) 對(duì)象的屬性值表： 表 12 對(duì)象名 屬性名 屬性值 標(biāo)簽框 Name Label1 Label2 Caption 輸入用 戶 輸入密碼 命令按鈕 Name CmdLand CmdCancel Caption 登錄 取消 文本框 Name Text1 Text2 （ 3） 注冊(cè)新用戶 對(duì)新用戶進(jìn)行注冊(cè)，輸入用戶名與密碼，點(diǎn)擊登錄按鈕，用戶注冊(cè)成功，否則退出系統(tǒng) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No15 15 對(duì)象的屬性值表： 表 13 對(duì)象名 屬性名 屬性值 標(biāo)簽框 Name Label1 Label2 Label3 Caption 用戶名 輸入密碼 確認(rèn)密碼 命令按鈕 Name Command1 Command2 Caption 登錄 取消 文本框 Name Text1 Text2 Text3 各模塊詳細(xì)設(shè)計(jì)代碼 （ 1） 進(jìn)入售樓管理系統(tǒng)代碼 Private Sub Command1_Click() Unload Me 登錄 .Show End Sub （ 2） 用戶登錄代碼 Dim miCount As Integer 39。 判斷密碼是否正確 If (密碼 ) = Text2 Then 主窗體 .Show Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入 , vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then Unload Me 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No16 16 End Sub Private Sub CmdCancel_Click() Unload Me End Sub （ 3） 注冊(cè)新用戶代碼 Private Sub Command1_Click() Dim sqlstr As String If Text1 = Then MsgBox 請(qǐng)輸入用戶名！ , vbExclamation, 確認(rèn)用戶名 Exit Sub Else sqlstr = Select * from 密碼表 where 用戶名 =39。 amp。 = sqlstr ElseIf (2) = 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 (3) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 Trim() amp。 where 收款合同信息 .收款編號(hào) like39。 %39。 amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 Trim() amp。 讓 [前移 ]按鈕無效 = True 39。 amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。[前移 ]按鈕無效 = True 39。 讓 [前移 ]按鈕無效 = True 39。 amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No41 41 39。[前移 ]按鈕無效 = True 39。 讓 [前移 ]按鈕無效 = True 39。 amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。[前移 ]按鈕無效 = True 39。 讓 [前移 ]按鈕無效 = True 39。 amp。 End Sub Private Sub cmdok_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No46 46 = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。[前移 ]按鈕無效 = True 39。 讓 [前移 ]按鈕無效 = True 39。 amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。[前移 ]按鈕無效 = True 39。 通過本次課程設(shè)計(jì)使我了解了開發(fā)一個(gè)項(xiàng)目的全部過程并掌握了一些知識(shí)。 Visual Basic 為前臺(tái)開發(fā)工具，用中文版 SQL 2020 作為后臺(tái)數(shù)據(jù)庫。實(shí)現(xiàn)了需求分析階段提出的售樓信息管理功能，包括樓盤信息管理，合同信息管理，收款信息管理，收款合同信息管理，售樓合同信息管理等，完成了樓盤信息查詢，合同信息查詢，收款信息查詢，收款合同信息查詢，售樓合同信息查詢等，解決了對(duì)客戶資料、售樓合同、收費(fèi)情況進(jìn)行整理的工作量大的問題。 End Sub 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No49 49 Private Sub Form_Load() = False 39。 amp。 End Sub 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No48 48 Private Sub cmdlast_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 End Sub Private Sub Form_Load() = False 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 End Sub Private Sub Form_Load() = False 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 End Sub Private Sub Form_Load() = False 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 End Sub Private Sub Form_Load() = False 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 where 售樓合同信息 .合同簽訂日期 like39。 Trim() amp。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 合同編號(hào) 收款編號(hào) 交款人 收款 人 End Sub （ 5）查詢售樓合同信息代碼 Private Sub cmdcx_Click() Dim sqlstr As String If (0) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 收款信息 .收款人 like39。 Trim() amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 amp。 %39。 where 合同信息 .售樓人員姓名 like39。 Trim() amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 樓盤信息 .樓層 like39。 Trim() amp。 （ 1） 查詢樓盤信息 選擇查詢對(duì)象，輸入所要查詢對(duì)象的內(nèi)容，點(diǎn)擊查詢按鈕，進(jìn)行查詢，如圖所示 圖 對(duì)樓盤信息進(jìn)行查詢 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No20 20 對(duì)象的屬性值表： 表 1— 4 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積 標(biāo)簽控件 Name Label1 Caption 選擇查詢對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 2） 查詢合同信息 當(dāng)查詢合同信息時(shí)，對(duì) ’購買人姓名 ’查詢對(duì)象進(jìn)行查詢，輸入王字進(jìn)行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示 圖 對(duì)合同信息進(jìn)行查詢 對(duì)象的屬性值表： 表 1— 5 控件名 屬性 設(shè)置 值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行 標(biāo)簽控件 Name Label1 Caption 選擇查詢對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No21 21 （ 3） 查詢收款信息 圖 對(duì)收款信息進(jìn)行查詢 對(duì)象的屬性值表： 表 1— 6 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：收款編號(hào)，交款日期，收款金額，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 4） 查詢收款合同信息 圖 對(duì)收款合同信息進(jìn)行查詢 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No22 22 對(duì)象的屬性值表： 表 1— 7 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號(hào)，收款編號(hào)，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 5） 查詢售樓合同信息 圖 對(duì)售樓合同信息進(jìn)行查詢 對(duì)象的屬性值表： 表 1— 8 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Comb