📄 frmchginoutinfo2344.frm
字号:
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 270
Left = 1440
TabIndex = 19
Top = 240
Width = 1335
End
Begin VB.Label Label8
Caption = "特殊加班天数："
Height = 255
Left = 3000
TabIndex = 22
Top = 240
Width = 1335
End
Begin VB.Label Label7
Caption = "正常加班天数："
Height = 255
Left = 120
TabIndex = 21
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame5
Caption = "员工出差信息"
Height = 855
Left = 240
TabIndex = 13
Top = 3480
Width = 6135
Begin VB.TextBox EDays
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 270
Left = 4200
TabIndex = 15
Top = 240
Width = 1575
End
Begin VB.TextBox EPurpose
Height = 270
Left = 1320
TabIndex = 14
Top = 360
Width = 1455
End
Begin VB.Label Label10
Caption = "出差天数："
Height = 255
Left = 3000
TabIndex = 17
Top = 360
Width = 975
End
Begin VB.Label Label9
Caption = "出差目的地："
Height = 255
Left = 240
TabIndex = 16
Top = 360
Width = 1095
End
End
Begin VB.Frame frame
Caption = "出入信息"
Height = 855
Left = 240
TabIndex = 8
Top = 600
Width = 6015
Begin VB.OptionButton OutFlag
Caption = "下班时间"
Height = 255
Left = 2880
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.OptionButton InFlag
Caption = "上班时间"
Height = 255
Left = 120
TabIndex = 9
Top = 360
Width = 1095
End
Begin MSComCtl2.DTPicker dtpBT
Height = 375
Left = 1320
TabIndex = 11
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
Format = 48431106
CurrentDate = 38074
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 4080
TabIndex = 12
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
Format = 48431106
CurrentDate = 38074
End
End
Begin MSComCtl2.DTPicker dtpET
Height = 270
Left = 2280
TabIndex = 28
Top = 240
Width = 3135
_ExtentX = 5530
_ExtentY = 476
_Version = 393216
Format = 48431105
CurrentDate = 38074
End
Begin VB.Label Label4
Caption = "当前日期："
Height = 255
Left = 840
TabIndex = 29
Top = 240
Width = 1215
End
End
Begin MSForms.CommandButton cmdDel
Height = 375
Left = 2040
TabIndex = 6
Top = 5640
Width = 1095
Caption = "删除"
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdClear
Height = 375
Left = 3480
TabIndex = 5
Top = 5640
Width = 1095
Caption = "清空"
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdExit
Height = 375
Left = 5040
TabIndex = 4
Top = 5640
Width = 1095
Caption = "返回"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdOK
Height = 375
Index = 0
Left = 600
TabIndex = 3
Top = 5640
Width = 1095
Caption = "修改"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmChgInOutInfo2344.frx":0000
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin VB.CommandButton Command1
Caption = "显示全部员工考勤信息"
Height = 375
Left = 120
TabIndex = 0
Top = 360
Width = 3375
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 7695
Left = 120
TabIndex = 1
Top = 960
Width = 3735
_ExtentX = 6588
_ExtentY = 13573
_Version = 393216
SelectionMode = 1
AllowUserResizing= 1
End
End
Attribute VB_Name = "frmChg222222222222"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdQuery_Click()
Dim sql As String
Dim sqlHead As String
Dim sqlAdd As String
Dim sqlOrder As String
sqlHead = "select * from t_br where id=id "
'id号
If chkID = 1 Then
If txtID.Text = "" Or txtIDTo.Text = "" Then
MsgBox "不能为空"
txtID.SetFocus
Exit Sub
End If
sqlAdd = sqlAdd & " and id>" & CInt(Trim(txtID.Text)) & " and id<=" & CInt(Trim(txtIDTo.Text))
End If
'用户名
If chkName = 1 Then
'要不要完全匹配
If chkPP = 1 Then
sqlAdd = sqlAdd & " and 姓名='" & Trim(txtName) & "'"
Else
sqlAdd = sqlAdd & " and 用户 like '%" & Trim(txtName) & "%'"
End If
End If
If chkTime = 1 Then
sqlAdd = sqlAdd & " and 上班时间>=#" & dtpFrom & "# and 登录时间< #" & dtpTo & "#"
End If
If optDesc = True Then
sqlOrder = " order by id desc"
Else
sqlOrder = " order by id asc"
End If
sql = sqlHead & sqlAdd & sqlOrder
Call showData(sql, Grid1)
End Sub
Private Sub topic_Click()
End Sub
Private Sub Grid1_Click()
MsgBox Grid1.TextMatrix(2, 1)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -