📄 frmaqset.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmaqset
BorderStyle = 3 'Fixed Dialog
Caption = "系统安全设置"
ClientHeight = 4320
ClientLeft = 45
ClientTop = 330
ClientWidth = 6300
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4320
ScaleWidth = 6300
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 3855
Left = 240
TabIndex = 6
Top = 240
Width = 5655
_ExtentX = 9975
_ExtentY = 6800
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "用户名修改"
TabPicture(0) = "frmaqset.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "CmdTrue"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "CmdBack"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "CmdReSet"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "密码修改"
TabPicture(1) = "frmaqset.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Command3"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Command2"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Command1"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
Begin VB.CommandButton CmdReSet
Caption = "重填"
Height = 375
Left = 2280
TabIndex = 4
Top = 3120
Width = 1095
End
Begin VB.CommandButton CmdBack
Caption = "返回"
Height = 375
Left = 3600
TabIndex = 5
Top = 3120
Width = 975
End
Begin VB.CommandButton CmdTrue
Caption = "确定"
Default = -1 'True
Height = 375
Left = 1080
TabIndex = 3
Top = 3120
Width = 975
End
Begin VB.Frame Frame2
Caption = "用户名设置"
Height = 2175
Left = 480
TabIndex = 17
Top = 840
Width = 4575
Begin VB.TextBox TextNewName
Height = 270
Left = 1800
TabIndex = 1
Top = 1080
Width = 2295
End
Begin VB.TextBox TextOldName
Height = 270
Left = 1800
TabIndex = 0
Top = 480
Width = 2295
End
Begin VB.TextBox TextPWD
Height = 270
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 2
ToolTipText = "必须与确认密码相等"
Top = 1680
Width = 2295
End
Begin VB.Label Label1
Caption = "输入密码："
Height = 255
Index = 5
Left = 480
TabIndex = 20
Top = 1680
Width = 1095
End
Begin VB.Label Label1
Caption = "新用户名："
Height = 255
Index = 4
Left = 480
TabIndex = 19
Top = 1080
Width = 1095
End
Begin VB.Label Label1
Caption = "原用户名："
Height = 255
Index = 3
Left = 480
TabIndex = 18
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame1
Caption = "安全设置"
Height = 2175
Left = -74520
TabIndex = 13
Top = 840
Width = 4575
Begin VB.TextBox txtoldpwd
Height = 270
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 7
ToolTipText = "输入正确的原密码"
Top = 480
Width = 2295
End
Begin VB.TextBox txtnewpwd
Height = 270
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 8
ToolTipText = "新密码不能包含空格"
Top = 1080
Width = 2295
End
Begin VB.TextBox txtnewpwd2
Height = 270
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 9
ToolTipText = "必须与确认密码相等"
Top = 1680
Width = 2295
End
Begin VB.Label Label1
Caption = "原密码："
Height = 255
Index = 0
Left = 480
TabIndex = 16
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "新密码："
Height = 255
Index = 1
Left = 480
TabIndex = 15
Top = 1080
Width = 1095
End
Begin VB.Label Label1
Caption = "确认密码："
Height = 255
Index = 2
Left = 480
TabIndex = 14
Top = 1680
Width = 1095
End
End
Begin VB.CommandButton Command3
Caption = "重填"
Height = 375
Left = -72720
TabIndex = 11
Top = 3180
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "返回"
Height = 375
Left = -71400
TabIndex = 12
Top = 3180
Width = 975
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 375
Left = -73920
TabIndex = 10
Top = 3180
Width = 975
End
End
End
Attribute VB_Name = "frmaqset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2006/12/06
'描 述： 纯净水进销存管理系统 Ver 2.0
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim checkpwd As New OMD5
Private Sub CmdBack_Click()
Unload Me
End Sub
Private Sub CmdReSet_Click()
TextOldName = ""
TextNewName = ""
TextPWD = ""
End Sub
Private Sub CmdTrue_Click()
Dim rsname As ADODB.Recordset
Dim sqlname As String
If Trim(TextOldName) = "" Then
MsgBox "原用户名不能为空", vbInformation + vbOKOnly, "系统提示"
TextOldName.SetFocus
Exit Sub
ElseIf Trim(TextNewName) = "" Then
MsgBox "新用户名不能为空", vbInformation + vbOKOnly, "系统提示"
TextNewName.SetFocus
Exit Sub
ElseIf Trim(TextPWD) = "" Then
MsgBox "密码不能为空", vbInformation + vbOKOnly, "系统提示"
TextPWD.SetFocus
Exit Sub
End If
sqlname = "select * from 系统表"
Set rsname = ExeSQL(sqlname)
If Trim(TextOldName) = rsname("用户名") And checkpwd.md5(Trim(TextPWD)) = rsname("密码") Then
rsname!用户名 = Trim(TextNewName.Text)
rsname.Update
Else
MsgBox "用户名或者密码出错,请重新输入", vbInformation + vbOKOnly, "系统提示"
TextOldName.SetFocus
End If
rsname.Close
Set rsname = Nothing
MsgBox "用户名更新成功!", vbInformation + vbOKOnly, "系统提示"
Call CmdReSet_Click
End Sub
Private Sub Command1_Click()
Dim rspwd As ADODB.Recordset
Dim sqlpwd As String
If txtoldpwd.Text = "" Then
MsgBox "原密码不能为空", vbExclamation, "系统提示"
txtoldpwd.SetFocus
Exit Sub
ElseIf txtnewpwd.Text = "" Then
MsgBox "新密码不能为空", vbExclamation, "系统提示"
txtnewpwd.SetFocus
Exit Sub
ElseIf Trim(txtnewpwd.Text) <> Trim(txtnewpwd2.Text) Then
MsgBox "新密码与确认密码不相等,请重新确认输入密码", vbExclamation, "系统提示"
txtnewpwd2.SetFocus
Exit Sub
End If
sqlpwd = "select * from 系统表"
Set rspwd = ExeSQL(sqlpwd)
If rspwd!密码 <> checkpwd.md5(Trim(txtoldpwd.Text)) Then '密码采用md5加密
MsgBox "原密码输入错误", vbExclamation, "系统提示"
txtoldpwd.SetFocus
Exit Sub
Else
rspwd!密码 = checkpwd.md5(Trim(txtnewpwd.Text))
rspwd.Update
MsgBox "密码修改成功", vbInformation, "系统提示"
Call Command3_Click
End If
rspwd.Close
Set rspwd = Nothing
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
txtoldpwd.Text = ""
txtnewpwd.Text = ""
txtnewpwd2.Text = ""
End Sub
Private Sub Command6_Click()
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmaqset = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -