main_kqgl_gcqj.frm

人事管理系统

            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "请假时间"
         Caption         =   "请假时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "录入日期"
         Caption         =   "录入日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         MarqueeStyle    =   4
         BeginProperty Column00 
            ColumnWidth     =   390.047
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   645.165
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1964.976
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   1980.284
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1665.071
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2085.166
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   570
      Left            =   7845
      TabIndex        =   10
      Top             =   1335
      Width           =   1890
      _ExtentX        =   3334
      _ExtentY        =   1005
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   3
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "add"
            Object.ToolTipText     =   "添加"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "modify"
            Object.ToolTipText     =   "修改"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "delete"
            Object.ToolTipText     =   "删除"
            ImageIndex      =   3
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   6795
      Top             =   1410
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":1663
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":1F3D
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":2817
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":30F1
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":3DCB
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":46A5
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":4E1F
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "main_kqgl_gcqj.frx":5AF9
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "员工："
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   495
      Width           =   690
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "部门："
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   690
   End
End
Attribute VB_Name = "main_kqgl_gcqj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
  '添加部门信息到部门列表（cboDept）中
  cboDept.AddItem "总公司"
  rs.Open "select * from 部门表 order by 部门编号", cnn, adOpenKeyset, adLockOptimistic  '连接部门表
  If rs.RecordCount > 0 Then              '如果表中有记录
    rs.MoveFirst              '将记录指针移到第一条
    Do While rs.EOF = False           '只要记录不到尾
      cboDept.AddItem rs.Fields("部门名称")       '添加部门名称到部门列表中
      rs.MoveNext             '将记录指针移到下一条
    Loop
  End If
  rs.Close               '关闭数据集对象
  cboDept.ListIndex = 0            '设置默认项
  DTPStartDate.Value = Date: DTPEndDate.Value = Date     '设置起止日期为系统日期
End Sub
Private Sub cboDept_Click()
  lstEmployee.Clear            '清空员工列表
  '添加部门信息到cboDept
  If cboDept.Text = "总公司" Then         '如果部门列表为"总公司"
    rs.Open "select * from 员工信息表 order by 编号", cnn, adOpenKeyset, adLockOptimistic  '连接员工信息表
    If rs.RecordCount > 0 Then          '如果表中有记录
      rs.MoveFirst            '将记录指针移到第一条记录
      Do While rs.EOF = False          '只要记录不到尾
        lstEmployee.AddItem rs.Fields("编号") & rs.Fields("姓名")  '将员工编号和姓名添加到员工列表中
        rs.MoveNext            '将记录指针移到下一条记录
      Loop
    End If
    rs.Close              '关闭数据集对象
  Else
    rs.Open "select * from 员工信息表 where 部门='" + cboDept + "' order by 编号", cnn, adOpenKeyset, adLockOptimistic              '按部门查询并显示员工信息
    If rs.RecordCount > 0 Then          '如果表中有记录
      rs.MoveFirst            '将记录指针移到第一条记录
      Do While rs.EOF = False          '只要记录不到尾
        lstEmployee.AddItem rs.Fields("编号") & rs.Fields("姓名")  '将员工编号和姓名添加到员工列表中
        rs.MoveNext            '将记录指针移到下一条记录
      Loop
    End If
    rs.Close              '关闭数据集对象
  End If
End Sub
Private Sub DataGrid1_DblClick()
  blnAddGCQJ = False           '标记为修改状态
  Load main_kqgl_gcqj_addModify        '加载修改员工公出/请假窗体
  main_kqgl_gcqj_addModify.Show         '显示修改员工公出/请假窗体
  With main_kqgl_gcqj_addModify
    .Caption = "修改公出/请假信息"         '设置该窗体的标题栏
    .DTPStartDate = Left(Adodc1.Recordset.Fields("开始时间"), 10)  '给开始日期赋值
    .MaskEdBoxTime1 = Right(Adodc1.Recordset.Fields("开始时间"), 5)  '给开始时间赋值
    .DTPEndDate = Left(Adodc1.Recordset.Fields("结束时间"), 10)  '给结束日期赋值
    .MaskEdBoxTime2 = Right(Adodc1.Recordset.Fields("结束时间"), 5) '给结束时间赋值
    .cboStyle = Adodc1.Recordset.Fields("假别")      '给假别赋值
    .txtCause = Adodc1.Recordset.Fields("原因")      '给原因赋值
  End With
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "add"           '添加工具栏按钮
      blnAddGCQJ = True         '标记为添加状态
      Load main_kqgl_gcqj_addModify      '加载添加员工公出/请假窗体
      main_kqgl_gcqj_addModify.Show      '显示添加员工公出/请假窗体
      With main_kqgl_gcqj_addModify
        .Caption = "添加公出/请假信息"   '设置该窗体的标题栏
        .DTPStartDate = Date: .DTPEndDate = Date   '设置开始日期和结束日期为系统日期
      End With
    Case "modify"           '修改工具栏按钮
      DataGrid1_DblClick         '调用过程
    Case "delete"           '删除工具栏按钮
      If Adodc1.Recordset.RecordCount > 0 Then    '如果公出请假记录表中有记录
        Adodc1.Recordset.Delete       '删除记录
        Adodc1.Recordset.Update       '更新数据表
      Else            '否则
        MsgBox "系统没有要删除的数据！", , "提示窗口"  '提示用户没有要删除的数据
      End If
  End Select
End Sub
Private Sub cmdFind_Click()
  Adodc1.RecordSource = "公出请假记录表 where 开始时间 between '" + Str(DTPStartDate.Value) + "'and '" + Str(DTPEndDate.Value) + "'"          '查询公出请假信息
  Adodc1.Refresh           '刷新数据表
End Sub