📄 frm_rpt_kaoqin.frm
字号:
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":F176
Key = "printb"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":F288
Key = "print1"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":12112
Key = "print2"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1424C
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":14F28
Key = "NA"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":167AC
Key = "cloth"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":16AD0
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":187DA
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":188EE
Key = "exit"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":18C08
Key = "ok"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":18D1A
Key = "earth1"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1916E
Key = "earth2"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1948A
Key = "man3"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1A2DE
Key = "man1"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1B130
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1B22C
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1B340
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1B454
Key = "excel"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1B770
Key = "word"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1BA8C
Key = "word2"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1BC26
Key = "toleft"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1C078
Key = "toRight"
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1C4CA
Key = "toUp"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1C91C
Key = "toDown"
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1CD6E
Key = "write1"
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1D1C0
Key = "write2"
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQin.frx":1D612
Key = "write3"
EndProperty
EndProperty
End
Begin VB.PictureBox Picture2
Height = 0
Left = 0
ScaleHeight = 0
ScaleWidth = 0
TabIndex = 15
Top = 0
Width = 0
End
End
Begin VB.Label Label1
Height = 5295
Left = 2400
TabIndex = 3
Top = 960
Width = 135
End
Begin VB.Label Label3
Caption = "年："
ForeColor = &H00FF0000&
Height = 255
Index = 1
Left = 600
TabIndex = 2
Top = 6600
Width = 375
End
Begin VB.Label Label3
Caption = "月："
ForeColor = &H00FF0000&
Height = 255
Index = 2
Left = 2160
TabIndex = 1
Top = 6600
Width = 375
End
End
Attribute VB_Name = "Frm_Rpt_KaoQin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mDB As mDB
Dim standwktm As Single ''''存放标准工时；
Dim tLaterEarly As Single ''''存放迟到早退时间；
Dim tDatWktm As Single ''''存放核算的实际工时；
Dim SpFlg As Boolean
Dim ChejianID As Integer
Public iVar As Integer
Dim sFldString As String
Dim WithEvents frmX As NM_Bas
Attribute frmX.VB_VarHelpID = -1
Dim strSQL As String
Private adoprimaryRS As ADODB.Recordset
Private strSQL2 As String
Private adoPrimaryRS2 As ADODB.Recordset
Private strSQL3 As String
Private adoPrimaryRS3 As ADODB.Recordset
Private strSQL4 As String
Private adoprimaryRS4 As ADODB.Recordset
Private strSQL5 As String
Private adoPrimaryRS5 As ADODB.Recordset
Private strSQL6 As String
Private adoPrimaryRS6 As ADODB.Recordset
Private strSQL7 As String
Private adoPrimaryRS7 As ADODB.Recordset
Private strSQL8 As String
Private adoPrimaryRS8 As ADODB.Recordset
Private strSQL9 As String
Private adoPrimaryRS9 As ADODB.Recordset
Private Sub DataCombo1_Click(Area As Integer)
If Option1(0).Value = False Then
Option1(0).Value = True
Text1.Text = ""
End If
End Sub
Private Sub datagrid1_HeadClick(ByVal ColIndex As Integer)
'Sort by clicked column
'With adoprimaryRS4
Static i As Integer
i = i + 1
With adoprimaryRS4
If i Mod 2 Then
.Sort = .Fields(ColIndex).Name & " DESC"
Else
.Sort = .Fields(ColIndex).Name & " ASC"
End If
End With
DataGrid1.Refresh
End Sub
' =====================================================
' =====================================================
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
SendKeys vbTab
SendKeys vbTab
SendKeys vbTab
End If
End Sub
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ltmp As Long
Dim stmp As String
Dim iHour As Single
Dim nCount As Integer
On Error GoTo Err1
If adoprimaryRS4.RecordCount = 0 Then Exit Sub
Dim zggh As String
Dim zgxm As String
Dim tmpDate As Date
Dim tmpTime As Date
If Option1(0).Value And DataCombo1.Text = "" Then
zggh = DataGrid1.Columns(1).Text
zgxm = DataGrid1.Columns(2).Text
tmpDate = DataGrid1.Columns(3).Text
Else
zggh = DataGrid1.Columns(0).Text
zgxm = DataGrid1.Columns(1).Text
tmpDate = DataGrid1.Columns(2).Text
End If
If Len(DataGrid1.Columns(1).Text) And Button = 2 Then
strSQL2 = "select count(*) from wktmrslt where emplyid='" & zggh & "' and caldate='" & tmpDate & "'"
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
If adoPrimaryRS2(0).Value Then
strSQL2 = "select * from wktmrslt where emplyid='" & zggh & "' and caldate='" & tmpDate & "'"
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
tLaterEarly = Round((adoPrimaryRS2.Fields("latertime1").Value + adoPrimaryRS2.Fields("earlytime1").Value + adoPrimaryRS2.Fields("latertime2").Value + adoPrimaryRS2.Fields("earlytime2").Value) / 60, 1)
tDatWktm = adoPrimaryRS2.Fields("datwktm").Value
nCount = adoPrimaryRS2.Fields("ncount").Value
Else
tLaterEarly = 0
tDatWktm = 0
nCount = 0
End If
strSQL3 = "select left(a.wktmbg,10) as bgdate,e.wktmid,f.wktmdecs,e.wktmdays,e.regualorder,f.hours,e.regualid,bgnwktm1,bgntm1,endtm1,endwktm1,bgnwktm2,bgntm2,endtm2,endwktm2,bgnwktm3,bgntm3,endtm3,endwktm3 from empwktm a,wktmregual e,wktm f where a.regualid=e.regualid and e.wktmid=f.wktmid and a.emplyid='" & zggh & "' order by e.regualorder"
Set adoPrimaryRS3 = mDB.adoprimaryRS(strSQL3)
If IsNull(adoPrimaryRS3.Fields("bgnwktm1").Value) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -