frmchangepassword.frm

针对农资系统的商品进销存管理系统软件

VERSION 5.00
Begin VB.Form FrmChangePassword 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "值班员改变口令"
   ClientHeight    =   2295
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4065
   Icon            =   "FrmChangePassword.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Caption         =   "放弃(&C)"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   2400
      TabIndex        =   4
      Top             =   1800
      Width           =   1095
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   600
      TabIndex        =   3
      Top             =   1800
      Width           =   1095
   End
   Begin VB.Frame Frame3 
      Caption         =   "输入新口令"
      Height          =   1575
      Left            =   2040
      TabIndex        =   8
      Top             =   60
      Width           =   1935
      Begin VB.TextBox txtNewPassword2 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   480
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1080
         Width           =   1335
      End
      Begin VB.TextBox txtNewPassword1 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   480
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   360
         Width           =   1335
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "核实新口令："
         Height          =   180
         Left            =   120
         TabIndex        =   9
         Top             =   765
         Width           =   1080
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "核对原口令"
      Height          =   735
      Left            =   120
      TabIndex        =   6
      Top             =   900
      Width           =   1815
      Begin VB.TextBox txtOldPassword 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   360
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   280
         Width           =   1335
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "值班员"
      Height          =   735
      Left            =   120
      TabIndex        =   5
      Top             =   60
      Width           =   1815
      Begin VB.TextBox txtName 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Height          =   270
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   280
         Width           =   1335
      End
   End
End
Attribute VB_Name = "FrmChangePassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub SetOkCheck()
    cmdOk.Enabled = (txtNewPassword1.Text = txtNewPassword2.Text) And txtNewPassword1.Text <> ""
    
    txtNewPassword1.Enabled = (txtOldPassword.Text = m_gsPassword)
    txtNewPassword2.Enabled = (txtNewPassword1.Text <> "")
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOk_Click()
    Dim sSqlStr As String, nAffected As Integer
    
    If m_gnLevel = SUPPER_MANAGER Then          '超级主管修改口令
        sSqlStr = "Update System Set FPassword = '" & txtNewPassword1.Text & "'"
    ElseIf m_gnLevel = DEPART_MANAGER Then      '部门主管修改口令
        sSqlStr = "Update Depart Set FPassword = '" & txtNewPassword1.Text & "' Where FDepartCode = '" & m_gsDepartCode & "'"
    ElseIf m_gnLevel = GENERAL_OPERATOR Then    '普通操作员修改口令
        sSqlStr = "Update Operator Set FPassword = '" & txtNewPassword1.Text & "' Where FDepartCode = '" & m_gsDepartCode & "' And FOperatorName = '" & m_gsOperator & "'"
    End If
    m_gDBCnn.Execute sSqlStr, nAffected
    If nAffected <> 1 Then
        MsgBox "数据输入有误, 更新不成功!", vbOKOnly + vbInformation, "提示:"
        Exit Sub
    End If
    
    m_gsPassword = txtNewPassword1.Text
    Unload Me
    MsgBox "新口令已经生效, 下次登陆时请使用新口令!", vbOKOnly + vbInformation, "提示:"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Form_Load()
    SetForm Me, 9
    txtName.Text = m_gsOperator
    SetOkCheck
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.MousePointer = vbDefault
End Sub

Private Sub txtNewPassword1_Change()
    txtNewPassword2.Text = ""
    SetOkCheck
End Sub

Private Sub txtNewPassword1_Validate(Cancel As Boolean)
    SetOkCheck
End Sub

Private Sub txtNewPassword2_Change()
    SetOkCheck
End Sub

Private Sub txtOldPassword_Change()
    txtNewPassword1.Text = ""
    txtNewPassword2.Text = ""
    SetOkCheck
End Sub

Private Sub txtOldPassword_Validate(Cancel As Boolean)
    If txtOldPassword.Text <> m_gsPassword Then
        MsgBox "原口令输入不正确!", vbOKOnly + vbInformation, "提示:"
        txtOldPassword.SetFocus
        txtOldPassword.SelStart = 0
        txtOldPassword.SelLength = Len(txtOldPassword.Text)
    End If
End Sub