📄 unit1.dfm
字号:
object Form1: TForm1
Left = 308
Top = 240
Width = 544
Height = 258
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 DBGrid1: TDBGrid
Left = 0
Top = 111
Width = 536
Height = 120
Align = alBottom
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object RadioGroup2: TRadioGroup
Left = 328
Top = 8
Width = 193
Height = 89
Caption = 'Remoute CONTROL SERVER'
ItemIndex = 1
Items.Strings = (
'START'
'STOP')
TabOrder = 1
OnClick = RadioGroup2Click
end
object AstaClientSocket1: TAstaClientSocket
Active = False
Address = '127.0.0.1'
ClientType = ctNonBlocking
Port = 9000
SQLTransactionStart = 'BEGIN TRANSACTION'
SQLTransactionEnd = 'COMMIT'
IsapiTimeOut = 5
Left = 56
Top = 48
end
object AstaClientDataSet1: TAstaClientDataSet
Constraints = <>
EditMode = 'Read Only'
AstaClientSocket = AstaClientSocket1
SQL.Strings = (
'SELECT * FROM animals')
Params = <>
TableName = 'animals'
Left = 120
Top = 104
DetailFilter = ''
FastFields = ()
FMultiTable = ()
OracleSequence = ''
UpdateMethod = umCached
end
object DataSource1: TDataSource
DataSet = AstaClientDataSet1
Left = 48
Top = 96
end
object RemoteControlServer1: TRemoteControlServer
Port = 23
Password = 'Remote Control Password'
Left = 408
Top = 48
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -