www.pudn.com > 通用库存管理系统 vb.rar > DataEnvironment1.Dsr
VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1
ClientHeight = 4725
ClientLeft = 0
ClientTop = 0
ClientWidth = 7305
_ExtentX = 12885
_ExtentY = 8334
FolderFlags = 5
TypeLibGuid = "{797A78FE-1FF3-11D7-9C65-A40CCCAB5520}"
TypeInfoGuid = "{797A78FF-1FF3-11D7-9C65-A40CCCAB5520}"
TypeInfoCookie = 0
Version = 4
NumConnections = 1
BeginProperty Connection1
ConnectionName = "Connection1"
ConnDispId = 1001
SourceOfData = 3
ConnectionSource= $"DataEnvironment1.dsx":0000
Expanded = -1 'True
QuoteChar = 96
SeparatorChar = 46
EndProperty
NumRecordsets = 3
BeginProperty Recordset1
CommandName = "Command1"
CommDispId = 1008
RsDispId = 1022
CommandText = "SELECT ID, 名称, 单价, 数量, (单价 * 数量) AS 金额 ,供应商, 日期, 时间, 经手 FROM 入库表 WHERE 日期 BETWEEN ? AND ? ORDER BY 日期"
ActiveConnectionName= "Connection1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 9
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 = 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 = 19
Size = 8
Scale = 0
Type = 6
Name = "金额"
Caption = "金额"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "供应商"
Caption = "供应商"
EndProperty
BeginProperty Field7
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "日期"
Caption = "日期"
EndProperty
BeginProperty Field8
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "时间"
Caption = "时间"
EndProperty
BeginProperty Field9
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 = 1011
RsDispId = 1014
CommandText = "SELECT ID, 名称, 数量, 用途, 日期, 时间, 经手人 FROM 出库表 WHERE 日期 BETWEEN ? AND ? ORDER BY 日期"
ActiveConnectionName= "Connection1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 7
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 = 5
Size = 2
Scale = 0
Type = 2
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 200
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 = 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 = "CmdPrint"
CommDispId = 1017
RsDispId = 1021
CommandText = "库存材料表"
ActiveConnectionName= "Connection1"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 6
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 = "分类"
Caption = "分类"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "单位"
Caption = "单位"
EndProperty
BeginProperty Field5
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
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.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\库存管理.mdb;Jet OLEDB:Database Password=lee1012"
End Sub