设置.frm

本软件为咨询公司开发的合同管理软件,运用MDB数据库.

VERSION 5.00
Begin VB.Form 设置 
   Caption         =   "密码设置"
   ClientHeight    =   1995
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   5625
   Icon            =   "设置.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1995
   ScaleWidth      =   5625
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除(&D)"
      Height          =   255
      Left            =   1800
      TabIndex        =   7
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(&A)"
      Height          =   255
      Left            =   720
      TabIndex        =   6
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭(&C)"
      Height          =   255
      Left            =   3960
      TabIndex        =   5
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "更新(&U)"
      Height          =   255
      Left            =   2880
      TabIndex        =   4
      Top             =   1200
      Width           =   855
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "DWXX"
      Top             =   1650
      Width           =   5625
   End
   Begin VB.TextBox txtFields 
      DataField       =   "密码"
      DataSource      =   "Data1"
      Height          =   285
      IMEMode         =   3  'DISABLE
      Index           =   2
      Left            =   1440
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   675
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "使用人"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   1440
      MaxLength       =   8
      TabIndex        =   1
      Top             =   360
      Width           =   3375
   End
   Begin VB.Label lblLabels 
      Caption         =   "密    码:"
      Height          =   255
      Index           =   2
      Left            =   480
      TabIndex        =   2
      Top             =   705
      Width           =   855
   End
   Begin VB.Label lblLabels 
      Caption         =   "使 用 人:"
      Height          =   255
      Index           =   1
      Left            =   480
      TabIndex        =   0
      Top             =   375
      Width           =   855
   End
End
Attribute VB_Name = "设置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
End Sub

Private Sub cmdDelete_Click()
  '如果删除记录集的最后一条记录
  '记录或记录集中唯一的记录
  Data1.Recordset.Delete
  Data1.Recordset.MoveNext
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 Form_Load()
Data1.DatabaseName = dblj
Data1.RecordSource = "mxx"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error GoTo er
    Data1.Recordset.Close
er:
End Sub