📄 dataenvironment1.dsr
字号:
VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1
ClientHeight = 4785
ClientLeft = 0
ClientTop = 0
ClientWidth = 5655
_ExtentX = 9975
_ExtentY = 8440
FolderFlags = 1
TypeLibGuid = "{C7CC80A0-4689-4756-AC9B-6E9CB9C7676D}"
TypeInfoGuid = "{5BC02537-FF00-4C5A-A3B5-0409DB431CEF}"
TypeInfoCookie = 0
Version = 4
NumConnections = 1
BeginProperty Connection1
ConnectionName = "Connection1"
ConnDispId = 1001
SourceOfData = 3
ConnectionSource= "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Desktop\射频卡考勤软件\公司员工考勤库.mdb"
Expanded = -1 'True
QuoteChar = 96
SeparatorChar = 46
EndProperty
NumRecordsets = 3
BeginProperty Recordset1
CommandName = "Command1"
CommDispId = 1002
RsDispId = 1014
CommandText = "SELECT 姓名, 员工_ID, 考勤时间, 日期,备注 FROM 考勤记录表_1 WHERE 日期 BETWEEN ? AND ? ORDER BY 日期, 考勤时间"
ActiveConnectionName= "Connection1"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "姓名"
Caption = "姓名"
EndProperty
BeginProperty Field2
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "员工_ID"
Caption = "员工_ID"
EndProperty
BeginProperty Field3
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "考勤时间"
Caption = "考勤时间"
EndProperty
BeginProperty Field4
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "日期"
Caption = "日期"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 2
BeginProperty P1
RealName = "Param1"
Direction = 1
Precision = 0
Scale = 0
Size = 0
DataType = 12
HostType = 8
Required = -1 'True
EndProperty
BeginProperty P2
RealName = "Param2"
Direction = 1
Precision = 0
Scale = 0
Size = 0
DataType = 12
HostType = 8
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset2
CommandName = "Command2"
CommDispId = 1006
RsDispId = 1015
CommandText = "SELECT 姓名, 员工_ID, 考勤时间, 日期,备注 FROM 考勤记录表_2 WHERE 日期 BETWEEN ? AND ? ORDER BY 日期, 考勤时间"
ActiveConnectionName= "Connection1"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "姓名"
Caption = "姓名"
EndProperty
BeginProperty Field2
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "员工_ID"
Caption = "员工_ID"
EndProperty
BeginProperty Field3
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "考勤时间"
Caption = "考勤时间"
EndProperty
BeginProperty Field4
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "日期"
Caption = "日期"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 2
BeginProperty P1
RealName = "Param1"
Direction = 1
Precision = 0
Scale = 0
Size = 0
DataType = 12
HostType = 8
Required = -1 'True
EndProperty
BeginProperty P2
RealName = "Param2"
Direction = 1
Precision = 0
Scale = 0
Size = 0
DataType = 12
HostType = 8
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset3
CommandName = "Command3"
CommDispId = 1016
RsDispId = 1020
CommandText = "考勤记录月表"
ActiveConnectionName= "Connection1"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 33
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "姓名"
Caption = "姓名"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "1"
Caption = "1"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "2"
Caption = "2"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "3"
Caption = "3"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "4"
Caption = "4"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "5"
Caption = "5"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "6"
Caption = "6"
EndProperty
BeginProperty Field9
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "7"
Caption = "7"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "8"
Caption = "8"
EndProperty
BeginProperty Field11
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "9"
Caption = "9"
EndProperty
BeginProperty Field12
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "10"
Caption = "10"
EndProperty
BeginProperty Field13
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "11"
Caption = "11"
EndProperty
BeginProperty Field14
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "12"
Caption = "12"
EndProperty
BeginProperty Field15
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "13"
Caption = "13"
EndProperty
BeginProperty Field16
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "14"
Caption = "14"
EndProperty
BeginProperty Field17
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "15"
Caption = "15"
EndProperty
BeginProperty Field18
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "16"
Caption = "16"
EndProperty
BeginProperty Field19
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "17"
Caption = "17"
EndProperty
BeginProperty Field20
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "18"
Caption = "18"
EndProperty
BeginProperty Field21
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "19"
Caption = "19"
EndProperty
BeginProperty Field22
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "20"
Caption = "20"
EndProperty
BeginProperty Field23
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "21"
Caption = "21"
EndProperty
BeginProperty Field24
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "22"
Caption = "22"
EndProperty
BeginProperty Field25
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "23"
Caption = "23"
EndProperty
BeginProperty Field26
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "24"
Caption = "24"
EndProperty
BeginProperty Field27
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "25"
Caption = "25"
EndProperty
BeginProperty Field28
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "26"
Caption = "26"
EndProperty
BeginProperty Field29
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "27"
Caption = "27"
EndProperty
BeginProperty Field30
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "28"
Caption = "28"
EndProperty
BeginProperty Field31
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "29"
Caption = "29"
EndProperty
BeginProperty Field32
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "30"
Caption = "30"
EndProperty
BeginProperty Field33
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "31"
Caption = "31"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataEnvironment_Initialize()
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\公司员工考勤库.mdb;Persist Security Info=False"
'DataEnvironment1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\公司员工考勤库.mdb;Persist Security Info=False"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -