【正文】 Visual Basic 為前臺(tái)開(kāi)發(fā)工具，用中文版 SQL 2020 作為后臺(tái)數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)技術(shù)是計(jì)算機(jī)科學(xué)中發(fā)展最快的領(lǐng)域之一，也適應(yīng)最廣泛的技術(shù)之一。在整個(gè)調(diào)試過(guò)程有許多環(huán)節(jié)是反復(fù)試驗(yàn)，多次更改才定型的。 通過(guò)本次課程設(shè)計(jì)使我了解了開(kāi)發(fā)一個(gè)項(xiàng)目的全部過(guò)程并掌握了一些知識(shí)。實(shí)現(xiàn)了需求分析階段提出的售樓信息管理功能，包括樓盤信息管理，合同信息管理，收款信息管理，收款合同信息管理，售樓合同信息管理等，完成了樓盤信息查詢，合同信息查詢，收款信息查詢，收款合同信息查詢，售樓合同信息查詢等，解決了對(duì)客戶資料、售樓合同、收費(fèi)情況進(jìn)行整理的工作量大的問(wèn)題。 / amp。[末 記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。[前移 ]按鈕無(wú)效 = True 39。 End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No49 49 Private Sub Form_Load() = False 39。 amp。 如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdnext_Click() 39。 amp。 End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No48 48 Private Sub cmdlast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 / amp。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Form_Load() = False 39。 amp。 如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub cmdok_Click() 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No46 46 = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdnext_Click() 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 / amp。[末記錄 ]按鈕有效 = False 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No44 44 = False = True = True = 記錄： amp。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Form_Load() = False 39。 amp。 如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No43 43 End Sub Private Sub cmdnext_Click() 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 / amp。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Form_Load() = False 39。 amp。 如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No41 41 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdnext_Click() 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 / amp。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Form_Load() = False 39。 amp。 如果記錄指針移到首記錄 之前 , 39。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub cmdnext_Click() 39。 amp。 End Sub Private Sub cmdlast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 Command是對(duì)數(shù)據(jù)的查看以及管理，根據(jù)按鈕的顯示可以對(duì)數(shù)據(jù)進(jìn)行添加、刪除等操作， 旁邊的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行管理，管理窗口主要實(shí)現(xiàn)數(shù)據(jù)的管理功能，輸出框與 相連之后可以實(shí)現(xiàn)對(duì)數(shù)據(jù)管理的輸出。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 樓盤編號(hào) 合同編號(hào) 身份證號(hào) 合同簽訂日期 End Sub 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計(jì) 利用 VB工程實(shí)現(xiàn)，頁(yè)面的設(shè)計(jì)如下圖： 各管理頁(yè)面 （ 1）管理樓盤信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No29 29 圖 管理樓盤信息頁(yè)面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有樓盤信息頁(yè)面 圖 顯示所有樓盤信息表 （ 2）管理合同信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No30 30 圖 管理合同信息頁(yè)面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有合同信息頁(yè)面 圖 顯示所有合同信息表 （ 3）管理收款信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No31 31 圖 管理收款信息頁(yè)面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有收款信息頁(yè)面 圖 顯示所有收款信息表 （ 4）管理收款合同信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No32 32 圖 管理收款合同信息頁(yè)面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有收款合同信息頁(yè)面 圖 顯示所有收款合同信息表 （ 5）管理售樓合同信息頁(yè)面 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No33 33 圖 管理收款合同信息頁(yè)面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有售樓合同信息頁(yè)面 圖 顯示所有售樓合同信息表 各管理模塊 功能 該窗體以文本框顯示當(dāng)前記錄，用按鈕 [首記錄 ]、 [末記錄 ]、 [前一個(gè) ]、 [后一個(gè) ]，控制記錄指針的移動(dòng)；用 一個(gè)標(biāo)簽 Label 顯示：當(dāng)前記錄號(hào) /記錄總數(shù)；單擊 [表格顯示 ]按鈕，顯示 DataGrid 控件 (Visible=True),以表格形式顯示商品信息表，單擊 [返回 ]按鈕， 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No34 34 可以關(guān)閉本窗體，返回主窗體。 Trim() amp。 where 售樓合同信息 .合同簽訂日期 like39。 %39。 amp。 = sqlstr ElseIf (2) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 Trim() amp。 where 售樓合同信息 .合同編號(hào) like39。 %39。 amp。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 合同編號(hào) 收款編號(hào) 交款人 收款 人 End Sub （ 5）查詢售樓合同信息代碼 Private Sub cmdcx_Click() Dim sqlstr As String If (0) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 Trim() amp。 where 收款合同信息 .收款人 like39。 %39。 amp。 = sqlstr 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No27 27 ElseIf (2) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 Trim() amp。 where 收款合同信息 .收款編號(hào) like39。 %39。 amp。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 收款編號(hào) 交款日期 收款金額 交款人 收款人 End Sub （ 4）查詢收款合同信息代碼 Private Sub cmdcx_Click() Dim sqlstr As String If (0) = 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 收款信息 .收款金額 like39。 %39。 amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 Trim() amp。 where 收款信息 .收款編