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.

849 lines
22 KiB
Plaintext

object frm_op_seae_edi_cma: Tfrm_op_seae_edi_cma
Left = 509
Top = 205
BorderIcons = []
BorderStyle = bsDialog
Caption = 'INTTRA-EDI'#36890#20449
ClientHeight = 383
ClientWidth = 293
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 8
Top = 30
Width = 60
Height = 12
Caption = #21457#36865#26041#21517#31216
Transparent = True
end
object Label1: TLabel
Left = 8
Top = 10
Width = 60
Height = 12
Caption = #21457#36865#26041#20195#30721
Transparent = True
end
object Label3: TLabel
Left = 8
Top = 50
Width = 60
Height = 12
Caption = #25509#21463#26041#20195#30721
Transparent = True
end
object Label4: TLabel
Left = 8
Top = 70
Width = 60
Height = 12
Caption = #25509#21463#26041#21517#31216
Transparent = True
end
object Label5: TLabel
Left = 20
Top = 90
Width = 48
Height = 12
Caption = #22266#23450#30005#35805
Transparent = True
end
object Label6: TLabel
Left = 20
Top = 110
Width = 48
Height = 12
Caption = #37038#20214#22320#22336
Transparent = True
end
object Label7: TLabel
Left = 171
Top = 86
Width = 36
Height = 12
Caption = #32852#31995#20154
end
object Label12: TLabel
Left = 20
Top = 130
Width = 48
Height = 12
Caption = #35814#32454#22320#22336
Transparent = True
end
object Label14: TLabel
Left = 170
Top = 45
Width = 24
Height = 12
Caption = #31614#21517
Transparent = True
end
object Label19: TLabel
Left = 157
Top = 241
Width = 48
Height = 12
Caption = #36135#20195#21517#31216
end
object Edit2: TEdit
Left = 73
Top = 22
Width = 220
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 0
end
object Edit1: TEdit
Left = 73
Top = 2
Width = 220
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 1
end
object bsSkinButton1: TbsSkinButton
Left = 88
Top = 348
Width = 100
Height = 25
TabOrder = 2
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #20445#23384#20026#25991#20214
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton1Click
end
object bsSkinButton2: TbsSkinButton
Left = 188
Top = 348
Width = 99
Height = 25
TabOrder = 3
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #25918#24323#36864#20986
Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100
08000000000000020000C40E0000C40E0000000100000000000000000000FFFF
FF00FF00FF00C76A6D00CC6E7100D0727500FBDDDE0069333400D2686900D06A
6B00D56D6E00DE737400DA727300D7707100D56F7000E0777800DF777800DB75
7600DA747500C3686900C66A6B00DF797A00E57D7E00E07A7B00E37D7E00D374
7600E9818200E57F8000EA828300E6808100F0878800EE868700F58C8D00F48C
8D00F28B8C00DC7F8000FA919200F9909200F48E8F00F8929300F9939400FE97
9800FD979800FC969700FF999A00E3888900FF9A9B00FE999A00FF9B9C00EB8F
9000E78C8D00E98E8F00FF9D9E00FF9FA000DA888A00D7868700D8888A00EC96
9700FEA2A300F0999A00B0717200FCAFB000FABCBD00F9C5C600FDDCDD00B966
6600BB686800E0858500DA8888009A666600FBF0D200FDF3D400FFF5D800FDFC
DA00FDFCDC00FFFFDD00FFFFDE00FFFFDF00FFFFE000ECFDD400B8E1AC006BDC
89003DC2640042C468005DD5800039C5650046D4730024CB600029CC630029CB
630030CD67002FCA640033CB670019CB5B0020CA5E0025CF6300000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000020202020202
0245070202020202020201010101010101010101010101010101020202024545
4142070202020202020201010101010101010101010101010101020245451409
08130745454545454502010101010101010101010101010101010202450B0D0E
0A03073A3D3E3F3F4502010101010101010101010101010101010202450F1112
0C0407555F585D3F450201010101010101010101010101010101020245161715
100507535A5C573F4502010101010101010101010101010101010202451C1B18
1D190752595B5E3F4502010101010101010101010101010101010202451E1A39
063807505154563F450201010101010101010101010101010101020245201F3B
403607484E4C4F3F450201010101010101010101010101010101020245242622
212307474D4B4E3F450201010101010101010101010101010101020245292827
254307474D4B4D3F450201010101010101010101010101010101020245302A2B
292D07474D4B4D3F450201010101010101010101010101010101020245352E2C
2E3207474D4B4D3F45020101010101010101010101010101010102024545332F
343107464A494A3F45020101010101010101010101010101010102020202453C
3744074545454545450201010101010101010101010101010101020202020202
4545070202020202020201010101010101010101010101010101}
NumGlyphs = 2
Spacing = 1
ModalResult = 2
end
object Edit3: TEdit
Left = 73
Top = 42
Width = 96
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 4
end
object Edit4: TEdit
Left = 73
Top = 62
Width = 219
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 5
end
object Edit5: TEdit
Left = 73
Top = 82
Width = 96
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 6
end
object Edit6: TEdit
Left = 73
Top = 102
Width = 224
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 7
end
object Edit7: TEdit
Left = 209
Top = 82
Width = 83
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 8
end
object RadioGroup1: TRadioGroup
Left = 3
Top = 312
Width = 182
Height = 32
Caption = #31867#22411
Columns = 2
ItemIndex = 0
Items.Strings = (
#19994#21153#35746#33329
#25552#21333#30830#35748)
TabOrder = 9
end
object bsSkinButton3: TbsSkinButton
Left = 188
Top = 317
Width = 98
Height = 26
TabOrder = 10
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = 'FTP '#21442#25968#35774#32622
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton3Click
end
object bsSkinButton4: TbsSkinButton
Left = 0
Top = 348
Width = 88
Height = 25
TabOrder = 11
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #30452#25509#21457#36865
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton4Click
end
object GroupBox1: TGroupBox
Left = 296
Top = 0
Width = 321
Height = 121
Caption = 'FTP'#21442#25968
TabOrder = 12
object Label8: TLabel
Left = 2
Top = 16
Width = 42
Height = 12
Caption = 'FTP'#22320#22336
Transparent = True
end
object Label9: TLabel
Left = 20
Top = 56
Width = 24
Height = 12
Caption = #23494#30721
Transparent = True
end
object Label10: TLabel
Left = 8
Top = 76
Width = 36
Height = 12
Caption = #25991#20214#22841
Transparent = True
end
object Label11: TLabel
Left = 8
Top = 35
Width = 36
Height = 12
Caption = #29992#25143#21517
Transparent = True
end
object Label13: TLabel
Left = 2
Top = 93
Width = 48
Height = 12
Caption = 'SI'#25991#20214#22841
Transparent = True
end
object Edit8: TEdit
Left = 52
Top = 8
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 0
end
object Edit9: TEdit
Left = 52
Top = 28
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 1
end
object Edit10: TEdit
Left = 52
Top = 48
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 2
end
object Edit11: TEdit
Left = 52
Top = 68
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 3
end
object Edit13: TEdit
Left = 52
Top = 89
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 4
end
end
object RadioGroup2: TRadioGroup
Left = 1
Top = 143
Width = 289
Height = 90
Caption = #33337#20844#21496
Columns = 5
ItemIndex = 3
Items.Strings = (
'MSK'
'MCC'
'ANL'
'CMA'
'CNC'
'HL'
'MASK'
'HAM'
'MSC'
'DELMAS'
'UASC'
'COSU'
'OOCL')
TabOrder = 13
OnClick = RadioGroup2Click
end
object Edit12: TEdit
Left = 74
Top = 124
Width = 219
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 14
end
object RadioGroup3: TRadioGroup
Left = 1
Top = 285
Width = 200
Height = 32
Caption = #25991#20214#21151#33021
Columns = 2
ItemIndex = 0
Items.Strings = (
#21407#22987
#26356#26032)
TabOrder = 15
end
object bsck: TbsSkinCheckRadioBox
Left = 134
Top = 261
Width = 74
Height = 25
TabOrder = 16
SkinData = frm_main.bsSkinData1
SkinDataName = 'checkbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
Flat = False
CanFocused = False
Radio = False
Checked = False
GroupIndex = 0
Caption = #36135#20195#25552#21333
end
object bsSkinCheckRadioBox1: TbsSkinCheckRadioBox
Left = -1
Top = 259
Width = 134
Height = 25
TabOrder = 17
SkinData = frm_main.bsSkinData1
SkinDataName = 'checkbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
Flat = False
CanFocused = False
Radio = False
Checked = False
GroupIndex = 0
Caption = #35746#33329#20195#29702'-SINOTRANS'
end
object bsSkinButton7: TbsSkinButton
Left = 202
Top = 291
Width = 84
Height = 22
TabOrder = 18
SkinData = frm_main.bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = 'VGM'
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton7Click
end
object Edit14: TEdit
Left = 196
Top = 41
Width = 96
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 19
end
object GroupBox2: TGroupBox
Left = 297
Top = 123
Width = 321
Height = 93
Caption = 'CMA FTP'#21442#25968
TabOrder = 20
object Label15: TLabel
Left = 2
Top = 16
Width = 42
Height = 12
Caption = 'FTP'#22320#22336
Transparent = True
end
object Label16: TLabel
Left = 20
Top = 56
Width = 24
Height = 12
Caption = #23494#30721
Transparent = True
end
object Label17: TLabel
Left = 8
Top = 76
Width = 36
Height = 12
Caption = #25991#20214#22841
Transparent = True
end
object Label18: TLabel
Left = 8
Top = 35
Width = 36
Height = 12
Caption = #29992#25143#21517
Transparent = True
end
object Edit15: TEdit
Left = 52
Top = 8
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 0
end
object Edit16: TEdit
Left = 52
Top = 28
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 1
end
object Edit17: TEdit
Left = 52
Top = 48
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 2
end
object Edit18: TEdit
Left = 52
Top = 68
Width = 268
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 3
end
end
object CheckBox1: TCheckBox
Left = 0
Top = 240
Width = 97
Height = 17
Caption = #20351#29992#36135#20195#20195#30721
TabOrder = 21
end
object Edit19: TEdit
Left = 89
Top = 238
Width = 66
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 22
end
object Edit20: TEdit
Left = 207
Top = 238
Width = 81
Height = 20
ImeName = #35895#27468#25340#38899#36755#20837#27861' 2'
TabOrder = 23
end
object bsSkinCheckRadioBox2: TbsSkinCheckRadioBox
Left = 209
Top = 262
Width = 81
Height = 25
TabOrder = 24
SkinData = frm_main.bsSkinData1
SkinDataName = 'checkbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
Flat = False
CanFocused = False
Radio = False
Checked = False
GroupIndex = 0
Caption = 'CargoSmart'
end
object bsBusinessSkinForm1: TbsBusinessSkinForm
UseSkinFontInMenu = True
ShowIcon = False
MaximizeOnFullScreen = False
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 100
ShowObjectHint = False
MenusAlphaBlend = False
MenusAlphaBlendAnimation = False
MenusAlphaBlendValue = 0
DefCaptionFont.Charset = GB2312_CHARSET
DefCaptionFont.Color = clBtnText
DefCaptionFont.Height = -12
DefCaptionFont.Name = #23435#20307
DefCaptionFont.Style = []
DefInActiveCaptionFont.Charset = GB2312_CHARSET
DefInActiveCaptionFont.Color = clBtnShadow
DefInActiveCaptionFont.Height = -12
DefInActiveCaptionFont.Name = #23435#20307
DefInActiveCaptionFont.Style = []
DefMenuItemHeight = 20
DefMenuItemFont.Charset = GB2312_CHARSET
DefMenuItemFont.Color = clWindowText
DefMenuItemFont.Height = -12
DefMenuItemFont.Name = #23435#20307
DefMenuItemFont.Style = []
UseDefaultSysMenu = True
SkinData = frm_main.bsSkinData1
MinHeight = 0
MinWidth = 0
Magnetic = False
MagneticSize = 10
BorderIcons = [biMinimize]
Left = 336
Top = 140
end
object SaveDialog1: TSaveDialog
Filter = '*.txt|*.txt'
Left = 392
Top = 104
end
object t_op_ctn: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'SELECT t_op_ctn.'#32534#21495',t_op_ctn.'#25968#37327', t_code_ctn.EDI'#20195#30721',t_op_ctn.'#23610#23544',t_o' +
'p_ctn.'#21253#35013
',t_op_ctn.'#31665#22411',t_op_ctn.'#31665#21495',t_op_ctn.'#37325#37327',t_op_ctn.'#23553#21495',t_op_ctn.'#23610#30721',t_o' +
'p_ctn.'#20214#25968',t_op_ctn.'#31216#37325#26041#24335',t_op_ctn.'#31216#37325#37325#37327
'FROM t_op_ctn INNER JOIN'
' t_code_ctn ON t_op_ctn.'#20195#30721' = t_code_ctn.'#20195#30721
'WHERE t_op_ctn.'#32534#21495'=:'#32534#21495)
Left = 176
Top = 296
end
object t_op_edi: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'SELECT * '
'FROM T_OP_AMS'
'WHERE '#32534#21495'=:'#32534#21495)
Left = 440
Top = 176
end
object t_op_edictn: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'Param1'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_op_edictn where '#32534#21495'=:'#32534#21495)
Left = 184
Top = 327
end
object IdFTP1: TIdFTP
IPVersion = Id_IPv4
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 56
Top = 355
end
object PopupMenu3: TPopupMenu
OwnerDraw = True
Left = 244
Top = 304
object INTTRA1: TMenuItem
Caption = #21457#36865' INTTRA'
OnClick = INTTRA1Click
end
object N2: TMenuItem
Caption = '-'
end
object CARGO1: TMenuItem
Caption = #21457#36865' CARGO'
OnClick = CARGO1Click
end
object N3: TMenuItem
Caption = '-'
end
object CMA2: TMenuItem
Caption = #21457#36865' CMA'
OnClick = CMA2Click
end
object N4: TMenuItem
Caption = '-'
end
object N17: TMenuItem
Caption = #23384#20026' INTTRA'
OnClick = N17Click
end
object N18: TMenuItem
Caption = '-'
end
object N34: TMenuItem
Caption = #23384#20026' CARGO'
OnClick = N34Click
end
object N1: TMenuItem
Caption = '-'
end
object CMA1: TMenuItem
Caption = #23384#20026' CMA'
OnClick = CMA1Click
end
end
end