📄 uqueryimportyf.dfm
字号:
object fmqueryimportyf: Tfmqueryimportyf
Left = 204
Top = 210
Width = 766
Height = 498
Caption = #36827#21475#38598#35013#31665#36755#20837#30028#38754'('#25353#26376#20221' )'
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
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 184
Top = 16
Width = 390
Height = 29
Caption = #36827#21475#38598#35013#31665#26597#35810#30028#38754'('#25353#26376#20221')'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsUnderline]
ParentFont = False
end
object groupbox1: TGroupBox
Left = 10
Top = 56
Width = 735
Height = 129
Caption = #26597#35810#35774#32622
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label2: TLabel
Left = 215
Top = 24
Width = 63
Height = 14
Caption = #36873#25321#26376#20221':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 465
Top = 18
Width = 55
Height = 23
Caption = #26597#35810
TabOrder = 0
OnClick = Button1Click
end
object ComboBox1: TComboBox
Left = 291
Top = 16
Width = 153
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 16
ParentFont = False
TabOrder = 1
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'')
end
object RadioGroup1: TRadioGroup
Left = 296
Top = 51
Width = 70
Height = 71
Caption = #36807#28388#26465#20214'1'
ItemIndex = 2
Items.Strings = (
#31354#31665
#37325#31665
#20840#37096)
TabOrder = 2
end
object RadioGroup2: TRadioGroup
Left = 368
Top = 50
Width = 70
Height = 71
Caption = #36807#28388#26465#20214'2'
ItemIndex = 3
Items.Strings = (
'20'#39
'40'#39
'45'#39
#20840#37096)
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 7
Top = 192
Width = 738
Height = 172
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 = 734
Height = 156
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clNavy
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
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 = 'Lout'
Title.Caption = #24050#36208
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
item
Expanded = False
FieldName = 'Cyh'
Title.Caption = #25805#20316#29992#25143
Visible = True
end>
end
end
object BitBtn4: TBitBtn
Left = 410
Top = 401
Width = 140
Height = 45
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 = 2
OnClick = BitBtn4Click
end
object StatusBar1: TStatusBar
Left = 8
Top = 364
Width = 737
Height = 21
Align = alNone
Panels = <
item
Alignment = taCenter
Width = 122
end>
SimplePanel = False
end
object BitBtn1: TBitBtn
Left = 186
Top = 401
Width = 140
Height = 45
Caption = #25171#21360#35760#24405
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn1Click
end
object DataSource1: TDataSource
DataSet = Table1
Left = 24
Top = 8
end
object Table1: TTable
Active = True
DatabaseName = 'miscontainer'
TableName = 'importcontainer.DB'
Left = 80
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -