frmqueryview.frm

员工个人信息管理

VERSION 5.00
Begin VB.Form FrmQueryView 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询结果"
   ClientHeight    =   4185
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8550
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   8550
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CmdColse 
      Caption         =   "关闭(&E)"
      Height          =   375
      Left            =   7080
      TabIndex        =   16
      Top             =   3720
      Width           =   1335
   End
   Begin VB.CommandButton CmdDelete 
      Caption         =   "删除(&R)"
      Height          =   375
      Left            =   120
      TabIndex        =   15
      Top             =   3720
      Width           =   1335
   End
   Begin VB.CommandButton CmdLast 
      Caption         =   "最后一个 >|"
      Height          =   375
      Left            =   4080
      TabIndex        =   14
      Top             =   3000
      Width           =   1215
   End
   Begin VB.CommandButton CmdNext 
      Caption         =   "下一个 >"
      Height          =   375
      Left            =   2760
      TabIndex        =   13
      Top             =   3000
      Width           =   1215
   End
   Begin VB.CommandButton CmdPrev 
      Caption         =   "< 上一个"
      Height          =   375
      Left            =   1440
      TabIndex        =   12
      Top             =   3000
      Width           =   1215
   End
   Begin VB.CommandButton CmdFirst 
      Caption         =   "|<  第一个"
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   3000
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   2775
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8295
      Begin VB.TextBox TxtAddress 
         Height          =   300
         Left            =   1320
         TabIndex        =   10
         Top             =   2160
         Width           =   6495
      End
      Begin VB.ComboBox CmbDate 
         Height          =   300
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   1680
         Width           =   3255
      End
      Begin VB.TextBox TxtAge 
         Height          =   300
         Left            =   1320
         TabIndex        =   8
         Top             =   1200
         Width           =   3255
      End
      Begin VB.TextBox TxtName 
         Height          =   300
         Left            =   1320
         TabIndex        =   7
         Top             =   720
         Width           =   3255
      End
      Begin VB.TextBox TxtCode 
         Height          =   300
         Left            =   1320
         MaxLength       =   32
         TabIndex        =   6
         Top             =   240
         Width           =   3255
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "员工地址"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   240
         TabIndex        =   5
         Top             =   2280
         Width           =   840
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "加入日期"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   240
         TabIndex        =   4
         Top             =   1800
         Width           =   840
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "员工年龄"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   240
         TabIndex        =   3
         Top             =   1320
         Width           =   840
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "员工姓名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   240
         TabIndex        =   2
         Top             =   840
         Width           =   840
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "员工号码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   840
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000006&
      X1              =   120
      X2              =   8400
      Y1              =   3600
      Y2              =   3600
   End
End
Attribute VB_Name = "FrmQueryView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdColse_Click()
    Unload Me
End Sub

Private Sub CmdDelete_Click()
On Error Resume Next
    If MsgBox("确认要删除该员工信息吗?", vbQuestion + vbYesNo, "删除员工信息") = vbYes Then
        g_DBRct.Delete
        Call CmdNext_Click
    End If
End Sub

Private Sub CmdFirst_Click()
On Error GoTo firsterr
    g_DBRct.MoveFirst
    Call ShowData
firsterr:
    Exit Sub
End Sub

Private Sub CmdLast_Click()
    g_DBRct.MoveLast
    Call ShowData
End Sub

Private Sub CmdNext_Click()
On Error Resume Next
    g_DBRct.MoveNext
    If g_DBRct.EOF = True Then
        g_DBRct.MoveFirst
    End If
    Call ShowData
End Sub

Private Sub CmdPrev_Click()
On Error Resume Next
    g_DBRct.MovePrevious
    If g_DBRct.BOF = True Then
        g_DBRct.MoveLast
    End If
    Call ShowData
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim IntIndex As Long
    For IntIndex = 2000 To 2005
        CmbDate.AddItem CStr(IntIndex) & "年"
    Next
    CmbDate.ListIndex = 0
    
    g_DBRct.MoveFirst
    Call ShowData
End Sub
Private Sub ShowData()
Dim IntIndex As Long
    TxtCode.Text = g_DBRct.Fields("ENumber").Value
    TxtName.Text = g_DBRct.Fields("EName").Value
    TxtAge.Text = g_DBRct.Fields("EAge").Value
    TxtAddress.Text = g_DBRct.Fields("EAddress").Value
    For IntIndex = 0 To CmbDate.ListCount - 1
        If CmbDate.List(IntIndex) = Trim(g_DBRct.Fields("EDate").Value) Then
            CmbDate.ListIndex = IntIndex
        End If
    Next IntIndex
End Sub