📄 dejxc.dsr
字号:
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 0
Size = 9
Scale = 0
Type = 200
Name = "order_id"
Caption = "order_id"
EndProperty
BeginProperty Field2
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "p_id"
Caption = "p_id"
EndProperty
BeginProperty Field3
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "qty"
Caption = "qty"
EndProperty
BeginProperty Field4
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "unit_price"
Caption = "unit_price"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "price"
Caption = "price"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset18
CommandName = "ComOtHB"
CommDispId = 1062
RsDispId = 1063
CommandText = "select * from other_head_b order by other_id"
ActiveConnectionName= "Conjxc"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 9
Scale = 0
Type = 200
Name = "other_id"
Caption = "other_id"
EndProperty
BeginProperty Field2
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "other_date"
Caption = "other_date"
EndProperty
BeginProperty Field3
Precision = 0
Size = 2
Scale = 0
Type = 200
Name = "other_type_id"
Caption = "other_type_id"
EndProperty
BeginProperty Field4
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "other_rid"
Caption = "other_rid"
EndProperty
BeginProperty Field5
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "other_maker"
Caption = "other_maker"
EndProperty
BeginProperty Field6
Precision = 0
Size = 12
Scale = 0
Type = 200
Name = "other_car"
Caption = "other_car"
EndProperty
BeginProperty Field7
Precision = 0
Size = 1073741824
Scale = 0
Type = 201
Name = "other_demo"
Caption = "other_demo"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset19
CommandName = "ComSaleHB"
CommDispId = 1064
RsDispId = 1065
CommandText = "select * from sale_head_b order by sale_id"
ActiveConnectionName= "Conjxc"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 9
Scale = 0
Type = 200
Name = "sale_id"
Caption = "sale_id"
EndProperty
BeginProperty Field2
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "sale_date"
Caption = "sale_date"
EndProperty
BeginProperty Field3
Precision = 0
Size = 2
Scale = 0
Type = 200
Name = "sale_type_id"
Caption = "sale_type_id"
EndProperty
BeginProperty Field4
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "sale_rid"
Caption = "sale_rid"
EndProperty
BeginProperty Field5
Precision = 0
Size = 4
Scale = 0
Type = 200
Name = "sale_user"
Caption = "sale_user"
EndProperty
BeginProperty Field6
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "sale_maker"
Caption = "sale_maker"
EndProperty
BeginProperty Field7
Precision = 0
Size = 12
Scale = 0
Type = 200
Name = "sale_car"
Caption = "sale_car"
EndProperty
BeginProperty Field8
Precision = 0
Size = 1073741824
Scale = 0
Type = 201
Name = "sale_demo"
Caption = "sale_demo"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset20
CommandName = "ComSaleDB"
CommDispId = 1066
RsDispId = 1067
CommandText = "select * from sale_detail_b order by sale_id"
ActiveConnectionName= "Conjxc"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 0
Size = 9
Scale = 0
Type = 200
Name = "sale_id"
Caption = "sale_id"
EndProperty
BeginProperty Field2
Precision = 0
Size = 8
Scale = 0
Type = 200
Name = "p_id"
Caption = "p_id"
EndProperty
BeginProperty Field3
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "unit_price"
Caption = "unit_price"
EndProperty
BeginProperty Field4
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "qty"
Caption = "qty"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "price"
Caption = "price"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset21
CommandName = "ComRptMat"
CommDispId = 1068
RsDispId = 1071
CommandText = "select * from rpt_mat"
ActiveConnectionName= "Conjxc"
CommandType = 1
Locktype = 4
IsRSReturning = -1 'True
NumFields = 13
BeginProperty Field1
Precision = 0
Size = 8
Scale = 0
Type = 202
Name = "p_id"
Caption = "p_id"
EndProperty
BeginProperty Field2
Precision = 0
Size = 30
Scale = 0
Type = 202
Name = "product_name"
Caption = "product_name"
EndProperty
BeginProperty Field3
Precision = 0
Size = 18
Scale = 0
Type = 202
Name = "product_model"
Caption = "product_model"
EndProperty
BeginProperty Field4
Precision = 0
Size = 4
Scale = 0
Type = 202
Name = "unit"
Caption = "unit"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "unit_price"
Caption = "unit_price"
EndProperty
BeginProperty Field6
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "matbegqty"
Caption = "matbegqty"
EndProperty
BeginProperty Field7
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "matbegprice"
Caption = "matbegprice"
EndProperty
BeginProperty Field8
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "orderqty"
Caption = "orderqty"
EndProperty
BeginProperty Field9
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "orderprice"
Caption = "orderprice"
EndProperty
BeginProperty Field10
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "saleqty"
Caption = "saleqty"
EndProperty
BeginProperty Field11
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "saleprice"
Caption = "saleprice"
EndProperty
BeginProperty Field12
Precision = 7
Size = 4
Scale = 0
Type = 4
Name = "matendqty"
Caption = "matendqty"
EndProperty
BeginProperty Field13
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "matendprice"
Caption = "matendprice"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DEjxc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DataEnvironment_Initialize()
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " & _
"Security Info=False;Data Source=" & App.Path & "\data\db_jxc.mdb"
Conjxc.ConnectionString = strConnect
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -