form5.frm

英语字典

VERSION 5.00
Begin VB.Form frmPsChange 
   BackColor       =   &H00FFC0C0&
   Caption         =   "修改密码"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4680
   LinkTopic       =   "Form5"
   ScaleHeight     =   11550
   ScaleWidth      =   19080
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Height          =   9375
      Left            =   1320
      Picture         =   "Form5.frx":0000
      ScaleHeight     =   9315
      ScaleWidth      =   8115
      TabIndex        =   12
      Top             =   1320
      Width           =   8175
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "修改密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   9495
      Left            =   10080
      TabIndex        =   0
      Top             =   1200
      Width           =   7335
      Begin VB.CommandButton cmdReturn 
         Caption         =   "返回"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   2640
         TabIndex        =   11
         Top             =   7320
         Width           =   2175
      End
      Begin VB.TextBox txtUserName 
         Height          =   495
         Left            =   3600
         TabIndex        =   6
         Top             =   1080
         Width           =   2895
      End
      Begin VB.TextBox txtOPS 
         Height          =   495
         IMEMode         =   3  'DISABLE
         Left            =   3600
         PasswordChar    =   "*"
         TabIndex        =   5
         Top             =   1800
         Width           =   2895
      End
      Begin VB.TextBox txtNPS 
         Height          =   495
         IMEMode         =   3  'DISABLE
         Left            =   3600
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   2520
         Width           =   2895
      End
      Begin VB.TextBox txtAPS 
         Height          =   495
         IMEMode         =   3  'DISABLE
         Left            =   3600
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   3240
         Width           =   2895
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "确定"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   2640
         TabIndex        =   2
         Top             =   4800
         Width           =   2175
      End
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   2640
         TabIndex        =   1
         Top             =   6120
         Width           =   2175
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请输入用户名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   960
         TabIndex        =   10
         Top             =   1200
         Width           =   2295
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请确认新密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   960
         TabIndex        =   9
         Top             =   3360
         Width           =   2175
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请输入新密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   960
         TabIndex        =   8
         Top             =   2640
         Width           =   2175
      End
      Begin VB.Label Label4 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请输入旧密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   960
         TabIndex        =   7
         Top             =   1920
         Width           =   2175
      End
   End
End
Attribute VB_Name = "frmPsChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
If Rs!用户名 <> txtUserName.Text Then          '判断是否存在该用户
 MsgBox "不存在该用户，请重新输入", vbexlamation, "警告"
 txtUserName.Text = ""
 txtUserName.SetFocus
Else
 If txtOPS.Text <> Rs!密码 Then
  MsgBox "密码输入错误，请重新输入", vbexlamation, "警告"     '判断用户名与密码是否匹配
 txtOPS.Text.Text = ""
 txtOPS.Text.SetFocus
 Else
  If txtAPS.Text <> txtNPS.Text Then
   MsgBox "新密码确认输入错误，请重新输入", vbexlamation, "警告"      '判断两次新密码输入是否相同
   txtNPS.Text = ""
   txtNPS.SetFocus
  Else
    txtsql = "select * from 用户信息表 where rs!用户名=txtUserName.Text "    '修改用户信息表中密码
    Set Rs = ExecuteSQL(txtsql, MsgText)
    Rs.UpdateBatch
    Rs!密码 = txtNPS.Text
    Rs.Update
    Rs.Close
    Rs.Close
    Set Rs = Nothing
    MsgBox "密码修改成功", vbexlamation, "提示"
  End If
 End If
End If
End Sub



Private Sub cmdCancel_Click()
txtUserName.Text = ""
txtOPS.Text = ""
txtNPS.Text = ""
txtAPS.Text = ""
txtUserName.SetFocus
End Sub

Private Sub cmdReturn_Click()
Unload Me
frmAdmainUser.Show
Rs.Close
End Sub

Private Sub Form_Load()
Call Module1.connection
txtUserName.SetFocus
Dim textsql As String
Dim MsgText As String
Dim Rs As ADODB.Recordset
End Sub

Private Sub Form_Unload(Cancel As Integer)
Rs.Close
End Sub