?? 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 + -