📄 dataenv.dsr
字号:
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 17
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "所属期"
Caption = "所属期"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
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 = "出口商品名称"
Caption = "出口商品名称"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "计量单位"
Caption = "计量单位"
EndProperty
BeginProperty Field8
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "出口数量"
Caption = "出口数量"
EndProperty
BeginProperty Field9
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "退税率"
Caption = "退税率"
EndProperty
BeginProperty Field10
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "征税率"
Caption = "征税率"
EndProperty
BeginProperty Field11
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "外币汇率"
Caption = "外币汇率"
EndProperty
BeginProperty Field12
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "外币币种"
Caption = "外币币种"
EndProperty
BeginProperty Field13
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "外币金额"
Caption = "外币金额"
EndProperty
BeginProperty Field14
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "人民币金额"
Caption = "人民币金额"
EndProperty
BeginProperty Field15
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "不予抵扣税额抵减额"
Caption = "不予抵扣税额抵减额"
EndProperty
BeginProperty Field16
Precision = 0
Size = 536870910
Scale = 0
Type = 203
Name = "备注"
Caption = "备注"
EndProperty
BeginProperty Field17
Precision = 0
Size = 40
Scale = 0
Type = 202
Name = "公司名称"
Caption = "公司名称"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset3
CommandName = "进料加工复出口贸易免税数据表"
CommDispId = 1395
RsDispId = 1400
CommandText = "进料加工复出口贸易免税数据"
ActiveConnectionName= "Connection1"
CommandType = 2
dbObjectType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 10
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "所属期"
Caption = "所属期"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
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 = 18
Size = 19
Scale = 4
Type = 131
Name = "海关核销免税进口料件组成计税价格"
Caption = "海关核销免税进口料件组成计税价格"
EndProperty
BeginProperty Field6
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "征税率"
Caption = "征税率"
EndProperty
BeginProperty Field7
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "退税率"
Caption = "退税率"
EndProperty
BeginProperty Field8
Precision = 18
Size = 19
Scale = 4
Type = 131
Name = "不予抵扣税额抵减额"
Caption = "不予抵扣税额抵减额"
EndProperty
BeginProperty Field9
Precision = 0
Size = 536870910
Scale = 0
Type = 203
Name = "备注"
Caption = "备注"
EndProperty
BeginProperty Field10
Precision = 0
Size = 40
Scale = 0
Type = 202
Name = "公司名称"
Caption = "公司名称"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DataEnv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"DataEnvironment"
Private Sub DataEnvironment_Initialize()
'根据目录所在的位置，改变ADO所使用的的连接字符串
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
strConn = strConn & App.Path & "\zlgl.mdb" & ";Persist Security Info=True"
Connection1.ConnectionString = strConn
End Sub
Private Sub rsStudent_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub rs出口货物退税申报数据表_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 + -