【文章內(nèi)容簡介】 String Set mrc = New 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 23 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 If co = provider=。 amp。 data source= amp。 amp。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名 =39。 amp。 Trim(Text1(3)) amp。 39。and 密碼 =39。 amp。 Trim(Text1(4)) amp。 39。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名 =39。 amp。 Trim(Text1(3)) amp。 39。 Else MsgBox 用戶密碼輸入錯誤 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic txtSQL = select * from 系統(tǒng)用戶表 txtSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功 !, vbOKOnly, 提示 End Sub Private Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = 24 Text1(6) = End Sub Private Sub Command5_Click() Dim txtSQL As String Dim co As String If Text1(7).Text = Then MsgBox 請您選擇用戶名稱 , vbOKOnly, 提示 Text1(7).SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不 可一刪除正在使用的用戶！ , vbOKOnly, 提示 Text1(7).Text = Text1(7).SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶需要密碼！ , vbOKOnly, 提示 Text1(7).SetFocus Exit Sub End If Set mrc = New co = provider=。 amp。 data source= amp。 amp。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名 =39。 amp。 Trim(Text1(7)) amp。 39。and 密碼 =39。 amp。 Trim(Text1(8)) amp。 39。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名 =39。 amp。 Trim(Text1(7)) amp。 39。 Else MsgBox 用戶密碼輸入錯誤 !, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic Text1(7) = Text1(8) = MsgBox 用戶信息已經(jīng)刪除 !, vbOKOnly, 提示 25 Listapp End Sub Private Sub Command6_Click() Text1(7) = Text1(8) = End Sub Private Sub Form_Load() = 用戶信息 添 加 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) = 用戶信息 = amp。 amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。HFFFFFF Picture1(Index).Visible = True End Sub Private Sub Listapp() Dim txSQL As String Dim As String Dim mrcc As Set mrcc = New = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL = select * from 系統(tǒng)用戶表 26 txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!用戶名 ) Loop End Sub 3. 班級管理界面 圖 317 圖 318 27 圖 319 相關(guān)代 碼： Dim mrcc As Dim txSQL As String Dim As String Private Sub Command1_Click() If Text1(0) = Then MsgBox 班級編號不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 班主任不能為空 !, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 學(xué)生人數(shù)不能為空 !, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txSQL = select * from 班級表 where 班級編號 =39。 amp。 Trim(Text1(0)) amp。 39。 = provider=。 amp。 data source= amp。 amp。 /Data/ If = 1 Then txSQL, conn, adOpenStatic, adLockPessimistic If = False Then 28 MsgBox 此班級編號已存在 !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 班級表 = provider=。 amp。 data source= amp。 amp。 /Data/ If = 1 Then txSQL, conn, adOpenStatic, adLockPessimistic (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, 提示 ShowData End Sub Private Sub Command2_Click() For i = 0 To 3 Text1(i).Text = Next End Sub Private Sub Command3_Click() If Text1(4).Text = Then MsgBox 班級編號不能為空 !, vbOKOnly, 提示 Text1(4).SetFocus Exit Sub End If If Text1(5).Text = Then MsgBox 班主任不能為空 !, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 29 MsgBox 學(xué)生人數(shù)不能為空 !, vbOKOnly, 提示 Text1(6).SetFocus Exit Sub End If txSQL = delete from 班級表 where 班級編號 =39。 amp。 Trim(Text1(4)) amp。 39。 = provider=。 amp。 data source= amp。 amp。 /Data/