frmoperatormanage.frm

本人用VB 6.0和ACCESS编写的水费管理系统

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmOperatorManage 
   Caption         =   "操作员管理"
   ClientHeight    =   4245
   ClientLeft      =   2955
   ClientTop       =   2190
   ClientWidth     =   5745
   Icon            =   "frmOperatorManage.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   5745
   Begin MSDBGrid.DBGrid DBGrid 
      Bindings        =   "frmOperatorManage.frx":0442
      Height          =   3135
      Left            =   165
      OleObjectBlob   =   "frmOperatorManage.frx":0455
      TabIndex        =   5
      Top             =   120
      Width           =   5415
   End
   Begin VB.CommandButton cmdClose 
      Cancel          =   -1  'True
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   4605
      TabIndex        =   4
      Top             =   3360
      Width           =   855
   End
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "刷新(&R)"
      Height          =   375
      Left            =   3525
      TabIndex        =   3
      Top             =   3360
      Width           =   855
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除(&D)"
      Height          =   375
      Left            =   2445
      TabIndex        =   2
      Top             =   3360
      Width           =   855
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "更新(&U)"
      Height          =   375
      Left            =   1365
      TabIndex        =   1
      Top             =   3360
      Width           =   855
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(&A)"
      Height          =   375
      Left            =   285
      TabIndex        =   0
      Top             =   3360
      Width           =   855
   End
   Begin VB.Data Data 
      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             =   3840
      Width           =   5535
   End
End
Attribute VB_Name = "frmOperatorManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Data_Reposition()
    Data.Caption = "记录:" & Data.Recordset.AbsolutePosition + 1
End Sub

Private Sub Form_Load()
    Dim strSQL As String
    strSQL = "select 权限表.编号,权限表.人员代号,权限表.人员名,权限表.姓名 " _
        & "from 权限表"
    Data.DatabaseName = App.Path & "\权限表.mdb"
    Data.RecordSource = strSQL
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Screen.MousePointer = vbDefault
End Sub

Private Sub cmdAdd_Click()
    On Error GoTo AddErr
    Data.Recordset.MoveLast
    DBGrid.SetFocus
    Data.Recordset.AddNew
    Exit Sub
AddErr:
    MsgBox Err.Description
End Sub

Private Sub cmdDelete_Click()
    On Error GoTo DeleteErr
    With Data.Recordset
        .Delete
        .MoveNext
        If .EOF Then .MoveLast
    End With
    Exit Sub
DeleteErr:
    MsgBox Err.Description
End Sub

Private Sub cmdRefresh_Click()
    '只有多用户应用程序需要
    On Error GoTo RefreshErr
    Data.Refresh
    Exit Sub
RefreshErr:
    MsgBox Err.Description
End Sub

Private Sub cmdUpdate_Click()
    On Error GoTo UpdateErr
    Data.UpdateRecord
    Exit Sub
UpdateErr:
    MsgBox Err.Description
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub