www.pudn.com > myActivebart.rar > regiggerpassword.frm

VERSION 5.00 
Begin VB.Form Form15  
   Caption         =   "更改密码" 
   ClientHeight    =   2505 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   Icon            =   "regiggerpassword.frx":0000 
   LinkTopic       =   "Form15" 
   ScaleHeight     =   2505 
   ScaleWidth      =   4680 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox Text3  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   360 
      IMEMode         =   3  'DISABLE 
      Left            =   2400 
      PasswordChar    =   "*" 
      TabIndex        =   8 
      Top             =   1380 
      Width           =   1695 
   End 
   Begin VB.TextBox Text2  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   360 
      IMEMode         =   3  'DISABLE 
      Left            =   2400 
      PasswordChar    =   "*" 
      TabIndex        =   6 
      Top             =   210 
      Width           =   1725 
   End 
   Begin VB.PictureBox Picture2  
      BorderStyle     =   0  'None 
      Height          =   495 
      Left            =   270 
      Picture         =   "regiggerpassword.frx":08CA 
      ScaleHeight     =   495 
      ScaleWidth      =   615 
      TabIndex        =   5 
      Top             =   180 
      Width           =   615 
   End 
   Begin VB.TextBox Text1  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   360 
      IMEMode         =   3  'DISABLE 
      Left            =   2370 
      PasswordChar    =   "*" 
      TabIndex        =   3 
      Top             =   840 
      Width           =   1695 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "更改" 
      Height          =   405 
      Left            =   2040 
      TabIndex        =   2 
      Top             =   2010 
      Width           =   1065 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "退出" 
      Height          =   405 
      Left            =   3120 
      TabIndex        =   1 
      Top             =   2010 
      Width           =   1065 
   End 
   Begin VB.PictureBox Picture1  
      BorderStyle     =   0  'None 
      Height          =   495 
      Left            =   270 
      Picture         =   "regiggerpassword.frx":1B3C 
      ScaleHeight     =   495 
      ScaleWidth      =   615 
      TabIndex        =   0 
      Top             =   780 
      Width           =   615 
   End 
   Begin VB.Label Label3  
      Caption         =   "确认新密码:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   315 
      Left            =   750 
      TabIndex        =   9 
      Top             =   1410 
      Width           =   1515 
   End 
   Begin VB.Label Label2  
      Caption         =   "原密码:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   315 
      Left            =   1110 
      TabIndex        =   7 
      Top             =   240 
      Width           =   1125 
   End 
   Begin VB.Label Label1  
      Caption         =   "新密码:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   315 
      Left            =   1110 
      TabIndex        =   4 
      Top             =   840 
      Width           =   1125 
   End 
End 
Attribute VB_Name = "Form15" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
  If Text1.Text <> Text3.Text Then 
    MsgBox "您两次新密码输入不一至！", vbOKOnly, "提示" 
    Exit Sub 
  End If 
  Dim rs As New ADODB.Recordset 
  rs.Open "select * from 密码 ", cnn, adOpenKeyset, adLockPessimistic 
  rs.Fields("密码") = Text1.Text 
  rs.Update 
    MsgBox "修改成功！", vbOKOnly, "提示" 
   
End Sub 
 
Private Sub Command2_Click() 
Unload Me 
End Sub