📄 frm_rpt_kaoqinfld.frm
字号:
Caption = "下班时间"
Height = 255
Index = 12
Left = 600
TabIndex = 29
Top = 2280
Width = 855
End
Begin VB.Label Label1
Caption = "上班描述"
Height = 255
Index = 11
Left = 600
TabIndex = 27
Top = 1800
Width = 855
End
Begin VB.Label Label1
Caption = "迟到时间"
Height = 255
Index = 10
Left = 600
TabIndex = 25
Top = 1320
Width = 855
End
Begin VB.Label Label1
Caption = "上班刷卡"
Height = 255
Index = 9
Left = 600
TabIndex = 23
Top = 840
Width = 855
End
Begin VB.Label Label1
Caption = "上班时间"
Height = 255
Index = 8
Left = 600
TabIndex = 21
Top = 360
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "第一段"
Height = 4095
Index = 0
Left = 120
TabIndex = 0
Top = 360
Width = 1575
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 7
Left = 120
TabIndex = 15
Top = 3720
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 6
Left = 120
TabIndex = 13
Top = 3240
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 5
Left = 120
TabIndex = 11
Top = 2760
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 4
Left = 120
TabIndex = 9
Top = 2280
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 3
Left = 120
TabIndex = 7
Top = 1800
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 2
Left = 120
TabIndex = 5
Top = 1320
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 1
Left = 120
TabIndex = 3
Top = 840
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 0
Left = 120
TabIndex = 1
Top = 360
Width = 255
End
Begin VB.Label Label1
Caption = "下班描述"
Height = 255
Index = 7
Left = 600
TabIndex = 16
Top = 3720
Width = 855
End
Begin VB.Label Label1
Caption = "早退时间"
Height = 255
Index = 6
Left = 600
TabIndex = 14
Top = 3240
Width = 855
End
Begin VB.Label Label1
Caption = "下班刷卡"
Height = 255
Index = 5
Left = 600
TabIndex = 12
Top = 2760
Width = 855
End
Begin VB.Label Label1
Caption = "下班时间"
Height = 255
Index = 4
Left = 600
TabIndex = 10
Top = 2280
Width = 855
End
Begin VB.Label Label1
Caption = "上班描述"
Height = 255
Index = 3
Left = 600
TabIndex = 8
Top = 1800
Width = 855
End
Begin VB.Label Label1
Caption = "迟到时间"
Height = 255
Index = 2
Left = 600
TabIndex = 6
Top = 1320
Width = 855
End
Begin VB.Label Label1
Caption = "上班刷卡"
Height = 255
Index = 1
Left = 600
TabIndex = 4
Top = 840
Width = 855
End
Begin VB.Label Label1
Caption = "上班时间"
Height = 255
Index = 0
Left = 600
TabIndex = 2
Top = 360
Width = 855
End
End
End
Attribute VB_Name = "Frm_Rpt_KaoQinFld"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mDB As mDB
'Public SQLString As String
Dim strSQL As String
Private adoprimaryRS As ADODB.Recordset
Private strSQL2 As String
Private adoPrimaryRS2 As ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
With adoprimaryRS
.Fields("wktmbg1").Value = Check1(0).Value
.Fields("drawtmbg1").Value = Check1(1).Value
.Fields("latertime1").Value = Check1(2).Value
.Fields("wktmbg1dec").Value = Check1(3).Value
.Fields("wktmend1").Value = Check1(4).Value
.Fields("drawtmend1").Value = Check1(5).Value
.Fields("earlytime1").Value = Check1(6).Value
.Fields("wktmend1dec").Value = Check1(7).Value
.Fields("wktmbg2").Value = Check1(8).Value
.Fields("drawtmbg2").Value = Check1(9).Value
.Fields("latertime2").Value = Check1(10).Value
.Fields("wktmbg1dec").Value = Check1(11).Value
.Fields("wktmend2").Value = Check1(12).Value
.Fields("drawtmend2").Value = Check1(13).Value
.Fields("earlytime2").Value = Check1(14).Value
.Fields("wktmend2dec").Value = Check1(15).Value
.Fields("wktmbg3").Value = Check1(16).Value
.Fields("drawtmbg3").Value = Check1(17).Value
.Fields("latertime3").Value = Check1(18).Value
.Fields("wktmbg1dec").Value = Check1(19).Value
.Fields("wktmend3").Value = Check1(20).Value
.Fields("drawtmend3").Value = Check1(21).Value
.Fields("earlytime3").Value = Check1(22).Value
.Fields("wktmend3dec").Value = Check1(23).Value
.Fields("wktmbg4").Value = Check1(24).Value
.Fields("drawtmbg4").Value = Check1(25).Value
.Fields("latertime4").Value = Check1(26).Value
.Fields("wktmbg1dec").Value = Check1(27).Value
.Fields("wktmend4").Value = Check1(28).Value
.Fields("drawtmend4").Value = Check1(29).Value
.Fields("earlytime4").Value = Check1(30).Value
.Fields("wktmend4dec").Value = Check1(31).Value
.Fields("bgnovertime").Value = Check1(32).Value
.Fields("endovertime").Value = Check1(33).Value
.Fields("overwktm").Value = Check1(34).Value
.Fields("sunwktm").Value = Check1(35).Value
.Fields("holidaywktm").Value = Check1(36).Value
.Fields("wktmname").Value = Check1(37).Value
.Fields("memo").Value = Check1(38).Value
.Fields("nCount").Value = Check1(39).Value
' Check1(39).Value = .Fields("").Value
.Fields("standwktm").Value = Check1(40).Value
.Fields("datwktm").Value = Check1(41).Value
.Fields("workwktm").Value = Check1(42).Value
.Fields("evectionsum").Value = Check1(43).Value
.Fields("wktmflag").Value = Check1(44).Value
.Fields("holidaysum").Value = Check1(45).Value
'' Check1(46).Value = .Fields("").Value
'' Check1(47).Value = .Fields("").Value
.Update
End With
Unload Me
Case 1
Unload Me
End Select
End Sub
Private Sub Form_Load()
Set mDB = New mDB
mDB.InitDB_RY strconnDR
strSQL = "select * from wktmrslt_report"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
If adoprimaryRS.RecordCount Then
With adoprimaryRS
Check1(0).Value = .Fields("wktmbg1").Value
Check1(1).Value = .Fields("drawtmbg1").Value
Check1(2).Value = .Fields("latertime1").Value
Check1(3).Value = .Fields("wktmbg1dec").Value
Check1(4).Value = .Fields("wktmend1").Value
Check1(5).Value = .Fields("drawtmend1").Value
Check1(6).Value = .Fields("earlytime1").Value
Check1(7).Value = .Fields("wktmend1dec").Value
Check1(8).Value = .Fields("wktmbg2").Value
Check1(9).Value = .Fields("drawtmbg2").Value
Check1(10).Value = .Fields("latertime2").Value
Check1(11).Value = .Fields("wktmbg1dec").Value
Check1(12).Value = .Fields("wktmend2").Value
Check1(13).Value = .Fields("drawtmend2").Value
Check1(14).Value = .Fields("earlytime2").Value
Check1(15).Value = .Fields("wktmend2dec").Value
Check1(16).Value = .Fields("wktmbg3").Value
Check1(17).Value = .Fields("drawtmbg3").Value
Check1(18).Value = .Fields("latertime3").Value
Check1(19).Value = .Fields("wktmbg1dec").Value
Check1(20).Value = .Fields("wktmend3").Value
Check1(21).Value = .Fields("drawtmend3").Value
Check1(22).Value = .Fields("earlytime3").Value
Check1(23).Value = .Fields("wktmend3dec").Value
Check1(24).Value = .Fields("wktmbg4").Value
Check1(25).Value = .Fields("drawtmbg4").Value
Check1(26).Value = .Fields("latertime4").Value
Check1(27).Value = .Fields("wktmbg1dec").Value
Check1(28).Value = .Fields("wktmend4").Value
Check1(29).Value = .Fields("drawtmend4").Value
Check1(30).Value = .Fields("earlytime4").Value
Check1(31).Value = .Fields("wktmend4dec").Value
Check1(32).Value = .Fields("bgnovertime").Value
Check1(33).Value = .Fields("endovertime").Value
Check1(34).Value = .Fields("overwktm").Value
Check1(35).Value = .Fields("sunwktm").Value
Check1(36).Value = .Fields("holidaywktm").Value
Check1(37).Value = .Fields("wktmname").Value
Check1(38).Value = .Fields("memo").Value
Check1(39).Value = .Fields("nCount").Value
Check1(40).Value = .Fields("standwktm").Value
Check1(41).Value = .Fields("datwktm").Value
Check1(42).Value = .Fields("workwktm").Value
Check1(43).Value = .Fields("evectionsum").Value
Check1(44).Value = .Fields("wktmflag").Value
Check1(45).Value = .Fields("holidaysum").Value
' Check1(46).Value = .Fields("").Value
' Check1(47).Value = .Fields("").Value
End With
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -