📄 复件 frm_kq_bcsetup_1.frm
字号:
ElseIf Option2(1).Value Then
MSHFlexGrid1.Col = 1
'Debug.Print MSHFlexGrid1.Row
'Debug.Print MSHFlexGrid1.RowSel
'Debug.Print MSHFlexGrid1.BackColorSel
MSHFlexGrid1.Col = 1
For i = iRowStart To iRowEnd
MSHFlexGrid1.Row = i
sID = sID & MSHFlexGrid1.TextMatrix(i, 0) & ","
Next i
If sID <> "" Then
sID = Left(sID, Len(sID) - 1)
End If
'Debug.Print sID
strSQL = "select emplyid from emply where dptid in(" & sID & ")"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
ElseIf Option2(2).Value Then
MSHFlexGrid2.Col = 1
Debug.Print iRowStart
Debug.Print iRowEnd
MSHFlexGrid2.Col = 1
For i = iRowStart To iRowEnd
MSHFlexGrid2.Row = i
sID = sID & MSHFlexGrid2.TextMatrix(i, 0) & ","
Next i
If sID <> "" Then
sID = Left(sID, Len(sID) - 1)
End If
'Debug.Print sID
strSQL = "select emplyid from emply where emplyid in(" & sID & ")"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
End If
nCount = adoprimaryRS.RecordCount
Screen.MousePointer = 11
With adoprimaryRS
Do While Not .EOF
adoprimaryRS4.MoveFirst
' adoprimaryRS4.Find "emplyid='" & .Fields("emplyid").Value & "'", 0, adSearchForward, adBookmarkFirst
adoprimaryRS4.Filter = "emplyid='" & .Fields("emplyid").Value & "'"
If adoprimaryRS4.RecordCount = 0 Then
adoprimaryRS4.AddNew
adoprimaryRS4.Fields("emplyid").Value = .Fields("emplyid").Value
adoprimaryRS4.Fields("regualid").Value = iBC
adoprimaryRS4.Fields("wktmbg").Value = d
adoprimaryRS4.Update
Else
'adoprimaryRS4.Fields("emplyid").Value = .Fields("emplyid").Value
adoprimaryRS4.Fields("regualid").Value = iBC
adoprimaryRS4.Fields("wktmbg").Value = d
adoprimaryRS4.Update
End If
.MoveNext
i = i + 1
If i > nCount Then i = nCount
ProgressBar1.Value = CInt((i / nCount) * 100)
Loop
adoprimaryRS4.UpdateBatch
End With
Screen.MousePointer = 0
MsgBox "ok"
End Sub
Private Sub MSHFlexGrid1_Click()
If Option2(1).Value Or Option2(2).Value Then Exit Sub
MSHFlexGrid1.Col = 0
strSQL2 = "select emplyid as 工号,emplyname as 姓名 from emply where dptid=" & MSHFlexGrid1.Text
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
'Debug.Print adoPrimaryRS2.RecordCount
With MSHFlexGrid2
.ClearStructure
Set .DataSource = adoPrimaryRS2
.Refresh
End With
MSHFlexGrid2_Click
End Sub
Private Sub MSHFlexGrid1_SelChange()
iRowStart = MSHFlexGrid1.Row
iRowEnd = MSHFlexGrid1.RowSel
End Sub
Private Sub MSHFlexGrid2_Click()
If Option2(1).Value Or Option2(2).Value Then Exit Sub
On Error GoTo Err1
'MSHFlexGrid2.Col = 0
Select Case MSHFlexGrid2.Col
Case 0
If IsNumeric(MSHFlexGrid2.Text) Then
adoprimaryRS4.Filter = "emplyid='" & MSHFlexGrid2.Text & "'"
DataCombo1(0).BoundText = adoprimaryRS4.Fields("regualid").Value
DTPicker1(0).Value = Left(adoprimaryRS4.Fields("wktmbg").Value, 10)
strSQL2 = "select regualorder as 序号,wktmdecs as 班次名称 from wktmregual a,wktm b where a.wktmid=b.wktmid and a.regualid=" & adoprimaryRS4.Fields("regualid").Value & " order by a.regualorder"
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
With DataGrid1
.ClearFields
Set .DataSource = adoPrimaryRS2
.Refresh
End With
Else '''If MSHFlexGrid2.Text = "" Then
DataCombo1(0).BoundText = ""
'DTPicker1(0).Value = Left(adoPrimaryRS4.Fields("wktmbg").Value, 10)
strSQL2 = "select regualorder as 序号,regualname as 班次名称 from wktmregual where 1=2 " ''' regualid=" & adoPrimaryRS4.Fields("regualid").Value & " order by regualorder"
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
With DataGrid1
.ClearFields
Set .DataSource = adoPrimaryRS2
.Refresh
End With
End If
End Select
Exit Sub
Err1:
MsgBox Err.Description
End Sub
Private Sub MSHFlexGrid2_SelChange()
iRowStart = MSHFlexGrid2.Row
iRowEnd = MSHFlexGrid2.RowSel
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
' Dim frmX As New frm_KQ_BCSetup_1
Dim iWkid As Integer
Select Case Button.Index
Case 1
GurhanButton1_Click
'strSQL = "select max(wktmid) from wktm"
' Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
' iWkid = adoprimaryRS(0).Value
'
' strSQL = "select * from wktm"
' Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
'
' With frmX
' strSQL2 = "select hourskindid,hourskindname from wktmkind"
' Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
' Set .DataCombo1(0).RowSource = adoPrimaryRS2
' .DataCombo1(0).BoundColumn = "hourskindid"
' .DataCombo1(0).ListField = "hourskindname"
' .DataCombo1(0).Refresh
'
' strSQL2 = "select processid,processdecs from processmethod"
' Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
' Set .DataCombo1(1).RowSource = adoPrimaryRS2
' .DataCombo1(1).BoundColumn = "processid"
' .DataCombo1(1).ListField = "processdecs"
' .DataCombo1(1).Refresh
'
' .Show vbModal
' If .bOK Then
' With adoprimaryRS
' .AddNew
' .Fields("wktmid").Value = iWkid + 1
' .Fields("hourskindid").Value = frmX.DataCombo1(0).BoundText
' .Fields("processid").Value = frmX.DataCombo1(1).BoundText
' .Fields("wktmdecs").Value = frmX.Text1(0).Text
' .Fields("hours").Value = IIf(frmX.Text1(1).Text = "", 0, frmX.Text1(1).Text)
'
'
' .Fields("bgnwktm1").Value = frmX.SETIMER2(0).Text
' .Fields("bgntm1").Value = frmX.SETIMER2(1).Text
' .Fields("endtm1").Value = frmX.SETIMER2(2).Text
' .Fields("endwktm1").Value = frmX.SETIMER2(3).Text
'
' .Fields("bgnwktm1_f").Value = IIf(frmX.Option1(0).Value, -1, IIf(frmX.Option1(2).Value, 1, 0))
' .Fields("bgntm1_f").Value = IIf(frmX.Option1(5).Value, -1, IIf(frmX.Option1(3).Value, 1, 0))
' .Fields("endtm1_f").Value = IIf(frmX.Option1(8).Value, -1, IIf(frmX.Option1(6).Value, 1, 0))
' .Fields("endwktm1_f").Value = IIf(frmX.Option1(11).Value, -1, IIf(frmX.Option1(9).Value, 1, 0))
'
' .Fields("bgnwktm2").Value = frmX.SETIMER2(4).Text
' .Fields("bgntm2").Value = frmX.SETIMER2(5).Text
' .Fields("endtm2").Value = frmX.SETIMER2(6).Text
' .Fields("endwktm2").Value = frmX.SETIMER2(7).Text
'
' .Fields("bgnwktm2_f").Value = IIf(frmX.Option1(12).Value, -1, IIf(frmX.Option1(14).Value, 1, 0))
' .Fields("bgntm2_f").Value = IIf(frmX.Option1(17).Value, -1, IIf(frmX.Option1(15).Value, 1, 0))
' .Fields("endtm2_f").Value = IIf(frmX.Option1(20).Value, -1, IIf(frmX.Option1(18).Value, 1, 0))
' .Fields("endwktm2_f").Value = IIf(frmX.Option1(23).Value, -1, IIf(frmX.Option1(21).Value, 1, 0))
'
'
' .Fields("bgnwktm3").Value = frmX.SETIMER2(8).Text
' .Fields("bgntm3").Value = frmX.SETIMER2(9).Text
' .Fields("endtm3").Value = frmX.SETIMER2(10).Text
' .Fields("endwktm3").Value = frmX.SETIMER2(11).Text
'
' .Fields("bgnwktm3_f").Value = IIf(frmX.Option1(24).Value, -1, IIf(frmX.Option1(26).Value, 1, 0))
' .Fields("bgntm3_f").Value = IIf(frmX.Option1(29).Value, -1, IIf(frmX.Option1(27).Value, 1, 0))
' .Fields("endtm3_f").Value = IIf(frmX.Option1(32).Value, -1, IIf(frmX.Option1(30).Value, 1, 0))
' .Fields("endwktm3_f").Value = IIf(frmX.Option1(35).Value, -1, IIf(frmX.Option1(33).Value, 1, 0))
'
'
' .Fields("bgnwktm4").Value = frmX.SETIMER2(12).Text
' .Fields("bgntm4").Value = frmX.SETIMER2(13).Text
' .Fields("endtm4").Value = frmX.SETIMER2(14).Text
' .Fields("endwktm4").Value = frmX.SETIMER2(15).Text
'
' .Fields("bgnwktm4_f").Value = IIf(frmX.Option1(45).Value, -1, IIf(frmX.Option1(47).Value, 1, 0))
' .Fields("bgntm4_f").Value = IIf(frmX.Option1(44).Value, -1, IIf(frmX.Option1(42).Value, 1, 0))
' .Fields("endtm4_f").Value = IIf(frmX.Option1(41).Value, -1, IIf(frmX.Option1(39).Value, 1, 0))
' .Fields("endwktm4_f").Value = IIf(frmX.Option1(38).Value, -1, IIf(frmX.Option1(36).Value, 1, 0))
'
'
'
' .Update
'Set adoprimaryRS4 = mDB.adoprimaryRS(strSQL4)
' Refresh_MSHFlexGrid
' End With
'
' End If
'
'
' End With
Case 3
Unload Me
End Select
Exit Sub
Err1:
MsgBox Err.Description
End Sub
Private Sub Refresh_MSHFlexGrid()
Dim i As Integer
Dim j As Integer
With MSHFlexGrid1
Set .DataSource = adoprimaryRS4
.ColAlignment(1) = flexAlignLeftCenter
.ColWidth(0) = 0
.ColWidth(1) = 0
' .ColAlignment(2) = flexAlignRightCenter
' .ColAlignment(3) = flexAlignRightCenter
' .ColAlignment(4) = flexAlignRightCenter
' .ColAlignment(5) = flexAlignRightCenter
' .ColAlignment(6) = flexAlignRightCenter
' .ColAlignment(7) = flexAlignRightCenter
' .ColWidth(2) = 1200
' .ColWidth(3) = 1200
' .ColWidth(4) = 1200
' .ColWidth(5) = 1200
' .ColWidth(6) = 1200
' .ColWidth(7) = 1200
For i = 2 To 7
.ColAlignment(i) = flexAlignRightCenter
.ColWidth(i, 0) = 1200
Next i
' .ColWordWrapOptionHeader(0, 1) = 1
' .TextMatrix(0, 1) = "客户名称"
' .Col = 1
' .Row = 0
' MSHFlexGrid1 = "客户名称"
.TextMatrix(0, 2) = "班次名称"
.TextMatrix(0, 3) = "标准工时"
.TextMatrix(0, 4) = "考勤开始1"
.TextMatrix(0, 5) = "上班时间1"
.TextMatrix(0, 6) = "下班时间1"
.TextMatrix(0, 7) = "考勤结束1"
.TextMatrix(0, 8) = "考勤开始2"
.TextMatrix(0, 9) = "上班时间2"
.TextMatrix(0, 10) = "下班时间2"
.TextMatrix(0, 11) = "考勤结束2"
.TextMatrix(0, 12) = "考勤开始3"
.TextMatrix(0, 13) = "上班时间3"
.TextMatrix(0, 14) = "下班时间3"
.TextMatrix(0, 15) = "考勤结束3"
.TextMatrix(0, 16) = "考勤开始4"
.TextMatrix(0, 17) = "上班时间4"
.TextMatrix(0, 18) = "下班时间4"
.TextMatrix(0, 19) = "考勤结束4"
.Refresh
For i = 4 To 19 '''' .Cols - 1
For j = 1 To .Rows - 1
.Col = i
.Row = j
.Text = Format(.Text, "hh:mm")
' If Val(.TextMatrix(j, i)) < 0 Then
' .CellForeColor = vbRed
' End If
Next j
Next i
' .Refresh
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -