form11.frm

加油站客户管理系统(开发工具：VB+Access)

VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form Form11 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改密码"
   ClientHeight    =   2445
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   4350
   LinkTopic       =   "Form11"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2445
   ScaleWidth      =   4350
   Begin StoneXP.XPButton XPButton2 
      Height          =   375
      Left            =   2520
      TabIndex        =   5
      Top             =   1680
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "退 出"
      MouseIcon       =   "Form11.frx":0000
      MousePointer    =   99
   End
   Begin StoneXP.XPButton XPButton1 
      Height          =   375
      Left            =   960
      TabIndex        =   4
      Top             =   1680
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "确 定"
      MouseIcon       =   "Form11.frx":031A
      MousePointer    =   99
   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          =   375
      Left            =   2280
      TabIndex        =   3
      Top             =   960
      Width           =   1575
   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          =   375
      Left            =   2280
      TabIndex        =   2
      Top             =   480
      Width           =   1575
   End
   Begin VB.Label Label2 
      Caption         =   "请输入新密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   960
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "请输入旧密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   1695
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
mdi = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
mdi = True
End Sub

Private Sub XPButton1_Click()
Set mdbrs = mdbconn.Execute("select 用户名,密码 from 登陆 where 用户名='" & user111 & "'")
If mdbrs.EOF = False Then
  If mdbrs.Fields(1).Value = Text1.Text Then
      Set mdbrs = mdbconn.Execute("update 登陆 set 密码='" & Text2.Text & "' where 用户名='" & user111 & "'")
      '    Set mdbrs = mdbconn.Execute("update 登陆 set 密码='" & Grid1.Cell(i, 2).Text & "',权限='" & Grid1.Cell(i, 3).Text & "' where 用户名='" & Grid1.Cell(i, 1).Text & "'")

      MsgBox "修改成功，请记住新密码!"
      Unload Me
  Else
  MsgBox "旧密码错误!"
  End If
Else
MsgBox "此用户不存在!"
End If
'MsgBox mdbrs.Fields(0)
End Sub

Private Sub XPButton2_Click()
Unload Me
End Sub