修改密码.frm

学生信息管理系统 毕业设计 vb+sql

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "修改密码"
   ClientHeight    =   6495
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8340
   LinkTopic       =   "Form4"
   MDIChild        =   -1  'True
   Picture         =   "修改密码.frx":0000
   ScaleHeight     =   6495
   ScaleWidth      =   8340
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdexit 
      BackColor       =   &H00C0C0C0&
      Caption         =   "取消修改"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   3840
      Width           =   1575
   End
   Begin VB.CommandButton cmdok 
      BackColor       =   &H00C0C0C0&
      Caption         =   "确定修改"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2880
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3840
      Width           =   1575
   End
   Begin VB.TextBox txtpwdn2 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   2640
      TabIndex        =   3
      Top             =   2520
      Width           =   1815
   End
   Begin VB.TextBox txtpwdn1 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   2640
      TabIndex        =   2
      Top             =   1800
      Width           =   1815
   End
   Begin VB.TextBox txtpwdo 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   1080
      Width           =   1815
   End
   Begin VB.TextBox txtuser 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   2640
      TabIndex        =   0
      Top             =   480
      Width           =   1815
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "确认新密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   480
      TabIndex        =   9
      Top             =   2640
      Width           =   1815
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入新密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   480
      TabIndex        =   8
      Top             =   1920
      Width           =   1695
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入旧密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   480
      TabIndex        =   7
      Top             =   1200
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入用户名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   480
      TabIndex        =   6
      Top             =   480
      Width           =   1575
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mrc As Adodb.Recordset

Private Sub cmdcancel_Click()
txtuser.Text = ""
txtpwdo.Text = ""
txtpwdn1.Text = ""
txtpwdn2.Text = ""
End Sub

Private Sub cmdexit_Click()
FrmMain.StatusBarmy.Panels.Item(1).Text = ""
Unload Me
End Sub

Private Sub cmdOK_Click()
Dim txtsql As String
Dim msgtext As String
If Trim(txtpwdo.Text) = "" Then
   FrmMain.StatusBarmy.Panels.Item(1).Text = "请输入旧密码!"
   txtpwdo.SetFocus
   txtpwdn1.Text = ""
   txtpwdn2.Text = ""
  Else
     txtsql = "select * from user_info"
     Set mrc = executesql(txtsql, msgtext)
End If
   If Trim(txtpwdn1.Text) = "" And Trim(txtpwdn2.Text) = "" Then
       FrmMain.StatusBarmy.Panels.Item(1).Text = "为了安全，密码不为空！"
       txtpwdo.SetFocus
       txtpwdo.SetFocus
       txtpwdn1.Text = ""
       txtpwdn2.Text = ""
Else
 txtsql = "select * from user_info where user_id='" & Trim(txtuser.Text) & "' and user_pwd='" & Trim(txtpwdo.Text) & "'"
      Set mrc = executesql(txtsql, msgtext)
      If mrc.EOF = True Then
        FrmMain.StatusBarmy.Panels.Item(1).Text = "输入用户名或密码错误！"
        txtuser.SelStart = 0
        txtuser.SelLength = Len(txtuser.Text)
        txtuser.SetFocus
        Exit Sub
     Else
    If Trim(txtpwdn1.Text) <> Trim(txtpwdn2.Text) Then
          FrmMain.StatusBarmy.Panels.Item(1).Text = "密码输入不一致"
          txtpwdo.SetFocus
          txtpwdn1.Text = ""
          txtpwdn2.Text = ""
          Exit Sub
       Else
         Set mrc = executesql(txtsql, msgtext)
          mrc.Fields(0) = Trim(txtuser.Text)
          mrc.Fields(1) = Trim(txtpwdn1.Text)
          mrc.Update
          mrc.Close
          Me.Hide
          FrmMain.StatusBarmy.Panels.Item(1).Text = "修改密码成功！"
       End If
      End If
    End If
End Sub