frmpassword.frm

OA编程 源代码

VERSION 5.00
Begin VB.Form FrmPassword 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改姓名和密码"
   ClientHeight    =   2385
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5670
   Icon            =   "frmPassword.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2662.326
   ScaleMode       =   0  'User
   ScaleWidth      =   5765.028
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CmdQuit 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   4410
      TabIndex        =   5
      Top             =   1920
      Width           =   975
   End
   Begin VB.CommandButton CmdDefine 
      Caption         =   "确定"
      Height          =   375
      Left            =   2940
      TabIndex        =   4
      Top             =   1920
      Width           =   975
   End
   Begin VB.Frame FraLogon 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1965
      Left            =   0
      TabIndex        =   0
      Top             =   -120
      Width           =   5610
      Begin VB.TextBox TxtNewPassword 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         IMEMode         =   3  'DISABLE
         Left            =   2280
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1275
         Width           =   3105
      End
      Begin VB.TextBox TxtOldPassword 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         IMEMode         =   3  'DISABLE
         Left            =   2280
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   795
         Width           =   3105
      End
      Begin VB.TextBox TxtName 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   2280
         TabIndex        =   1
         Top             =   285
         Width           =   3105
      End
      Begin VB.Image Image1 
         Height          =   1770
         Left            =   0
         Picture         =   "frmPassword.frx":030A
         Stretch         =   -1  'True
         Top             =   150
         Width           =   1245
      End
      Begin VB.Label LabNewPassword 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "新密码："
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   1305
         TabIndex        =   8
         Top             =   1320
         Width           =   840
      End
      Begin VB.Label LabOldPassword 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "旧密码："
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   1305
         TabIndex        =   7
         Top             =   840
         Width           =   840
      End
      Begin VB.Label LabName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "姓名："
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   1320
         TabIndex        =   6
         Top             =   330
         Width           =   630
      End
   End
End
Attribute VB_Name = "FrmPassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdDefine_Click()
    Dim SecondNewPassword As String
    Dim rst As New ADODB.Recordset

    On Error GoTo DatabaseError
    
    If Len(Trim(TxtName.Text)) = 0 Then
        MsgBox "姓名不能为空！", vbExclamation, "系统信息"
        TxtName.SetFocus
        Exit Sub
    End If
    
    sql = "SELECT * FROM admin"
    Set rst = PubMdbConn.Execute(sql)
    
    If Not rst.EOF Then
        If Trim(rst!adminpwd) = Trim(TxtOldPassword.Text) Then
            sql = "DELETE FROM admin"
            PubMdbConn.Execute sql, 64
            
            sql = "INSERT INTO admin VALUES("
            sql = sql & "'" & Trim(TxtName.Text) & "',"
            sql = sql & "'" & Trim(TxtNewPassword) & "')"
            
            PubMdbConn.Execute sql, 64
            
            MsgBox "姓名和密码修改成功！", vbInformation, "系统信息"
            
            Unload Me
        Else
            MsgBox "旧密码不正确！", vbExclamation, "系统信息"
            TxtOldPassword.SetFocus
            Exit Sub
        End If
    End If
    
    Set rst = Nothing

    
    Exit Sub
DatabaseError:
    Call ManageQuit
End Sub

Private Sub CmdQuit_Click()
    Unload FrmPassword
End Sub



Private Sub Form_Load()
    FrmPassword.ScaleHeight = FrmPassword.Height
    FrmPassword.ScaleWidth = FrmPassword.Width
    FrmPassword.Top = (Screen.Height - FrmPassword.Height - TitleHeight) / 2
    FrmPassword.Left = (Screen.Width - FrmPassword.Width) / 2
    '换皮肤
    Call LoadSkin(Me)
End Sub

Private Sub TxtName_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub TxtNewPassword_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub TxtOldPassword_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{tab}"
    End If
End Sub