商品进销存商品进销存商品进销存商品进销存商品进销存商品进销存

				VERSION 5.00
				Begin VB.Form frmModifyuserinfo 
				   Caption         =   "修改密码"
				   ClientHeight    =   1932
				   ClientLeft      =   48
				   ClientTop       =   348
				   ClientWidth     =   3684
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   1932
				   ScaleWidth      =   3684
				   StartUpPosition =   2  'CenterScreen
				   Begin VB.TextBox Text1 
				      BeginProperty Font 
				         Name            =   "宋体"
				         Size            =   10.8
				         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.8
				         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.8
				         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.8
				         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.8
				         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.8
				         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