frmkqlist.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmAllCQInfoList 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考勤查询结果列表"
   ClientHeight    =   7530
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8955
   Icon            =   "frmKQList.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7530
   ScaleWidth      =   8955
   ShowInTaskbar   =   0   'False
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   6255
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   11033
      _Version        =   393216
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin MSForms.CommandButton cmdExit 
      Height          =   375
      Left            =   6840
      TabIndex        =   2
      Top             =   7080
      Width           =   1095
      Caption         =   "返回"
      PicturePosition =   327683
      Size            =   "1931;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "全部考勤结果列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4215
   End
   Begin VB.Menu pop_menu5 
      Caption         =   "弹出式5"
      Visible         =   0   'False
      Begin VB.Menu checkKQInfo 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu refresh 
         Caption         =   "刷新"
      End
   End
End
Attribute VB_Name = "frmAllCQInfoList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

 



Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Load()
  Dim sql As String
  Dim strMsg As String
  Dim rs1 As New ADODB.Recordset
  sql = "select t_br.工号,t_br.姓名,当前日期,出入标志,上班时间,下班时间,迟到次数,早退次数,假期开始时间,特殊加班天数,正常加班天数,加班日期,出差天数,出差目的地,出差开始时间 from t_br,AttendanceInfo,LeaveInfo,OverTimeInfo,ErrandInfo "
  
  Set rs1 = ExecuteSQL(sql, strMsg)
   Call showData(sql, Grid1)
  
End Sub

Private Sub Grid1_Click()

End Sub