frmpasswordmodify.frm

金水区行政审批服务软件窗口系统

VERSION 5.00
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmPasswordModify 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "密码修改"
   ClientHeight    =   2730
   ClientLeft      =   4260
   ClientTop       =   3795
   ClientWidth     =   4095
   Icon            =   "frmPasswordModify.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2730
   ScaleWidth      =   4095
   StartUpPosition =   2  '屏幕中心
   Begin XPCmd.xpcmdbutton xpcmdbutton2 
      Height          =   375
      Left            =   2520
      TabIndex        =   10
      Top             =   1800
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "   取  消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin XPCmd.xpcmdbutton xpcmdbutton1 
      Height          =   375
      Left            =   1440
      TabIndex        =   9
      Top             =   1800
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "  确   定"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox PicCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   720
      Left            =   4800
      Picture         =   "frmPasswordModify.frx":1042
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   0
      Visible         =   0   'False
      Width           =   9600
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   150
         Left            =   0
         Picture         =   "frmPasswordModify.frx":17886
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   8
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "密码修改"
      Height          =   1575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3495
      Begin VB.TextBox Text3 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   1150
         Width           =   1935
      End
      Begin VB.TextBox Text2 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         PasswordChar    =   "*"
         TabIndex        =   5
         Top             =   700
         Width           =   1935
      End
      Begin VB.TextBox Text1 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   240
         Width           =   1935
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "确认新密码："
         Height          =   180
         Left            =   120
         TabIndex        =   3
         Top             =   1200
         Width           =   1080
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "新密码："
         Height          =   180
         Left            =   120
         TabIndex        =   2
         Top             =   760
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "原密码："
         Height          =   180
         Left            =   120
         TabIndex        =   1
         Top             =   280
         Width           =   720
      End
   End
End
Attribute VB_Name = "frmPasswordModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义漂亮窗体的对象变量
Private m_cn As cNeoCaption
'定义上层传过来的变量原密码和原用户名
Public oldPassWord As String
Public oldUserName As String








Private Sub Form_Load()
'此处代码将制作一个漂亮窗体用
 Set m_cn = New cNeoCaption
 Skin Me, m_cn
'------------------------------------------------------------
'调整Frame控件的背景颜色使其和窗体颜色一致
'若Frame控件上有标签则应修改标签属性使其为透明
  Frame1.BackColor = RGB(207, 203, 207)
'-------------------------------------------------------------
End Sub
'处理窗体卸载时的操作
Private Sub Form_Unload(Cancel As Integer)
Set m_cn = Nothing
End Sub








Private Sub xpcmdbutton1_Click()
'下面代码将处理修改密码的操作
If Text1.Text <> "" Then
   If Trim(Text1.Text) = Trim(oldPassWord) Then
      If Text2.Text <> "" Then
         If Text3.Text = Text2.Text Then
          If Not ModifyPassWord(oldUserName, LTrim(Text2.Text)) Then
            MsgBox "修改密码未成功！", 48, "系统提示"
            Exit Sub
          Else
            MsgBox "你已成功的修改了系统密码！", 48, "系统提示"
            Unload Me
          End If
         Else
          MsgBox "新密码和确认密码不一致！", 48, "系统提示"
          Exit Sub
         End If
      Else
         MsgBox "新密码不能为空！", 48, "系统提示"
         Exit Sub
      End If
   Else
      MsgBox "原密码输入不正确！", 48, "系统提示"
      Exit Sub
   End If
Else
   MsgBox "原密码不能为空！", 48, "系统提示"
   Exit Sub
End If
End Sub
Private Sub xpcmdbutton2_Click()
'处理取消操作
Unload Me
End Sub