fmkqcount.frm

人事管理系统 包含考勤

vtxiu = 0
vgonsan = 0
vhunja = 0
vsanja = 0
vcanja = 0
vbk1 = 0
vbk2 = 0
vdate1 = CDate(vyear & "-" & vmonth & "-1")
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='E1'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vbk1 = vbk1 + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='E2'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vbk2 = vbk2 + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate>='" & vdate1 & " 'and workdate<='" & vdate3 & "'and losskqid=0 " '实际上班天数
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
vrealkq = Round(Adcworktime.Recordset.RecordCount + (vbk1 + vbk2 + vpjb) / 8, 1)
End If
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate>='" & vdate1 & " 'and workdate<='" & vdate3 & "'and losskqid=1 and kweek<>6 and kweek<>7" '缺勤
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
vlastkq = Adcworktime.Recordset.RecordCount - vbk1 - vbk2
End If

Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='B1'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vsija = vsija + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='B2'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vbinja = vbinja + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='B3'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vtxiu = vtxiu + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='B4'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vgonsan = vgonsan + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='B5'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vgonti = vgonti + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='C1'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vhunja = vhunja + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='C2'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vsanja = vsanja + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If
Adckqwrite.RecordSource = "select * from kqwrite where zgid='" & vzgid & "' and wdate>='" & vdate1 & " 'AND wdate<='" & vdate3 & " 'and kqlid='C3'"
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
Do While Not Adckqwrite.Recordset.EOF
vcanja = vcanja + Adckqwrite.Recordset.Fields("ctime").Value
Adckqwrite.Recordset.MoveNext
Loop
End If

Adckqcount.RecordSource = "select * from kqcount where zgid='" & vzgid & "'and kqmonth='" & vmonth & "'"
Adckqcount.Refresh
If Adckqcount.Recordset.EOF Then
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate>='" & vdate1 & " 'and workdate<='" & vdate3 & "'and losskqid=0 and kweek<>6 and kweek<>7"
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
vrealkq1 = Adcworktime.Recordset.RecordCount
vkuag = ((vpkq - vrealkq1 - vbk1 - vbk2) * 8 - vsija - vbinja - vgonsan - vtxiu - vhunja - vsanja - vcanja - vgonti) / 8
If vkuag < 0 Then
vkuag = 0
End If
If vbinja <> 0 Then
End If
End If
Adckqcount.Recordset.AddNew
Adckqcount.Recordset.Fields("zgid").Value = vzgid
Adckqcount.Recordset.Fields("zgname").Value = vzgname
Adckqcount.Recordset.Fields("bmid").Value = vbmid
Adckqcount.Recordset.Fields("pkq").Value = vpkq
Adckqcount.Recordset.Fields("pjb").Value = vpjb
Adckqcount.Recordset.Fields("xjb").Value = vxjb
Adckqcount.Recordset.Fields("jjb").Value = vjjb
Adckqcount.Recordset.Fields("realkq").Value = vrealkq
Adckqcount.Recordset.Fields("klast").Value = vklast
Adckqcount.Recordset.Fields("kfast").Value = vkfast
Adckqcount.Recordset.Fields("lastkq").Value = vlastkq
Adckqcount.Recordset.Fields("txiu").Value = vtxiu
Adckqcount.Recordset.Fields("gonsan").Value = vgonsan
Adckqcount.Recordset.Fields("binja").Value = vbinja
Adckqcount.Recordset.Fields("sija").Value = vsija
Adckqcount.Recordset.Fields("hunja").Value = vhunja
Adckqcount.Recordset.Fields("sanja").Value = vsanja
Adckqcount.Recordset.Fields("canja").Value = vcanja
Adckqcount.Recordset.Fields("kuag").Value = vkuag
Adckqcount.Recordset.Fields("kqmonth").Value = vdate
Adckqcount.Recordset.Fields("gonti").Value = vgonti
Adckqcount.Recordset.update
End If
Adczg.Recordset.MoveNext
i = i + 1
PBar1.Value = i
Loop
End If
Adckqcount.RecordSource = "select * from kqcount where kqmonth='" & vmonth & "' order by zgid"
Adckqcount.Refresh
End Sub

Private Sub Command2_Click()
End Sub

Private Sub DG1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim vzgid
If Adckqcount.Recordset.EOF Or Adckqcount.Recordset.BOF Then
Textzgid.Text = ""
Else
If Not IsNull(Adckqcount.Recordset.Fields("zgid").Value) Then
vzgid = Adckqcount.Recordset.Fields("zgid").Value
Textzgid.Text = vzgid
Textzgname.Text = Adckqcount.Recordset.Fields("zgname").Value
Textbmid = Adckqcount.Recordset.Fields("bmid").Value
End If
End If

End Sub

Private Sub Form_Load()
vyear = Year(Date)
vmonth = Month(Date)
Textmonth.Text = vmonth
Toolbar1.Buttons(4).Enabled = False
Adckqcount.RecordSource = "select * from kqcount where kqmonth='" & vmonth & "' order by zgid"
Adckqcount.Refresh
If Not Adckqcount.Recordset.EOF Then
Textzgid.Text = Adckqcount.Recordset.Fields("zgid").Value
Textzgname.Text = Adckqcount.Recordset.Fields("zgname").Value
Textbmid.Text = Adckqcount.Recordset.Fields("bmid").Value
End If
Set adors = Adckqcount.Recordset
End Sub
Private Sub setbuttons(bval As Boolean)
Toolbar1.Buttons(1).Enabled = bval
Toolbar1.Buttons(2).Enabled = bval
Toolbar1.Buttons(3).Enabled = bval
End Sub

Private Sub Textzg_KeyDown(KeyCode As Integer, Shift As Integer)
Dim vzgid, vbmid
If IsNull(Textzgid.Text) Then
MsgBox ("没有输入工号")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
Adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
Textzgname.Text = Adczg.Recordset.Fields("zgname").Value
Textbmid.Text = Adczg.Recordset.Fields("bmid").Value
vbmid = Textbmid.Text
Adcbm.RecordSource = "select * from tbm where bmid='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
Textbmname.Text = Adcbm.Recordset.Fields("bmname").Value
End If
End If
End If

End Sub

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

Private Sub Textzgid_KeyDown(KeyCode As Integer, Shift As Integer)
Dim vzgid, vbmid
If IsNull(Textzgid.Text) Then
MsgBox ("没有输入工号")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
Adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
If IsNull(Adczg.Recordset.Fields("zgname").Value) Then
Textzgname = ""
Else
Textzgname.Text = Adczg.Recordset.Fields("zgname").Value
End If
Textbmid.Text = Adczg.Recordset.Fields("bmid").Value
vbmid = Textbmid.Text
Adcbm.RecordSource = "select * from tbm where bmid='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
Textbmname.Text = Adcbm.Recordset.Fields("bmname").Value
Else
Textbmname.Text = ""
End If
End If
End If

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim response, iresponse As Integer
Select Case Button.Index
Case 1
If Not (adors.BOF And adors.EOF) Then
vbookmark = adors.Bookmark
End If
adors.AddNew
baddnewflag = True
If Not Adcbm.Recordset.EOF Then
End If
setbuttons False
Toolbar1.Buttons(4).Enabled = True
Case 2
response = MsgBox("Are you sure", vbYesNo, "delete record")
If response = vbYes Then
adors.Delete
adors.MoveNext
End If
If adors.EOF Or adors.BOF Then
adors.MoveLast
End If
Case 3
vmonth = Int(Textmonth.Text)
If IsNull(vmonth) Then
MsgBox ("月份输入错误")
Textmonth.SetFocus
Else
Adckqcount.RecordSource = "select * from kqcount where kqmonth='" & vmonth & "' order by zgid "
Adckqcount.Refresh
Adckqcount.Recordset.Requery
Toolbar1.Buttons(4).Enabled = False
End If
Case 4
response = MsgBox("你确信要更新", vbYesNo, "更新数据")
If response = vbYes Then
If Not adors.EOF Or Not adors.BOF Then
adors.update
End If
End If
setbuttons True
Toolbar1.Buttons(4).Enabled = False
Case 5
response = MsgBox("你确信取消操作", vbYesNo, "取消操作")
If response = vbYes Then
setbuttons True
adors.CancelUpdate
If vbookmark > 0 Then
adors.Bookmark = vbookmark
Else
lcurrrec = 1
adors.MoveFirst
End If
Toolbar1.Buttons(3).Enabled = False
baddnewflag = False
End If
Case 6
If Toolbar1.Buttons(4).Enabled Then
iresponse = MsgBox("data changed ,save it?", vbYesNo, "update data?")
If iresponse = vbYes Then
adors.UpdateBatch adAffectAll
 Else
adors.CancelUpdate
End If
End If
'Adczg.Recordset.Close
Unload Me
Case 7
vmonth = CInt(Textmonth.Text)
If vmonth = "" Or vmonth > 12 Or vmonth < 1 Then
MsgBox ("错误的日期")
Else
vdate = vyear & "-" & vmonth
vzgid = Textzgid.Text
Adckqcount.RecordSource = "select * from kqcount where zgid= '" & vzgid & "'and kqmonth='" & vdate & "'"
Adckqcount.Refresh
End If
Case 8
lcurrrec = 1
Adckqcount.Recordset.MoveFirst
Case 9
If Not (Adckqcount.Recordset.BOF) Then
Adckqcount.Recordset.MovePrevious
End If
If adors.BOF And adors.RecordCount > 0 Then
adors.MoveFirst
End If

Case 10
If Not Adckqcount.Recordset.EOF Then
Adckqcount.Recordset.MoveNext
End If
Case 11
Adckqcount.Recordset.MoveLast
Case 12
Toolbar1.Buttons(4).Enabled = True
End Select
End Sub