📄 dataenvironment1.dsr
字号:
BeginProperty Field33
Precision = 0
Size = 6
Scale = 0
Type = 202
Name = "G_bsw"
Caption = "G_bsw"
EndProperty
BeginProperty Field34
Precision = 0
Size = 24
Scale = 0
Type = 202
Name = "G_sxzy"
Caption = "G_sxzy"
EndProperty
BeginProperty Field35
Precision = 0
Size = 10
Scale = 0
Type = 202
Name = "G_zzzz"
Caption = "G_zzzz"
EndProperty
BeginProperty Field36
Precision = 0
Size = 12
Scale = 0
Type = 202
Name = "xueliname"
Caption = "xueliname"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset9
CommandName = "Photo"
CommDispId = 1050
RsDispId = 1071
CommandText = $"DataEnvironment1.dsx":01B4
ActiveConnectionName= "Connection1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 35
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 10
Scale = 0
Type = 202
Name = "Dept"
Caption = "Dept"
EndProperty
BeginProperty Field3
Precision = 0
Size = 8
Scale = 0
Type = 202
Name = "Code"
Caption = "Code"
EndProperty
BeginProperty Field4
Precision = 0
Size = 12
Scale = 0
Type = 202
Name = "CardNo"
Caption = "CardNo"
EndProperty
BeginProperty Field5
Precision = 0
Size = 8
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field6
Precision = 0
Size = 18
Scale = 0
Type = 202
Name = "Sfz"
Caption = "Sfz"
EndProperty
BeginProperty Field7
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "BornDate"
Caption = "BornDate"
EndProperty
BeginProperty Field8
Precision = 0
Size = 2
Scale = 0
Type = 11
Name = "Sex"
Caption = "Sex"
EndProperty
BeginProperty Field9
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "PyDate"
Caption = "PyDate"
EndProperty
BeginProperty Field10
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "SyMonths"
Caption = "SyMonths"
EndProperty
BeginProperty Field11
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "ZzDate"
Caption = "ZzDate"
EndProperty
BeginProperty Field12
Precision = 0
Size = 9
Scale = 0
Type = 202
Name = "RoomBed"
Caption = "RoomBed"
EndProperty
BeginProperty Field13
Precision = 0
Size = 2
Scale = 0
Type = 11
Name = "IfDaKa"
Caption = "IfDaKa"
EndProperty
BeginProperty Field14
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "State"
Caption = "State"
EndProperty
BeginProperty Field15
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "LzDate"
Caption = "LzDate"
EndProperty
BeginProperty Field16
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "LzCause"
Caption = "LzCause"
EndProperty
BeginProperty Field17
Precision = 0
Size = 60
Scale = 0
Type = 202
Name = "Memo"
Caption = "Memo"
EndProperty
BeginProperty Field18
Precision = 0
Size = 1073741823
Scale = 0
Type = 205
Name = "Photo"
Caption = "Photo"
EndProperty
BeginProperty Field19
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "ZhiJi"
Caption = "ZhiJi"
EndProperty
BeginProperty Field20
Precision = 0
Size = 3
Scale = 0
Type = 202
Name = "ZhiWu"
Caption = "ZhiWu"
EndProperty
BeginProperty Field21
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "XueLi"
Caption = "XueLi"
EndProperty
BeginProperty Field22
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "HunYin"
Caption = "HunYin"
EndProperty
BeginProperty Field23
Precision = 0
Size = 6
Scale = 0
Type = 202
Name = "JiGuan"
Caption = "JiGuan"
EndProperty
BeginProperty Field24
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "Nation"
Caption = "Nation"
EndProperty
BeginProperty Field25
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "Jxfs"
Caption = "Jxfs"
EndProperty
BeginProperty Field26
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "LzTc"
Caption = "LzTc"
EndProperty
BeginProperty Field27
Precision = 0
Size = 5
Scale = 0
Type = 202
Name = "GongZhong"
Caption = "GongZhong"
EndProperty
BeginProperty Field28
Precision = 0
Size = 4
Scale = 0
Type = 202
Name = "DeBz"
Caption = "DeBz"
EndProperty
BeginProperty Field29
Precision = 0
Size = 10
Scale = 0
Type = 202
Name = "G_gwh"
Caption = "G_gwh"
EndProperty
BeginProperty Field30
Precision = 0
Size = 15
Scale = 0
Type = 202
Name = "G_lxdh"
Caption = "G_lxdh"
EndProperty
BeginProperty Field31
Precision = 0
Size = 10
Scale = 0
Type = 202
Name = "G_yhzh"
Caption = "G_yhzh"
EndProperty
BeginProperty Field32
Precision = 0
Size = 6
Scale = 0
Type = 202
Name = "G_yhxh"
Caption = "G_yhxh"
EndProperty
BeginProperty Field33
Precision = 0
Size = 10
Scale = 0
Type = 202
Name = "G_cl"
Caption = "G_cl"
EndProperty
BeginProperty Field34
Precision = 0
Size = 2
Scale = 0
Type = 11
Name = "Cy"
Caption = "Cy"
EndProperty
BeginProperty Field35
Precision = 0
Size = 40
Scale = 0
Type = 202
Name = "EName"
Caption = "EName"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset10
CommandName = "Xueli"
CommDispId = 1058
RsDispId = 1069
CommandText = $"DataEnvironment1.dsx":01CD
ActiveConnectionName= "Connection1"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 2
BeginProperty Field1
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "Code"
Caption = "Code"
EndProperty
BeginProperty Field2
Precision = 0
Size = 12
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset11
CommandName = "XueLiEmp"
CommDispId = 1064
RsDispId = 1073
CommandText = $"DataEnvironment1.dsx":01F5
ActiveConnectionName= "Connection1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 3
BeginProperty Field1
Precision = 0
Size = 2
Scale = 0
Type = 202
Name = "Code"
Caption = "Code"
EndProperty
BeginProperty Field2
Precision = 0
Size = 12
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field3
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "Num"
Caption = "Num"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub rsOrders_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -