📄 uquerytdhyf.~dfm
字号:
object fmquerytdhyf: Tfmquerytdhyf
Left = 251
Top = 282
Width = 766
Height = 521
Caption = #38598#35013#31665#25552#21333#20449#24687#26597#35810'('#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 = 11
Width = 390
Height = 29
Caption = #38598#35013#31665#25552#21333#20449#24687#26597#35810'('#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 = 44
Width = 735
Height = 77
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 = 109
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 Label3: TLabel
Left = 109
Top = 51
Width = 63
Height = 14
Caption = #36873#25321#20195#29702':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 549
Top = 34
Width = 55
Height = 23
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object ComboBox1: TComboBox
Left = 185
Top = 16
Width = 153
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
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 = 368
Top = 9
Width = 129
Height = 60
Caption = #36807#28388#26465#20214
ItemIndex = 2
Items.Strings = (
#24050#32463#32467#26463#25552#21333
#27809#26377#32467#26463#25552#21333
#20840#37096#25552#21333)
TabOrder = 2
end
object ComboBox2: TComboBox
Left = 185
Top = 43
Width = 153
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ItemHeight = 19
ItemIndex = 4
ParentFont = False
TabOrder = 3
Text = #20840#37096#36135#20195
Items.Strings = (
#39532#38797#23665#22806#36816
#39532#38797#23665#22806#20195
#22269#38469#36135#36816
#23431#29615
#20840#37096#36135#20195)
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 123
Width = 738
Height = 111
Caption = #20027#34920#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 = 95
Align = alClient
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
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 = #25253#28207#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'Ctdh'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #25552#21333#21495
Visible = True
end
item
Expanded = False
FieldName = 'Cdl'
Title.Caption = #36135#29289#20195#29702
Visible = True
end
item
Expanded = False
FieldName = 'Chm'
Title.Caption = #36135#21517
Visible = True
end
item
Expanded = False
FieldName = 'Cjl'
Title.Caption = #31665#37327#35760#24405
Visible = True
end
item
Expanded = False
FieldName = 'Nzl'
Title.Caption = #37325#37327
Visible = True
end
item
Expanded = False
FieldName = 'Lbw'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #26631#23436
Visible = True
end
item
Expanded = False
FieldName = 'Mbz'
Title.Caption = #22791#27880
Visible = True
end>
end
end
object BitBtn4: TBitBtn
Left = 521
Top = 426
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 = 9
Top = 234
Width = 737
Height = 21
Align = alNone
Panels = <
item
Alignment = taCenter
Width = 122
end>
SimplePanel = False
end
object BitBtn1: TBitBtn
Left = 97
Top = 426
Width = 140
Height = 45
Caption = #25171#21360#20027#34920#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 GroupBox3: TGroupBox
Left = 8
Top = 255
Width = 738
Height = 137
Caption = #20316#19994#26126#32454#35760#24405#27983#35272
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
object DBGrid2: TDBGrid
Left = 2
Top = 14
Width = 734
Height = 121
Align = alClient
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
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 = #25286#31665#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'Cch'
Title.Caption = #36710#21495
Visible = True
end
item
Expanded = False
FieldName = 'Ctdh'
Title.Caption = #25552#21333#21495
Visible = True
end
item
Expanded = False
FieldName = 'Cxh'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #31665#21495
Visible = True
end
item
Expanded = False
FieldName = 'Ccc'
Title.Caption = #23610#23544
Visible = True
end
item
Expanded = False
FieldName = 'Cxx'
Title.Caption = #31665#22411
Visible = True
end
item
Expanded = False
FieldName = 'Njs'
Title.Caption = #20214#25968
Visible = True
end
item
Expanded = False
FieldName = 'Nzl'
Title.Caption = #37325#37327
Visible = True
end
item
Expanded = False
FieldName = 'Cxw'
Title.Caption = #31665#20301
Visible = True
end
item
Expanded = False
FieldName = 'Lwc'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #22806#25286
Visible = True
end
item
Expanded = False
FieldName = 'Mbz'
Title.Caption = #22791#27880
Visible = True
end>
end
end
object StatusBar2: TStatusBar
Left = 9
Top = 391
Width = 737
Height = 21
Align = alNone
Panels = <
item
Alignment = taCenter
Width = 122
end>
SimplePanel = False
end
object BitBtn2: TBitBtn
Left = 309
Top = 426
Width = 140
Height = 45
Caption = #25171#21360#20174#34920#35760#24405
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = BitBtn2Click
end
object DataSource1: TDataSource
DataSet = Table1
Left = 24
Top = 8
end
object Table1: TTable
Active = True
AfterScroll = Table1AfterScroll
DatabaseName = 'miscontainer'
TableName = 'Inputtdh.DB'
Left = 80
Top = 16
end
object Table2: TTable
Active = True
DatabaseName = 'miscontainer'
MasterSource = DataSource1
TableName = 'Operout.DB'
Left = 144
Top = 24
end
object DataSource2: TDataSource
DataSet = Table2
Left = 184
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -