【正文】 (確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo + 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。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [后移 ]按鈕有效 = True 39。在 Label8 上顯示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。記錄指針移到下一條記錄 = True = True 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No38 38 If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 / amp。[首記錄 ]按鈕無效 = False 39。后移 ]按鈕有效 = True 39。 amp。 End Sub 所有樓盤信息代碼： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No39 39 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í)要刪除當(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 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No40 40 Private Sub cmdfirst_Click() 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [后移 ]按鈕有效 = True 39。在 Label6 上顯 示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。記錄指針移到下一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 / amp。[首記錄 ]按鈕無效 = False 39。后移 ]按鈕有效 = True 39。 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 End Sub Private Sub cmddel_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No42 42 x = MsgBox(確實(shí)要刪除當(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。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [后移 ]按鈕有效 = True 39。在 Label6 上顯示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。記錄指針移到下一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 / amp。[首記錄 ]按鈕無效 = False 39。后移 ]按鈕有效 = True 39。 amp。 End Sub 所有收款信息代碼： Private Sub cmdfh_Click() 管理收款信息 .Show Unload Me End Sub （ 4）管理收款合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有收款合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(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 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No45 45 End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [后移 ]按鈕有效 = True 39。在 Label6 上顯示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。記錄 指針移到下一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 / amp。[首記錄 ]按鈕無效 = False 39。后移 ]按鈕有效 = True 39。 amp。 End Sub 所有收款合同信息代碼： Private Sub cmdfh_Click() 管理收款合同信息 .Show Unload Me End Sub （ 5）管理售樓合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No47 47 End Sub Private Sub cmdbg_Click() 所有售樓合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(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。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [后移 ]按鈕有效 = True 39。在 Label6 上顯示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。記錄指針移到下一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 / amp。[首記錄 ]按鈕無效 = False 39。后移 ]按鈕有效 = True 39。 amp。 End Sub 所有售樓合同信息代碼： Private Sub cmdfh_Click() 管理售樓合同信息 .Show Unload Me End Sub 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No50 50 總結(jié) 在研究售樓信息系統(tǒng)發(fā)展現(xiàn)狀的基礎(chǔ)上，本文設(shè)計(jì)了售樓信息管理系統(tǒng)，利用 VB 進(jìn)行實(shí)現(xiàn)。對于提高工作效率和系統(tǒng)的可靠性，規(guī)范售樓信息管理起到了積極作用，具有一定的經(jīng) 濟(jì)效益。開發(fā)一個(gè)系統(tǒng)并不是一帆風(fēng)順的事情，既要邊實(shí)驗(yàn)，邊學(xué)習(xí)，又要解決許多新問題。讓我基本掌握了數(shù)據(jù)庫系統(tǒng)的基礎(chǔ)理論、基本技術(shù)、和基本方法。數(shù)據(jù)庫管理系統(tǒng)是信息安全的核心之一。 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No51 51 參考文獻(xiàn) [1] 王珊 ， 數(shù)據(jù)庫系統(tǒng)簡明教程 ，高等教育 出版社， 2020 [2] 王要武，管理系統(tǒng)，電子工業(yè)出版社， 2020 [3] 李紅等編著，管理信息系統(tǒng)開發(fā)與應(yīng)用，電子工業(yè)出版社， 2020 [4] 周之英縞著，現(xiàn)代軟件工程，科學(xué)出版社， 2020 [5] 林立軍，程斌，翁迪