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