📄 eprselectunit.dfm
字号:
object EprSelectFrm: TEprSelectFrm
Left = 219
Top = 182
BorderIcons = []
BorderStyle = bsSingle
Caption = #21333#20301#36873#25321
ClientHeight = 215
ClientWidth = 398
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 24
Top = 8
Width = 353
Height = 137
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #21333#20301#21517#31216
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 108
Visible = True
end
item
Expanded = False
FieldName = #21333#20301#20195#30721
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = #32479#35745#24180#20221
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end>
end
object BitBtn1: TBitBtn
Left = 51
Top = 162
Width = 75
Height = 25
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 243
Top = 163
Width = 75
Height = 25
Caption = #21462#28040
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 2
end
object ADOQuery1: TADOQuery
Connection = BusTradeDataModule.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select distinct * from '#20844#29992#20107#19994#21333#20301#22522#26412#24773#20917#34920)
Left = 232
Top = 152
object ADOQuery1DSDesigner: TWideStringField
DisplayWidth = 16
FieldName = #21333#20301#21517#31216
Size = 50
end
object ADOQuery1DSDesigner3: TWideStringField
DisplayWidth = 16
FieldName = #21333#20301#20195#30721
Size = 12
end
object ADOQuery1DSDesigner27: TSmallintField
DisplayWidth = 12
FieldName = #32479#35745#24180#20221
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 280
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -