【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

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