frm_pass_repair.frm

一个公司的客户财产管理系统vb源码

VERSION 5.00
Begin VB.Form Frm_Pass_Repair 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "密码修改"
   ClientHeight    =   2670
   ClientLeft      =   8115
   ClientTop       =   5205
   ClientWidth     =   5565
   Icon            =   "Frm_Pass_Repair.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2670
   ScaleWidth      =   5565
   Begin VB.CommandButton cmd_Exit 
      Caption         =   "退出(&Exit)"
      Height          =   495
      Left            =   3360
      TabIndex        =   4
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton cmd_OK 
      Caption         =   "确认(&OK)"
      Height          =   495
      Left            =   1680
      TabIndex        =   3
      Top             =   2040
      Width           =   1455
   End
   Begin VB.TextBox txt_Pass 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Index           =   1
      Left            =   2475
      PasswordChar    =   "*"
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   780
      Width           =   2655
   End
   Begin VB.TextBox txt_Pass 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Index           =   2
      Left            =   2475
      PasswordChar    =   "*"
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1260
      Width           =   2655
   End
   Begin VB.TextBox txt_Pass 
      Height          =   375
      Index           =   0
      Left            =   2475
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   300
      Width           =   2655
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   5640
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "输入新密码:"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   240
      Left            =   945
      TabIndex        =   7
      Top             =   840
      Width           =   1410
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "再次输入新密码:"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   240
      Left            =   435
      TabIndex        =   6
      Top             =   1320
      Width           =   1920
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "输入原密码:"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   240
      Left            =   945
      TabIndex        =   5
      Top             =   360
      Width           =   1410
   End
End
Attribute VB_Name = "Frm_Pass_Repair"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit

Private Sub cmd_Exit_Click()
  Unload Me
End Sub

Private Sub cmd_OK_Click()
On Error GoTo err
    '原密码有误
    If Me.txt_Pass(0).text <> OperatorPass Then
      MsgBox "原密码输入有误," + Chr(13) + "请重新输入!", vbCritical, "错误提示"
      Me.txt_Pass(0).text = ""
      Me.txt_Pass(1).text = ""
      Me.txt_Pass(2).text = ""
      Me.txt_Pass(0).SetFocus
      Exit Sub
    End If
    '新密码为空
    If Trim(Me.txt_Pass(1).text) = "" Or Trim(Me.txt_Pass(2).text) = "" Then
      MsgBox "密码不能为空,请输入!", vbInformation, "提示信息"
      Me.txt_Pass(1).text = ""
      Me.txt_Pass(2).text = ""
      Me.txt_Pass(1).SetFocus
      Exit Sub
    End If
    '两次新密码不同
    If Me.txt_Pass(1).text <> Me.txt_Pass(2).text Then
      MsgBox "两次输入的新密码不同," + Chr(13) + "请重新输入!", vbCritical, "错误提示"
      Me.txt_Pass(1).text = ""
      Me.txt_Pass(2).text = ""
      Me.txt_Pass(1).SetFocus
      Exit Sub
    End If
    '进行密码修改
    Set Cn = New ADODB.Connection
    Cn.Open Cs
    Set Rs = New ADODB.Recordset
    Rs.Open "select * from Operator where 用户名='" + OperatorName + "' and 密码='" + OperatorPass + "' and 所在部门='" + OperatorDepartment + "'", Cn, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs.RecordCount = 1 Then
      Rs!密码 = Trim(Me.txt_Pass(1).text)
'      Cn.Execute "update Operator set operator_password='" & Trim(Me.txt_Pass(0).text) & "' where operator_name='" + OperatorName + "' and operator_password='" + OperatorPass + "' and operator_department='" + OperatorDepartment + "'"
      OperatorPass = Trim(Me.txt_Pass(1).text)
      MsgBox "密码修改成功!", vbInformation, "提示信息"
      Rs.Update
      Rs.Close
      Cn.Close
      Unload Me
    Else
      MsgBox "意外错误", vbInformation, "错误提示"
    End If
Exit Sub
err:
   MsgBox err.Description, vbCritical

End Sub
'
Private Sub Form_Load()
On Error GoTo err
'    Me.Left = 5500
'    Me.Top = 4300
'    Me.Icon = LoadPicture(App.Path & "\icon\system.ico")
     Me.txt_Pass(0).text = "": Me.txt_Pass(0).PasswordChar = "*"
     Me.txt_Pass(1).text = "": Me.txt_Pass(0).PasswordChar = "*"
     Me.txt_Pass(2).text = "": Me.txt_Pass(0).PasswordChar = "*"
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub txt_Pass_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub