formftcount.frm

这是一个人事管理软件

If Not IsNull(Adcftcount.Recordset.Fields("zgf").Value) Then
Textzgf.Text = Adcftcount.Recordset.Fields("zgf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("zzf").Value) Then
Textzzf.Text = Adcftcount.Recordset.Fields("zzf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("wgf").Value) Then
Textwgf.Text = Adcftcount.Recordset.Fields("wgf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("wzf").Value) Then
Textwzf.Text = Adcftcount.Recordset.Fields("wzf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("ygf").Value) Then
Textygf.Text = Adcftcount.Recordset.Fields("ygf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("yzf").Value) Then
Textyzf.Text = Adcftcount.Recordset.Fields("yzf").Value
End If
End If
End Sub

Private Sub Command1_Click()
Dim vday, vdate1, vdate2, vmonth1, vyear, vdate3, count, vdate4, vmonth2
vmonth = CInt(Textmonth.Text)
vyear = Year(Date)
If vmonth = "" Or vmonth > 12 Or vmonth < 1 Then
MsgBox ("错误的日期")
Else
vmonth1 = vmonth + 1
vdate1 = CDate(vyear & "-" & vmonth & "-1")
vdate2 = CDate(vyear & "-" & vmonth1 & "-1")
vday = vdate2 - vdate1
vdate3 = CDate(vyear & "-" & vmonth & "-" & vday)
adczg.RecordSource = "select * from tzg where zgid<>''"
adczg.Refresh
count = adczg.Recordset.RecordCount
PBar1.Max = count + 1
PBar1.Min = 1
PBar1.Value = 1
i = 0
vbmid = ""
vzgname = ""
vyear = Year(Date)
vmonth2 = CInt(Textmonth.Text)
vdate = vyear & "-" & vmonth2

Do While Not (adczg.Recordset.EOF) '取得职工信息
vdate1 = CDate(vyear & "-" & vmonth & "-1")
vzgid = adczg.Recordset.Fields("zgid").Value
vzgname = adczg.Recordset.Fields("zgname").Value
vbmid = adczg.Recordset.Fields("bmid").Value
Adcftset.RecordSource = "select * from ftset where arrid<>''"
Adcftset.Refresh
Do While Not Adcftset.Recordset.EOF
vxgf = 0
vxzf = 0
vzgf = 0
vzzf = 0
vwgf = 0
vwzf = 0
vygf = 0
vyzf = 0
varrid = Adcftset.Recordset.Fields("arrid").Value
Adcftkq.RecordSource = "select * from ftkq where  zgid= '" & vzgid & "' and kqdate >= '" & vdate1 & "' and kqdate <= '" & vdate3 & "'and cbid='4'and arrid='" & varrid & "'"
Adcftkq.Refresh
Do While Not Adcftkq.Recordset.EOF
If Not IsNull(Adcftkq.Recordset.Fields("gf").Value) And Not IsNull(Adcftkq.Recordset.Fields("zf").Value) Then
vxgf = vxgf + Adcftkq.Recordset.Fields("gf").Value
vxzf = vxzf + Adcftkq.Recordset.Fields("zf").Value
End If
Adcftkq.Recordset.MoveNext
Loop
Adcftkq.RecordSource = "select * from ftkq where  zgid= '" & vzgid & "' and kqdate >= '" & vdate1 & "' and kqdate <= '" & vdate3 & "'and cbid='1'and arrid='" & varrid & "'"
Adcftkq.Refresh
Do While Not Adcftkq.Recordset.EOF
If Not IsNull(Adcftkq.Recordset.Fields("gf").Value) And Not IsNull(Adcftkq.Recordset.Fields("zf").Value) Then
vzgf = vzgf + Adcftkq.Recordset.Fields("gf").Value
vzzf = vzzf + Adcftkq.Recordset.Fields("zf").Value
End If
Adcftkq.Recordset.MoveNext
Loop
Adcftkq.RecordSource = "select * from ftkq where  zgid= '" & vzgid & "' and kqdate >= '" & vdate1 & "' and kqdate <= '" & vdate3 & "'and cbid='2'and arrid='" & varrid & "'"
Adcftkq.Refresh
Do While Not Adcftkq.Recordset.EOF
If Not IsNull(Adcftkq.Recordset.Fields("gf").Value) And Not IsNull(Adcftkq.Recordset.Fields("zf").Value) Then
vwgf = vwgf + Adcftkq.Recordset.Fields("gf").Value
vwzf = vwzf + Adcftkq.Recordset.Fields("zf").Value
End If
Adcftkq.Recordset.MoveNext
Loop
Adcftkq.RecordSource = "select * from ftkq where  zgid= '" & vzgid & "' and kqdate >= '" & vdate1 & "' and kqdate <= '" & vdate3 & "'and cbid='3'and arrid='" & varrid & "'"
Adcftkq.Refresh
Do While Not Adcftkq.Recordset.EOF
If Not IsNull(Adcftkq.Recordset.Fields("gf").Value) And Not IsNull(Adcftkq.Recordset.Fields("zf").Value) Then
vygf = vygf + Adcftkq.Recordset.Fields("gf").Value
vyzf = vyzf + Adcftkq.Recordset.Fields("zf").Value
End If
Adcftkq.Recordset.MoveNext
Loop
Adcftcount.RecordSource = "select * from ftcount where zgid='" & vzgid & "' and kmonth='" & vmonth & "'and arrid='" & varrid & "'"
Adcftcount.Refresh
If Adcftcount.Recordset.EOF Then
Adcftcount.Recordset.AddNew
Adcftcount.Recordset.Fields("zgid").Value = vzgid
Adcftcount.Recordset.Fields("zgname").Value = vzgname
Adcftcount.Recordset.Fields("bmid").Value = vbmid
Adcftcount.Recordset.Fields("xgf").Value = vxgf * 3
Adcftcount.Recordset.Fields("xzf").Value = vxzf * 3
Adcftcount.Recordset.Fields("zgf").Value = vzgf * 3
Adcftcount.Recordset.Fields("zzf").Value = vzzf * 3
Adcftcount.Recordset.Fields("wgf").Value = vwgf * 3
Adcftcount.Recordset.Fields("wzf").Value = vwzf * 3
Adcftcount.Recordset.Fields("ygf").Value = vygf * 3
Adcftcount.Recordset.Fields("yzf").Value = vyzf * 3
Adcftcount.Recordset.Fields("arrid").Value = varrid
Adcftcount.Recordset.Fields("kmonth").Value = vdate
Adcftcount.Recordset.update
End If
Adcftset.Recordset.MoveNext
Loop
i = i + 1
PBar1.Value = i
adczg.Recordset.MoveNext
Loop
End If
End Sub


Private Sub DataGrid1_Click()

End Sub

Private Sub DG1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim vzgid
If Adcftcount.Recordset.EOF Or Adcftcount.Recordset.BOF Then
Textzgid.Text = ""
Textxzf.Text = ""
Textxgf.Text = ""
Else
If Not IsNull(Adcftcount.Recordset.Fields("zgid").Value) Then
vzgid = Adcftcount.Recordset.Fields("zgid").Value
Textzgid.Text = vzgid
Textxzf.Text = Adcftcount.Recordset.Fields("xzf").Value
Textxgf.Text = Adcftcount.Recordset.Fields("xgf").Value
End If
End If
End Sub


Private Sub Form_Load()
Toolbar1.Buttons(4).Enabled = False
If Not Adcftcount.Recordset.EOF Then
Textzgid.Text = Adcftcount.Recordset.Fields("zgid").Value
Textzgname.Text = Adcftcount.Recordset.Fields("zgname").Value
Textbmid.Text = Adcftcount.Recordset.Fields("bmid").Value
Textxgf.Text = Adcftcount.Recordset.Fields("xgf").Value
Textxzf.Text = Adcftcount.Recordset.Fields("xzf").Value
Textzgf.Text = Adcftcount.Recordset.Fields("zgf").Value
Textzzf.Text = Adcftcount.Recordset.Fields("zzf").Value
Textwgf.Text = Adcftcount.Recordset.Fields("wgf").Value
Textwzf.Text = Adcftcount.Recordset.Fields("wzf").Value
Textygf.Text = Adcftcount.Recordset.Fields("ygf").Value
Textyzf.Text = Adcftcount.Recordset.Fields("yzf").Value
End If
Set adors = Adcftcount.Recordset
End Sub


Private Sub Textbmname_Change()
Dim vbmid, vbmname As String
vbmid = Textbmname.Text
Adcbm.RecordSource = "select bmname from tbm where bmid ='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
vbmname = Adcbm.Recordset.Fields("bmname").Value
Textbmname.Text = vbmname
Textbmid.Text = vbmid
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
Dim vzgid, vzgname, vbmid, vgf, vzf, vmonth2
Select Case Button.Index
Case 1
If Not (adors.BOF And adors.EOF) Then
vbookmark = adors.Bookmark
End If
adors.AddNew
baddnewflag = True
Textzgid.Text = ""
Textzgname.Text = ""
Textxgf.Text = ""
Textxzf.Text = ""
Textzgf.Text = ""
Textzzf.Text = ""
Textwgf.Text = ""
Textwzf.Text = ""
Textygf.Text = ""
Textyzf.Text = ""
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
If IsNull(Textmonth.Text) Then
MsgBox ("月份不能为空")
Textmonth.SetFocus
Else
vmonth = CInt(Textmonth.Text)
If vmonth = "" Or vmonth > 12 Or vmonth < 1 Then
MsgBox ("错误的日期")
Else
Adcftcount.RecordSource = "select * from ftcount where kmonth='" & vmonth & "' "
Adcftcount.Refresh
End If
End If
Case 4
response = MsgBox("你确信要更新", vbYesNo, "更新数据")
If response = vbYes Then
If Textzgid.Text = "" Or Textxgf.Text = "" Or Textxzf.Text = "" Or Textmonth.Text = "" Then
MsgBox ("有空值，请检察")
Textzgid.SetFocus
Else
vmonth = CInt(Textmonth.Text)
vzgid = Textzgid.Text
vzgname = Textzgname.Text
vbmid = Textbmid.Text
vxgf = CInt(Textxgf.Text)
vxzf = CInt(Textxzf.Text)
Adcftcount.Recordset.Fields("zgid").Value = Textzgid.Text
Adcftcount.Recordset.Fields("zgname").Value = Textzgname.Text
Adcftcount.Recordset.Fields("bmid").Value = Textbmid.Text
Adcftcount.Recordset.Fields("xgf").Value = Textxgf.Text
Adcftcount.Recordset.Fields("xzf").Value = Textxzf.Text
Adcftcount.Recordset.Fields("zgf").Value = Textzgf.Text
Adcftcount.Recordset.Fields("zzf").Value = Textzzf.Text
Adcftcount.Recordset.Fields("wgf").Value = Textwgf.Text
Adcftcount.Recordset.Fields("wzf").Value = Textwzf.Text
Adcftcount.Recordset.Fields("ygf").Value = Textygf.Text
Adcftcount.Recordset.Fields("yzf").Value = Textyzf.Text
Adcftcount.Recordset.Fields("kmonth").Value = vmonth
Adcftcount.Recordset.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
If Textmonth.Text <> "" Then
vmonth2 = CInt(Textmonth.Text)
If vmonth2 = "" Or vmonth2 > 12 Or vmonth2 < 1 Then
MsgBox ("错误的日期")
Else
vyear = Year(Date)
vdate = vyear & "-" & vmonth2
vzgid = Textzgid.Text
Adcftcount.RecordSource = "select * from ftcount where zgid= '" & vzgid & "'and kmonth='" & vdate & "'"
Adcftcount.Refresh
End If
End If
Case 8
lcurrrec = 1
Adcftcount.Recordset.MoveFirst
Case 9
If Not (Adcftcount.Recordset.BOF) Then
Adcftcount.Recordset.MovePrevious
End If
If adors.BOF And adors.RecordCount > 0 Then
adors.MoveFirst
End If

Case 10
If Not Adcftcount.Recordset.EOF Then
Adcftcount.Recordset.MoveNext
End If
Case 11
Adcftcount.Recordset.MoveLast
Case 12
Toolbar1.Buttons(4).Enabled = True
Case 13
End Select
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