📄 unit2.~dfm
字号:
object Form1: TForm1
Left = 277
Top = 185
Width = 399
Height = 267
Caption = #21160#24577#26597#35810
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 8
Top = 16
Width = 60
Height = 12
Caption = #21160#29289#21517#31216#65306
end
object EditName: TEdit
Left = 72
Top = 8
Width = 177
Height = 20
TabOrder = 0
end
object DBGrid1: TDBGrid
Left = 8
Top = 40
Width = 377
Height = 161
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object BtnQuery: TButton
Left = 312
Top = 8
Width = 75
Height = 25
Caption = #26597#35810'(&Q)'
TabOrder = 2
OnClick = BtnQueryClick
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 208
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 3
end
object DataSource1: TDataSource
DataSet = Query1
Left = 280
Top = 136
end
object Query1: TQuery
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select Name,Weight,Area From animals Where Name=:AnimalName')
Left = 312
Top = 136
ParamData = <
item
DataType = ftString
Name = 'AnimalName'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -