frmfind.frm

员工个人信息管理

VERSION 5.00
Begin VB.Form FrmFind 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询员工信息"
   ClientHeight    =   2445
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5385
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2445
   ScaleWidth      =   5385
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消(&E)"
      Height          =   375
      Left            =   3840
      TabIndex        =   13
      Top             =   720
      Width           =   1335
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确认(&O)"
      Height          =   375
      Left            =   3840
      TabIndex        =   12
      Top             =   120
      Width           =   1335
   End
   Begin VB.TextBox TxtAddressAbout 
      Height          =   300
      Left            =   1440
      TabIndex        =   11
      Top             =   2040
      Width           =   2175
   End
   Begin VB.ComboBox CboDate 
      Height          =   300
      Left            =   1440
      Style           =   2  'Dropdown List
      TabIndex        =   10
      Top             =   1560
      Width           =   2175
   End
   Begin VB.TextBox TxtAgeMax 
      Height          =   300
      Left            =   2760
      TabIndex        =   8
      Top             =   1080
      Width           =   855
   End
   Begin VB.TextBox TxtAgeMin 
      Height          =   300
      Left            =   1440
      TabIndex        =   7
      Top             =   1080
      Width           =   855
   End
   Begin VB.TextBox TxtNameAbout 
      Height          =   300
      Left            =   1440
      TabIndex        =   6
      Top             =   600
      Width           =   2175
   End
   Begin VB.TextBox TxtCodeAbout 
      Height          =   300
      Left            =   1440
      TabIndex        =   5
      Top             =   120
      Width           =   2175
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "到"
      Height          =   180
      Left            =   2400
      TabIndex        =   9
      Top             =   1200
      Width           =   180
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "地址信息包含"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   2160
      Width           =   1080
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "加入日期晚于"
      Height          =   180
      Left            =   240
      TabIndex        =   3
      Top             =   1680
      Width           =   1080
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "员工年龄段"
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   1200
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "员工姓名包含"
      Height          =   180
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "员工号码包含"
      Height          =   180
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1080
   End
End
Attribute VB_Name = "FrmFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
    FrmMain.SbStatusBar.Panels(1) = "就绪..."
    Unload Me
End Sub

Private Sub CmdOK_Click()
Dim strSQL As String

    strSQL = "SELECT * FROM EMPLIST WHERE (EAge >= " & TxtAgeMin.Text & ") AND (EAge <= " & _
            TxtAgeMax.Text & ") AND (EDate >= '" & Val(CboDate.Text) & "')"
            
    If Trim(TxtCodeAbout.Text) <> Empty Then
        strSQL = strSQL & "AND (ENumber LIKE '%" & Trim(CStr(TxtCodeAbout.Text)) & "%')"
    End If
    If Trim(TxtNameAbout.Text) <> Empty Then
        strSQL = strSQL & "AND (EName LIKE '%" & Trim(CStr(TxtNameAbout.Text)) & "%')"
    End If
    If Trim(TxtAddressAbout.Text) <> Empty Then
        strSQL = strSQL & "AND (EAddress LIKE '%" & Trim(CStr(TxtAddressAbout.Text)) & "%')"
    End If
    If QueryEmpInfo(strSQL) = True Then
        Unload Me
        FrmQueryView.Show vbModal
    End If
End Sub

Private Sub Form_Load()
    Dim IntIndex As Long
    TxtAgeMin.Text = "18"
    TxtAgeMax.Text = "60"
    For IntIndex = 2000 To 2005
        CboDate.AddItem CStr(IntIndex) & "年"
    Next
    CboDate.ListIndex = 0
End Sub