【正文】 示，并且在該行左側(cè)出現(xiàn)一個醒目的大圓點，這時程序運行到這里會停止并進入中斷模式。將鼠標放在相應的變量之上可以看到變量當前的值。按 F8鍵可以往下運行一條語句，直到過程結(jié)束或是出現(xiàn)錯誤。當調(diào)試修改正常通過后再次點擊斷點的圓點即可取消斷點 [9]。 系統(tǒng)發(fā)布要想讓系統(tǒng)成為一個獨立的可運行于 VB 環(huán)境之外的系統(tǒng)程序，必須要對其進行打包和發(fā)布。點擊外接程序管理器。將打開和打包向?qū)щp擊進行加載。點擊文件，選擇生成“ ”。保存工程。點擊外接程序菜單選擇打包和展開向?qū)?。選擇打包。然后按照提示操作。最后生成一個安裝包。雙擊安裝包中的 SETUP 文件即可安裝本系統(tǒng)，且可以脫離 VB 環(huán)境，直接運行。Comment [園園園園2]: 最前面有空格6系統(tǒng)安裝環(huán)境及關鍵技術(shù)計算機必須滿足的條件：(1)CPU： Intel Pentium 166MHz或更高的處理器（推薦賽揚或更高的處理器） ，或任何運行于 Microsoft Windows NT Workstation的 Alpha的處理器。(2)操作系統(tǒng)： Microsoft Windows98/me/XP/2022或 Microsoft Windows NT Service/Workstation (推薦 Service Pack 5)或更高版本。(3)監(jiān)視器：Microsoft Windows 支持的 VGA或分辨率更高的監(jiān)視器。(4)64MB內(nèi)存以上。本系統(tǒng)適用于 Microsoft Windows98/XP/2022 下開發(fā)的，所采用的開發(fā)工具是 。由于考慮到該企業(yè)每天的數(shù)據(jù)處理量，我們后臺采用可 Microsoft的 Access2022數(shù)據(jù)庫。推薦桌面顯示方式：1024*768 像素。客戶/服務器(Client/Server)是近年來迅速發(fā)展的分布式信息處理體系結(jié)構(gòu)?？蛻?服務器體系把信息處理過程分成幾個部分，并把它分配到整個計算機網(wǎng)絡上，使信息處理過程能最佳地利用計算機的系統(tǒng)資源。在物業(yè)管理系統(tǒng)中，為了避免多個用戶同時對同一數(shù)據(jù)進行操作，減少系統(tǒng)開銷，盡可能地少耗用網(wǎng)絡資源，系統(tǒng)采用客戶/服務器結(jié)構(gòu) [10]。整個系統(tǒng)由數(shù)據(jù)庫文件和數(shù)據(jù)庫管理系統(tǒng)兩部分構(gòu)成。后臺的 Access 2022數(shù)據(jù)庫文件是集中存儲并管理學生信息的大本營，而前臺的數(shù)據(jù)庫管理系統(tǒng)是來為數(shù)據(jù)庫中的資料進行基本操作和管理而服務的 [10]。7 結(jié)束語作為一名對 Microsoft Visual Basic 程序開發(fā)有很少了解的學生，選擇自己的畢業(yè)設計為 vb 程序開發(fā)，是一件不太容易的事情。它不僅要求我們對所學的專業(yè)知識有個較全面的了解，而且要系統(tǒng)的學習編程需要的軟件知識。這學期開始，我就從圖書館中抱了好多 VB 的書進行學習研究。在剛開始的時候真是無從下手，心里有點茫然，只是抓緊時間學習 VB 的相關知識。后來才發(fā)現(xiàn)在一段時間內(nèi)想把這方面的知識學得很精，并不是一件很容易的事情。在此之間，也有抱怨過當時不該選擇用 VB 做為自己的畢業(yè)設計語言。有時也被弄得心煩意亂。然而，這一切我都克服了。同時我也得出了幾點道理：一、無論做什么事情都要持之以恒不能半途而廢；二、做什么事情也不能急于求成，否則欲速則不達！三、在做一件事情以前必須有詳實可行的計劃，否則就會出現(xiàn)不知做什么的現(xiàn)象和后來的手忙腳亂的現(xiàn)象。經(jīng)過三個月的努力學習與實踐，學生信息管理系統(tǒng)已基本開發(fā)完畢。學生信息管理系統(tǒng)是一個典型的信息管理系統(tǒng)（MIS） ，其開發(fā)過程主要是由選擇課題、需求分析、總體設計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先要對學生信息管理流程進行系統(tǒng)調(diào)研，熟悉從可行性調(diào)研到系統(tǒng)的成形；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到在整個學生信息管理過程中存在的各種問題，并在總體設計階段把握好對問題的分析、理解，進而解決問題。本程序成功的實現(xiàn)了班級管理，學生檔案管理，學生交費管理、課程管理、成績管理等功能的實現(xiàn)，運用計算機程序語言較好的模擬了學生信息管理系統(tǒng)的業(yè)務流程。當然，由于各種原因，程序還存在著這樣那樣的不足，例如：采用Microsoft Access 系統(tǒng)作為數(shù)據(jù)庫，速度較慢；另外因為是單機版本，數(shù)據(jù)不能共享，在以后改進的版本中應考慮采用 SQL SERVER 作為數(shù)據(jù)庫，解決訪問速度及數(shù)據(jù)共享的問題；在模塊設計上，功能還是相對簡單，有些功能由于自己的能力有限無法得到實現(xiàn) 。這些不足都有待于在今后的學習生活中慢慢的改正與完善，爭取做到最好。參考文獻[1]成奮華. 現(xiàn)代軟件工程[M]. 長沙: 中南大學出版社, 2022. 556[2]龔沛曾. Visual Basic 程序設計教程[M]. 北京高等教育出版社 , 1998. 3436[3]張學忠. VB 控件應用編程實例教程 [M]. 北京 : 北京希望電子出版社, 2022. 282293[4]胡或. VB 程序設計[M]. 北京: 電子工業(yè)出版社 , 2022. 1478[5]劉韜, 駱娟 . Visual Basic 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)實例導航[M]. 人民郵電出版社, 2022. 8295, 285291[6]吳豪. SQL SERVER2022 基礎[M]. 北京: 北京希望電子出版社, 2022. 5089[7]敷富江. SQL 入門經(jīng)典[M]. 北京: 清華大學出版社, 2022. 68167 [8]Liberty. Programming Visual Basic 2022[M]. USA: SYBEX, 2022. 99114[9]Michael Halvorson. Microsoft Visual Basic 2022 Step by Step[M]. USA: Microsoft , 2022. 180236[10]Enangelos Petroutsos. Mastering Microsoft Visual Basic 2022[M]. USA: Microsoft Press, 2022. 246310致謝辭本系統(tǒng)是在信息工程系的領導和老師的幫助下完成的，特別要感謝我的指導老師孫琳老師。正是在她的親切關懷和悉心指導下完成的，我才能夠順利的完成此次設計。她嚴肅的科學態(tài)度，嚴謹?shù)闹螌W精神，精益求精的工作作風，深深地感染和激勵著我。從課題的選擇到項目的最終完成，孫老師都始終給予我細心的指導和不懈的支持。在此，我還要感謝在一起愉快的度過大學生活的同學們，正是由于你們的幫助和支持，我才能克服一個一個的困難和疑惑，直至本文的順利完成。特別感謝江薛濤、張星照兩位同學，他們對本課題做了不少工作，給予我不少的幫助。在畢業(yè)設計即將完成之際，我的心情無法平靜，從開始進入課題到論文的順利完成，有多少可敬的師長、同學、朋友給了我無言的幫助，在這里請接受我誠摯的謝意!最后我還要感謝培養(yǎng)我長大含辛茹苦的父母，謝謝你們!附錄 1學生信息管理系統(tǒng)類模塊代碼：Public modi As BooleanPublic classmodi As BooleanPublic xuefeimodi As BooleanPublic txtsql As StringPublic find As BooleanPublic classfind As BooleanPublic xuefeifind As BooleanPublic username As StringPublic qxstr As StringPublic Function ExecuteSQL(ByVal sql As String) As Dim mycon As Dim rst As Set mycon = New = connstringDim stokens() As StringOn Error GoTo exectuesql_errorstokens = Split(sql)If InStr(INSER,DELETE,UPDATE, UCase(stokens(0))) Then sqlElse Set rst = New Trim(sql), mycon, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rstEnd Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd FunctionPublic Function connstring() As Stringconnstring = provider=。Data source = amp。 amp。 /End FunctionPublic Function Executeqx(ByVal txt As Integer) As StringDim sql As StringDim mycon As Dim rst As Set mycon = New = connstring Set rst = New sql = select admin from use where username=39。 amp。 username amp。 39。 Trim(sql), mycon, adOpenKeyset, adLockOptimisticIf = True Then MsgBox 非法用戶！, vbExclamation + vbOKOnly, 警告 Executeqx = nothing Exit FunctionEnd If If (0) = y Then Executeqx = admin Exit FunctionEnd If sql = select readonly from use where username=39。 amp。 username amp。 39。 Trim(sql), mycon, adOpenKeyset, adLockOptimistic If (0) = y Then Executeqx = readonly Exit FunctionEnd IfSelect Case txt Case 1 sql = select qx1 from use where username=39。 amp。 username amp。 39。 Case 2 sql = select qx2 from use where username=39。 amp。 username amp。 39。 Case 3 sql = select qx3 from use where username=39。 amp。 username amp。 39。 Case 4 sql = select qx4 from use where username=39。 amp。 username amp。 39。End SelectOn Error GoTo exectuesql_error Set rst = New Trim(sql), mycon, adOpenKeyset, adLockOptimistic If (0) = y Then Executeqx = true Else Executeqx = false End Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd Function附錄 2Choosing the Presentation Layer ArchitectureSummary: The presentation layer is a vitally important part of an application. This article discusses the thin and smart client approaches and provides guidance on how to choose between them.Key words: Presentation Layer1. The Importance of the Presentation Layer The presentation layer of most applications is very often critical to the application39。s success. After all, the presentation layer represents the interface between the user and the rest of the application. It39。s where the rubber hits the road, so to speak. If the user can39。t interact with the application in a way that lets them perform their work in an efficient and effective manner, then the o