📄 formkrp.frm
字号:
BeginProperty Column02
DataField = "bmname"
Caption = "部门"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "pkq"
Caption = "应出勤天数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "pjb"
Caption = "平时加班"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "xjb"
Caption = "休日加班"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "jjb"
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 = "realkq"
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 = "klast"
Caption = "迟到"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "kfast"
Caption = "旱退"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "lastkq"
Caption = "缺勤"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "txiu"
Caption = "调体"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "gonsan"
Caption = "工伤"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "binja"
Caption = "病假"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
DataField = "sija"
Caption = "事假"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column15
DataField = "hunja"
Caption = "婚假"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column16
DataField = "sanja"
Caption = "丧假"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column17
DataField = "canja"
Caption = "产假"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column18
DataField = "kuag"
Caption = "旷工"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column19
DataField = "kqmonth"
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 = 434.835
EndProperty
BeginProperty Column01
ColumnWidth = 764.787
EndProperty
BeginProperty Column02
ColumnWidth = 810.142
EndProperty
BeginProperty Column03
ColumnWidth = 989.858
EndProperty
BeginProperty Column04
ColumnWidth = 810.142
EndProperty
BeginProperty Column05
ColumnWidth = 794.835
EndProperty
BeginProperty Column06
ColumnWidth = 840.189
EndProperty
BeginProperty Column07
ColumnWidth = 780.095
EndProperty
BeginProperty Column08
ColumnWidth = 524.976
EndProperty
BeginProperty Column09
ColumnWidth = 494.929
EndProperty
BeginProperty Column10
ColumnWidth = 450.142
EndProperty
BeginProperty Column11
ColumnWidth = 434.835
EndProperty
BeginProperty Column12
ColumnWidth = 450.142
EndProperty
BeginProperty Column13
ColumnWidth = 450.142
EndProperty
BeginProperty Column14
ColumnWidth = 464.882
EndProperty
BeginProperty Column15
ColumnWidth = 480.189
EndProperty
BeginProperty Column16
ColumnWidth = 494.929
EndProperty
BeginProperty Column17
ColumnWidth = 420.095
EndProperty
BeginProperty Column18
ColumnWidth = 464.882
EndProperty
BeginProperty Column19
ColumnWidth = 450.142
EndProperty
EndProperty
End
Begin VB.Label Label3
Caption = "部门名称"
Height = 255
Left = 2400
TabIndex = 8
Top = 480
Width = 855
End
Begin VB.Label Label2
Caption = "处理进度"
Height = 255
Left = 120
TabIndex = 5
Top = 4200
Width = 855
End
Begin VB.Label Label1
Caption = "报表处理月份 "
Height = 255
Left = 120
TabIndex = 2
Top = 480
Width = 1215
End
End
Attribute VB_Name = "Formkrp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vmonth, vbmname, vcount
Dim vzgid, vkqlid, vctime, i, j, vzgname, vbmid
Dim vpjb, vxjb, vjjb, vrealkq, vklast, vkfast, vlastkq, vkuag, vpkq
Dim vsija, vbinja, vgonsan, vtxiu, vhunja, vsanja, vcanja
Private Sub Command1_Click()
'Dim vsijas, vbinjas, vgonsans, vtxius, vhunjas, vsanjas, vcanjas
'Dim vpjbs, vxjbs, vjjbs, vrealkqs, vklasts, vkfasts, vlastkqs, vkuags, vpkqs
If Textmonth.Text = "" Then
MsgBox ("没有输入月份")
Textmonth.SetFocus
Else
Adcbm1.RecordSource = "select * from tbm where bmid <>'' "
Adcbm1.Refresh
Do While Not Adcbm1.Recordset.EOF
vbmid = Adcbm1.Recordset.Fields("bmid").Value
vmonth = CInt(Textmonth.Text)
Adckqcount.RecordSource = "select * from kqcount where kqmonth='" & vmonth & "'and bmid='" & vbmid & "'"
Adckqcount.Refresh
vcount = Adckqcount.Recordset.RecordCount
PBar1.Max = vcount
PBar1.Min = 0
PBar1.Value = 0
i = 0
Do While Not Adckqcount.Recordset.EOF
vzgid = Adckqcount.Recordset.Fields("zgid").Value
vzgname = Adckqcount.Recordset.Fields("zgname").Value
vpkq = Adckqcount.Recordset.Fields("pkq").Value
vpjb = Adckqcount.Recordset.Fields("pjb").Value
vxjb = Adckqcount.Recordset.Fields("xjb").Value
vjjb = Adckqcount.Recordset.Fields("jjb").Value
vrealkq = Adckqcount.Recordset.Fields("realkq").Value
vklast = Adckqcount.Recordset.Fields("klast").Value
vkfast = Adckqcount.Recordset.Fields("kfast").Value
vlastkq = Adckqcount.Recordset.Fields("lastkq").Value
vtxiu = Adckqcount.Recordset.Fields("txiu").Value
vgonsan = Adckqcount.Recordset.Fields("gonsan").Value
vbinja = Adckqcount.Recordset.Fields("binja").Value
vsija = Adckqcount.Recordset.Fields("sija").Value
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -