frm_attendancechange.frm

一个vb开发的人事信息管理软件,提供基本的人事信息管理

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_AttendanceChange 
   Caption         =   "修改上下班信息窗口"
   ClientHeight    =   7440
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10290
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7440
   ScaleWidth      =   10290
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Height          =   6165
      Left            =   90
      TabIndex        =   6
      Top             =   1170
      Width           =   10095
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   5985
         Left            =   30
         TabIndex        =   7
         Top             =   120
         Width           =   10005
         _ExtentX        =   17648
         _ExtentY        =   10557
         _Version        =   393216
         Cols            =   8
         FixedCols       =   0
         AllowUserResizing=   1
         Appearance      =   0
      End
   End
   Begin VB.Frame Frame1 
      Height          =   1035
      Left            =   90
      TabIndex        =   0
      Top             =   30
      Width           =   10095
      Begin VB.CommandButton Cmd_OK 
         Caption         =   " 查  询"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   8250
         TabIndex        =   3
         Top             =   300
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   4890
         TabIndex        =   2
         Top             =   360
         Width           =   2325
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   1500
         TabIndex        =   1
         Top             =   360
         Width           =   1965
      End
      Begin VB.Label Label1 
         Caption         =   "选择查询内容"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   1
         Left            =   3570
         TabIndex        =   5
         Top             =   420
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "选择查询字段"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   0
         Left            =   180
         TabIndex        =   4
         Top             =   420
         Width           =   1335
      End
   End
End
Attribute VB_Name = "Frm_AttendanceChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_FieldName As String

Private Sub Cmd_OK_Click()
    Dim m_Rs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
    If (Combo1.Text = "") And (Text1.Text = "") Then
       strSql = "SELECT * FROM  AttendanceInfo Order By ID"
    Else
       strSql = "SELECT * FROM  AttendanceInfo  WHERE  " & Trim(m_FieldName) & " like '%" & Trim(Text1.Text) & "%'"
    End If
    ''''MsgBox strSql
    Set m_Rs = ExecuteSQL(strSql, "Person.mdb")
    If m_Rs.RecordCount <> 0 Then
       
       '''''''初始化表格行数''''''''''''
       Grid1.Rows = 2
       For i = 1 To Grid1.Cols - 1
           Grid1.TextMatrix(1, i) = ""
       Next
       '''''''''''''''''''''''''''''''''''
       i = 1
       Do While Not m_Rs.EOF
          Grid1.Rows = i + 2
          Grid1.TextMatrix(i, 0) = m_Rs("AStuffID")
          Grid1.TextMatrix(i, 1) = m_Rs("AStuffName")
          Grid1.TextMatrix(i, 2) = m_Rs("ADate")
          Grid1.TextMatrix(i, 3) = m_Rs("AFlag")
          Grid1.TextMatrix(i, 4) = m_Rs("AInTime")
          Grid1.TextMatrix(i, 5) = m_Rs("AOutTime")
          Grid1.TextMatrix(i, 6) = m_Rs("ALate")
          Grid1.TextMatrix(i, 7) = m_Rs("AEarly")
          m_Rs.MoveNext
          i = i + 1
       Loop
    End If
End Sub

Private Sub Combo1_Click()
    Select Case Trim(Combo1.Text)
    Case "职工编号"
         m_FieldName = "AStuffID"
    Case "职工姓名"
         m_FieldName = "AStuffName"
    Case "调出时间"
         m_FieldName = "ADate"
    End Select
End Sub

Private Sub Form_Load()
      '''''''添加字段名称''''''''''
     Combo1.AddItem "职工编号"
     Combo1.AddItem "职工姓名"
     Combo1.AddItem "日期"
     ''''''添加标题'''''''''''''''''
     Grid1.FormatString = "  职工编号  |^  职工姓名  |^     日    期     |^出入标志|^ 上班时间  |^  下班时间  |^迟到次数|^早退次数"
End Sub

Private Sub Grid1_DblClick()
      iATFlag = 1 ''''代表修改记录''''''''''
    Dim i As Integer
    For i = 0 To Grid1.Cols - 1
        sATData(i) = Grid1.TextMatrix(Grid1.Row, i)
    Next
    Frm_AddAttendance.Show 1
End Sub

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 2 Then
       PopupMenu Frm_PopMenu.ATpopmenu
    End If
End Sub