📄 deaccp.dsr
字号:
Caption = "供应商编号"
EndProperty
BeginProperty Field5
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "仓库编号"
Caption = "仓库编号"
EndProperty
BeginProperty Field6
Precision = 0
Size = 100
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset15
CommandName = "Com已过帐库存"
CommDispId = 1258
RsDispId = 1261
CommandText = "select * from 库存表 order by 入库编号"
ActiveConnectionName= "Conaccp"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "入库编号"
Caption = "入库编号"
EndProperty
BeginProperty Field2
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "商品编号"
Caption = "商品编号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "仓库编号"
Caption = "仓库编号"
EndProperty
BeginProperty Field4
Precision = 15
Size = 8
Scale = 0
Type = 5
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 = 100
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset16
CommandName = "Com已过账其它入库"
CommDispId = 1262
RsDispId = 1267
CommandText = "select * from 其它入库表 order by 入库编号"
ActiveConnectionName= "Conaccp"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "入库编号"
Caption = "入库编号"
EndProperty
BeginProperty Field2
Precision = 23
Size = 16
Scale = 3
Type = 135
Name = "入库日期"
Caption = "入库日期"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "入库类型"
Caption = "入库类型"
EndProperty
BeginProperty Field4
Precision = 0
Size = 10
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 = 30
Scale = 0
Type = 200
Name = "仓库编号"
Caption = "仓库编号"
EndProperty
BeginProperty Field7
Precision = 0
Size = 100
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset17
CommandName = "Com销售出库信息"
CommDispId = 1271
RsDispId = 1277
CommandText = "dbo.销售出库表_tmp"
ActiveConnectionName= "Conaccp"
CommandType = 2
dbObjectType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "单据编号"
Caption = "单据编号"
EndProperty
BeginProperty Field2
Precision = 23
Size = 16
Scale = 3
Type = 135
Name = "销售日期"
Caption = "销售日期"
EndProperty
BeginProperty Field3
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "单据类型"
Caption = "单据类型"
EndProperty
BeginProperty Field4
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "提供者"
Caption = "提供者"
EndProperty
BeginProperty Field5
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "客户编号"
Caption = "客户编号"
EndProperty
BeginProperty Field6
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "操作员名称"
Caption = "操作员名称"
EndProperty
BeginProperty Field7
Precision = 0
Size = 100
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset18
CommandName = "Com已过帐出库"
CommDispId = 1278
RsDispId = 1294
CommandText = "select * from 出库表"
ActiveConnectionName= "Conaccp"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "出库编号"
Caption = "出库编号"
EndProperty
BeginProperty Field2
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "商品编号"
Caption = "商品编号"
EndProperty
BeginProperty Field3
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "单价"
Caption = "单价"
EndProperty
BeginProperty Field4
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "总额"
Caption = "总额"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset19
CommandName = "Com已过帐销售出库"
CommDispId = 1295
RsDispId = 1300
CommandText = "dbo.销售出库表"
ActiveConnectionName= "Conaccp"
CommandType = 2
dbObjectType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "单据编号"
Caption = "单据编号"
EndProperty
BeginProperty Field2
Precision = 23
Size = 16
Scale = 3
Type = 135
Name = "销售日期"
Caption = "销售日期"
EndProperty
BeginProperty Field3
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "单据类型"
Caption = "单据类型"
EndProperty
BeginProperty Field4
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "提供者"
Caption = "提供者"
EndProperty
BeginProperty Field5
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "客户编号"
Caption = "客户编号"
EndProperty
BeginProperty Field6
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "操作员名称"
Caption = "操作员名称"
EndProperty
BeginProperty Field7
Precision = 0
Size = 100
Scale = 0
Type = 200
Name = "备注"
Caption = "备注"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset20
CommandName = "select类别"
CommDispId = 1307
RsDispId = 1309
CommandText = "select distinct 类别 from 商品表"
ActiveConnectionName= "Conaccp"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 1
BeginProperty Field1
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "类别"
Caption = "类别"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DEaccp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Conaccp_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
End Sub
Private Sub DataEnvironment_Initialize()
Conaccp.ConnectionString = ConnectString
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -