【導讀】設計為MDI窗體，含有主菜單：[文件]、[數(shù)據(jù)管理]、[數(shù)據(jù)查詢]。總體結(jié)構(gòu)設計，設計調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。撰寫課程設計報告，驗收與答辯。近幾年，中國經(jīng)濟快速、平穩(wěn)發(fā)展，伴隨著中國城市化進程加快和住房體制的改革，售樓信息管理系統(tǒng)就是為了實現(xiàn)這一目標而設計的，管理人員通過該系統(tǒng)可以及時了。的其他各種詳細資料，以便及時做出正確決策。并對售樓數(shù)據(jù)進行添加、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己。系統(tǒng)以中文版VisualBasic為前臺開發(fā)工具，用中文版SQL2020作為后臺數(shù)據(jù)庫。

　　

【正文】 = False = False = True = True End Sub Private Sub cmdbg_Click() 所有收款信息 .Show End Sub Private Sub cmddel_Click() 沈陽理工大學課程設計專用紙 No42 42 x = MsgBox(確實要刪除當前記錄嗎？ , vbYesNo + vbQuestion, 確認 ) 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。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯示當前記錄號 /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdlast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 沈陽理工大學課程設計專用紙 No43 43 End Sub Private Sub cmdnext_Click() 39。記錄指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。后移 ]按鈕有效 = True 39。[末記錄 ]按鈕有效 = False 沈陽理工大學課程設計專用紙 No44 44 = False = True = True = 記錄： amp。 amp。 / 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(確實要刪除當前記錄嗎？ , vbYesNo + vbQuestion, 確認 ) If x = vbYes Then If Then End If Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False 沈陽理工大學課程設計專用紙 No45 45 End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯示當前記錄號 /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdlast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdnext_Click() 39。記錄 指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdok_Click() 沈陽理工大學課程設計專用紙 No46 46 = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。后移 ]按鈕有效 = True 39。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 amp。 / amp。 End Sub 所有收款合同信息代碼： Private Sub cmdfh_Click() 管理收款合同信息 .Show Unload Me End Sub （ 5）管理售樓合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True 沈陽理工大學課程設計專用紙 No47 47 End Sub Private Sub cmdbg_Click() 所有售樓合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實要刪除當前記錄嗎？ , vbYesNo + vbQuestion, 確認 ) 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。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯示當前記錄號 /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub 沈陽理工大學課程設計專用紙 No48 48 Private Sub cmdlast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdnext_Click() 39。記錄指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub 沈陽理工大學課程設計專用紙 No49 49 Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。后移 ]按鈕有效 = True 39。[末 記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 amp。 / amp。 End Sub 所有售樓合同信息代碼： Private Sub cmdfh_Click() 管理售樓合同信息 .Show Unload Me End Sub 沈陽理工大學課程設計專用紙 No50 50 總結(jié) 在研究售樓信息系統(tǒng)發(fā)展現(xiàn)狀的基礎上，本文設計了售樓信息管理系統(tǒng)，利用 VB 進行實現(xiàn)。實現(xiàn)了需求分析階段提出的售樓信息管理功能，包括樓盤信息管理，合同信息管理，收款信息管理，收款合同信息管理，售樓合同信息管理等，完成了樓盤信息查詢，合同信息查詢，收款信息查詢，收款合同信息查詢，售樓合同信息查詢等，解決了對客戶資料、售樓合同、收費情況進行整理的工作量大的問題。對于提高工作效率和系統(tǒng)的可靠性，規(guī)范售樓信息管理起到了積極作用，具有一定的經(jīng) 濟效益。 通過本次課程設計使我了解了開發(fā)一個項目的全部過程并掌握了一些知識。開發(fā)一個系統(tǒng)并不是一帆風順的事情，既要邊實驗，邊學習，又要解決許多新問題。在整個調(diào)試過程有許多環(huán)節(jié)是反復試驗，多次更改才定型的。讓我基本掌握了數(shù)據(jù)庫系統(tǒng)的基礎理論、基本技術、和基本方法。數(shù)據(jù)庫技術是計算機科學中發(fā)展最快的領域之一，也適應最廣泛的技術之一。數(shù)據(jù)庫管理系統(tǒng)是信息安全的核心之一。 Visual Basic 為前臺開發(fā)工具，用中文版 SQL 2020 作為后臺數(shù)據(jù)庫。 沈陽理工大學課程設計專用紙 No51 51 參考文獻 [1] 王珊 ， 數(shù)據(jù)庫系統(tǒng)簡明教程 ，高等教育 出版社， 2020 [2] 王要武，管理系統(tǒng)，電子工業(yè)出版社， 2020 [3] 李紅等編著，管理信息系統(tǒng)開發(fā)與應用，電子工業(yè)出版社， 2020 [4] 周之英縞著，現(xiàn)代軟件工程，科學出版社， 2020 [5] 林立軍，程斌，翁迪恩