【正文】 參考文獻 [1] 周佩德 .《數據庫原理及應用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL BASIC 程序設計 —— 數據庫篇， 1999 [3] 李光明 .《 Visual Basic 編程實例大制作》 .冶金工業(yè)出版社 [4] 劉炳文，精通 VISUAL BASIC 入門與提高，人民郵電出版社 [5] 黃淼云 .《 辦公自動化編程》 .國防工業(yè)出版社 [6] 王要武，管理系統，電子工業(yè)出版社， 2020 [7] 李紅等編著，管理信息系統開發(fā)與應用，電子工業(yè) 出版社， 2020 [8] 周之英縞著，現代軟件工程，科學出版社， 2020 [9] 康博工作室，張紅軍，王紅等縞著《 Visual Basic 中文版高級應用與開發(fā)指南》，人民郵電出版社， 2020 年 4 月第一版 [10] 林立軍，程斌，翁迪恩縞著《 Visual Basic 數據庫開發(fā)指南》，西安電子科技大學出版社， 2020 年 2 月第一版 [11] 張宏林，孔艷，王 哲等編著。 另外， 我還要感謝在這幾年來對我有 所 教導的老師，他們 孜孜不倦的教誨不但讓我學到了很多知識，而且讓我掌握了學習的方法， 54 更教會了我做人處事的道理，在此表示感謝。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大 的提高 ， 這對于我以 后 的工作和學習都有一種巨大的幫助， 在此 感謝他耐心的輔導。 在本次畢業(yè)設計中，我從指導老 師 劉老師， 身上學到了很多東西。相信本學生管理系統是一套學校在日常管理中必不可少的管理軟件 ，通過開發(fā)這個系統，我掌握了的項本過程，了解了的基本知識鞏固了我對 Visual Basic 的學習，但在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統的思維方法， 53 以及與同學們之間相互幫助的精神。雖然網絡在學生管理系統中的應用不是很多，但是未來的發(fā)展方向，在本次開發(fā)過程由于硬件的限制，未能實現網絡功能，因此在以后的系統更新過程中可能會造成一些不必要的數據損失。因此，該系統必然會存在一些缺陷和不足。 order by 年級 ,班級 printstr = txtsql = 瀏覽班級 51 Exit Sub ss: End Sub 52 在本系統的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經驗方面都存在著不足。 Trim(txtsql) amp。 or 班級 =39。 Trim(txtsql) amp。 1 Loop Set mrc = Nothing Set mrc1 = Nothing End Sub Private Sub TreeView1_DblClick() On Error GoTo ss If = 0 Then Exit Sub End If txtsql = () txtsql = select * from class where 年級 =39。End If End Sub Public Sub classtree() Dim nodex As Node Dim mrc As Dim mrc1 As Dim str As String Dim a As String a = 年級 = tvwRootLines str = select distinct 年級 from class order by 年級 Set mrc = ExecuteSQL(str) str = select distinct 年級 ,班級 from class order by 年級 ,班級 Set mrc1 = ExecuteSQL(str) 39。Else 39。If classfind = True Then 39。 TreeView1_DblClick 39。 Set mrc = ExecuteSQL(txtsql) 39。 Trim((, 2)) amp。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級 =39。 39。 amp。) Set mrc = ExecuteSQL(txtsql) 39。 Trim((, 2)) amp。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學號 in (select from xj where 班級 =39。 Trim((, 2)) amp。 繼續(xù)會導致該班級在成績和學費記錄的數據丟失，繼續(xù)嗎？ 45 , vbOKCancel + vbExclamation, 警告 ) = vbOK Then txtsql = delete * from xj where 班級 =39。 Chr(13) amp。 Trim((, 2)) amp。39。 39。 Public printstr As String 41 Private Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase() (SELECT * INto 班級一覽表 IN 39。 Set mrc = ExecuteSQL(txtsql) If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) 38 For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j End Select 39 End If Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then 40 For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 4． 4 學生繳費管理模塊： 因為本系統中有些功能模塊具有相似之處，因此在本文只用此模塊進行一個簡單的說明。 Trim(Text1(0).Text) amp。 Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 36 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 確認密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認密碼不正確！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For 37 End If Next i If aa = 0 Then MsgBox 普通用戶至少要有一項權限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtsql = select * from use where username=39。 username Dim aa As String Select Case Executeqx(1) Case admin aa = 超級管理員 Case readonly aa = 只讀管理員 Case Else 32 aa = 普通管理員 End Select (4).Text = 狀態(tài)： amp。 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer 24 Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！, vbInformatio