📄 从mdi修改登陆用户.frm
字号:
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 = "确认修改"
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 = "学生"
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 = "确认密码："
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 "输入的操作员名称或口令非法，请注意输入的大小写敏感，请重试！！！", , "非法的操作员口令"
flag = flag - 1
End If
If flag < -2 Then
MsgBox "用户名或密码非法三次，您无权登陆！！！"
End
End If
End If
If Option2 = True Then '学生方式
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 "输入的操作员名称或口令非法，请注意输入的大小写敏感，请重试！！！", , "非法的操作员口令"
flag = flag - 1
End If
If flag < -2 Then
MsgBox "用户名或密码非法三次，您无权登陆！！！"
End
End If
End If
Else
MsgBox "密码不一致！！请核对后重新输入！！"
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 "请输入用户名！！"
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("添加成功！是否添加下一个用户？", 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("添加成功！是否添加下一个用户？", 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 "请输入用户名！！"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -