【導(dǎo)讀】羇芄蕆袁聿肇莃袀蝿芃荿蒆羈膆芅蒅肄莁薃蒄螃膄葿蒄袆荿蒞蒃羈膂芁薂肀羅薀薁螀膀蒆薀羃蒂蕿肅艿莈蕿螄肁芄薈袇芇薂薇罿肀蒈薆肁芅莄蚅螁肈芀蚄袃芄膆蚃

　　

【正文】 To 6 Text1(i) = Next MsgBox 用戶(hù)信息修改成功 !, vbOKOnly, 提示 End Sub Private Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End Sub Private Sub Command5_Click() Dim txtSQL As String If Text1(7) = Then MsgBox 請(qǐng)你選擇用戶(hù)名稱(chēng) !, vbOKOnly, 提示 Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以刪除正在使用的用戶(hù) !, vbOKOnly, 警告 Text1(7) = Text1(8) = Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶(hù)需要密碼 !, 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) 22 If = False Then txtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(7)) amp。 39。 Else MsgBox 用戶(hù)密碼輸入錯(cuò)誤 !, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用戶(hù)信息已經(jīng)刪除 !, vbOKOnly, 提示 Listapp End Sub Private Sub Command6_Click() Text1(7) = Text1(8) = End Sub Private Sub Form_Load() = 用戶(hù)信息 添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。HFFFFFF Picture1(0).Visible = True End Sub Private Sub Label2_Click(Index As Integer) = 用戶(hù)信息 = amp。 amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 23 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 Text1(i) = Next End Sub Private Sub Listapp() Dim txSQL As String Dim mrcc As txSQL = select * from user_Form Set mrcc = ExecuteSQL(txSQL, MsgText) Do While Not Trim(mrcc!user_ID) Loop End Sub Private Sub List1_Click() If Picture1(1).Visible = True Then Text1(3) = End If If Picture1(2).Visible = True Then Text1(7) = End If End Sub Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)) End Sub 24 4． 3 學(xué)藉管理模塊： 因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模 塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可以參閱本模塊的設(shè)計(jì)思路。 Private Sub Text1_Change(Index As Integer) If Index = 0 Then txtSQL = select * from student_Form where student_NO=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then For i = 1 To 6 Text1(i) = (i) Next = True Else = False For i = 1 To 6 Text1(i) = Next End If txtSQL = select * from prize_Stud where prize_Stu=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With MSFlexGrid1 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 Select Case (i).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i) amp。 End Select Next i 25 Loop End With = True Else = False With MSFlexGrid1 .Clear .Cols = 4 .ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700 .TextMatrix(0, 2) = 獎(jiǎng)懲日期 .TextMatrix(0, 3) = 獎(jiǎng)懲名稱(chēng) .Rows = 1 End With End If txtSQL = select * from score_Form where score_Stu=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With MSFlexGrid2 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 Select Case (i).Type Case adDBDate TextMatrix(.Rows 1, i) = Format((i) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i) amp。 End Select Next i Loop 26 End With = True Else = False With MSFlexGrid2 .Clear .Cols = 6 .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 0 .ColWidth(4) = 1550 .ColWidth(5) = 1550 .TextMatrix(0, 1) = 考試期號(hào) .TextMatrix(0, 2) = 學(xué)生班號(hào) .TextMatrix(0, 4) = 考試課程 .TextMatrix(0, 5) = 考試分?jǐn)?shù) .Rows = 1 End With