修改密码.frm

对学习VB很有帮助 fskdljfl kasdjfkl asdjfk lajsd f

VERSION 5.00
Begin VB.Form Frm_UpdatePass 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改密码"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3945
   Icon            =   "修改密码.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3225
   ScaleWidth      =   3945
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      ItemData        =   "修改密码.frx":1042
      Left            =   1560
      List            =   "修改密码.frx":1044
      TabIndex        =   9
      Text            =   "Combo1"
      Top             =   240
      Width           =   1815
   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          =   495
      Left            =   2280
      TabIndex        =   8
      Top             =   2520
      Width           =   1215
   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          =   495
      Left            =   840
      TabIndex        =   7
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox Text4 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   20
      PasswordChar    =   "*"
      TabIndex        =   6
      Text            =   "Text4"
      Top             =   2040
      Width           =   1815
   End
   Begin VB.TextBox Text3 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   20
      PasswordChar    =   "*"
      TabIndex        =   4
      Text            =   "Text3"
      Top             =   1440
      Width           =   1815
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   20
      PasswordChar    =   "*"
      TabIndex        =   2
      Text            =   "Text2"
      Top             =   840
      Width           =   1815
   End
   Begin VB.Label Label4 
      Caption         =   "确定密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "新密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   3
      Top             =   1440
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "旧密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   1
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "Frm_UpdatePass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim myRs As New ADODB.Recordset

Private Sub Command1_Click()
Dim OldPass, NewPass, AgainPass As String
OldPass = Trim(Text2.Text)
NewPass = Trim(Text3.Text)
AgainPass = Trim(Text4.Text)

If NewPass <> AgainPass Then
    MsgBox "两次输入的密码不一致，请重输！", vbOKOnly, "警告"
    Text2.SetFocus
    Exit Sub
End If


myRs.Open "select * from 管理人员 where username='" & Trim(Combo1.Text) & "'", conn
If myRs.EOF Then
    MsgBox "用户名不存在，请核实后输入！", vbOKOnly, "警告"
    myRs.Close
    Exit Sub
Else
    If OldPass <> myRs.Fields("password").Value Then
        MsgBox "你输入的旧密码不正确，请重输！", vbOKOnly, "警告"
        Text2.SetFocus
        myRs.Close
        Exit Sub
    End If
End If

myRs.Fields("password").Value = NewPass
MsgBox "确定修改密码吗？", vbOKCancel, "提示"
myRs.Update
MsgBox "密码修改成功，请记住新密码！", vbOKOnly, "恭喜"
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
myRs.Close


End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
main.StatusBar1.Panels(10) = Me.Caption
'Call menudisable
Call opendatabase
Dim a As String
myRs.Open "管理人员", conn, 3, 3
Do While Not myRs.EOF
    a = myRs.Fields(0)
    Combo1.AddItem a
    myRs.MoveNext
Loop
myRs.Close
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub