📄 dataenvironment1.dsr
字号:
VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1
ClientHeight = 6240
ClientLeft = 0
ClientTop = 0
ClientWidth = 5895
_ExtentX = 10398
_ExtentY = 11007
FolderFlags = 5
TypeLibGuid = "{75BE6133-174E-48BD-BBDC-BC9ABE8DDC54}"
TypeInfoGuid = "{645BAD7A-52A5-41D2-891C-26BDE9A08057}"
TypeInfoCookie = 0
Version = 4
NumConnections = 1
BeginProperty Connection1
ConnectionName = "mysampledb"
ConnDispId = 1001
SourceOfData = 3
ConnectionSource= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\zfy\VB\pss\pss.mdb;Persist Security Info=False"
Expanded = -1 'True
QuoteChar = 96
SeparatorChar = 46
EndProperty
NumRecordsets = 5
BeginProperty Recordset1
CommandName = "client_info"
CommDispId = 1002
RsDispId = 1007
CommandText = "client_info"
ActiveConnectionName= "mysampledb"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "cid"
Caption = "cid"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "cname"
Caption = "cname"
EndProperty
BeginProperty Field3
Precision = 0
Size = 15
Scale = 0
Type = 202
Name = "cphone"
Caption = "cphone"
EndProperty
BeginProperty Field4
Precision = 0
Size = 255
Scale = 0
Type = 202
Name = "caddress"
Caption = "caddress"
EndProperty
BeginProperty Field5
Precision = 0
Size = 6
Scale = 0
Type = 202
Name = "ccode"
Caption = "ccode"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset2
CommandName = "paper_info"
CommDispId = 1008
RsDispId = 1012
CommandText = "paper_info"
ActiveConnectionName= "mysampledb"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "pid"
Caption = "pid"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "pname"
Caption = "pname"
EndProperty
BeginProperty Field3
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "pprice"
Caption = "pprice"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "pstandard"
Caption = "pstandard"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ppublish"
Caption = "ppublish"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset3
CommandName = "porder"
CommDispId = -1
RsDispId = -1
CommandText = "porder"
ActiveConnectionName= "mysampledb"
CommandType = 2
dbObjectType = 1
RelateToParent = -1 'True
ParentCommandName= "paper_info"
IsRSReturning = -1 'True
NumFields = 6
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "oid"
Caption = "oid"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "pid"
Caption = "pid"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "cid"
Caption = "cid"
EndProperty
BeginProperty Field4
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ono"
Caption = "ono"
EndProperty
BeginProperty Field5
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "time_start"
Caption = "time_start"
EndProperty
BeginProperty Field6
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "time_end"
Caption = "time_end"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 1
BeginProperty Relation1
ParentField = "pid"
ChildField = "pid"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
BeginProperty Recordset4
CommandName = "subreportpaper"
CommDispId = 1015
RsDispId = 1033
CommandText = $"DataEnvironment1.dsx":0000
ActiveConnectionName= "mysampledb"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "报纸编号"
Caption = "报纸编号"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "报纸名称"
Caption = "报纸名称"
EndProperty
BeginProperty Field3
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "单价"
Caption = "单价"
EndProperty
BeginProperty Field4
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field5
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "订阅起始日期"
Caption = "订阅起始日期"
EndProperty
BeginProperty Field6
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "订阅结束日期"
Caption = "订阅结束日期"
EndProperty
BeginProperty Field7
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "单项总金额"
Caption = "单项总金额"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "cname"
Caption = "cname"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset5
CommandName = "subreportclient"
CommDispId = 1022
RsDispId = 1027
CommandText = "select * from client_info where cid=(select cid from (select top 1 * from porder order by [oid] desc))"
ActiveConnectionName= "mysampledb"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "cid"
Caption = "cid"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "cname"
Caption = "cname"
EndProperty
BeginProperty Field3
Precision = 0
Size = 15
Scale = 0
Type = 202
Name = "cphone"
Caption = "cphone"
EndProperty
BeginProperty Field4
Precision = 0
Size = 255
Scale = 0
Type = 202
Name = "caddress"
Caption = "caddress"
EndProperty
BeginProperty Field5
Precision = 0
Size = 6
Scale = 0
Type = 202
Name = "ccode"
Caption = "ccode"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -