【正文】 號(hào) like39。 %39。 amp。 = sqlstr ElseIf (7) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where 合同信息 .付款方式 like39。 %39。 amp。 = sqlstr ElseIf (5) = 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 合同信息 .購(gòu)買(mǎi)人姓名 like39。 %39。 amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where 合同信息 .合同編號(hào) like39。 %39。 amp。 = sqlstr ElseIf (6) = Then sqlstr = select * from 樓盤(pán)信息 sqlstr = sqlstr amp。 Trim() amp。 where 樓盤(pán)信息 .戶(hù)型 like39。 %39。 amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 樓盤(pán)信息 sqlstr = sqlstr amp。 Trim() amp。 where 樓盤(pán)信息 .樓層 like39。 %39。 amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 樓盤(pán)信息 sqlstr = sqlstr amp。 Trim() amp。 where 樓盤(pán)信息 .樓號(hào) like39。 %39。 amp。 （ 1） 查詢(xún)樓盤(pán)信息 選擇查詢(xún)對(duì)象，輸入所要查詢(xún)對(duì)象的內(nèi)容，點(diǎn)擊查詢(xún)按鈕，進(jìn)行查詢(xún)，如圖所示 圖 對(duì)樓盤(pán)信息進(jìn)行查詢(xún) 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No20 20 對(duì)象的屬性值表： 表 1— 4 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：樓盤(pán)編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶(hù)型，面積 標(biāo)簽控件 Name Label1 Caption 選擇查詢(xún)對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢(xún) 返回 DataGrid1 屬性默認(rèn) （ 2） 查詢(xún)合同信息 當(dāng)查詢(xún)合同信息時(shí)，對(duì) ’購(gòu)買(mǎi)人姓名 ’查詢(xún)對(duì)象進(jìn)行查詢(xún)，輸入王字進(jìn)行模糊查詢(xún)，在合同信息表里就可以看到所查的信息，如下圖所示 圖 對(duì)合同信息進(jìn)行查詢(xún) 對(duì)象的屬性值表： 表 1— 5 控件名 屬性 設(shè)置 值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號(hào)，合同簽訂日期，購(gòu)買(mǎi)人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行 標(biāo)簽控件 Name Label1 Caption 選擇查詢(xún)對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢(xún) 返回 DataGrid1 屬性默認(rèn) 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No21 21 （ 3） 查詢(xún)收款信息 圖 對(duì)收款信息進(jìn)行查詢(xún) 對(duì)象的屬性值表： 表 1— 6 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：收款編號(hào)，交款日期，收款金額，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢(xún)對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢(xún) 返回 DataGrid1 屬性默認(rèn) （ 4） 查詢(xún)收款合同信息 圖 對(duì)收款合同信息進(jìn)行查詢(xún) 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No22 22 對(duì)象的屬性值表： 表 1— 7 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：合同編號(hào)，收款編號(hào)，交款人，收款人 標(biāo)簽控件 Name Label1 Caption 選擇查詢(xún)對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢(xún) 返回 DataGrid1 屬性默認(rèn) （ 5） 查詢(xún)售樓合同信息 圖 對(duì)售樓合同信息進(jìn)行查詢(xún) 對(duì)象的屬性值表： 表 1— 8 控件名 屬性 設(shè)置值 文本框 Name Text1 組合框 Name Combo1 List Combo1：樓盤(pán)編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期 標(biāo)簽控件 Name Label1 Caption 選擇查詢(xún)對(duì)象 命令按鈕 Name cmdcx cmdfh Caption 查詢(xún) 返回 DataGrid1 屬性默認(rèn) 各查詢(xún)模塊詳細(xì)設(shè)計(jì)代碼 （ 1）查詢(xún)樓盤(pán)信息代碼 Private Sub cmdcx_Click() Dim sqlstr As String If (0) = Then 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No23 23 sqlstr = select * from 樓盤(pán)信息 sqlstr = sqlstr amp。 = sqlstr If = False Then MsgBox 用戶(hù)名已存在，請(qǐng)重新輸入！ , vbExclamation, 檢驗(yàn)用戶(hù)名 Text1 = Exit Sub End If End If If Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請(qǐng)重新輸入 , vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Exit Sub ElseIf Text2 = Then MsgBox 密碼不能為空！ , vbExclamation, 檢驗(yàn)密碼 Else (用戶(hù)名 ) = Trim(Text1) (密碼 ) = Trim(Text2) MsgBox 成功注冊(cè)新用戶(hù)！ , vbInformation, 添加用戶(hù) End If End Sub Private Sub Command2_Click() Unload Me End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No17 17 數(shù)據(jù)查詢(xún)模塊的詳細(xì)設(shè)計(jì) 利用 VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖： 各查詢(xún)頁(yè)面 圖 查詢(xún)樓盤(pán)信息頁(yè)面 圖 查詢(xún)合同信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No18 18 圖 查詢(xún)收款信息頁(yè)面 圖 查詢(xún)收款合同信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No19 19 圖 查詢(xún)售樓合同信息頁(yè)面 各查詢(xún)模塊 功能 bo1 主要是實(shí)現(xiàn)查詢(xún)條件的多樣化，即可以實(shí)現(xiàn)利用不同的條件進(jìn)行查詢(xún)， text1 則主要是接收查詢(xún)信息，用來(lái)匹對(duì)相關(guān)信息，如果相符則輸出相符的元組。 Text1 amp。 判斷密碼是否正確 If (密碼 ) = Text2 Then 主窗體 .Show Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入 , vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then Unload Me 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No16 16 End Sub Private Sub CmdCancel_Click() Unload Me End Sub （ 3） 注冊(cè)新用戶(hù)代碼 Private Sub Command1_Click() Dim sqlstr As String If Text1 = Then MsgBox 請(qǐng)輸入用戶(hù)名！ , vbExclamation, 確認(rèn)用戶(hù)名 Exit Sub Else sqlstr = Select * from 密碼表 where 用戶(hù)名 =39。若沒(méi)找到符合 Where 條件的記錄 MsgBox 用戶(hù)名錯(cuò)誤，重新輸入 , vbExclamation, 警告 = 39。 39。 amp。 [文件 ]菜單包含以下子菜單及其功能： [注冊(cè)新用戶(hù) ]菜單：打開(kāi)“注冊(cè)新用戶(hù)”窗體 [退出 ]菜單：結(jié)束程序運(yùn)行 [數(shù)據(jù)管理 ] 包含以下子菜單： [管理 樓盤(pán) 信息 ]菜單：顯示管理樓盤(pán)信息窗體 [管理合同信息 ]菜單：顯示管理合同信息窗體 [管理收款信息 ]菜單：顯示管理收款信息窗體 [管理收款合同信息 ]菜單：顯示管理收款合同信息窗體 [管理售樓合同信息 ]菜單：顯示管理售樓合同信息窗體 [數(shù)據(jù)查詢(xún) ]包含以下子菜單： [查詢(xún) 樓盤(pán) 信息 ]：顯示查詢(xún) 樓盤(pán) 信息窗 體 [查詢(xún)合同信息 ]：顯示查詢(xún)合同信息窗體 [查詢(xún)收款信息 ]：顯示查詢(xún)收款信息窗體 [查詢(xún)收款合同信息 ]：顯示查詢(xún)收款合同信息窗體 [查詢(xún)售樓合同信息 ]：顯示查詢(xún)售樓合同信息窗體 主窗體模塊 詳細(xì) 設(shè)計(jì)代碼 Private Sub 查詢(xún)合同信息 1_Click() 查詢(xún)合同信息 .Show End Sub Private Sub 查詢(xún)樓盤(pán)信息 1_Click() 查詢(xún)樓盤(pán)信息 .Show 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No12 12 End Sub Private Sub 查詢(xún)收款合同信息 1_Click() 查詢(xún)收款合同信息 .Show End Sub Private Sub 查詢(xún)收款信息 1_Click() 查詢(xún)收款信息 .Show End Sub Private Sub 查詢(xún)售樓合同信息 1_Click() 查詢(xún)售樓合同信息 .Show End Sub Private Sub 管理合同信息 1_Click() 管理合同信息 .Show End Sub Private Sub 管理樓盤(pán)信息 1_Click() 管理樓盤(pán)信息 .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 注冊(cè)新用戶(hù) 1_Click() 注冊(cè)新用戶(hù) .Show End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No13 13 用戶(hù)管理模塊的詳細(xì)設(shè)計(jì) 利用 VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖： （ 1）進(jìn)入售樓管理系統(tǒng)頁(yè)面 圖 （ 2）用戶(hù)登錄頁(yè)面 圖 （ 3）注冊(cè)新用戶(hù)頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No14 14 圖 各模塊功能 （ 1）進(jìn)入售樓管理系統(tǒng) 點(diǎn)擊進(jìn)入按鈕，進(jìn)入主窗體 對(duì)象的屬性值表： 表 11 對(duì)象名 屬性名 屬性值 命令按鈕 Name Command1 Caption 進(jìn)入系統(tǒng) （ 2） 用戶(hù)登錄 輸入用戶(hù)與密碼，若輸入正確，則可以對(duì)售樓信息進(jìn)行管理與查詢(xún)，否則退出系統(tǒng) 對(duì)象的屬性值表： 表 12 對(duì)象名 屬性名 屬性值 標(biāo)簽框 Name Label1 Label2 Caption 輸入用 戶(hù) 輸入密碼 命令按鈕 Name CmdLand CmdCancel Caption 登錄 取消 文本框 Name Text1 Text2 （ 3） 注冊(cè)新用戶(hù) 對(duì)新用戶(hù)進(jìn)行注冊(cè)，輸