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

　　

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