formkqmod.frm

这是一个人事管理软件

            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "bid"
         Caption         =   "班别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "losskqid"
         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       =   "kweek"
         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 
         BeginProperty Column00 
            ColumnWidth     =   989.858
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1230.236
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   989.858
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   734.74
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1094.74
         EndProperty
      EndProperty
   End
   Begin VB.TextBox Textdate2 
      Height          =   270
      Left            =   3240
      TabIndex        =   9
      Top             =   600
      Width           =   1455
   End
   Begin VB.TextBox Textdate1 
      Height          =   270
      Left            =   1200
      TabIndex        =   7
      Top             =   600
      Width           =   1575
   End
   Begin VB.TextBox Textzgid 
      ForeColor       =   &H000000FF&
      Height          =   270
      Left            =   1320
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
   Begin VB.TextBox Textzgname 
      ForeColor       =   &H000000FF&
      Height          =   270
      Left            =   2520
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   240
      Width           =   975
   End
   Begin VB.TextBox Textbmname 
      ForeColor       =   &H000000FF&
      Height          =   270
      Left            =   3960
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
   Begin VB.Label Label5 
      Caption         =   "--"
      Height          =   255
      Left            =   2880
      TabIndex        =   8
      Top             =   600
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "日期"
      Height          =   255
      Left            =   720
      TabIndex        =   6
      Top             =   600
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   "工号"
      Height          =   255
      Left            =   840
      TabIndex        =   5
      Top             =   255
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "姓名"
      Height          =   255
      Left            =   2160
      TabIndex        =   4
      Top             =   240
      Width           =   375
   End
   Begin VB.Label Label3 
      Caption         =   "部门"
      Height          =   255
      Left            =   3600
      TabIndex        =   3
      Top             =   240
      Width           =   375
   End
End
Attribute VB_Name = "Formkqyc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vdate1, vdate2, vzgid

Private Sub Adcworktime_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not Adcworktime.Recordset.EOF Then
If Not IsNull(Adcworktime.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adcworktime.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adcworktime.Recordset.Fields("zgname").Value) Then
Textzgname.Text = Adcworktime.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adcworktime.Recordset.Fields("bmid").Value) Then
Textbmid.Text = Adcworktime.Recordset.Fields("bmid").Value
End If
End If
End Sub

Private Sub Command1_Click()
vdate1 = Textdate1.Text
vdate2 = Textdate2.Text
If IsDate(Textdate1.Text) And IsDate(Textdate2.Text) Then
Adcworktime.RecordSource = "select * from worktime where starttime-endtime=0"
Adcworktime.Refresh
Else
MsgBox ("日期录入错误")
Textdate1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Adcworktime.RecordSource = "select * from worktime where starttime-endtime=9999"
Adcworktime.Refresh
End Sub

Private Sub Textbmid_Change()
Dim vbmid, vbmname
vbmid = Textbmid.Text
Adcbm.RecordSource = "select * from tbm where bmid='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
vbmname = Adcbm.Recordset.Fields("bmname").Value
Textbmname.Text = vbmname
End If
End Sub

Private Sub Textdate1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textdate2.SetFocus
End If

End Sub

Private Sub Textdate2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
vdate1 = Textdate1.Text
vdate2 = Textdate2.Text
If IsDate(Textdate1.Text) And IsDate(Textdate2.Text) Then
Adcworktime.RecordSource = "select * from worktime where starttime-endtime=0"
Adcworktime.Refresh
Else
MsgBox ("日期录入错误")
Textdate1.SetFocus
End If

End If
End Sub