frm_distrubute.frm

关于图书馆管理的vfp程序

VERSION 5.00
Begin VB.Form Frm_Distrubute1 
   ClientHeight    =   3780
   ClientLeft      =   4905
   ClientTop       =   3735
   ClientWidth     =   4830
   LinkTopic       =   "Form1"
   ScaleHeight     =   3780
   ScaleWidth      =   4830
   Begin VB.Frame Fra_Distrubute 
      Caption         =   "更改密码"
      Height          =   3255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   4335
      Begin VB.CommandButton Cmd_Quit 
         Caption         =   "退  出"
         Height          =   375
         Left            =   2640
         TabIndex        =   8
         Top             =   2640
         Width           =   1095
      End
      Begin VB.CommandButton Cmd_Distrubute 
         Caption         =   "更  改"
         Height          =   375
         Left            =   600
         TabIndex        =   7
         Top             =   2640
         Width           =   1095
      End
      Begin VB.TextBox Tex_Again 
         Height          =   375
         Left            =   1800
         TabIndex        =   3
         Top             =   1920
         Width           =   2055
      End
      Begin VB.TextBox Tex_Newpassword 
         Height          =   375
         Left            =   1800
         TabIndex        =   2
         Top             =   1200
         Width           =   2055
      End
      Begin VB.TextBox Tex_Oldpassword 
         Height          =   375
         Left            =   1800
         TabIndex        =   1
         Top             =   480
         Width           =   2055
      End
      Begin VB.Label Lab_Again 
         Caption         =   "请再输一遍"
         Height          =   375
         Left            =   360
         TabIndex        =   6
         Top             =   1920
         Width           =   1335
      End
      Begin VB.Label Lab_Newpassword 
         Caption         =   "请输入新密码"
         Height          =   375
         Left            =   360
         TabIndex        =   5
         Top             =   1320
         Width           =   1215
      End
      Begin VB.Label Lab_Oldpassword 
         Caption         =   "请输入旧密码"
         Height          =   375
         Left            =   360
         TabIndex        =   4
         Top             =   600
         Width           =   1215
      End
   End
End
Attribute VB_Name = "Frm_Distrubute1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Cmd_Distrubute_Click()
If Tex_Again = Tex_Newpassword Then
    Frm_Settings.Ado_ReaderInfo.Recordset.Fields(5) = Tex_Newpassword.Text
    AdoGeneral.Recordset.UpdateBatch
    Frm_Settings.Ado_ReaderInfo.Refresh
    MsgBox "更改密码设置成功！", vbInformation, "提示"
Else
    MsgBox "两次输入的数值不相同!", vbCritical, "错误"
    Tex_Again.SetFocus
    Tex_Again = ""
End If
End Sub

Private Sub Cmd_Quit_Click()
Unload Me
Frm_Settings.Show
End Sub

Private Sub Form_Load()
SQL = "select * from  学生情况表 "
Set AdoGeneral = Frm_Settings.Ado_ReaderInfo
Call SqlLoad(SQL)
Frm_Settings.Ado_ReaderInfo.Recordset.Find "借书证号 ='" & UserCardNum & " '"
End Sub

Private Sub Tex_Oldpassword_LostFocus()

If Frm_Settings.Ado_ReaderInfo.Recordset.Fields(5) <> Tex_Oldpassword Then
    MsgBox "密码错误！", vbCritical, "提示"
    
Else
    
    Tex_Newpassword.Text = ""
End If
End Sub