📄 unit1.dfm
字号:
object Form1: TForm1
Left = 220
Top = 113
Width = 457
Height = 380
Caption = 'Form1'
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 Label1: TLabel
Left = 144
Top = 16
Width = 165
Height = 20
Caption = 'DBGrid'#32452#20214#30340#20351#29992' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 72
Width = 449
Height = 273
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnEditButtonClick = DBGrid1EditButtonClick
Columns = <
item
ButtonStyle = cbsEllipsis
Color = clGradientActiveCaption
Expanded = False
FieldName = 'Name'
Title.Caption = #22269#23478
Width = 80
Visible = True
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'Capital'
Title.Caption = #39318#37117
Width = 100
Visible = True
end
item
Color = clGreen
Expanded = False
FieldName = 'Continent'
PickList.Strings = (
'North America'
'South America')
Title.Caption = #25152#22312#27954
Width = 100
Visible = True
end
item
Color = clBackground
Expanded = False
FieldName = 'Area'
Title.Caption = #38754#31215
Visible = True
end
item
Color = clGray
Expanded = False
FieldName = 'Population'
Title.Caption = #20154#21475
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 2
Top = 48
Width = 440
Height = 25
DataSource = DataSource1
TabOrder = 1
end
object DataSource1: TDataSource
DataSet = Table1
Left = 64
Top = 96
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'country.db'
Left = 128
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -