📄 frmokqresult.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmOKQResult
Caption = "员工其他考勤信息列表"
ClientHeight = 9045
ClientLeft = 60
ClientTop = 345
ClientWidth = 13740
ControlBox = 0 'False
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9045
ScaleWidth = 13740
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab
Height = 8295
Left = 1080
TabIndex = 1
Top = 600
Width = 12000
_ExtentX = 21167
_ExtentY = 14631
_Version = 393216
Style = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "员工请假信息列表"
TabPicture(0) = "frmOKQResult.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "LRecordList"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Command13"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Command15"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Command16"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Command17"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Command18"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).ControlCount= 6
TabCaption(1) = "员工加班信息列表"
TabPicture(1) = "frmOKQResult.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command12"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Command11"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Command10"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Command9"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Command7"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "ORecordList"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
TabCaption(2) = "员工出差信息列表"
TabPicture(2) = "frmOKQResult.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command6"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Command4"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Command3"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Command2"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Command1"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "ERecordList"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).ControlCount= 6
Begin VB.CommandButton Command18
Caption = "修改请假信息"
Height = 380
Left = 1800
TabIndex = 19
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command17
Caption = "添加请假信息"
Height = 380
Left = 3240
TabIndex = 18
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command16
Caption = "删除请假信息"
Height = 380
Left = 4680
TabIndex = 17
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command15
Caption = "查询出勤信息"
Height = 380
Left = 6120
TabIndex = 16
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command13
Caption = "退出"
Height = 380
Left = 9000
TabIndex = 15
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command12
Caption = "修改加班信息"
Height = 380
Left = -73200
TabIndex = 14
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command11
Caption = "添加加班信息"
Height = 380
Left = -71760
TabIndex = 13
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command10
Caption = "删除加班信息"
Height = 380
Left = -70320
TabIndex = 12
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command9
Caption = "查询加班信息"
Height = 380
Left = -68880
TabIndex = 11
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command7
Caption = "退出"
Height = 380
Left = -66000
TabIndex = 10
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command6
Caption = "退出"
Height = 380
Left = -66000
TabIndex = 9
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command4
Caption = "查询出勤信息"
Height = 380
Left = -68880
TabIndex = 8
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command3
Caption = "删除出差信息"
Height = 380
Left = -70320
TabIndex = 7
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command2
Caption = "添加出差信息"
Height = 380
Left = -71760
TabIndex = 6
Top = 7800
Width = 1200
End
Begin VB.CommandButton Command1
Caption = "修改出差信息"
Height = 380
Left = -73200
TabIndex = 5
Top = 7800
Width = 1200
End
Begin MSFlexGridLib.MSFlexGrid ERecordList
Height = 7200
Left = -74520
TabIndex = 4
Top = 480
Width = 12000
_ExtentX = 21167
_ExtentY = 12700
_Version = 393216
Cols = 5
FixedCols = 0
FillStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid ORecordList
Height = 7200
Left = -74520
TabIndex = 3
Top = 480
Width = 12000
_ExtentX = 21167
_ExtentY = 12700
_Version = 393216
Cols = 5
FixedCols = 0
FillStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid LRecordList
Height = 7200
Left = 480
TabIndex = 2
Top = 480
Width = 12000
_ExtentX = 21167
_ExtentY = 12700
_Version = 393216
Cols = 5
FixedCols = 0
FillStyle = 1
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
End
End
Begin VB.Label Label1
Caption = "其他考勤信息列表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 6360
TabIndex = 0
Top = 120
Width = 2055
End
End
Attribute VB_Name = "frmOKQResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Sub LeaveTopic()
On Error Resume Next
Dim i As Integer
With LRecordList '设置请假信息列表表头
.TextMatrix(0, 0) = "记录编号"
.TextMatrix(0, 1) = "员工姓名"
.TextMatrix(0, 2) = "病假天数"
.TextMatrix(0, 3) = "事假天数"
.TextMatrix(0, 4) = "开始时间"
For i = 0 To 4 '设置对齐方式
.ColAlignment(i) = 4
Next i
For i = 0 To 4 '设置列宽
.ColWidth(i) = 1500
Next i
End With
End Sub
Public Sub ShowLRecord(query As String) '显示请假信息
On Error Resume Next
Dim rsLeave As New ADODB.Recordset
Set rsLeave = TransactSQL(query)
If rsLeave.EOF = False Then
With LRecordList
.Rows = 1
While Not rsLeave.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rsLeave(0)
.TextMatrix(.Rows - 1, 1) = rsLeave(1)
.TextMatrix(.Rows - 1, 2) = rsLeave(2)
.TextMatrix(.Rows - 1, 3) = rsLeave(3)
.TextMatrix(.Rows - 1, 4) = rsLeave(4)
rsLeave.MoveNext
Wend
rsLeave.Close
End With
End If
End Sub
Public Sub OverTimeTopic()
On Error Resume Next
Dim i As Integer
With ORecordList '设置加班信息列表表头
.TextMatrix(0, 0) = "记录编号"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -