📄 form5.frm
字号:
Left = -71520
TabIndex = 48
Top = 3720
Width = 360
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帐号"
Height = 180
Left = -74280
TabIndex = 29
Top = 960
Width = 360
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码"
Height = 180
Left = -71160
TabIndex = 28
Top = 960
Width = 360
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码提示问题"
Height = 180
Left = -74760
TabIndex = 27
Top = 1800
Width = 1080
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "答案"
Height = 180
Left = -71160
TabIndex = 26
Top = 1800
Width = 360
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性别"
Height = 180
Left = -74280
TabIndex = 25
Top = 2520
Width = 360
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年龄"
Height = 180
Left = -71160
TabIndex = 24
Top = 2640
Width = 360
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学历"
Height = 180
Left = -74160
TabIndex = 23
Top = 3480
Width = 360
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职业"
Height = 180
Left = -71160
TabIndex = 22
Top = 3600
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帐号"
Height = 180
Left = -73560
TabIndex = 17
Top = 720
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码"
Height = 180
Left = -73560
TabIndex = 16
Top = 1320
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码提示问题"
Height = 180
Left = -74160
TabIndex = 15
Top = 1920
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "答案"
Height = 180
Left = -73560
TabIndex = 14
Top = 2520
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性别"
Height = 180
Left = -73560
TabIndex = 13
Top = 3240
Width = 360
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年龄"
Height = 180
Left = -73560
TabIndex = 12
Top = 3840
Width = 360
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学历"
Height = 180
Left = -73560
TabIndex = 11
Top = 4440
Width = 360
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职业"
Height = 180
Left = -73560
TabIndex = 10
Top = 5040
Width = 360
End
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6480
Visible = 0 'False
Width = 1215
End
End
Attribute VB_Name = "用户管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(index As Integer)
Select Case index
Case 0
Data1.Recordset.MoveFirst
Case 1
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
Case 2
Data1.Recordset.MoveFirst
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
Case 3
Data1.Recordset.MoveLast
End Select
Call dateview1
End Sub
Private Sub Command10_Click()
Call dateview3
End Sub
Private Sub Command2_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
Call dateview1
Data1.Refresh
End Sub
Private Sub Command3_Click(index As Integer)
Select Case index
Case 0
Data1.Recordset.MoveFirst
Case 1
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
Case 2
Data1.Recordset.MoveFirst
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
Case 3
Data1.Recordset.MoveLast
End Select
Call dateview2
End Sub
Private Sub Command4_Click()
Data1.Recordset.Edit
'Data1.Recordset.Fields("帐号") = Text13.Text
Text13.Enabled = False
Data1.Recordset.Fields("密码") = Text14.Text
Data1.Recordset.Fields("密码Q") = Text15.Text
Data1.Recordset.Fields("密码A") = Text16.Text
Data1.Recordset.Fields("性别") = Text17.Text
Data1.Recordset.Fields("年龄") = Text18.Text
Data1.Recordset.Fields("学历") = Text19.Text
Data1.Recordset.Fields("职业") = Text20.Text
Data1.Recordset.Update
Call dateview2
inta = MsgBox("修改成功", vbYesNo, "温馨提示")
Data1.Refresh
End Sub
Private Sub Command5_Click(index As Integer)
Select Case index
Case 0
Data1.Recordset.MoveFirst
Case 1
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
Case 2
Data1.Recordset.MoveFirst
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
Case 3
Data1.Recordset.MoveLast
End Select
Call dateview3
End Sub
Private Sub Command6_Click()
用户管理.Hide
End Sub
Private Sub Command7_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "请选择" Or Combo2.Text = "请选择" Or Combo3.Text = "请选择" Or Option1.Value = False And Option2.Value = False Then
inta = MsgBox("请输入完整的信息", vbYesNo, "温馨提示")
Else
Data1.Recordset.FindFirst ("帐号='" & Text1.Text & "'")
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("帐号") = Text1.Text
Data1.Recordset.Fields("密码") = Text2.Text
Data1.Recordset.Fields("密码A") = Text3.Text
Data1.Recordset.Fields("年龄") = Text4.Text
Data1.Recordset.Fields("密码Q") = Combo1.Text
Data1.Recordset.Fields("学历") = Combo2.Text
Data1.Recordset.Fields("职业") = Combo3.Text
If Option1.Value = True Then
Data1.Recordset.Fields("性别") = Option1.Caption
Else
Data1.Recordset.Fields("性别") = Option2.Caption
End If
Data1.Recordset.Update
inta = MsgBox("增加成功", vbYesNo, "温馨提示")
Else
inta = MsgBox("该用户已存在", vbYesNo, "提示")
Text1.SetFocus
End If
End If
Data1.Refresh
End Sub
Private Sub Command8_Click()
Call dateview1
Command2.Enabled = True
End Sub
Private Sub Command9_Click()
Call dateview2
Command4.Enabled = True
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "试题库.mdb"
Data1.RecordSource = "密码Q"
Data1.Refresh
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("密码Q")
Data1.Recordset.MoveNext
Loop
Data1.RecordSource = "学历"
Data1.Refresh
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
Combo2.AddItem Data1.Recordset.Fields("xueli")
Data1.Recordset.MoveNext
Loop
Data1.RecordSource = "职业"
Data1.Refresh
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
Combo3.AddItem Data1.Recordset.Fields("zhiye")
Data1.Recordset.MoveNext
Loop
Data1.RecordSource = "用户"
Data1.Refresh
Command2.Enabled = False
Command4.Enabled = False
End Sub
Private Sub dateview1()
Text5.Text = Data1.Recordset.Fields("帐号")
Text6.Text = Data1.Recordset.Fields("密码")
Text7.Text = Data1.Recordset.Fields("密码Q")
Text8.Text = Data1.Recordset.Fields("密码A")
Text9.Text = Data1.Recordset.Fields("性别")
Text10.Text = Data1.Recordset.Fields("年龄")
Text11.Text = Data1.Recordset.Fields("学历")
Text12.Text = Data1.Recordset.Fields("职业")
End Sub
Private Sub dateview2()
Text13.Text = Data1.Recordset.Fields("帐号")
Text14.Text = Data1.Recordset.Fields("密码")
Text15.Text = Data1.Recordset.Fields("密码Q")
Text16.Text = Data1.Recordset.Fields("密码A")
Text17.Text = Data1.Recordset.Fields("性别")
Text18.Text = Data1.Recordset.Fields("年龄")
Text19.Text = Data1.Recordset.Fields("学历")
Text20.Text = Data1.Recordset.Fields("职业")
End Sub
Private Sub dateview3()
Text21.Text = Data1.Recordset.Fields("帐号")
Text22.Text = Data1.Recordset.Fields("密码")
Text23.Text = Data1.Recordset.Fields("密码Q")
Text24.Text = Data1.Recordset.Fields("密码A")
Text25.Text = Data1.Recordset.Fields("性别")
Text26.Text = Data1.Recordset.Fields("年龄")
Text27.Text = Data1.Recordset.Fields("学历")
Text28.Text = Data1.Recordset.Fields("职业")
End Sub
Private Sub SSTab1_Click(index As Integer)
Select Case index
Case 0
Case 1
Case 2
Case 3
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -