📄 frmcheckkq.frm
字号:
VERSION 5.00
Begin VB.Form frmCheckKQ
Caption = "查询员工考勤信息"
ClientHeight = 3465
ClientLeft = 60
ClientTop = 345
ClientWidth = 5490
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 3465
ScaleWidth = 5490
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox ASID
Height = 300
Left = 2160
TabIndex = 15
Top = 360
Width = 2175
End
Begin VB.CheckBox Timechecked
Caption = "时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 14
Top = 840
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3120
TabIndex = 13
Top = 2880
Width = 1300
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 960
TabIndex = 12
Top = 2880
Width = 1300
End
Begin VB.Frame Frame1
Height = 1335
Left = 240
TabIndex = 1
Top = 1320
Width = 5055
Begin VB.ComboBox toMonth
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2880
TabIndex = 10
Top = 840
Width = 1215
End
Begin VB.ComboBox toYear
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 840
TabIndex = 8
Top = 840
Width = 1215
End
Begin VB.ComboBox FromMonth
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2880
TabIndex = 5
Top = 360
Width = 1215
End
Begin VB.ComboBox fromYear
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 840
TabIndex = 3
Top = 360
Width = 1215
End
Begin VB.Label Label6
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
TabIndex = 11
Top = 840
Width = 495
End
Begin VB.Label Label5
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 9
Top = 840
Width = 375
End
Begin VB.Label Label4
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 7
Top = 840
Width = 375
End
Begin VB.Label Label3
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
TabIndex = 6
Top = 360
Width = 495
End
Begin VB.Label Label2
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 4
Top = 360
Width = 375
End
Begin VB.Label Label1
Caption = "从"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 2
Top = 360
Width = 375
End
End
Begin VB.CheckBox IDchecked
Caption = "员工编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 0
Top = 240
Width = 1335
End
End
Attribute VB_Name = "frmCheckKQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim firstID As String
Private querystring As String '保存查询出勤SQL语句
Private queryleave As String '保存查询请假SQL语句
Private queryovertime As String '保存查询加班SQL 语句
Private queryerrand As String '保存查询出差SQL语句
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
Private Sub setQuerystring()
On Error Resume Next
Dim fromtime As String
Dim totime As String
fromtime = Me.FromYear & "-" & Me.FromMonth & "-1"
totime = Me.ToYear & "-" & Me.ToMonth & "-1"
MsgBox fromtime
MsgBox totime
If Me.IDchecked.Value = vbChecked And Me.Timechecked.Value = vbChecked Then
querystring = "select * from AttendanceInfo where AStuffID='" & Me.ASID & "'"
querystring = querystring & " and ADate between #" & fromtime & "# and #" & totime & "#"
querystring = querystring & " order by ID"
queryleave = "select * from LeaveInfo where LStuffID='" & Me.ASID & "'"
queryleave = queryleave & " and LFromDay between #" & fromtime & "# and #" & totime & "#"
queryleave = queryleave & " order by LID"
queryovertime = "select * from OvertimeInfo where OStuffID='" & Me.ASID & "'"
queryovertime = queryovertime & " and OFromDay between #" & fromtime & "# and #" & totime & "#"
queryovertime = queryovertime & " order by OID"
queryerrand = "select * from ErrandInfo where EStuffID='" & Me.ASID & "'"
queryerrand = queryerrand & " and EFromday between #" & fromtime & "# and #" & totime & "#"
queryerrand = queryerrand & " order by EID"
ElseIf Me.Timechecked.Value = vbChecked Then
querystring = "select * from AttendanceInfo where ADate between #" & fromtime
querystring = querystring & "# and #" & totime & "# order by AStuffID"
queryleave = "select * from LeaveInfo where LFromDay between #" & fromtime
queryleave = queryleave & "# and #" & totime & "# order by LStuffID"
queryovertime = "select * from OvertimeInfo where OFromDay between #" & fromtime
queryovertime = queryovertime & "# and #" & totime & "# order by OStuffID"
queryerrand = "select * from ErrandInfo where EFromday between #" & fromtime
queryerrand = queryerrand & "# and #" & totime & "# order by EStuffID"
ElseIf Me.IDchecked.Value = vbChecked Then
querystring = "select * from AttendanceInfo where AStuffID='" & Me.ASID & "'"
querystring = querystring & " order by ID"
queryleave = "select * from LeaveInfo where LStuffID='" & Me.ASID & "'"
queryleave = queryleave & " order by LID"
queryovertime = "select * from OvertimeInfo where OStuffID='" & Me.ASID & "'"
queryovertime = queryovertime & " order by OID"
queryerrand = "select * from ErrandInfo where EStuffID='" & Me.ASID & "'"
queryerrand = queryerrand & " order by EID"
Else
querystring = "select * from AttendanceInfo order by ID"
queryleave = "select * from LeaveInfo order by LID"
queryovertime = "select * from OvertimeInfo order by OID"
queryerrand = "select * from ErrandInfo order by EID"
End If
End Sub
Private Sub cmdOK_Click()
'If Me.IDchecked.Value = vbChecked And Me.StuffID = "" Then
If Me.IDchecked.Value = vbChecked And Me.ASID = "" Then
MsgBox "请输入员工编号！", vbOKOnly + vbExclamation, "警告！"
Me.ASID.SetFocus
End If
Call setQuerystring
Call frmkqcheckresult.ATopic
Call frmkqcheckresult.ShowAResult(querystring)
Call frmkqcheckresult.LTopic
Call frmkqcheckresult.ShowLResult(queryleave)
Call frmkqcheckresult.OTopic
Call frmkqcheckresult.ShowOResult(queryovertime)
Call frmkqcheckresult.ETopic
Call frmkqcheckresult.ShowEReslut(queryerrand)
frmkqcheckresult.Show
frmkqcheckresult.ZOrder 0
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "select distinct ADate from AttendanceInfo"
Set rs = TransactSQL(SQL)
If Not rs.EOF Then
rs.MoveFirst
While Not rs.EOF
If Not IsNull(rs.Fields(0)) Then '设置年
Me.FromYear.AddItem Left(rs(0), 4)
Me.ToYear.AddItem Left(rs(0), 4)
End If
rs.MoveNext
Wend
rs.Close
Me.FromYear.ListIndex = 0
Me.ToYear.ListIndex = 0
End If
Dim sql1 As String
Dim rs1 As New ADODB.Recordset
'If flag = 1 Then
sql1 = "select SID from StuffInfo order by SID"
Set rs1 = TransactSQL(sql1)
If rs1.EOF = False Then
rs1.MoveFirst
firstID = rs1(0)
While Not rs1.EOF
Me.ASID.AddItem rs1(0) '初始化员工编号
rs1.MoveNext
Wend
rs1.Close
Else
MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
End If
Me.ASID.ListIndex = 0
For i = 1 To 12 '设置月
Me.FromMonth.AddItem i
Me.ToMonth.AddItem i
Next i
Me.FromMonth.ListIndex = 0
Me.ToMonth.ListIndex = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -