?? 從mdi修改登陸用戶.frm
字號(hào):
VERSION 5.00
Begin VB.Form MDI_XiuGai_DengLuYongHu
Caption = "添加登陸用戶"
ClientHeight = 3660
ClientLeft = 3690
ClientTop = 3495
ClientWidth = 5565
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3660
ScaleWidth = 5565
Begin VB.TextBox Text4
Height = 270
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "*"
TabIndex = 18
Top = 2640
Width = 2775
End
Begin VB.CommandButton Command8
Caption = "刪除此用戶"
Height = 375
Left = 4200
TabIndex = 16
Top = 1920
Width = 1215
End
Begin VB.CommandButton Command7
Caption = "添加新用戶"
Height = 375
Left = 4200
TabIndex = 15
Top = 1200
Width = 1215
End
Begin VB.CommandButton Command6
Caption = ">|"
Height = 375
Left = 2880
TabIndex = 14
Top = 3120
Width = 615
End
Begin VB.CommandButton Command5
Caption = ">"
Height = 375
Left = 2040
TabIndex = 13
Top = 3120
Width = 615
End
Begin VB.CommandButton Command4
Caption = "<"
Height = 375
Left = 1200
TabIndex = 12
Top = 3120
Width = 615
End
Begin VB.CommandButton Command3
Caption = "|<"
Height = 375
Left = 360
TabIndex = 11
Top = 3120
Width = 615
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 3840
TabIndex = 10
Top = 3120
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "確認(rèn)修改"
Height = 375
Left = 3840
TabIndex = 9
Top = 2640
Width = 1695
End
Begin VB.TextBox Text3
Height = 270
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "*"
TabIndex = 8
Top = 2160
Width = 2775
End
Begin VB.TextBox Text2
Height = 270
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "*"
TabIndex = 7
Top = 1680
Width = 2775
End
Begin VB.TextBox Text1
Height = 270
Left = 960
TabIndex = 6
Top = 1200
Width = 2775
End
Begin VB.Frame Frame1
Caption = "選擇身份"
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 3975
Begin VB.OptionButton Option2
Caption = "學(xué)生"
Height = 255
Left = 2520
TabIndex = 2
Top = 360
Width = 735
End
Begin VB.OptionButton Option1
Caption = "老師"
Height = 300
Left = 720
TabIndex = 1
Top = 360
Width = 855
End
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "原密碼："
Height = 180
Left = 240
TabIndex = 17
Top = 1680
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "確認(rèn)密碼："
Height = 180
Left = 120
TabIndex = 5
Top = 2640
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "新密碼："
Height = 180
Left = 240
TabIndex = 4
Top = 2160
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "用戶名："
Height = 180
Left = 240
TabIndex = 3
Top = 1200
Width = 720
End
End
Attribute VB_Name = "MDI_XiuGai_DengLuYongHu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim flag As Integer
Private Sub Command1_Click() '修改登陸用戶信息中的"修改"按鈕
If Text4.Text = Text3.Text Then
If Option1 = True Then '老師方式
rs_RenZheng_LaoShi.MoveFirst
While Not rs_RenZheng_LaoShi.EOF
If rs_RenZheng_LaoShi!yonghuming = Trim(Text1.Text) And rs_RenZheng_LaoShi!mima = Trim(Text2.Text) Then
rs_RenZheng_LaoShi.Fields(0).Value = Text1.Text
rs_RenZheng_LaoShi.Fields(1).Value = Text3.Text
rs_RenZheng_LaoShi.Update
MsgBox ("修改成功")
Call qingkong
flag = 1
Else
rs_RenZheng_LaoShi.MoveNext
End If
Wend
rs_RenZheng_LaoShi.MoveFirst
If flag < 1 Then
MsgBox "輸入的操作員名稱或口令非法，請(qǐng)注意輸入的大小寫敏感，請(qǐng)重試?。?！", , "非法的操作員口令"
flag = flag - 1
End If
If flag < -2 Then
MsgBox "用戶名或密碼非法三次，您無(wú)權(quán)登陸?。?！"
End
End If
End If
If Option2 = True Then '學(xué)生方式
rs_RenZheng_XueSheng.MoveFirst
While Not rs_RenZheng_XueSheng.EOF
If rs_RenZheng_XueSheng!yonghuming = Trim(Text1.Text) And rs_RenZheng_XueSheng!mima = Trim(Text2.Text) Then
rs_RenZheng_XueSheng.Fields(0).Value = Text1.Text
rs_RenZheng_XueSheng.Fields(1).Value = Text3.Text
rs_RenZheng_XueSheng.Update
MsgBox ("修改成功")
Call qingkong
flag = 1
Else
rs_RenZheng_XueSheng.MoveNext
End If
Wend
rs_RenZheng_XueSheng.MoveFirst
If flag < 1 Then
MsgBox "輸入的操作員名稱或口令非法，請(qǐng)注意輸入的大小寫敏感，請(qǐng)重試！?。?quot;, , "非法的操作員口令"
flag = flag - 1
End If
If flag < -2 Then
MsgBox "用戶名或密碼非法三次，您無(wú)權(quán)登陸！?。?quot;
End
End If
End If
Else
MsgBox "密碼不一致！！請(qǐng)核對(duì)后重新輸入??！"
Text2.Text = ""
Text3.Text = ""
End If
End Sub
Private Sub Command3_Click() '修改登陸用戶信息中的"|<"按鈕
If Option1 = True Then
rs_RenZheng_LaoShi.MoveFirst
Call text_change_RenZheng_LaoShi
End If
If Option2 = True Then
rs_RenZheng_XueSheng.MoveFirst
Call text_change_RenZheng_XueSheng
End If
End Sub
Private Sub Command4_Click() '修改登陸用戶信息中的"<"按鈕
If Option1 = True Then
rs_RenZheng_LaoShi.MovePrevious
If rs_RenZheng_LaoShi.BOF Then
rs_RenZheng_LaoShi.MoveFirst
End If
Call text_change_RenZheng_LaoShi
End If
If Option2 = True Then
rs_RenZheng_XueSheng.MovePrevious
If rs_RenZheng_XueSheng.BOF Then
rs_RenZheng_XueSheng.MoveFirst
End If
Call text_change_RenZheng_XueSheng
End If
End Sub
Private Sub Command5_Click() '修改登陸用戶信息中的">"按鈕
If Option1 = True Then
rs_RenZheng_LaoShi.MoveNext
If rs_RenZheng_LaoShi.EOF Then
rs_RenZheng_LaoShi.MoveLast
End If
Call text_change_RenZheng_LaoShi
End If
If Option2 = True Then
rs_RenZheng_XueSheng.MoveNext
If rs_RenZheng_XueSheng.EOF Then
rs_RenZheng_XueSheng.MoveLast
End If
Call text_change_RenZheng_XueSheng
End If
End Sub
Private Sub Command6_Click() '修改登陸用戶信息中的">|"按鈕
If Option1 = True Then
rs_RenZheng_LaoShi.MoveLast
Call text_change_RenZheng_LaoShi
End If
If Option2 = True Then
rs_RenZheng_XueSheng.MoveLast
Call text_change_RenZheng_XueSheng
End If
End Sub
Private Sub Command7_Click() '修改登陸用戶信息中的"添加"按鈕
If Trim(Text1.Text) = "" Then
MsgBox "請(qǐng)輸入用戶名??！"
Exit Sub
End If
If Option1 = True Then
rs_RenZheng_LaoShi.AddNew
rs_RenZheng_LaoShi.Fields(0).Value = Text1.Text
rs_RenZheng_LaoShi.Fields(1).Value = Text2.Text
rs_RenZheng_LaoShi.Update
If MsgBox("添加成功！是否添加下一個(gè)用戶？", vbYesNo, "完成...") = vbYes Then
Call qingkong
Call Form_Load
Else
Unload Me
End If
End If
If Option2 = True Then
rs_RenZheng_XueSheng.AddNew
rs_RenZheng_XueSheng.Fields(0).Value = Text1.Text
rs_RenZheng_XueSheng.Fields(1).Value = Text2.Text
rs_RenZheng_XueSheng.Update
If MsgBox("添加成功！是否添加下一個(gè)用戶？", vbYesNo, "完成...") = vbYes Then
Call qingkong
Call Form_Load
Else
Unload Me
End If
End If
End Sub
Private Sub Command2_Click() '修改登陸用戶信息中的"取消"按鈕
Unload Me
End Sub
Private Sub Command8_Click() '修改登陸用戶信息中的"刪除"按鈕
If Trim(Text1.Text) = "" Then
MsgBox "請(qǐng)輸入用戶名??！"
Exit Sub
End If
If Option1 = True Then
rs_RenZheng_LaoShi.Delete
rs_RenZheng_LaoShi.Update
MsgBox ("刪除成功")
Call qingkong
Call Form_Load
End If
If Option2 = True Then
rs_RenZheng_XueSheng.Delete
rs_RenZheng_XueSheng.Update
MsgBox ("刪除成功")
Call qingkong
Call Form_Load
End If
End Sub
Sub Form_Load()
If Option1 = True Then
If rs_RenZheng_LaoShi.RecordCount < 1 Then
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command8.Enabled = False
Else
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = True
Command8.Enabled = True
End If
End If
If Option2 = True Then
If rs_RenZheng_XueSheng.RecordCount < 1 Then
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command8.Enabled = False
Else
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = True
Command8.Enabled = True
End If
End If
End Sub
Private Sub Option1_Click()
Call qingkong
Call Form_Load
End Sub
Private Sub Option2_Click()
Call qingkong
Call Form_Load
End Sub
Sub qingkong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Sub text_change_RenZheng_LaoShi()
If Option1 = True Then
Text1.Text = rs_RenZheng_LaoShi.Fields(0).Value
Text2.Text = rs_RenZheng_LaoShi.Fields(1).Value
End If
End Sub
Sub text_change_RenZheng_XueSheng()
If Option2 = True Then
Text1.Text = rs_RenZheng_XueSheng.Fields(0).Value
Text2.Text = rs_RenZheng_XueSheng.Fields(1).Value
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -