📄 uqueryexport.~dfm
字号:
object fmqueryexport: Tfmqueryexport
Left = 242
Top = 224
Width = 875
Height = 565
Caption = #20986#21475#38598#35013#31665#32508#21512#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
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 236
Top = 16
Width = 396
Height = 35
Caption = #20986#21475#38598#35013#31665#32508#21512#26597#35810#30028#38754
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -35
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsUnderline]
ParentFont = False
end
object groupbox1: TGroupBox
Left = 13
Top = 54
Width = 841
Height = 215
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 ListBox1: TListBox
Left = 75
Top = 16
Width = 153
Height = 193
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnClick = ListBox1Click
end
object RadioGroup1: TRadioGroup
Left = 302
Top = 16
Width = 237
Height = 97
Caption = #19982#20540#20851#31995
ItemIndex = 0
Items.Strings = (
#31561#20110
#19981#31561#20110
#30456#20284#20110
#33539#22260#22312)
TabOrder = 1
OnClick = RadioGroup1Click
end
object Edit1: TEdit
Left = 415
Top = 37
Width = 113
Height = 21
CharCase = ecUpperCase
TabOrder = 2
Text = 'EDIT1'
end
object Edit2: TEdit
Left = 415
Top = 74
Width = 113
Height = 21
CharCase = ecUpperCase
TabOrder = 3
Text = 'EDIT2'
end
object Button1: TButton
Left = 631
Top = 94
Width = 104
Height = 29
Caption = #28155' '#21152
TabOrder = 4
OnClick = Button1Click
end
object ListBox2: TListBox
Left = 302
Top = 115
Width = 238
Height = 92
ItemHeight = 13
TabOrder = 5
end
object ListBox3: TListBox
Left = 800
Top = 16
Width = 33
Height = 193
ItemHeight = 13
TabOrder = 6
Visible = False
end
object RadioGroup2: TRadioGroup
Left = 631
Top = 16
Width = 105
Height = 65
Caption = #26465#20214#20851#31995
ItemIndex = 0
Items.Strings = (
#24182#19988
#25110)
TabOrder = 7
end
object Button2: TButton
Left = 631
Top = 181
Width = 104
Height = 29
Caption = #26597' '#35810
TabOrder = 8
OnClick = Button2Click
end
object Button3: TButton
Left = 631
Top = 123
Width = 104
Height = 29
Caption = #21024' '#38500
TabOrder = 9
OnClick = Button3Click
end
object Button4: TButton
Left = 631
Top = 152
Width = 104
Height = 29
Caption = #28165' '#31354
TabOrder = 10
OnClick = Button4Click
end
object ComboBox1: TComboBox
Left = 24
Top = 80
Width = 17
Height = 21
ItemHeight = 13
TabOrder = 11
Text = 'ComboBox1'
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 274
Width = 841
Height = 171
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 = 155
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 = 'Chm'
PickList.Strings = (
#35774#22791
#24223#32440)
Title.Caption = #36135#21517
Visible = True
end
item
Expanded = False
FieldName = 'Ccxr'
Title.Caption = #25345#31665#20154
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 = 'Cmdg'
Title.Caption = #30446#30340#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 = 472
Top = 476
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 = 2
OnClick = BitBtn4Click
end
object StatusBar1: TStatusBar
Left = 18
Top = 443
Width = 840
Height = 21
Align = alNone
Panels = <
item
Alignment = taCenter
Width = 140
end>
SimplePanel = False
end
object BitBtn1: TBitBtn
Left = 264
Top = 476
Width = 130
Height = 40
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 = Query3
Left = 56
Top = 16
end
object Table2: TTable
AutoCalcFields = False
DatabaseName = 'miscontainer'
TableName = 'exportcontainer.DB'
Left = 256
Top = 8
object Table2Drq: TDateField
DisplayLabel = #26085#26399
FieldName = 'Drq'
end
object Table2Ccm: TStringField
DisplayLabel = #33337#21517
FieldName = 'Ccm'
Size = 16
end
object Table2Chc: TStringField
DisplayLabel = #33322#27425
FieldName = 'Chc'
Size = 6
end
object Table2Cxh: TStringField
DisplayLabel = #31665#21495
FieldName = 'Cxh'
Size = 11
end
object Table2Ccc: TStringField
DisplayLabel = #23610#23544
FieldName = 'Ccc'
Size = 3
end
object Table2Cxx: TStringField
DisplayLabel = #31665#22411
FieldName = 'Cxx'
Size = 2
end
object Table2Lzt: TBooleanField
DisplayLabel = #29366#24577
FieldName = 'Lzt'
end
object Table2Ccxr: TStringField
DisplayLabel = #25345#31665#20154
FieldName = 'Ccxr'
Size = 8
end
object Table2Chm: TStringField
DisplayLabel = #36135#21517
FieldName = 'Chm'
Size = 10
end
object Table2Lyc: TBooleanField
DisplayLabel = #21407#27531
FieldName = 'Lyc'
end
object Table2Cysfs: TStringField
DisplayLabel = #36816#36755#26041#24335
FieldName = 'Cysfs'
Size = 8
end
object Table2Cinout: TStringField
DisplayLabel = #20869#22806#36152
FieldName = 'Cinout'
Size = 4
end
end
object Query3: TQuery
DatabaseName = 'miscontainer'
Left = 696
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -