【正文】 Then End If Else End If End Sub Private Sub cmdesc_Click() = True 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No45 45 沈陽理工大學(xué) = True = False = False End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 End Sub 所有合同信息代碼： Private Sub cmdfh_Click() 管理合同信息 .Show Unload Me End Sub （ 3）管理收款 信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有收款信息 .Show 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No42 42 沈陽理工大學(xué) End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確 認(rèn) ) If x = vbYes Then If Then End If 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。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No39 39 沈陽理工大學(xué) End Sub 所有樓盤信息代碼： Private Sub cmdfh_Click() 管理樓盤信息 .Show Unload Me End Sub （ 2）管理合同 信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False End Sub Private Sub cmdfh_Click() 主窗體 .Show 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No40 40 沈陽理工大學(xué) Unload Me End Sub Private Sub cmdfirst_Click() 39。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 （ 1）管理合同信息： 當(dāng)顯示管理信息頁面時(shí)，點(diǎn)擊按鈕可以查詢每條信息記錄，并對(duì)其進(jìn)行新增與刪除，如下圖所示 圖 144 新增一條合同記錄頁面 對(duì)象屬性值表： 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行，記錄： 文本框 DataSource Adodc1 DataField 合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行，記錄： Text 空，其他默認(rèn) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No35 35 沈陽理工大學(xué) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回， 首記錄， 前一個(gè)，后一個(gè)，末記錄，表格顯示 表 1— 9 （ 2）管理樓盤信息： 對(duì)象屬性值表： 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回， 首記錄， 前一個(gè)，后一個(gè)，末記錄，表格顯示 表 1— 10 （ 3）管理收款信息： 對(duì)象屬性值表： 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 收款編號(hào)，交款日期，收款金額，交款人，收款人，記錄： 文本框 DataSource Adodc1 DataField 收款編號(hào)，交款日期，收款金額，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回， 首記錄， 前一個(gè)，后一個(gè)，末記錄，表格顯示 表 1— 11 （ 4）管理收款合同信息： 對(duì)象屬性值表： 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號(hào)，收款編號(hào)，交款人，收款人，記錄： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No36 36 沈陽理工大學(xué) 文本框 DataSource Adodc1 DataField 合同編號(hào)，收款編號(hào)，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回， 首記錄， 前一個(gè)，后一個(gè)，末記錄，表格顯示 表 1— 12 （ 5）管理售樓合同信息： 對(duì)象屬性值表： 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期 ，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期 ，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回， 首記錄， 前一個(gè)，后一個(gè)，末記錄，表格顯示 表 1— 13 各管理 模塊 詳細(xì)設(shè)計(jì)代碼 （ 1）管理樓盤 信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有樓盤信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No37 37 沈陽理工大學(xué) If Then End If 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。 = sqlstr ElseIf (3) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 收款合同信息 .交款人 like39。 Trim() amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 amp。 %39。 where 合同信息 .貸款銀行 like39。 Trim() amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 樓盤信息 .面積 like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 amp。輸出框下面的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實(shí)現(xiàn)查詢功能，輸出框與 相連之后可以實(shí)現(xiàn)對(duì)查詢結(jié)果的輸出。 = sqlstr If Then 39。 （ 5）收款合同信息： 包括 收款合同信息 的添加 、 刪除 和查詢 。 （ 1） 樓盤 信息 ：包括樓盤信息的添加 、 刪除 和查詢 。 本系統(tǒng)主要實(shí)現(xiàn)以下功能： 售樓 管理， 即 管理所有的 售樓 信息、 合同信息、收款信息，并 對(duì) 售樓 數(shù)據(jù)進(jìn)行添加、 刪 除等操作。 關(guān)鍵詞： Visual Basic SQL sever 2021 售樓 信息 管理系統(tǒng) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 Noii 沈陽理工大學(xué) 目 錄 第一章 系統(tǒng)功能概述 ..................................................................................................................1 系統(tǒng)功能分析 ..................................................................................................................1 系統(tǒng)結(jié)構(gòu)圖 ......................................................................................................................1 第二章 數(shù)據(jù)庫設(shè)計(jì) ......................................................................................................................2 需求分析 ....................................................................