是我的个人设计站长快让我通过啊
源代码在线查看： frmmodifyuserinfo.frm
| 软件大小： |
1528 K |
| 上传用户： |
koalalee |
|
|
| 关键词： |
|
| 下载地址： |
免注册下载 普通下载
|
|
VERSION 5.00
Begin VB.Form frmModifyuserinfo
Caption = "修改密码"
ClientHeight = 1935
ClientLeft = 45
ClientTop = 345
ClientWidth = 3690
LinkTopic = "Form1"
Picture = "frmModifyuserinfo.frx":0000
ScaleHeight = 1935
ScaleWidth = 3690
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
IMEMode = 3 'DISABLE
Index = 1
Left = 1800
PasswordChar = "*"
TabIndex = 3
Top = 240
Width = 1812
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
IMEMode = 3 'DISABLE
Index = 2
Left = 1800
PasswordChar = "*"
TabIndex = 2
Top = 720
Width = 1812
End
Begin VB.CommandButton cmdOK
Caption = "确认"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 720
TabIndex = 1
Top = 1320
Width = 972
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 1920
TabIndex = 0
Top = 1320
Width = 972
End
Begin VB.Label Label2
Caption = "请输入新密码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 240
TabIndex = 5
Top = 240
Width = 1452
End
Begin VB.Label Label3
Caption = "请确认新密码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 240
TabIndex = 4
Top = 720
Width = 1452
End
End
Attribute VB_Name = "frmModifyuserinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
If Trim(Text1(1).Text) Trim(Text1(2).Text) Then
MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Else
txtSQL = "select * from user_Info where user_ID = '" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.Fields(1) = Text1(1).Text
mrc.Update
mrc.Close
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
Me.Hide
End If
End Sub
