📄 fmkqcount.frm
字号:
Top = 5520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 24
ImageHeight = 23
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 14
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":0019
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":0693
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":0815
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":0E8F
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":0FA1
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":10B3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":11BD
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":12C7
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":15EB
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":190F
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":1C33
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":1F93
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":22BF
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Fmkqcount.frx":25B7
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 735
Left = 0
TabIndex = 4
Top = 0
Width = 9210
_ExtentX = 16245
_ExtentY = 1296
ButtonWidth = 820
ButtonHeight = 1138
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建"
Object.ToolTipText = "新建"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Object.ToolTipText = "删除"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Object.ToolTipText = "刷新"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Object.ToolTipText = "保存"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Object.ToolTipText = "取消"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Object.ToolTipText = "退出"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Object.ToolTipText = "查询员工"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 9
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 10
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 11
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
ImageIndex = 14
EndProperty
EndProperty
End
Begin VB.Label Label7
Caption = "总体进度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 15
Top = 6240
Width = 855
End
Begin VB.Label Label6
Caption = "处理进度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 14
Top = 5880
Width = 855
End
Begin VB.Label Label5
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 2040
TabIndex = 9
Top = 1200
Width = 495
End
Begin VB.Label Label4
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 3720
TabIndex = 8
Top = 1200
Width = 495
End
Begin VB.Label Label3
Caption = "工号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 480
TabIndex = 6
Top = 1200
Width = 495
End
Begin VB.Label Label1
Caption = "输入处理月份"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 480
TabIndex = 5
Top = 840
Width = 1215
End
Begin VB.Label Label2
Caption = "应出勤天数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 270
Left = 2880
TabIndex = 1
Top = 840
Width = 975
End
End
Attribute VB_Name = "Fmkqcount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vbookmark As Variant
Dim lcurrrec As Long
Dim baddnewflag As Boolean
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Dim vmonth, vyear, vdate
Dim vzgid As String
Private Sub Cmdaction_Click(Index As Integer)
End Sub
Private Sub Command1_Click()
Dim vdate1, vdate2, vdate3, vday, count, vmonth1
Dim vkqlid, vctime, i, j, vzgname, vbmid
Dim vpjb, vxjb, vjjb, vrealkq, vklast, vkfast, vlastkq, vkuag, vpkq, vrealkq1, vgonti
Dim vsija, vbinja, vgonsan, vtxiu, vhunja, vsanja, vcanja, vbk1, vbk2
vmonth = CInt(Textmonth.Text)
vpkq = CInt(Textpkq.Text)
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 jobid<>'w8' or jobid<>'w10'or jobid<>'w11'or jobid<>'w12'"
Adczg.Refresh
Adczg.Recordset.MoveFirst
count = Adczg.Recordset.RecordCount
PBar1.Max = count
PBar1.Min = 1
PBar1.Value = 1
i = 0
Do While Not (Adczg.Recordset.EOF) '取得职工信息
vdate1 = CDate(vyear & "-" & vmonth & "-1")
vdate = vyear & "-" & vmonth
vzgid = Adczg.Recordset.Fields("zgid").Value
vzgname = Adczg.Recordset.Fields("zgname").Value
vbmid = Adczg.Recordset.Fields("bmid").Value
PBar2.Max = vday
PBar2.Min = 0
PBar2.Value = 1
j = 0
vlastkq = 0
vrealkq = 0
vklast = 0
vkfast = 0
vpjb = 0
vxjb = 0
vjjb = 0
vgonti = 0
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate>='" & vdate1 & " 'and workdate<='" & vdate3 & "'and klast=1 and losskqid=0 and kweek<>6 and kweek<>7" '迟到
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
vklast = Adcworktime.Recordset.RecordCount
End If
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate>='" & vdate1 & " 'and workdate<='" & vdate3 & "'and kfast=1 and losskqid=0 and kweek<>6 and kweek<>7" '旱退
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
vkfast = Adcworktime.Recordset.RecordCount
End If
Do While vdate1 <= vdate3
Adcworktime.RecordSource = "select * from worktime where zgid='" & vzgid & "' and workdate='" & vdate1 & " 'and losskqid=0" '加班
Adcworktime.Refresh
If Not Adcworktime.Recordset.EOF Then
If Adcworktime.Recordset.Fields("kqlid").Value = "A1" Then
vpjb = vpjb + Adcworktime.Recordset.Fields("atime").Value
End If
If Adcworktime.Recordset.Fields("kqlid").Value = "A2" Then
vxjb = vxjb + Adcworktime.Recordset.Fields("atime").Value
End If
If Adcworktime.Recordset.Fields("kqlid").Value = "A3" Then
vjjb = vjjb + Adcworktime.Recordset.Fields("atime").Value
End If
End If
vdate1 = vdate1 + 1
j = j + 1
PBar2.Value = j
Loop
vsija = 0
vbinja = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -