📄 dataenvironment1.dsr
字号:
CommDispId = 1035
RsDispId = 1039
CommandText = $"DataEnvironment1.dsx":0391
ActiveConnectionName= "Connection1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 10
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 = 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 = 19
Size = 8
Scale = 0
Type = 6
Name = "金额"
Caption = "金额"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 200
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
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "入库备注"
Caption = "入库备注"
EndProperty
NumGroups = 0
ParamCount = 1
BeginProperty P1
RealName = "Param1"
Direction = 1
Precision = 0
Scale = 0
Size = 0
DataType = 12
HostType = 3
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset8
CommandName = "GYSH"
CommDispId = 1048
RsDispId = 1052
CommandText = "SELECT ID, 名称, 地址, 电话, 联系人, 级别, 备注 FROM 供应商表 "
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 = 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 = 0
Size = 50
Scale = 0
Type = 200
Name = "联系人"
Caption = "联系人"
EndProperty
BeginProperty Field6
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "级别"
Caption = "级别"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset9
CommandName = "KH"
CommDispId = 1053
RsDispId = 1056
CommandText = "SELECT ID, 名称, 地址, 电话, 联系人, 备注 FROM 客户表 "
ActiveConnectionName= "Connection1"
CommandType = 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 = 0
Size = 50
Scale = 0
Type = 200
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
BeginProperty Recordset10
CommandName = "KCCL"
CommDispId = 1057
RsDispId = 1060
CommandText = "SELECT ID, 名称, 分类, 单位, 数量, 备注 FROM 库存材料表"
ActiveConnectionName= "Connection1"
CommandType = 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
Private Sub rsCommand3_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 + -