frmpassword.frm

一个管理程序（实用）VB

VERSION 5.00
Begin VB.Form frmPassword 
   Caption         =   "用户密码"
   ClientHeight    =   1515
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   2775
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1515
   ScaleWidth      =   2775
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   " "
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "用户密码"
      Top             =   1080
      Width           =   2535
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭(&C)"
      Height          =   300
      Left            =   1680
      TabIndex        =   5
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton cmdEdit 
      Caption         =   "更改(&A)"
      Height          =   300
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   975
   End
   Begin VB.TextBox txtFields 
      DataField       =   "密码"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   960
      Locked          =   -1  'True
      MaxLength       =   20
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox txtFields 
      DataField       =   "用户名"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   960
      Locked          =   -1  'True
      MaxLength       =   10
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   0
      Width           =   1695
   End
   Begin VB.Label lblLabels 
      BackStyle       =   0  'Transparent
      Caption         =   "密码:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   375
      Width           =   795
   End
   Begin VB.Label lblLabels 
      BackStyle       =   0  'Transparent
      Caption         =   "用户名:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   795
   End
End
Attribute VB_Name = "frmPassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdDelete_Click()
    '如果删除记录集的最后一条记录
    '记录或记录集中唯一的记录
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
End Sub

Private Sub cmdEdit_Click()
    cmdEdit.Caption = "确认(&O)"
    txtFields(1).Locked = False
    Data1.Recordset.Edit
    Data1.Recordset.Update
End Sub

Private Sub cmdRefresh_Click()
    '这仅对多用户应用程序才是需要的
    Data1.Refresh
End Sub

Private Sub cmdUpdate_Click()
    Data1.UpdateRecord
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub Data1_Error(DataErr As Integer, Response As Integer)
    '这就是放置错误处理代码的地方
    '如果想忽略错误，注释掉下一行代码
    '如果想捕捉错误，在这里添加错误处理代码
    MsgBox "数据错误事件命中错误：" & Error$(DataErr)
    Response = 0  '忽略错误
End Sub

Private Sub Data1_Reposition()
    Screen.MousePointer = vbDefault
    On Error Resume Next
    '这将显示当前记录位置
    '为动态集和快照
    Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
    '对于 Table 对象，当记录集创建后并使用下面的行时，
    '必须设置 Index 属性
    'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
    '这是放置验证代码的地方
    '当下面的动作发生时，调用这个事件
    Select Case Action
        Case vbDataActionMoveFirst
        Case vbDataActionMovePrevious
        Case vbDataActionMoveNext
        Case vbDataActionMoveLast
        Case vbDataActionAddNew
        Case vbDataActionUpdate
        Case vbDataActionDelete
        Case vbDataActionFind
        Case vbDataActionBookmark
        Case vbDataActionClose
    End Select
    Screen.MousePointer = vbDefault 'vbHourglass
End Sub

Private Sub Form_Load()
    frmPassword.Picture = LoadPicture(App.Path + "\picture\中国娃娃1.bmp")
    Data1.DatabaseName = App.Path + "\教师管理系统.mdb"
End Sub