frmmod.frm

图书管理系统

VERSION 5.00
Begin VB.Form FrmModPWD 
   BackColor       =   &H00FFC0C0&
   Caption         =   "修改密码"
   ClientHeight    =   3870
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5760
   BeginProperty Font 
      Name            =   "华文行楷"
      Size            =   14.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3870
   ScaleWidth      =   5760
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H00FFC0C0&
      Caption         =   "取消"
      Height          =   495
      Left            =   3480
      MaskColor       =   &H00FF0000&
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   3120
      Width           =   1095
   End
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H00FFC0C0&
      Caption         =   "确定"
      Height          =   495
      Left            =   1200
      MaskColor       =   &H00C0C0FF&
      Style           =   1  'Graphical
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   3120
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "修改密码"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   2655
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   4935
      Begin VB.TextBox ConfirmPWD 
         BackColor       =   &H00FFC0C0&
         Height          =   405
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   1680
         Width           =   2175
      End
      Begin VB.TextBox NewPWD 
         BackColor       =   &H00FFC0C0&
         Height          =   405
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   5
         Top             =   1080
         Width           =   2175
      End
      Begin VB.TextBox OldPWD 
         BackColor       =   &H00FFC0C0&
         Height          =   405
         Left            =   2400
         TabIndex        =   4
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请确认新密码"
         BeginProperty Font 
            Name            =   "华文行楷"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   495
         Left            =   600
         TabIndex        =   3
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label PassWord 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请输入新密码"
         BeginProperty Font 
            Name            =   "华文行楷"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   375
         Left            =   600
         TabIndex        =   2
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请输入旧密码"
         BeginProperty Font 
            Name            =   "华文行楷"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   375
         Left            =   600
         TabIndex        =   1
         Top             =   600
         Width           =   1575
      End
   End
End
Attribute VB_Name = "FrmModPWD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub cmdCancel_Click()
Unload Me

End Sub

Private Sub cmdOK_Click()
Dim sql As String
Dim rs As ADODB.Recordset
If Trim(OldPWD.Text) = "" Then
    MsgBox "请输入旧密码", vbOKOnly + vbExclamation, "警告"
    OldPWD.SetFocus
    Exit Sub
Else
  If Trim(NewPWD.Text) = "" Then
    MsgBox "请输入新密码", vbOKOnly + vbExclamation, "警告"
    NewPWD.SetFocus
    Exit Sub
ElseIf Trim(NewPWD.Text) <> Trim(ConfirmPWD.Text) Then
    MsgBox "两次密码不同", vbOKOnly + vbExclamation, "警告"
    NewPWD.Text = ""
    OldPWD.Text = ""
    NewPWD.SetFocus
Else
 
   sql = "update UserInfo set UserPWD='" & NewPWD & "'where UserID='"
   sql = sql & gUserName & "'"
   TransactSQL (sql)
   MsgBox "密码已经修改", vbOKOnly + vbExclamation, "修改结束"
   Unload Me
  End If
End If
    
End Sub

Private Sub Form_Load()
OldPWD.Text = ""
NewPWD.Text = ""
ConfirmPWD.Text = ""


End Sub