📄 param.dfm
字号:
object frmParam: TfrmParam
Left = 192
Top = 107
BorderStyle = bsDialog
Caption = 'Param Client'
ClientHeight = 324
ClientWidth = 443
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object cbCountry: TComboBox
Left = 24
Top = 16
Width = 145
Height = 21
ImeName = '中文 (简体) - 微软拼音'
ItemHeight = 13
TabOrder = 0
Items.Strings = (
'Bahamas'
'Belize'
'Bermuda'
'British West Indies'
'Canada'
'Columbia'
'Cyprus'
'Fiji'
'Greece'
'Republic So. Africa'
'US'
'US Virgin Islands'
'Venezuela'
'West Indies')
end
object btnGo: TButton
Left = 200
Top = 16
Width = 75
Height = 25
Caption = 'Go!'
TabOrder = 1
OnClick = btnGoClick
end
object DBGrid1: TDBGrid
Left = 24
Top = 56
Width = 393
Height = 241
DataSource = DataSource1
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DCOMConnection1: TDCOMConnection
ServerGUID = '{CBBD474B-69F6-4BB9-B261-84590A02F89C}'
ServerName = 'Project1.MyAppServ'
Left = 344
Top = 8
end
object cdsParam: TClientDataSet
Aggregates = <>
Params = <
item
DataType = ftString
Name = 'Country'
ParamType = ptUnknown
Value = 'US'
end>
ProviderName = 'DataSetProvider2'
RemoteServer = DCOMConnection1
Left = 376
Top = 8
end
object DataSource1: TDataSource
DataSet = cdsParam
Left = 408
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -