【正文】 Text1(0).SetFocus Exit Sub End If txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) For i = 0 To 3 Text1(i) = Next MsgBox 班級信息添加成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = NextEnd SubPrivate Sub Command3_Click() If Text1(5) = Then MsgBox 班級名稱不能為空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub End If If Text1(6) = Then MsgBox 導(dǎo)員姓名不能為空!, vbOKOnly, 提示 Text1(6).SetFocus Exit Sub End If txtSQL = delete from class_Form where class_NO=39。 Trim(Text1(0)) amp。 Else MsgBox 用戶密碼輸入錯誤!, 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 SubPrivate Sub Form_Load()：Dim mrc As Dim MsgText As StringDim tSQL As StringPrivate Sub Command1_Click() If Text1(0) = Then MsgBox 班級編號不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班級名稱不能為空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 導(dǎo)員姓名不能為空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO=39。 Trim(Text1(7)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 Trim(Text1(8)) amp。and user_PWD=39。 Trim(Text1(7)) amp。 Else MsgBox 用戶密碼輸入錯誤!, 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) = 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。 Trim(Text1(3)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 Trim(Text1(4)) amp。and user_PWD=39。 Trim(Text1(3)) amp。 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 Sub 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。 Trim(Text1(0)) amp。H8000000E = 12 = True i = End SubPrivate Sub Form_Resize() = 0 = 0 = = = = = 100End SubPrivate Sub Timer1_Timer() i = i + 50 = i If i + Then i = End IfEnd Sub：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) = Text1(1).SetFocus Exit Sub End If End IftxtSQL = select * from user_Form where user_ID=39。 39。 amp。通過開發(fā)這個系統(tǒng)，我掌握了項目的基本開發(fā)過程，了解了的基本知識鞏固了我對Visual Basic的學(xué)習(xí)，但在這次設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。因為對學(xué)生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。 如圖13所示學(xué)籍信息管理模塊(添加功能)：：：：在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。例如點擊添加時，系統(tǒng)彈出如圖12所示的界面，當(dāng)點擊界面下方面的控件時，其所對應(yīng)的位置會顯示為輸入形式，對信息進行輸入。如圖12所示班級信息管理模塊：學(xué)籍信息管理模塊是對學(xué)生的個人信息進行統(tǒng)計。否則會出現(xiàn)提示信息。包括班級編號，班級名稱，導(dǎo)員姓名，備注信息。：本模塊是本系統(tǒng)的安全性設(shè)置模塊，實現(xiàn)了對用戶帳戶信息管理功能。PWD（大寫）為用戶名和密碼來登陸本系統(tǒng)。Private Sub Command1_Click() Dim txtSQL As String txtSQL = select * from prize_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 獎懲信息添加成功!, vbOKOnly, 提示 List1TextEnd Sub 退出模塊此模塊完成程序的退出。 39。 amp