【正文】 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 學校 XX XXX 畢業(yè)論文 共 72 頁 第 40 頁 Text1(1).SetFocus Exit Sub End If End IftxtSQL = select * from user_Form where user_ID=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此用戶名已經存在!, 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 學校 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。 amp。 Trim(Text1(3)) amp。 39。and user_PWD=39。 amp。 Trim(Text1(4)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(3)) amp。 39。 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) = XX 學校 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。 amp。 Trim(Text1(7)) amp。 39。and user_PWD=39。 amp。 Trim(Text1(8)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False ThentxtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(7)) amp。 39。 Else MsgBox 用戶密碼輸入錯誤!, vbOKOnly, 提示 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用戶信息已經刪除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubXX 學校 XX XXX 畢業(yè)論文 共 72 頁 第 43 頁Private Sub Form_Load()錄入學生信息模塊設計通過錄入學生信息模塊可以對學生的基本信息進行錄入、修改和刪除操作。錄入學生信息的關鍵程序代碼如下：dim qxqx=學生If Not IsNumeric(Trim((stu_id))) Then 填寫的學號必須是數(shù)字,請后退重新填寫! End Ifset rs=() select * from [stu],conn,1,3rs(name)=Trim((stu))rs(xid)=Trim((xid))rs(sex)=(sex)rs(classid)=(classid)rs(csd)=(csd)rs(jg)=(jg)rs(zz)=(zz)rs(sfz)=(sfz)rs(mm)=(mm)rs(dh)=(dh)rs()=()rs(rx)=(rx)set rs=() select * from [admin],conn,1,3rs(password)=Trim((sfz))rs(admin)=Trim((stu))rs(qx)=qx39。XX 學校 XX XXX 畢業(yè)論文 共 72 頁 第 44 頁Set rs=nothing 該同學信息添加成功!錄入學生成績模塊設計學生成績錄入模塊是系統(tǒng)的主要模塊之一，本模塊可以對所有學生成績進行錄入操作，本模塊由系統(tǒng)管理員和老師登陸模塊可操作。實現(xiàn)學生成績錄入的關鍵程序代碼如下：Dim mrc As Dim MsgText As StringPrivate Sub Combo1_Click(Index As Integer) Dim txSQL As String If Index = 0 Then txSQL = select * from student_Form where student_Cla=39。 amp。 Trim(Combo1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txSQL, MsgText) If = True Then MsgBox 請先進行班級設置!, vbOKOnly, 提示 Else With Combo1(1) .Clear Do While Not .AddItem Trim(mrc!student_NO) Loop End With End If txSQL = select * from class_Cour where class_NO=39。 amp。 Trim(Combo1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txSQL, MsgText) If = True Then MsgBox 請先進行班級設置!, vbOKOnly, 提示 Else With Combo1(2) .Clear Do While Not .AddItem Trim(mrc!course_Name)XX 學校 XX XXX 畢業(yè)論文 共 72 頁 第 45 頁 Loop End With End If End