📄 ssh_client.dfm
字号:
inherited SSHClientFrame: TSSHClientFrame
Width = 583
Height = 357
Align = alClient
object Panel1: TPanel
Left = 0
Top = 0
Width = 583
Height = 291
Align = alTop
BevelOuter = bvNone
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 0
object Panel4: TPanel
Left = 296
Top = 3
Width = 249
Height = 24
BevelOuter = bvNone
Color = 48127
TabOrder = 1
object btConnectDB: TSpeedButton
Left = 1
Top = 1
Width = 123
Height = 22
Caption = 'Connect DB'
Enabled = False
Flat = True
Transparent = False
OnClick = btConnectDBClick
end
object btDisconnectDB: TSpeedButton
Left = 125
Top = 1
Width = 123
Height = 22
Caption = 'Disconnect DB'
Enabled = False
Flat = True
Transparent = False
OnClick = btDisconnectDBClick
end
end
object Panel3: TPanel
Left = 1
Top = 3
Width = 249
Height = 24
BevelOuter = bvNone
Color = 48127
TabOrder = 0
object btConnectSSH: TSpeedButton
Left = 1
Top = 1
Width = 123
Height = 22
Caption = 'Connect SSH'
Flat = True
Transparent = False
OnClick = btConnectSSHClick
end
object btDisconnectSSH: TSpeedButton
Left = 125
Top = 1
Width = 123
Height = 22
Caption = 'Disconnect SSH'
Enabled = False
Flat = True
Transparent = False
OnClick = btDisconnectSSHClick
end
end
object Panel5: TPanel
Tag = 1
Left = 1
Top = 30
Width = 579
Height = 256
BevelOuter = bvNone
Color = 48127
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object Panel6: TPanel
Left = 1
Top = 1
Width = 288
Height = 208
BevelOuter = bvNone
TabOrder = 0
object Label6: TLabel
Left = 16
Top = 106
Width = 51
Height = 13
Caption = 'User name'
end
object Label1: TLabel
Left = 8
Top = 1
Width = 98
Height = 13
Caption = 'SSH Connection '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 54
Width = 56
Height = 13
Caption = 'SSH Server'
end
object Label5: TLabel
Left = 16
Top = 80
Width = 44
Height = 13
Caption = 'SSH Port'
end
object Label3: TLabel
Left = 16
Top = 26
Width = 94
Height = 13
Caption = 'Authentication kind:'
end
object pnPassword: TPanel
Left = 10
Top = 124
Width = 265
Height = 31
BevelOuter = bvNone
TabOrder = 5
object Label7: TLabel
Left = 6
Top = 8
Width = 46
Height = 13
Caption = 'Password'
end
object edSSHPassword: TEdit
Left = 70
Top = 4
Width = 185
Height = 21
PasswordChar = '*'
TabOrder = 0
OnChange = edSSHUserNameChange
end
end
object edSSHUserName: TEdit
Left = 80
Top = 102
Width = 185
Height = 21
TabOrder = 4
OnChange = edSSHUserNameChange
end
object edSSHHost: TEdit
Left = 80
Top = 50
Width = 185
Height = 21
TabOrder = 2
OnChange = edSSHUserNameChange
end
object edSSHPort: TEdit
Left = 80
Top = 76
Width = 185
Height = 21
TabOrder = 3
OnChange = edSSHUserNameChange
end
object rbPassword: TRadioButton
Left = 120
Top = 24
Width = 71
Height = 17
Caption = 'Password'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbPasswordClick
end
object rbPublicKey: TRadioButton
Left = 195
Top = 24
Width = 76
Height = 17
Caption = 'Public key'
TabOrder = 1
OnClick = rbPublicKeyClick
end
object pnPrivateKey: TPanel
Left = 10
Top = 124
Width = 265
Height = 77
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
Visible = False
object Label8: TLabel
Left = 6
Top = 8
Width = 53
Height = 13
Caption = 'Private key'
end
object cbPrivateKey: TComboBox
Left = 70
Top = 4
Width = 185
Height = 21
ItemHeight = 13
TabOrder = 0
OnChange = cbPrivateKeyChange
OnDropDown = cbPrivateKeyDropDown
end
object Panel12: TPanel
Left = 130
Top = 32
Width = 125
Height = 24
BevelOuter = bvNone
Color = 48127
TabOrder = 1
object btKeyGen: TSpeedButton
Left = 1
Top = 1
Width = 123
Height = 22
Caption = 'Generate key'
Flat = True
Transparent = False
OnClick = btKeyGenClick
end
end
end
object cbRandomization: TCheckBox
Left = 16
Top = 160
Width = 119
Height = 17
Hint = 'Generation random data increase connection reliability'
Caption = 'Silent randomization'
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
end
object Panel7: TPanel
Left = 290
Top = 1
Width = 288
Height = 208
BevelOuter = bvNone
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 1
Width = 113
Height = 13
Caption = 'MySQL Connection '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object lbListenPort: TLabel
Left = 16
Top = 54
Width = 50
Height = 13
Caption = 'Listen Port'
end
object Label10: TLabel
Left = 16
Top = 80
Width = 69
Height = 13
Caption = 'MySQL Server'
end
object Label11: TLabel
Left = 16
Top = 106
Width = 57
Height = 13
Caption = 'MySQL Port'
end
object Label12: TLabel
Left = 16
Top = 132
Width = 51
Height = 13
Caption = 'User name'
end
object Label13: TLabel
Left = 16
Top = 158
Width = 46
Height = 13
Caption = 'Password'
end
object Label14: TLabel
Left = 16
Top = 184
Width = 46
Height = 13
Caption = 'Database'
end
object rbLocalPF: TRadioButton
Left = 131
Top = 24
Width = 120
Height = 17
Caption = 'LocalPortForwarding'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = rbLocalPFClick
end
object rbDirect: TRadioButton
Left = 24
Top = 24
Width = 89
Height = 17
Caption = 'Direct SSH'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = rbDirectClick
end
object edDBHost: TEdit
Left = 98
Top = 76
Width = 169
Height = 21
TabOrder = 2
OnChange = edListenPortChange
end
object edDBUserName: TEdit
Left = 98
Top = 128
Width = 169
Height = 21
TabOrder = 4
OnChange = edListenPortChange
end
object edDBPassword: TEdit
Left = 98
Top = 154
Width = 169
Height = 21
PasswordChar = '*'
TabOrder = 5
OnChange = edListenPortChange
end
object seDBPort: TSpinEdit
Left = 98
Top = 102
Width = 169
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 3306
OnChange = edListenPortChange
end
object cbDBDatabase: TComboBox
Left = 98
Top = 180
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 6
OnChange = cbDBDatabaseChange
OnDropDown = cbDBDatabaseDropDown
end
object seListenPort: TSpinEdit
Left = 98
Top = 50
Width = 169
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 7
Value = 5001
OnChange = edListenPortChange
end
end
object s: TPanel
Left = 1
Top = 210
Width = 577
Height = 22
BevelOuter = bvNone
TabOrder = 2
object lbTableName: TLabel
Left = 10
Top = 6
Width = 56
Height = 13
Caption = 'Table name'
end
object cbTableName: TComboBox
Left = 83
Top = 1
Width = 212
Height = 21
DropDownCount = 16
Enabled = False
ItemHeight = 13
TabOrder = 0
OnChange = cbTableNameChange
OnDropDown = cbTableNameDropDown
end
end
object Panel9: TPanel
Left = 1
Top = 232
Width = 577
Height = 23
BevelOuter = bvNone
Color = 48127
TabOrder = 3
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Open'
Enabled = False
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btClose: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Close'
Enabled = False
Flat = True
Transparent = False
OnClick = btCloseClick
end
object DBNavigator: TDBNavigator
Left = 167
Top = 1
Width = 220
Height = 22
DataSource = MyDataSource
Flat = True
TabOrder = 0
end
object Panel8: TPanel
Left = 388
Top = 1
Width = 190
Height = 22
BevelOuter = bvNone
TabOrder = 1
end
end
end
end
object Panel2: TPanel
Left = 0
Top = 291
Width = 583
Height = 66
Align = alClient
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
object DBGrid: TDBGrid
Left = 0
Top = 0
Width = 583
Height = 66
Align = alClient
DataSource = MyDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object ScSSHClient: TScSSHClient
HostKeyAlgorithms = <
item
Algorithm = aaRSA
end
item
Algorithm = aaDSA
end>
HostName = 'localhost'
KeyStorage = ScFileStorage
AfterConnect = ScSSHClientAfterConnect
BeforeConnect = ScSSHClientBeforeConnect
AfterDisconnect = ScSSHClientAfterDisconnect
OnServerKeyValidate = ScSSHClientServerKeyValidate
Left = 12
Top = 216
end
object MyConnection: TMyConnection
AfterConnect = MyConnectionAfterConnect
BeforeConnect = MyConnectionBeforeConnect
AfterDisconnect = MyConnectionAfterDisconnect
LoginPrompt = False
Left = 416
Top = 257
end
object MyTable: TMyTable
Connection = MyConnection
AfterOpen = MyTableAfterOpen
AfterClose = MyTableAfterClose
FetchAll = True
Left = 448
Top = 257
end
object MyDataSource: TMyDataSource
DataSet = MyTable
Left = 480
Top = 257
end
object MySSHIOHandler: TMySSHIOHandler
Client = ScSSHClient
Left = 84
Top = 216
end
object ScFileStorage: TScFileStorage
Left = 112
Top = 216
end
object ScSSHChannel: TScSSHChannel
Client = ScSSHClient
Left = 40
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -