【正文】 。 Trim(Text1(1).Text) amp。關鍵代碼：Private Sub Command1_Click()txtsql = If Text1(0).Text Then If txtsql = Then txtsql = 年級=39。 Else txtsql = txtsql amp。 39。? 檔案添加圖 入學登記功能實現(xiàn)：“入學登記”是修改學生檔案的數(shù)據(jù)項。其中數(shù)據(jù)項內容不能漏填。刪除之前會出現(xiàn)一個警告對話框，提示：“確定要刪除該記錄嗎？繼續(xù)會導致該班級在成績和學費記錄的數(shù)據(jù)丟失，繼續(xù)嗎？”(3)打印功能：可打印當前班級的全部記錄。本查詢的“按姓名關鍵字查詢”可以實現(xiàn)模糊查詢，即只輸入學生的姓或名就能找到與之條件相符合的記錄。 order by desc, desc, desc = txtsqlfind = True39。01 美術一39。根據(jù)菜單中的年級、專業(yè)、年制、學期選項選擇即可。 xuefeimodi = True 0 Case del qxstr = Executeqx(3) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能添加記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If Trim((, 1)) = Then sssss = MsgBox(已無記錄!, vbOKOnly + vbExclamation, 警告)? 基本學費設置（學費設置添加）圖 學費設置添加功能實現(xiàn)：根據(jù)學生所在的年級、專業(yè)、年制及學期設置相應學費情況。關鍵代碼：Private Sub Command1_Click()txtsql = If Combo1(0).Text Then If txtsql = Then txtsql = 年級=39。 Else txtsql = txtsql amp。 39。雙擊要找的學生記錄，可以查看該學生對應的詳細情況交費列表。 年度第一學期 39。 39。txtsql = select 學號,sum(欠費) from jf where 學期39。 and 學號 in (select 學號 from jf where 學期=39。) and 學號 in (select 學號 from xj where 班級=39。) group by 學號 39。 39。 .MergeRow(0) = True 39。 Format((1), ) .TextMatrix(.Row, 8) = (6) .TextMatrix(.Row, 9) = (7) .Row = .Row + 1 num = (0) If = False Then If Trim(num) = Trim((0)) Then End If Loop End WithEnd Sub? 學生交費添加圖 學生交費添加功能實現(xiàn)：添加學生詳細的交費記錄。 amp。 amp。 amp。分為：課程基本設置、班級課程設置。選中列表框中條目，點擊“刪除”按鈕可刪除選中條目。 Trim() amp。如上圖所示：在左邊的所有科目對話框中選中所需科目，點擊向右的箭頭即可選取。 Trim(Combo1(0).Text) amp。分為：考試類型設置、成績添加、成績查詢、成績?yōu)g覽。若沒有選中，則提示“類型名不能為空” 。 amp。關鍵代碼：Private Sub Form_Load()Dim mrc As txtsql = select DISTINCT 年級 from class Set mrc = ExecuteSQL(txtsql)Combo1(0).ClearDo While Not Combo1(0).AddItem (0) Loop Combo1(0).ListIndex = 0 txtsql = select DISTINCT 班級 from class where 年級=39。 Set mrc = ExecuteSQL(txtsql) Combo1(1).Clear Do While Not Combo1(1).AddItem (0) Loop Combo1(1).ListIndex = 0 Combo1(2).AddItem Val(Format(Date, yyyy)) 1 amp。5 系統(tǒng)的調試及發(fā)布 系統(tǒng)調試系統(tǒng)調試在程序編寫任務全部完成后進行。設置斷點的方法為在程序代碼窗口中將光標移動到要設置斷點的語句行，然后選擇“調試”|“切換斷點 ”命令，這時該語句行變成高亮度加粗顯示，并且在該行左側出現(xiàn)一個醒目的大圓點，這時程序運行到這里會停止并進入中斷模式。 系統(tǒng)發(fā)布要想讓系統(tǒng)成為一個獨立的可運行于 VB 環(huán)境之外的系統(tǒng)程序，必須要對其進行打包和發(fā)布。保存工程。最后生成一個安裝包。(3)監(jiān)視器：Microsoft Windows 支持的 VGA或分辨率更高的監(jiān)視器。推薦桌面顯示方式：1024*768 像素。整個系統(tǒng)由數(shù)據(jù)庫文件和數(shù)據(jù)庫管理系統(tǒng)兩部分構成。這學期開始，我就從圖書館中抱了好多 VB 的書進行學習研究。有時也被弄得心煩意亂。學生信息管理系統(tǒng)是一個典型的信息管理系統(tǒng)（MIS） ，其開發(fā)過程主要是由選擇課題、需求分析、總體設計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。這些不足都有待于在今后的學習生活中慢慢的改正與完善，爭取做到最好。從課題的選擇到項目的最終完成，孫老師都始終給予我細心的指導和不懈的支持。Data source = amp。 username amp。 username amp。 username amp。 username amp。 username amp。 username amp。s where the rubber hits the road, so to speak. If the user can39。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。 Case 4 sql = select qx4 from use where username=39。 Case 3 sql = select qx3 from use where username=39。 Case 2 sql = select qx2 from use where username=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。 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。 /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。特別感謝江薛濤、張星照兩位同學，他們對本課題做了不少工作，給予我不少的幫助。正是在她的親切關懷和悉心指導下完成的，我才能夠順利的完成此次設計。本程序成功的實現(xiàn)了班級管理，學生檔案管理，學生交費管理、課程管理、成績管理等功能的實現(xiàn)，運用計算機程序語言較好的模擬了學生信息管理系統(tǒng)的業(yè)務流程。同時我也得出了幾點道理：一、無論做什么事情都要持之以恒不能半途而廢；二、做什么事情也不能急于求成，否則欲速則不達！三、在做一件事情以前必須有詳實可行的計劃，否則就會出現(xiàn)不知做什么的現(xiàn)象和后來的手忙腳亂的現(xiàn)象。后來才發(fā)現(xiàn)在一段時間內想把這方面的知識學得很精，并不是一件很容易的事情。7 結束語作為一名對 Microsoft Visual Basic 程序開發(fā)有很少了解的學生，選擇自己的畢業(yè)設計為 vb 程序開發(fā)，是一件不太容易的事情。客戶/服務器體系把信息處理過程分成幾個部分，并把它分配到整個計算機網絡上，使信息處理過程能最佳地利用計算機的系統(tǒng)資源。本系統(tǒng)適用于 Microsoft Windows98/XP/2022 下開發(fā)的，所采用的開發(fā)工具是 。Comment [園園園園2]: 最前面有空格6系統(tǒng)安裝環(huán)境及關鍵技術計算機必須滿足的條件：(1)CPU： Intel Pentium 166MHz或更高的處理器（推薦賽揚或更高的處理器） ，或任何運行于 Microsoft Windows NT Workstation的 Alpha的處理器。選擇打包。將打開和打包向導雙擊進行加載。按 F8鍵可以往下運行一條語句，直到過程結束或是出現(xiàn)錯誤。一般的調試方法是設置斷點。 Val(Format(Date, yyyy)) amp。 Trim(Combo1(0).Text) amp。 39。分別為：學期、班級、考試類型、學號姓名、各科成績。按回車即可完成添加資料。 Set mrc = ExecuteSQL(txtsql) Combo1(1).Clear Do While Not Combo1(1).AddItem (0) LoopDo Until (0) LoopSet mrc = Nothing39。關鍵代碼：Private Sub Form_Load()Dim mrc As txtsql = select DISTINCT 年級 from class Set mrc = ExecuteSQL(txtsql)Combo1(0).ClearDo While Not Combo1(0).AddItem (0) Loop Combo1(0).ListIndex = 0 txtsql = select DISTINCT 專業(yè) from class where 年級=39。 If = False Then sssss = MsgBox(已經存在該課程名稱！, vbOKOnly + vbExclamation, 警告) = 0 = Len() Exit Sub Else (0) = (1) = = 增加 = True = True = = = False = Fa