📄 uimportcontainer.dfm
字号:
object fmimportcontainer: Tfmimportcontainer
Left = 199
Top = 140
Width = 875
Height = 591
Caption = #36827#21475#38598#35013#31665#36755#20837#30028#38754
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 271
Top = 16
Width = 324
Height = 35
Caption = #36827#21475#38598#35013#31665#36755#20837#30028#38754
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -35
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsUnderline]
ParentFont = False
end
object groupbox1: TGroupBox
Left = 16
Top = 64
Width = 841
Height = 177
Caption = #35760#24405#36755#20837
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label2: TLabel
Left = 25
Top = 22
Width = 33
Height = 13
Caption = #26085#26399':'
end
object Label3: TLabel
Left = 25
Top = 51
Width = 33
Height = 13
Caption = #33337#21517':'
end
object Label4: TLabel
Left = 25
Top = 75
Width = 33
Height = 13
Caption = #33322#27425':'
end
object Label5: TLabel
Left = 25
Top = 100
Width = 33
Height = 13
Caption = #31665#21495':'
end
object Label6: TLabel
Left = 25
Top = 148
Width = 33
Height = 13
Caption = #31665#37325':'
end
object Label7: TLabel
Left = 267
Top = 22
Width = 33
Height = 13
Caption = #29366#24577':'
end
object Label8: TLabel
Left = 267
Top = 72
Width = 46
Height = 13
Caption = #25345#31665#20154':'
end
object Label9: TLabel
Left = 267
Top = 97
Width = 33
Height = 13
Caption = #31665#20301':'
end
object Label10: TLabel
Left = 267
Top = 122
Width = 33
Height = 13
Caption = #36135#21517':'
end
object Label11: TLabel
Left = 267
Top = 148
Width = 59
Height = 13
Caption = #36816#36755#26041#24335':'
end
object Label12: TLabel
Left = 514
Top = 47
Width = 46
Height = 13
Caption = #35013#36135#28207':'
end
object Label14: TLabel
Left = 25
Top = 124
Width = 33
Height = 13
Caption = #23610#23544':'
end
object Label15: TLabel
Left = 514
Top = 97
Width = 65
Height = 13
Caption = #27531#25439#25551#36848#65306
end
object Label16: TLabel
Left = 267
Top = 47
Width = 33
Height = 13
Caption = #31665#22411':'
end
object Label13: TLabel
Left = 514
Top = 22
Width = 52
Height = 13
Caption = #20869#22806#36152#65306
end
object DateTimePicker1: TDateTimePicker
Left = 64
Top = 18
Width = 110
Height = 20
CalAlignment = dtaLeft
Date = 38928.8932289352
Time = 38928.8932289352
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object Edit1: TEdit
Left = 64
Top = 47
Width = 110
Height = 21
CharCase = ecUpperCase
ImeMode = imChinese
ImeName = #26234#33021'ABC'#36755#20837#27861
MaxLength = 14
TabOrder = 1
Text = 'EDIT1'
end
object Edit2: TEdit
Left = 64
Top = 71
Width = 110
Height = 21
CharCase = ecUpperCase
ImeMode = imAlpha
MaxLength = 6
TabOrder = 2
Text = 'EDIT2'
end
object Edit3: TEdit
Left = 64
Top = 96
Width = 110
Height = 21
CharCase = ecUpperCase
ImeMode = imAlpha
MaxLength = 11
TabOrder = 3
Text = 'EDIT3'
OnExit = Edit3Exit
end
object ComboBox1: TComboBox
Left = 64
Top = 120
Width = 65
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 4
Text = '20'#39
Items.Strings = (
'20'#39
'40'#39
'45'#39)
end
object Edit4: TEdit
Left = 64
Top = 144
Width = 110
Height = 21
MaxLength = 6
TabOrder = 5
Text = 'Edit4'
end
object ComboBox2: TComboBox
Left = 330
Top = 47
Width = 79
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 6
Text = 'GP'
Items.Strings = (
'GP'
'FR'
'OT'
'OS')
end
object ComboBox3: TComboBox
Left = 330
Top = 71
Width = 110
Height = 21
ItemHeight = 13
TabOrder = 7
Text = 'SNL'
Items.Strings = (
'HJ'
'SNL'
'YML'
'CMA'
'ZIM'
'APL'
'MOL'
'SYMS'
'COSCO')
end
object ComboBox4: TComboBox
Left = 330
Top = 96
Width = 110
Height = 21
ItemHeight = 13
ItemIndex = 1
TabOrder = 8
Text = #21518#26041#24211#22330
Items.Strings = (
#30721#22836#21069#27839
#21518#26041#24211#22330)
end
object ComboBox5: TComboBox
Left = 330
Top = 120
Width = 110
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 9
Text = #35774#22791
Items.Strings = (
#35774#22791
#24223#32440)
end
object ComboBox6: TComboBox
Left = 330
Top = 144
Width = 110
Height = 21
ItemHeight = 13
TabOrder = 10
Text = #33337'->'#22330
Items.Strings = (
#33337'->'#22330
#36710'->'#22330)
end
object ComboBox7: TComboBox
Left = 572
Top = 43
Width = 110
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 11
Text = #19978#28023
Items.Strings = (
#19978#28023
#21335#20140
#38215#27743
#33436#28246)
end
object CheckBox1: TCheckBox
Left = 514
Top = 72
Width = 105
Height = 17
Caption = #21407#27531
TabOrder = 12
OnClick = CheckBox1Click
end
object Edit5: TEdit
Left = 572
Top = 93
Width = 200
Height = 21
Ctl3D = True
Enabled = False
ImeMode = imChinese
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
TabOrder = 13
Text = 'Edit5'
end
object RadioGroup1: TRadioGroup
Left = 330
Top = 12
Width = 146
Height = 32
Columns = 2
ItemIndex = 1
Items.Strings = (
'(E)'#31354#31665
'(F)'#37325#31665)
TabOrder = 14
end
object BitBtn5: TBitBtn
Left = 677
Top = 123
Width = 130
Height = 40
Caption = #25171#21360#35760#24405
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 15
OnClick = BitBtn5Click
end
object RadioGroup2: TRadioGroup
Left = 572
Top = 9
Width = 119
Height = 32
BiDiMode = bdLeftToRight
Color = clBtnFace
Columns = 2
ItemIndex = 1
Items.Strings = (
#20869#36152
#22806#36152)
ParentBiDiMode = False
ParentColor = False
TabOrder = 16
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 244
Width = 841
Height = 229
Caption = #35760#24405#27983#35272
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 14
Width = 837
Height = 213
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clNavy
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnExit = DBGrid1Exit
Columns = <
item
Expanded = False
FieldName = 'Drq'
Title.Caption = #26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'Ccm'
Title.Caption = #33337#21517
Visible = True
end
item
Expanded = False
FieldName = 'Chc'
Title.Caption = #33322#27425
Visible = True
end
item
Expanded = False
FieldName = 'Cxh'
Title.Caption = #31665#21495
Visible = True
end
item
Expanded = False
FieldName = 'Ccc'
PickList.Strings = (
'20'#39
'40'#39
'45'#39)
Title.Caption = #23610#23544
Visible = True
end
item
Expanded = False
FieldName = 'Cxx'
Title.Caption = #31665#22411
Visible = True
end
item
Expanded = False
FieldName = 'Lzt'
PickList.Strings = (
'True'
'False')
Title.Caption = #29366#24577
Visible = True
end
item
Expanded = False
FieldName = 'Nxz'
Title.Caption = #31665#37325
Visible = True
end
item
Expanded = False
FieldName = 'Ccxr'
Title.Caption = #25345#31665#20154
Visible = True
end
item
Expanded = False
FieldName = 'Cxw'
Title.Caption = #31665#20301
Visible = True
end
item
Expanded = False
FieldName = 'Chm'
PickList.Strings = (
#35774#22791
#24223#32440)
Title.Caption = #36135#21517
Visible = True
end
item
Expanded = False
FieldName = 'Cysfs'
PickList.Strings = (
#33337'->'#22330
#36710'->'#22330)
Title.Caption = #36816#36755#26041#24335
Visible = True
end
item
Expanded = False
FieldName = 'Cinout'
Title.Caption = #20869#22806#36152
Visible = True
end
item
Expanded = False
FieldName = 'Czhg'
Title.Caption = #35013#36135#28207
Visible = True
end
item
Expanded = False
FieldName = 'Lyc'
PickList.Strings = (
'True'
'False')
Title.Caption = #21407#27531
Visible = True
end
item
Expanded = False
FieldName = 'Mbz'
Title.Caption = #22791#27880
Visible = True
end>
end
end
object BitBtn1: TBitBtn
Left = 128
Top = 505
Width = 130
Height = 40
Caption = #28155#21152#35760#24405
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 288
Top = 505
Width = 130
Height = 40
Caption = #21024#38500#35760#24405
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 448
Top = 505
Width = 130
Height = 40
Caption = #25552#20132#20219#21153
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 608
Top = 505
Width = 130
Height = 40
Caption = #36864#20986#31383#21475
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = BitBtn4Click
end
object StatusBar1: TStatusBar
Left = 18
Top = 472
Width = 840
Height = 20
Align = alNone
Panels = <
item
Alignment = taCenter
Width = 140
end
item
Alignment = taCenter
Width = 140
end
item
Alignment = taCenter
Width = 140
end
item
Alignment = taCenter
Width = 140
end
item
Alignment = taCenter
Width = 140
end
item
Alignment = taCenter
Width = 140
end>
SimplePanel = False
end
object Table1: TTable
Active = True
AutoCalcFields = False
AfterScroll = Table1AfterScroll
DatabaseName = 'miscontainer'
DefaultIndex = False
TableName = 'tmpimportcontainer.DB'
TableType = ttParadox
Left = 80
Top = 8
end
object DataSource1: TDataSource
DataSet = Table1
Left = 56
Top = 16
end
object Query1: TQuery
DatabaseName = 'miscontainer'
SQL.Strings = (
'select * from tmpimportcontainer where ccc=:ccc1 and lzt=:lzt1 '
'')
Left = 152
Top = 16
ParamData = <
item
DataType = ftUnknown
Name = 'ccc1'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'lzt1'
ParamType = ptUnknown
end>
end
object Query2: TQuery
DatabaseName = 'miscontainer'
SQL.Strings = (
'select ccc,lzt,sum(nxz) from tmpimportcontainer group by ccc,lzt'
'')
Left = 208
Top = 24
end
object BatchMove1: TBatchMove
Destination = Table2
Source = Table1
Left = 656
Top = 24
end
object Table2: TTable
AutoCalcFields = False
DatabaseName = 'miscontainer'
TableName = 'importcontainer.DB'
Left = 256
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -