【正文】 XX XXX 畢業(yè)論文 共 72 頁 第 37 頁[6] 明日科技，張躍廷，王小科， 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊[M].，2022[7] 沈 煒 ， 郭 偉 偉 .VisualBasic 編程從基礎(chǔ)到實(shí)踐(第 2 版) . 電 子工 業(yè) 出 版 社 ， 2022[8] 鄧沛棲，李修超，郭超杰，利用 ASP 構(gòu)建高校學(xué)生管理系統(tǒng)[J].井岡山醫(yī)專學(xué)報(bào)，2022[9] 馬曉虎，基于B／S結(jié)構(gòu)的通用學(xué)生管理系統(tǒng)的開發(fā)[J].電腦知識(shí)與技術(shù)，2022[10] [M].，2022附錄：程序代碼登錄模塊設(shè)計(jì)學(xué)生信息管理系統(tǒng)前臺(tái)登陸模塊只有一個(gè)登陸窗口分為學(xué)生、教師、管理員三個(gè)級別登陸，系統(tǒng)在后臺(tái)程序有自動(dòng)限制設(shè)置，可以自動(dòng)識(shí)別登陸者的權(quán)限。 39。 Trim(Text1(0)) amp。 Trim(Text1(3)) amp。 Trim(Text1(4)) amp。 Trim(Text1(3)) amp。 Trim(Text1(7)) amp。 Trim(Text1(8)) amp。 Trim(Text1(7)) amp。XX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 44 頁Set rs=nothing 該同學(xué)信息添加成功!錄入學(xué)生成績模塊設(shè)計(jì)學(xué)生成績錄入模塊是系統(tǒng)的主要模塊之一，本模塊可以對所有學(xué)生成績進(jìn)行錄入操作，本模塊由系統(tǒng)管理員和老師登陸模塊可操作。 39。 39。 amp。 amp。 Else MsgBox 用戶密碼輸入錯(cuò)誤!, vbOKOnly, 提示 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用戶信息已經(jīng)刪除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubXX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 43 頁P(yáng)rivate Sub Form_Load()錄入學(xué)生信息模塊設(shè)計(jì)通過錄入學(xué)生信息模塊可以對學(xué)生的基本信息進(jìn)行錄入、修改和刪除操作。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。and user_PWD=39。 Else MsgBox 用戶密碼輸入錯(cuò)誤!, vbOKOnly, 提示 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) (2) = Now For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功!, vbOKOnly, 提示End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = XX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 42 頁 Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = Then MsgBox 請你選擇用戶名稱!, vbOKOnly, 提示 Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以刪除正在使用的用戶!, vbOKOnly, 提示 Text1(7) = Text1(8) = Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶需要密碼!, vbOKOnly, 提示 Text1(8).SetFocus Exit Sub End If txtSQL = select * from user_Form where user_ID=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。and user_PWD=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此用戶名已經(jīng)存在!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Now For i = 0 To 2 Text1(i) = Next MsgBox 用戶信息添加成功!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 請你選擇用戶名稱!, vbOKOnly, 提示 Exit Sub End If If Text1(4) = Then MsgBox 修改密碼要舊密碼!, vbOKOnly, 提示 Text1(4).SetFocus Exit SubXX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 41 頁 End If If Text1(5) = Then MsgBox 新的密碼不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同!, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End IftxtSQL = select * from user_Form where user_ID=39。其實(shí)現(xiàn)的關(guān)鍵代碼如下：Dim mrc As Dim MsgText As StringPrivate Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 用戶名稱不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用戶密碼不能為空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub Else If Text1(1) Text1(2) Then MsgBox 兩次密碼輸入不同!, vbOKOnly, 提示 Text1(1) = Text1(2) = XX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 40 頁 Text1(1).SetFocus Exit Sub End If End IftxtSQL = select * from user_Form where user_ID=39。 amp。我本性是一個(gè)很不上進(jìn)的人，卻有幸得到如許愛護(hù)，內(nèi)心著實(shí)惶恐不安，借此機(jī)會(huì)，向他們表示我由衷的感激之情！ 在系統(tǒng)開發(fā)的兩個(gè)月里,我受到了指導(dǎo)老師的細(xì)心指導(dǎo),王老師嚴(yán)謹(jǐn)?shù)闹笇?dǎo)態(tài)度與深厚的理論知識(shí)都讓我受益非淺,從他身上我學(xué)到了很多的東西,提出感謝。圖 78 學(xué)生選課界面 學(xué)生按個(gè)人打印成績界面學(xué)生通過此頁面查看成績信息，并打印。圖 73 錄入學(xué)生成績模塊界面 編輯考試類型模塊界面可以查看科目列表、修改、刪除，并可以添加考試類型，如下圖：XX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 32 頁圖 74 考試類型界面 編輯教師信息管理員通過編輯教師信息進(jìn)行教師姓名、教學(xué)科目以及權(quán)限設(shè)置。 按學(xué)生個(gè)人打印成績模塊設(shè)計(jì)按學(xué)生個(gè)人打印成績主要是學(xué)生查詢自己考試成績的功能，其學(xué)生個(gè)人打印成績模塊算法描述如下：1．學(xué)生登陸成功；2．輸入學(xué)號(hào)；3．學(xué)號(hào)為空或不為數(shù)字，重新輸入；4．查詢數(shù)據(jù)庫操作；5．顯示數(shù)據(jù)，打印當(dāng)前信息；XX 學(xué)校 XX XXX 畢業(yè)論文 共 72 頁 第 30 頁第七章 系統(tǒng)實(shí)現(xiàn)在完成了上面的所有工作之后，本系統(tǒng)的各種功能已經(jīng)全部確定，下面要完成的工作就是在詳細(xì)設(shè)計(jì)的基礎(chǔ)上，建立各功能界面，實(shí)現(xiàn)系統(tǒng)的各個(gè)功能。老師添加選課信息模塊算法描述如下：1．教師成功登陸；2．選擇班級、專業(yè)；3．輸入課程名稱，為空，重新輸入；4．輸入限選人數(shù)，為空或不為數(shù)字，重新輸入；5．添加上課時(shí)間；6．格式錯(cuò)誤，重新輸入；7．輸入正確，添加選課信息成功。編輯考試類型模塊的算法描述下：1．管理員成功登陸；2．進(jìn)入編輯考試類型頁面；3．添加考試名稱，選擇科目數(shù)以及所屬專業(yè)；4．如果考試名稱已存在，重新輸入；5．選擇所屬科目，如果已存在，重新輸入；6．輸入成功后，添加信息成功。學(xué)生信息的錄入就是利用計(jì)算機(jī)通過程序讀入數(shù)據(jù)庫，錄入學(xué)生信息模塊算法描述如下：，錄入學(xué)生信息模塊；，提示信息輸入不完整，重新輸入；，提示該學(xué)生信息已存在，請重新輸入；，學(xué)生信息添加成功。 實(shí)體屬性圖設(shè)計(jì)用戶用戶編號(hào) 用戶