📄 frmprint.frm
字号:
Left = 720
Top = 3000
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DateGRL
Bindings = "frmPrint.frx":0442
Height = 3495
Left = 80
TabIndex = 4
Top = 2400
Width = 10845
_ExtentX = 19129
_ExtentY = 6165
_Version = 393216
AllowUpdate = 0 'False
BackColor = 12648447
ForeColor = 16711680
HeadLines = 1
RowHeight = 16
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "查 询 结 果"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
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
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Frame fraXuanXiang
BackColor = &H00FF8080&
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 360
TabIndex = 0
Top = 480
Width = 2415
Begin VB.OptionButton OptBaoBiao
BackColor = &H00FF8080&
Caption = "月 度 报 表"
Height = 255
Left = 480
TabIndex = 3
Top = 240
Width = 1695
End
Begin VB.OptionButton OptKaoQin
BackColor = &H00FF8080&
Caption = "考勤信息查询"
Height = 255
Left = 480
TabIndex = 2
Top = 600
Width = 1815
End
Begin VB.OptionButton OptSource
BackColor = &H00FF8080&
Caption = "原始记录查询"
Height = 255
Left = 480
TabIndex = 1
Top = 960
Width = 1815
End
Begin VB.Label Label2
BackColor = &H00FF8080&
Caption = "查询内容"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 960
Left = 120
TabIndex = 21
Top = 240
Width = 225
End
End
Begin VB.CommandButton cmdMOdify
Caption = " 手动修改"
Height = 375
Left = 9480
TabIndex = 36
Top = 1920
Width = 1455
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "现在时间"
Height = 240
Left = 8520
TabIndex = 29
Top = 240
Width = 960
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "今天日期"
Height = 240
Left = 0
TabIndex = 27
Top = 240
Width = 960
End
Begin VB.Label Label14
BackColor = &H00800000&
Height = 3495
Left = 10575
TabIndex = 26
Top = 2355
Width = 375
End
Begin VB.Label Label13
BackColor = &H00800000&
Height = 495
Left = 105
TabIndex = 25
Top = 2355
Width = 10815
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "考 勤 信 息 查 询 打 印"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2760
TabIndex = 8
Top = 0
Width = 5415
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sCardID As String
Dim ISID As String
Private Sub chkChu_Click()
If chkChu.Value = 1 Then
cmdChu.Enabled = True
Else
cmdChu.Enabled = False
End If
End Sub
Private Sub chkKaoQinDate_Click()
If chkKaoQinDate.Value = 1 Then
DTKaoQinStart.Enabled = True
DTKaoQinEnd.Enabled = True
Else
DTKaoQinStart.Enabled = False
DTKaoQinEnd.Enabled = False
End If
End Sub
Private Sub chkKaoQinName_Click()
If chkKaoQinName.Value = 1 Then
cobKaoQinName.Enabled = True
cobKaoQinName.BackColor = &HFFFFC0
Else
cobKaoQinName.Enabled = False
cobKaoQinName.BackColor = &H80000004
End If
End Sub
Private Sub chkKaoQinType_Click()
If chkKaoQinType.Value = 1 Then
cobKaoQinType.Enabled = True
cobKaoQinType.BackColor = &HFFFFC0
Else
cobKaoQinType.Enabled = False
cobKaoQinType.BackColor = &H80000004
End If
End Sub
Private Sub ChkModify_Click()
If ChkModify.Value = 1 And OptKaoQin.Value = True And lNum = 2 Then
cmdModify.Enabled = True
Else
Frame2.Visible = False
cmdModify.Enabled = False
End If
End Sub
Private Sub cmdAdd_Click()
Dim SS As String
Set adoRs = adoCon.Execute("select CardID from Worker where Name='" & Trim(txtmoName.Text) & "'")
If adoRs.EOF Then
MsgBox "姓名不存在，请核实！", vbOKOnly + vbExclamation, "系统提示"
Exit Sub
End If
SS = Trim(txtMoType.Text)
If SS = "" Then
ElseIf SS <> "请假" Then
ElseIf SS <> "请假半天" Then
ElseIf SS <> "加班" Then
ElseIf SS <> "旷勤" Then
ElseIf SS <> "节日加班" Then
ElseIf SS <> "旷勤半天" Then
ElseIf SS <> "迟到" Then
ElseIf SS <> "早退" Then
ElseIf SS <> "出差" Then
MsgBox "类别填写有误，请核实！", vbOKOnly + vbExclamation, "系统提示"
Exit Sub
End If
adoCon.Execute ("insert into KaoQin values('" & Trim(adoRs!CardID) & "','" & Trim(DTMo.Value) & "','0','0','0','" & Trim(SS) & "')")
MsgBox "添加成功！", vbOKOnly, "系统提示"
cmdFind_Click
End Sub
Private Sub cmdCancel_Click()
Frame2.Enabled = False
Frame2.Visible = False
ChkModify.Value = 0
cmdModify.Visible = False
End Sub
Private Sub cmdchu_Click()
If ChuShi = True Then
Call setChushi
MsgBox "初始化完毕！"
Else
MsgBox "已经初始过了！", vbOKOnly, "系统提示"
ChuShi = False
End If
ChuShi = False
End Sub
Private Sub cmdDel_Click()
If ISID <> "" Then
If MsgBox("是否要删除此条记录？", vbYesNo, "删除提示") = vbYes Then
adoCon.Execute ("delete kaoqin where kaoqinID='" & Trim(ISID) & "'")
MsgBox "删除成功", vbOKOnly, "系统提示"
cmdFind_Click
End If
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
Dim SQL, SqlPrint, Whstr, SName, sType, PaiXu, sDate As String
Dim adoCard, adoTemp As New ADODB.Recordset
Dim StarDay, EndDay As Date
Dim Chi, Zao, Jia, JieRi, Qing, QingBan, Kuang, KuangBan, Chu As String
Dim J, K As Integer
On Error GoTo ErrMsg
If OptBaoBiao.Value = True Then
If DTKaoQinStart.Value >= DTKaoQinEnd.Value Then
MsgBox "统计时间有误，请核实！", vbOKOnly + vbExclamation, "系统提示"
Exit Sub
End If
adoCon.Execute ("delete from count_table")
J = DTKaoQinEnd.Value - DTKaoQinStart.Value + 1
Set adoRs = adoCon.Execute("select count(distinct Starday) from GongXiu where StarDay between '" & Trim(DTKaoQinStart.Value) & "'and '" & Trim(DTKaoQinEnd.Value) & "'")
K = adoRs(0)
adoCon.Execute ("delete KaoQin where Date in (select StarDay from GongXiu) and Type <>'节日加班'")
adoCon.Execute ("update KaoQin set Type='加班' where Date not in (select StarDay from GongXiu) and Type='节日加班'")
Set adoCard = adoCon.Execute("exec Card_proc")
Do While Not adoCard.EOF
Chi = "0"
Zao = "0"
Jia = "0"
JieRi = "0"
Qing = "0"
QingBan = "0"
Kuang = "0"
KuangBan = "0"
Chu = "0"
Set adoRs = adoCon.Execute("exec count_proc '" & Trim(adoCard!CardID) & "','" & Trim(DTKaoQinStart.Value) & "','" & Trim(DTKaoQinEnd.Value) & "'")
Do While Not adoRs.EOF
Select Case Trim(adoRs!Type)
Case "迟到"
Chi = Trim(adoRs!countstr)
Case "加班"
Jia = Trim(adoRs!countstr)
Case "节日加班"
JieRi = Trim(adoRs!countstr)
Case "旷勤"
Kuang = Trim(adoRs!countstr)
Case "旷勤半天"
KuangBan = Trim(adoRs!countstr)
Case "早退"
Zao = Trim(adoRs!countstr)
Case "请假"
Qing = Trim(adoRs!countstr)
Case "请假半天"
QingBan = Trim(adoRs!countstr)
Case "出差"
Chu = Trim(adoRs!countstr)
End Select
adoRs.MoveNext
Loop
SSTR = "exec insertcount_proc '"
SSTR = SSTR + Trim(adoCard!Name) + "','"
SSTR = SSTR + Trim(Chi) + "','" + Trim(Zao) + "','"
SSTR = SSTR + Trim(Jia) + "','" + Trim(JieRi) + "','"
SSTR = SSTR + Trim(Qing) + "','" + Trim(QingBan) + "','"
SSTR = SSTR + Trim(Kuang) + "','" + Trim(KuangBan) + "','"
SSTR = SSTR + Trim(Chu) + "','" + Trim(DTKaoQinStart.Value) + "','"
SSTR = SSTR + Trim(DTKaoQinEnd.Value) + "','" + CStr(J) + "','"
SSTR = SSTR + CStr(K) + "','" + CStr(J - K) + "'"
adoCon.Execute (SSTR)
adoCard.MoveNext
Loop
With AdoFind
.ConnectionString = RtnStr
.RecordSource = "exec showcount_proc"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -