📄 user_frm.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form user_frm
Caption = "用户管理窗体"
ClientHeight = 8265
ClientLeft = 60
ClientTop = 345
ClientWidth = 11430
LinkTopic = "Form1"
MDIChild = -1 'True
Picture = "user_frm.frx":0000
ScaleHeight = 8265
ScaleWidth = 11430
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 6375
Left = 600
TabIndex = 0
Top = 720
Width = 9765
_ExtentX = 17224
_ExtentY = 11245
_Version = 393216
Tab = 1
TabHeight = 520
WordWrap = 0 'False
TabCaption(0) = "用户信息"
TabPicture(0) = "user_frm.frx":52DAB
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "DataGrid1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "修改密码"
TabPicture(1) = "user_frm.frx":52DC7
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Text1"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Text2"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Command1"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "command2"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Command6"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).ControlCount= 7
TabCaption(2) = "添加用户"
TabPicture(2) = "user_frm.frx":52DE3
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label3"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label4"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label5"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Text3"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Text4"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Text5"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Command3"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Command4"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "Command5"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).ControlCount= 9
Begin VB.CommandButton Command6
Caption = "退出"
Height = 735
Left = 6960
TabIndex = 17
Top = 4680
Width = 1815
End
Begin VB.CommandButton Command5
Caption = "退出"
Height = 735
Left = -68160
TabIndex = 16
Top = 5160
Width = 1815
End
Begin VB.CommandButton Command4
Caption = "取消"
Height = 780
Left = -71040
TabIndex = 15
Top = 5160
Width = 1815
End
Begin VB.CommandButton Command3
Caption = "确认"
Height = 735
Left = -74040
TabIndex = 14
Top = 5160
Width = 1815
End
Begin VB.TextBox Text5
Height = 735
Left = -70800
TabIndex = 13
Top = 3960
Width = 2175
End
Begin VB.TextBox Text4
Height = 735
Left = -70800
TabIndex = 11
Top = 2520
Width = 2055
End
Begin VB.TextBox Text3
Height = 735
Left = -70800
TabIndex = 9
Top = 960
Width = 2055
End
Begin VB.CommandButton command2
Caption = "取消"
Height = 735
Left = 4080
TabIndex = 7
Top = 4680
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "确认"
Height = 735
Left = 1080
TabIndex = 6
Top = 4680
Width = 1815
End
Begin VB.TextBox Text2
Height = 615
Left = 3720
TabIndex = 5
Top = 2880
Width = 2775
End
Begin VB.TextBox Text1
Height = 615
Left = 3720
TabIndex = 3
Top = 1200
Width = 2895
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "user_frm.frx":52DFF
Height = 3015
Left = -74520
TabIndex = 1
Top = 720
Width = 8535
_ExtentX = 15055
_ExtentY = 5318
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "确认密码："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -72840
TabIndex = 12
Top = 4200
Width = 1425
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "新密码："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -72840
TabIndex = 10
Top = 2760
Width = 1140
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "新用户名："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -72960
TabIndex = 8
Top = 1200
Width = 1425
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "确认密码："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1920
TabIndex = 4
Top = 3120
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "新密码："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1920
TabIndex = 2
Top = 1440
Width = 960
End
End
Begin MSAdodcLib.Adodc Adodc1
Height = 495
Left = 4560
Top = 7560
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 873
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\050531123贾晨微\db1.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\050531123贾晨微\db1.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "pwd"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "user_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim con As ADODB.Connection
Dim mrc As ADODB.Recordset
Private Sub Command3_Click()
'保存记录
Dim myrs As New ADODB.Recordset
Dim query As String
myrs.Open "SELECT * FROM pwd", con, adOpenDynamic, adLockOptimistic, adCmdText
myrs.AddNew
If Not Testtxt(Text3.Text) Then
MsgBox "用户名不能为空!"
Text1.SetFocus
Exit Sub
End If
If Not Testtxt(Text4.Text) Then
MsgBox "密码不能为空!"
Text2.SetFocus
Exit Sub
End If
If Not Testtxt(Text5.Text) Then
MsgBox "两次密码输入不一致！"
Text3.SetFocus
Exit Sub
End If
myrs.Fields(0) = Text3.Text
myrs.Fields(1) = Text4.Text
myrs.Fields(2) = power
myrs.Update
Set DataGrid1.DataSource = myrs
MsgBox "添加用户信息成功！", vbInformation
End Sub
Private Sub command1_click()
'修改密码
Dim myrs As New ADODB.Recordset
myrs.Open "SELECT * FROM pwd", con, adOpenDynamic, adLockOptimistic, adCmdText
If Text1.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
myrs.Fields(1) = Text2.Text
myrs.Update
Set DataGrid1.DataSource = myrs
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
End If
End Sub
Private Sub Command5_Click()
'退出
Unload Me
End Sub
Private Sub Command6_Click()
'退出
Unload Me
End Sub
Private Sub Form_Load()
'创建连接，并打开
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\050531123贾晨微\db1.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
End Sub
Private Sub Command2_Click()
'取消
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -