📄 dataenvironment1.dsr
字号:
VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1
ClientHeight = 7500
ClientLeft = 0
ClientTop = 0
ClientWidth = 7905
_ExtentX = 13944
_ExtentY = 13229
FolderFlags = 5
TypeLibGuid = "{1EF5D7EC-3457-489C-BEC4-A0092466C84B}"
TypeInfoGuid = "{DA806D2E-1147-4AFF-BAF6-0D6282C3A5F2}"
TypeInfoCookie = 0
Version = 4
NumConnections = 2
BeginProperty Connection1
ConnectionName = "Conn"
ConnDispId = 1001
SourceOfData = 3
ConnectionSource= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
Expanded = -1 'True
QuoteChar = 96
SeparatorChar = 46
EndProperty
BeginProperty Connection2
ConnectionName = "Conn1"
ConnDispId = 1010
SourceOfData = 3
ConnectionSource= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
Expanded = -1 'True
QuoteChar = 96
SeparatorChar = 46
EndProperty
NumRecordsets = 2
BeginProperty Recordset1
CommandName = "com"
CommDispId = 1002
RsDispId = 1008
CommandText = "select * from sell"
ActiveConnectionName= "Conn"
CommandType = 1
GroupingName = "com_分组"
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "交易日期"
Caption = "交易日期"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "货品名称"
Caption = "货品名称"
EndProperty
BeginProperty Field3
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "成交利润"
Caption = "成交利润"
EndProperty
BeginProperty Field4
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "成本价格"
Caption = "成本价格"
EndProperty
BeginProperty Field5
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "成交价格"
Caption = "成交价格"
EndProperty
BeginProperty Field6
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "成交数量"
Caption = "成交数量"
EndProperty
BeginProperty Field7
Precision = 0
Size = 30
Scale = 0
Type = 202
Name = "员工姓名"
Caption = "员工姓名"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "货品来源"
Caption = "货品来源"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset2
CommandName = "Com1"
CommDispId = 1011
RsDispId = 1017
CommandText = "select * from computer"
ActiveConnectionName= "Conn1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 23
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "购机日期"
Caption = "购机日期"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "客户姓名"
Caption = "客户姓名"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "联系电话"
Caption = "联系电话"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "联系地址"
Caption = "联系地址"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "CPU"
Caption = "CPU"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "主板"
Caption = "主板"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "内存"
Caption = "内存"
EndProperty
BeginProperty Field9
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "硬盘"
Caption = "硬盘"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "显卡"
Caption = "显卡"
EndProperty
BeginProperty Field11
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "光驱"
Caption = "光驱"
EndProperty
BeginProperty Field12
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "软驱"
Caption = "软驱"
EndProperty
BeginProperty Field13
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "声卡"
Caption = "声卡"
EndProperty
BeginProperty Field14
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "键盘"
Caption = "键盘"
EndProperty
BeginProperty Field15
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "鼠标"
Caption = "鼠标"
EndProperty
BeginProperty Field16
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "机箱"
Caption = "机箱"
EndProperty
BeginProperty Field17
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "电源"
Caption = "电源"
EndProperty
BeginProperty Field18
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "音箱"
Caption = "音箱"
EndProperty
BeginProperty Field19
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "其它"
Caption = "其它"
EndProperty
BeginProperty Field20
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "打印机"
Caption = "打印机"
EndProperty
BeginProperty Field21
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "扫描仪"
Caption = "扫描仪"
EndProperty
BeginProperty Field22
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "总计"
Caption = "总计"
EndProperty
BeginProperty Field23
Precision = 0
Size = 50
Scale = 0
Type = 202
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
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
' 引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:44:02
Private Sub DataEnvironment_Initialize()
Dim StrConnect As String
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data\kji.bgh"
Conn.ConnectionString = StrConnect
Conn1.ConnectionString = StrConnect
End Sub
'统计结果：
' 注释共：1行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -