You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
517 lines
12 KiB
Plaintext
517 lines
12 KiB
Plaintext
11 months ago
|
object frmExcelImport: TfrmExcelImport
|
||
|
|
Left = 346
|
||
|
|
Top = 162
|
||
|
|
Width = 836
|
||
|
|
Height = 506
|
||
|
|
Caption = 'EXCEL'#36153#29992#23548#20837
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = ANSI_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -12
|
||
|
|
Font.Name = #23435#20307
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
OnCloseQuery = FormCloseQuery
|
||
|
|
OnShow = FormShow
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 12
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 820
|
||
|
|
Height = 41
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 0
|
||
|
|
DesignSize = (
|
||
|
|
820
|
||
|
|
41)
|
||
|
|
object Label4: TLabel
|
||
|
|
Left = 16
|
||
|
|
Top = 16
|
||
|
|
Width = 66
|
||
|
|
Height = 12
|
||
|
|
Caption = #24037#20316#31807#32534#21495':'
|
||
|
|
end
|
||
|
|
object BitBtn1: TBitBtn
|
||
|
|
Left = 742
|
||
|
|
Top = 4
|
||
|
|
Width = 77
|
||
|
|
Height = 28
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
Caption = #36864' '#20986
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = BitBtn1Click
|
||
|
|
Kind = bkClose
|
||
|
|
end
|
||
|
|
object BitBtn2: TBitBtn
|
||
|
|
Left = 294
|
||
|
|
Top = 4
|
||
|
|
Width = 180
|
||
|
|
Height = 28
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
Caption = #20174'EXCEL'#25991#20214#23548#20837#36153#29992
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = BitBtn2Click
|
||
|
|
NumGlyphs = 2
|
||
|
|
end
|
||
|
|
object Edit1: TEdit
|
||
|
|
Left = 84
|
||
|
|
Top = 12
|
||
|
|
Width = 73
|
||
|
|
Height = 20
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 41
|
||
|
|
Width = 153
|
||
|
|
Height = 427
|
||
|
|
Align = alLeft
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
object Panel4: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 153
|
||
|
|
Height = 53
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 0
|
||
|
|
object DBNavigator1: TDBNavigator
|
||
|
|
Left = 4
|
||
|
|
Top = 17
|
||
|
|
Width = 135
|
||
|
|
Height = 25
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DBGridEh1: TDBGridEh
|
||
|
|
Left = 0
|
||
|
|
Top = 53
|
||
|
|
Width = 153
|
||
|
|
Height = 374
|
||
|
|
Align = alClient
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
Flat = True
|
||
|
|
FooterColor = clWindow
|
||
|
|
FooterFont.Charset = ANSI_CHARSET
|
||
|
|
FooterFont.Color = clWindowText
|
||
|
|
FooterFont.Height = -12
|
||
|
|
FooterFont.Name = #23435#20307
|
||
|
|
FooterFont.Style = []
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
ReadOnly = True
|
||
|
|
TabOrder = 1
|
||
|
|
TitleFont.Charset = ANSI_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -12
|
||
|
|
TitleFont.Name = #23435#20307
|
||
|
|
TitleFont.Style = []
|
||
|
|
UseMultiTitle = True
|
||
|
|
Columns = <
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'BILLNAME'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #27169#26495#21517#31216
|
||
|
|
Width = 131
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel3: TPanel
|
||
|
|
Left = 153
|
||
|
|
Top = 41
|
||
|
|
Width = 667
|
||
|
|
Height = 427
|
||
|
|
Align = alClient
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 2
|
||
|
|
object Panel5: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 667
|
||
|
|
Height = 81
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 0
|
||
|
|
DesignSize = (
|
||
|
|
667
|
||
|
|
81)
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 16
|
||
|
|
Top = 24
|
||
|
|
Width = 48
|
||
|
|
Height = 12
|
||
|
|
Caption = #27169#26495#21517#31216
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 192
|
||
|
|
Top = 24
|
||
|
|
Width = 72
|
||
|
|
Height = 12
|
||
|
|
Caption = #24320#22987#23548#20837#34892#25968
|
||
|
|
end
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 332
|
||
|
|
Top = 24
|
||
|
|
Width = 84
|
||
|
|
Height = 12
|
||
|
|
Caption = #25552#21333#21495#25152#22312#21015#25968
|
||
|
|
end
|
||
|
|
object Label5: TLabel
|
||
|
|
Left = 160
|
||
|
|
Top = 62
|
||
|
|
Width = 96
|
||
|
|
Height = 12
|
||
|
|
Caption = #36755#20837#35201#22797#21046#30340#27169#26495
|
||
|
|
end
|
||
|
|
object DBEdit1: TDBEdit
|
||
|
|
Left = 68
|
||
|
|
Top = 20
|
||
|
|
Width = 121
|
||
|
|
Height = 20
|
||
|
|
DataField = 'BILLNAME'
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object DBEdit2: TDBEdit
|
||
|
|
Left = 268
|
||
|
|
Top = 20
|
||
|
|
Width = 57
|
||
|
|
Height = 20
|
||
|
|
DataField = 'STARTLINE'
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object DBEdit3: TDBEdit
|
||
|
|
Left = 420
|
||
|
|
Top = 20
|
||
|
|
Width = 65
|
||
|
|
Height = 20
|
||
|
|
DataField = 'MBLNOLINE'
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object DBNavigator2: TDBNavigator
|
||
|
|
Left = 6
|
||
|
|
Top = 56
|
||
|
|
Width = 150
|
||
|
|
Height = 25
|
||
|
|
DataSource = dsrExeclItem
|
||
|
|
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object BitBtn4: TBitBtn
|
||
|
|
Left = 365
|
||
|
|
Top = 54
|
||
|
|
Width = 44
|
||
|
|
Height = 28
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
Caption = '++'
|
||
|
|
TabOrder = 4
|
||
|
|
OnClick = BitBtn4Click
|
||
|
|
NumGlyphs = 2
|
||
|
|
end
|
||
|
|
object Edit2: TEdit
|
||
|
|
Left = 259
|
||
|
|
Top = 57
|
||
|
|
Width = 103
|
||
|
|
Height = 20
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DBGridEh2: TDBGridEh
|
||
|
|
Left = 0
|
||
|
|
Top = 81
|
||
|
|
Width = 667
|
||
|
|
Height = 346
|
||
|
|
Align = alClient
|
||
|
|
DataSource = dsrExeclItem
|
||
|
|
Flat = True
|
||
|
|
FooterColor = clWindow
|
||
|
|
FooterFont.Charset = ANSI_CHARSET
|
||
|
|
FooterFont.Color = clWindowText
|
||
|
|
FooterFont.Height = -12
|
||
|
|
FooterFont.Name = #23435#20307
|
||
|
|
FooterFont.Style = []
|
||
|
|
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
|
||
|
|
TabOrder = 1
|
||
|
|
TitleFont.Charset = ANSI_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -12
|
||
|
|
TitleFont.Name = #23435#20307
|
||
|
|
TitleFont.Style = []
|
||
|
|
UseMultiTitle = True
|
||
|
|
Columns = <
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'ARRNO'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #21015#25968
|
||
|
|
Width = 42
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DropDownWidth = 360
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'ACCNAME'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #36153#29992#21517#31216
|
||
|
|
Width = 115
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'DRCR'
|
||
|
|
Footers = <>
|
||
|
|
KeyList.Strings = (
|
||
|
|
'D'
|
||
|
|
'C')
|
||
|
|
PickList.Strings = (
|
||
|
|
#25910
|
||
|
|
#20184)
|
||
|
|
Title.Caption = #25910#20184
|
||
|
|
Width = 48
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'OBJTYPE'
|
||
|
|
Footers = <>
|
||
|
|
KeyList.Strings = (
|
||
|
|
#22269#22806#20195#29702
|
||
|
|
#22996#25176#21333#20301
|
||
|
|
#33337#20844#21496
|
||
|
|
#32467#31639#20195#29702
|
||
|
|
#22330#31449
|
||
|
|
#36710#38431
|
||
|
|
#25253#20851#34892)
|
||
|
|
PickList.Strings = (
|
||
|
|
#22269#22806#20195#29702
|
||
|
|
#22996#25176#21333#20301
|
||
|
|
#33337#20844#21496
|
||
|
|
#32467#31639#20195#29702
|
||
|
|
#22330#31449
|
||
|
|
#36710#38431
|
||
|
|
#25253#20851#34892)
|
||
|
|
Title.Caption = #31995#32479#23458#25143
|
||
|
|
Width = 88
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'USDEXRATE'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #27719#29575
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DropDownWidth = 360
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'OBJNAME'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #40664#35748#23458#25143
|
||
|
|
Width = 97
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'OBJEXCEL'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #23458#25143#25152#22312#21015
|
||
|
|
Width = 66
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'RT'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #25968#37327
|
||
|
|
Width = 47
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'RTPRICE'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #21333#20215
|
||
|
|
Width = 50
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'RTUNIT'
|
||
|
|
Footers = <>
|
||
|
|
Title.Caption = #35745#20215#21333#20301
|
||
|
|
Width = 55
|
||
|
|
end
|
||
|
|
item
|
||
|
|
EditButtons = <>
|
||
|
|
FieldName = 'FCURRID'
|
||
|
|
Footers = <>
|
||
|
|
KeyList.Strings = (
|
||
|
|
'USD'
|
||
|
|
'RMB')
|
||
|
|
PickList.Strings = (
|
||
|
|
'USD'
|
||
|
|
'RMB')
|
||
|
|
Title.Caption = #24065#21035
|
||
|
|
Width = 40
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object dsrExcel1: TDataSource
|
||
|
|
DataSet = QryExcel
|
||
|
|
Left = 40
|
||
|
|
Top = 140
|
||
|
|
end
|
||
|
|
object dsrExeclItem: TDataSource
|
||
|
|
DataSet = qryExeclItem
|
||
|
|
Left = 204
|
||
|
|
Top = 196
|
||
|
|
end
|
||
|
|
object OpenDialog1: TOpenDialog
|
||
|
|
DefaultExt = 'xls'
|
||
|
|
Filter = 'xls|*.xls|all file|*.*'
|
||
|
|
Left = 240
|
||
|
|
Top = 156
|
||
|
|
end
|
||
|
|
object dsrBsCard: TDataSource
|
||
|
|
Left = 229
|
||
|
|
Top = 273
|
||
|
|
end
|
||
|
|
object QryExcel: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
Parameters = <>
|
||
|
|
SQL.Strings = (
|
||
|
|
'select * from execl_bill')
|
||
|
|
Left = 232
|
||
|
|
Top = 360
|
||
|
|
end
|
||
|
|
object qryExeclItem: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
BeforeInsert = qryExeclItemBeforeInsert
|
||
|
|
AfterPost = qryExeclItemAfterPost
|
||
|
|
OnNewRecord = qryExeclItemNewRecord
|
||
|
|
DataSource = dsrExcel1
|
||
|
|
Parameters = <
|
||
|
|
item
|
||
|
|
Name = 'billname'
|
||
|
|
DataType = ftString
|
||
|
|
NumericScale = 255
|
||
|
|
Precision = 255
|
||
|
|
Size = 12
|
||
|
|
Value = Null
|
||
|
|
end>
|
||
|
|
SQL.Strings = (
|
||
|
|
'Select * from EXECL_BILLITEM where BILLNAME=:BILLNAME')
|
||
|
|
Left = 408
|
||
|
|
Top = 352
|
||
|
|
object qryExeclItemBILLNAME: TStringField
|
||
|
|
FieldName = 'BILLNAME'
|
||
|
|
FixedChar = True
|
||
|
|
Size = 12
|
||
|
|
end
|
||
|
|
object qryExeclItemITEMNO: TIntegerField
|
||
|
|
FieldName = 'ITEMNO'
|
||
|
|
end
|
||
|
|
object qryExeclItemARRNO: TIntegerField
|
||
|
|
FieldName = 'ARRNO'
|
||
|
|
end
|
||
|
|
object qryExeclItemACCID: TStringField
|
||
|
|
FieldName = 'ACCID'
|
||
|
|
FixedChar = True
|
||
|
|
Size = 16
|
||
|
|
end
|
||
|
|
object qryExeclItemDRCR: TStringField
|
||
|
|
FieldName = 'DRCR'
|
||
|
|
FixedChar = True
|
||
|
|
Size = 1
|
||
|
|
end
|
||
|
|
object qryExeclItemOBJID: TStringField
|
||
|
|
FieldName = 'OBJID'
|
||
|
|
FixedChar = True
|
||
|
|
Size = 10
|
||
|
|
end
|
||
|
|
object qryExeclItemOBJTYPE: TStringField
|
||
|
|
FieldName = 'OBJTYPE'
|
||
|
|
FixedChar = True
|
||
|
|
end
|
||
|
|
object qryExeclItemRT: TBCDField
|
||
|
|
FieldName = 'RT'
|
||
|
|
Precision = 15
|
||
|
|
Size = 2
|
||
|
|
end
|
||
|
|
object qryExeclItemRTPRICE: TBCDField
|
||
|
|
FieldName = 'RTPRICE'
|
||
|
|
Precision = 15
|
||
|
|
Size = 2
|
||
|
|
end
|
||
|
|
object qryExeclItemRTUNIT: TStringField
|
||
|
|
FieldName = 'RTUNIT'
|
||
|
|
end
|
||
|
|
object qryExeclItemFCURRID: TStringField
|
||
|
|
FieldName = 'FCURRID'
|
||
|
|
FixedChar = True
|
||
|
|
Size = 10
|
||
|
|
end
|
||
|
|
object qryExeclItemUSDEXRATE: TBCDField
|
||
|
|
FieldName = 'USDEXRATE'
|
||
|
|
Precision = 15
|
||
|
|
Size = 2
|
||
|
|
end
|
||
|
|
object qryExeclItemDESCR: TStringField
|
||
|
|
FieldName = 'DESCR'
|
||
|
|
Size = 40
|
||
|
|
end
|
||
|
|
object qryExeclItemOBJEXCEL: TIntegerField
|
||
|
|
FieldName = 'OBJEXCEL'
|
||
|
|
end
|
||
|
|
object qryExeclItemACCNAME: TStringField
|
||
|
|
FieldKind = fkLookup
|
||
|
|
FieldName = 'ACCNAME'
|
||
|
|
LookupDataSet = frm_data_share.t_code_fee
|
||
|
|
LookupKeyFields = #20013#25991#21517
|
||
|
|
LookupResultField = #20013#25991#21517
|
||
|
|
KeyFields = 'ACCID'
|
||
|
|
Lookup = True
|
||
|
|
end
|
||
|
|
object qryExeclItemOBJNAME: TStringField
|
||
|
|
FieldKind = fkLookup
|
||
|
|
FieldName = 'OBJNAME'
|
||
|
|
LookupDataSet = frm_data_share.t_crm_client_all
|
||
|
|
LookupKeyFields = #23458#25143#31616#31216
|
||
|
|
LookupResultField = #23458#25143#31616#31216
|
||
|
|
KeyFields = 'OBJID'
|
||
|
|
Lookup = True
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object qryBsCarr: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
OnNewRecord = qryBsCarrNewRecord
|
||
|
|
DataSource = dsrBsCard
|
||
|
|
Parameters = <
|
||
|
|
item
|
||
|
|
Name = #32534#21495
|
||
|
|
Attributes = [paNullable]
|
||
|
|
DataType = ftString
|
||
|
|
NumericScale = 255
|
||
|
|
Precision = 255
|
||
|
|
Size = 12
|
||
|
|
Value = Null
|
||
|
|
end>
|
||
|
|
SQL.Strings = (
|
||
|
|
'Select * from t_ch_fee where '#32534#21495'=:'#32534#21495)
|
||
|
|
Left = 544
|
||
|
|
Top = 360
|
||
|
|
end
|
||
|
|
object qryBsCard: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
Parameters = <>
|
||
|
|
SQL.Strings = (
|
||
|
|
'select * from t_op_seae')
|
||
|
|
Left = 312
|
||
|
|
Top = 200
|
||
|
|
end
|
||
|
|
end
|