www.pudn.com > gdqj1a302.zip > PswdC.frm

VERSION 5.00 
Begin VB.Form fmPswdC  
   BackColor       =   &H0000C000& 
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "Pswd Change" 
   ClientHeight    =   3240 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   3225 
   Icon            =   "PswdC.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3240 
   ScaleWidth      =   3225 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.TextBox Text3  
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      IMEMode         =   3  'DISABLE 
      Left            =   1680 
      PasswordChar    =   "*" 
      TabIndex        =   4 
      Top             =   1320 
      Width           =   1245 
   End 
   Begin VB.TextBox Text2  
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   12 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      IMEMode         =   3  'DISABLE 
      Left            =   1680 
      PasswordChar    =   "*" 
      TabIndex        =   2 
      Top             =   480 
      Width           =   1245 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "取消" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   525 
      Left            =   1920 
      TabIndex        =   1 
      Top             =   2280 
      Width           =   795 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "确认" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   525 
      Left            =   600 
      TabIndex        =   0 
      Top             =   2280 
      Width           =   765 
   End 
   Begin VB.Label Label3  
      BackStyle       =   0  'Transparent 
      Caption         =   "重入新密码:" 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   12 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   315 
      Left            =   360 
      TabIndex        =   5 
      Top             =   1320 
      Width           =   1335 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "输入新密码:" 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   12 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   315 
      Left            =   360 
      TabIndex        =   3 
      Top             =   480 
      Width           =   1335 
   End 
End 
Attribute VB_Name = "fmPswdC" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'*********************************************************** 
' PswdC.frm   修改密码 
'*********************************************************** 
 
Public sPswd0 As String 
Public sPswd1 As String 
 
Private Sub Command1_Click() 
    If Text2.Text = Text3.Text Then 
'        sPswd0 = Text1.Text 
        sPswd1 = Format(Text2.Text, ">") 
        Unload Me 
    Else 
        Text3.Text = "" 
    End If 
End Sub 
 
Private Sub Command2_Click() 
    sPswd0 = "" 
    sPswd1 = "" 
    Unload Me 
End Sub