frm修改密码.frm

可以完成宾馆的日常管理功能,例如订房,登记,入住,结帐,和打印报表等

VERSION 5.00
Begin VB.Form frm修改密码 
   Caption         =   "修改密码"
   ClientHeight    =   4560
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   4680
   Icon            =   "frm修改密码.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000013&
      Height          =   4575
      Left            =   0
      ScaleHeight     =   4515
      ScaleWidth      =   4635
      TabIndex        =   0
      Top             =   0
      Width           =   4695
      Begin VB.TextBox Text4 
         ForeColor       =   &H000000FF&
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2400
         PasswordChar    =   "*"
         TabIndex        =   10
         Top             =   3000
         Width           =   1455
      End
      Begin VB.TextBox Text3 
         ForeColor       =   &H000000FF&
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2400
         PasswordChar    =   "*"
         TabIndex        =   8
         Top             =   2160
         Width           =   1455
      End
      Begin VB.CommandButton Command2 
         BackColor       =   &H00FF8080&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2640
         Picture         =   "frm修改密码.frx":030A
         Style           =   1  'Graphical
         TabIndex        =   6
         ToolTipText     =   "取消"
         Top             =   3720
         Width           =   615
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H0000FFFF&
         Default         =   -1  'True
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   1080
         Picture         =   "frm修改密码.frx":0614
         Style           =   1  'Graphical
         TabIndex        =   5
         ToolTipText     =   "确定"
         Top             =   3720
         Width           =   615
      End
      Begin VB.TextBox Text2 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2400
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   1320
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2400
         TabIndex        =   2
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label4 
         BackColor       =   &H80000013&
         Caption         =   "请输入原密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   480
         TabIndex        =   9
         Top             =   1440
         Width           =   1815
      End
      Begin VB.Label Label3 
         BackColor       =   &H80000013&
         Caption         =   "请输入用户名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   480
         TabIndex        =   7
         Top             =   720
         Width           =   1815
      End
      Begin VB.Label Label2 
         BackColor       =   &H80000013&
         Caption         =   "请确认新密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   480
         TabIndex        =   3
         Top             =   3120
         Width           =   1815
      End
      Begin VB.Label Label1 
         BackColor       =   &H80000013&
         Caption         =   "请输入新密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   480
         TabIndex        =   1
         Top             =   2280
         Width           =   1935
      End
   End
End
Attribute VB_Name = "frm修改密码"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
If Text1 = "" Then
  MsgBox "请输入用户名！！！", vbOKOnly + vbExclamation, "警告"
  Exit Sub
  Text1.SetFocus
Else
 rs.Open "select * from 管理表 where 用户名='" & Text1 & "'", cn, 1, 3
  If rs.EOF Then
    MsgBox "用户名不存在，请重新输入！！！", vbOKOnly + vbExclamation, "警告"
    Text1.SetFocus
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
   Exit Sub
  Else
   
    End If
    End If
If Text2.Text <> rs.Fields(1) Then
    MsgBox "密码不正确，请重新输入！！！", vbOKOnly + vbExclamation, "警告"
    Text2.SetFocus
    Text2 = ""
    Text3 = ""
    Text4 = ""
    
 
 ElseIf Text3.Text <> Text4.Text Then
     MsgBox "两次输入的新密码不一致，请重新输入！！！", vbOKOnly + vbExclamation, "警告"
     Text3.SetFocus
     Text3 = ""
     Text4 = ""
 ElseIf Text3 = "" Then
 MsgBox "密码不能为空，请重新输入密码！！！"
 Else
 If Text2.Text = Text3.Text Then
    MsgBox "新密码与旧密码一样，请重新输入新密码！！！", vbOKOnly + vbExclamation, "警告"
    Text3.SetFocus
    Text3 = ""
    Text4 = ""
  Else
   rs.Fields(1) = Text3.Text
   rs.Update
   MsgBox "密码修改成功！！！"
  End If
  End If
 Text1 = ""
 Text2 = ""
 Text3 = ""
 Text4 = ""
End Sub

Private Sub Command2_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub