📄 myde.dsr
字号:
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field5
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Amount"
Caption = "Amount"
EndProperty
BeginProperty Field6
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "ImPrice"
Caption = "ImPrice"
EndProperty
BeginProperty Field7
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "ExPrice"
Caption = "ExPrice"
EndProperty
BeginProperty Field8
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset16
CommandName = "rsExPortRP"
CommDispId = 1109
RsDispId = 1115
CommandText = "ExPortRP"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 11
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "cuName"
Caption = "cuName"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Bill"
Caption = "Bill"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "BarCode"
Caption = "BarCode"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "sName"
Caption = "sName"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field6
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "Price"
Caption = "Price"
EndProperty
BeginProperty Field7
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Amount"
Caption = "Amount"
EndProperty
BeginProperty Field8
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "subTotal"
Caption = "subTotal"
EndProperty
BeginProperty Field9
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "opDate"
Caption = "opDate"
EndProperty
BeginProperty Field10
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "Operator"
Caption = "Operator"
EndProperty
BeginProperty Field11
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset17
CommandName = "rsImPortRP"
CommDispId = 1110
RsDispId = 1120
CommandText = "ImPortRP"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 11
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "pvName"
Caption = "pvName"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Bill"
Caption = "Bill"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "BarCode"
Caption = "BarCode"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "sName"
Caption = "sName"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field6
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "Price"
Caption = "Price"
EndProperty
BeginProperty Field7
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Amount"
Caption = "Amount"
EndProperty
BeginProperty Field8
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "subTotal"
Caption = "subTotal"
EndProperty
BeginProperty Field9
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "opDate"
Caption = "opDate"
EndProperty
BeginProperty Field10
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "Operator"
Caption = "Operator"
EndProperty
BeginProperty Field11
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset18
CommandName = "rsOtherStorageChangeRP"
CommDispId = 1121
RsDispId = 1126
CommandText = "OtherStorageChangeRP"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 9
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "BarCode"
Caption = "BarCode"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "sName"
Caption = "sName"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field4
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "Price"
Caption = "Price"
EndProperty
BeginProperty Field5
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Amount"
Caption = "Amount"
EndProperty
BeginProperty Field6
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "subTotal"
Caption = "subTotal"
EndProperty
BeginProperty Field7
Precision = 0
Size = 8
Scale = 0
Type = 7
Name = "opDate"
Caption = "opDate"
EndProperty
BeginProperty Field8
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "Operator"
Caption = "Operator"
EndProperty
BeginProperty Field9
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "myDE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DataEnvironment_Initialize()
On Error GoTo errHandler
'myDE.conData.Properties("Data Source") = App.Path & "\data.mdb"
'myDE.conData.Properties("UID") = "admin"
'myDE.conData.Properties("PWD") = "~!@#$%^&*()_+"
'myDE.conData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=~!@#$%^&*()_+;Data Source=" & App.Path & "\data.mdb;Mode=Share Deny None;Persist Security Info=True"
myDE.conData.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=data.mdb;DefaultDir=" & App.Path & "; UID=admin; PWD=" & dbPSW & ";"
'myDE.conData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & dbPSW & ";Data Source=" & App.Path & "\data.mdb;Persist Security Info=True;"
Exit Sub
errHandler:
MsgBox "DataEnvironment_Initialize, Err Number:" & Err.Number & "; Source:" & Err.Source & "; Description:" & Err.Description
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -