【正文】 vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No37 37 Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 %39。 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No28 28 = sqlstr ElseIf (3) = 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 End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 合同編號 合同簽定日期 購買人姓名 身份證號 售樓人員姓名 合同單價(jià) 付款方式 貸款銀行 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 (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() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 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 (3) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 where 樓盤信息 .單元號 like39。 amp。 Trim() amp。輸出框下面的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實(shí)現(xiàn)查詢功能，輸出框與 相連之后可以實(shí)現(xiàn)對查詢結(jié)果的輸出。 amp。 = sqlstr If Then 39。用于記錄輸入密碼次數(shù) Private Sub CmdLand_Click() Dim sqlstr As String sqlstr = Select * From 密碼表 Where 用戶名 = 39。 （ 5）收款合同信息： 包括 收款合同信息 的添加 、 刪除 和查詢 。 （ 3）合同信息： 包括 合同信息 的添加 、 刪除 和查詢。 （ 1） 樓盤 信息 ：包括樓盤信息的添加 、 刪除 和查詢 。 具體主要實(shí)現(xiàn)如下功能： 售樓信息 管理部分包括樓盤 信息管理 、 合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理， 其功能是 分別 實(shí)現(xiàn)對樓盤 信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分 數(shù)據(jù)內(nèi)容的添加 、 刪除等操作。 本系統(tǒng)主要實(shí)現(xiàn)以下功能： 售樓 管理， 即 管理所有的 售樓 信息、 合同信息、收款信息，并 對 售樓 數(shù)據(jù)進(jìn)行添加、刪除等操作。 第二周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體及打印報(bào)表功能。 成 績 評 定 表 學(xué)生姓名 班級學(xué)號 專 業(yè) 課程設(shè)計(jì)題目 售樓信息管理系統(tǒng) 評 語 組長簽字： 成績 日期 2020 年 12 月 日 課程設(shè)計(jì)任務(wù)書 學(xué) 院 專 業(yè) 學(xué)生姓名 班級學(xué)號 課程設(shè)計(jì)題目 售樓信息管理系統(tǒng) 實(shí)踐教學(xué)要求與任務(wù) : 設(shè)計(jì)為 MDI 窗體，含有主菜單： [文件 ]、 [數(shù)據(jù)管理 ]、 [數(shù)據(jù)查詢 ]。 撰寫課程設(shè)計(jì)報(bào)告，驗(yàn)收與答辯。此外，方便的查詢功能可以使客戶迅速地找到自己所需的 售樓 信息 ； 系統(tǒng)的核心實(shí)現(xiàn)對樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費(fèi)等情況的管理。 售樓信息查詢部分包括 樓盤 信息查詢 、 合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息 查詢，其功能是分別 實(shí)現(xiàn)對樓盤 信息、合同信息、收款信息、售樓合同信息和收款合同信息查詢的各部分 數(shù)據(jù)內(nèi)容的 查詢 操作。樓盤信息包括樓盤編號 ，樓號，單元號， 樓 層， 房號 ，戶型和面積 。合同信息包括合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價(jià)，付款方式和貸款銀行。 收款合同信息包括 收款 編號 ，合同編號，交款人和收款人。 amp。若沒找到符合 Where 條件的記錄 MsgBox 用戶名錯(cuò)誤，重新輸入 , vbExclamation, 警告 = 39。 Text1 amp。 （ 1） 查詢樓盤信息 選擇查詢對象，輸入所要查詢對象的內(nèi)容，點(diǎn)擊查詢按鈕，進(jìn)行查詢，如圖所示 圖 對樓盤信息進(jìn)行查詢 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No20 20 對象的屬性值表： 表 1— 4 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：樓盤編號，樓號，單元號，樓層，房號，戶型，面積 標(biāo)簽控件 Name Label1 Caption 選擇查詢對象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 2） 查詢合同信息 當(dāng)查詢合同信息時(shí)，對 ’購買人姓名 ’查詢對象進(jìn)行查詢，輸入王字進(jìn)行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示 圖 對合同信息進(jìn)行查詢 對象的屬性值表： 表 1— 5 控件名 屬性 設(shè)置 值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行 標(biāo)簽控件 Name Label1 Caption 選擇查詢對象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No21 21 （ 3） 查詢收款信息 圖 對收款信息進(jìn)行查詢 對象的屬性值表： 表 1— 6 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：收款編號，交款日期，收款金額，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢對象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 4） 查詢收款合同信息 圖 對收款合同信息進(jìn)行查詢 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No22 22 對象的屬性值表： 表 1— 7 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號，收款編號，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢對象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) （ 5） 查詢售樓合同信息 圖 對售樓合同信息進(jìn)行查詢 對象的屬性值表： 表 1— 8 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：樓盤編號，合同編號，身份證號，合同簽訂日期 標(biāo)簽控件 Name Label1 Caption 選擇查詢對象 命令按鈕 Name cmdcx cmdfh Caption 查詢 返回 DataGrid1 屬性默認(rèn) 各查詢模塊詳細(xì)設(shè)計(jì)代碼 （ 1）查詢樓盤信息代碼 Private Sub cmdcx_Click() Dim sqlstr As String If (0) = Then 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No23 23 sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 樓盤信息 .樓層 like39。 = sqlstr ElseIf (4) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 合同信息 .合同編號 like39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 合同信息 .售樓人員姓名 like39。 = sqlstr ElseIf (5) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 收款信息 .收款編號 like39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 %39。 Trim() amp。 amp。 where 收款信息 .收款人 like39。 = 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