313 lines
6.1 KiB
Plaintext

object frmMain: TfrmMain
Left = 195
Top = 110
Width = 738
Height = 603
HorzScrollBar.Range = 202
ActiveControl = cbxProtocol
Caption = 'ZeosDBO Blobs Test'
Color = clBackground
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
TextWidth = 6
object pnControl: TPanel
Left = 536
Top = 0
Width = 202
Height = 603
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object lblProtocol: TLabel
Left = 4
Top = 8
Width = 42
Height = 13
Caption = 'Protocol:'
end
object cbxProtocol: TComboBox
Left = 4
Top = 24
Width = 193
Height = 21
ItemHeight = 15
Items.Strings = (
'mysql'
'postgresql'
'postgresql-7.2'
'interbase-5'
'interbase-6'
'firebird-1.0'
'firebird-1.5'
'mssql'
'sybase'
'oracle'
'db2')
ItemIndex = 1
TabOrder = 0
Text = 'postgresql'
OnChange = PropertiesChange
end
object lblHostName: TLabel
Left = 4
Top = 50
Width = 56
Height = 13
Caption = 'Host Name:'
end
object edtHostName: TEdit
Left = 4
Top = 66
Width = 193
Height = 21
TabOrder = 3
Text = 'localhost'
OnChange = PropertiesChange
end
object lblDatabase: TLabel
Left = 4
Top = 92
Width = 49
Height = 13
Caption = 'Database:'
end
object edtDatabase: TEdit
Left = 4
Top = 108
Width = 193
Height = 21
TabOrder = 5
Text = 'zeoslib'
OnChange = PropertiesChange
end
object lblUserName: TLabel
Left = 4
Top = 134
Width = 56
Height = 13
Caption = 'User Name:'
end
object edtUserName: TEdit
Left = 4
Top = 150
Width = 193
Height = 21
TabOrder = 7
Text = 'root'
OnChange = PropertiesChange
end
object edtPassword: TEdit
Left = 4
Top = 192
Width = 193
Height = 21
TabOrder = 8
OnChange = PropertiesChange
end
object lblPassword: TLabel
Left = 4
Top = 176
Width = 49
Height = 13
Caption = 'Password:'
end
object btnConnect: TButton
Left = 5
Top = 356
Width = 193
Height = 25
Caption = '&Connect'
TabOrder = 10
OnClick = btnConnectClick
end
object btnDisconnect: TButton
Left = 5
Top = 388
Width = 193
Height = 25
Caption = '&Disconnect'
TabOrder = 11
OnClick = btnDisconnectClick
end
object btnOpen: TButton
Left = 5
Top = 428
Width = 193
Height = 25
Caption = '&Open'
TabOrder = 12
OnClick = btnOpenClick
end
object btnClose: TButton
Left = 5
Top = 460
Width = 193
Height = 25
Caption = '&Close'
TabOrder = 13
OnClick = btnCloseClick
end
object btnApplyUpdates: TButton
Left = 5
Top = 499
Width = 193
Height = 25
Caption = '&Apply Updates'
TabOrder = 14
OnClick = btnApplyUpdatesClick
end
object btnCancelUpdates: TButton
Left = 6
Top = 531
Width = 193
Height = 25
Caption = '&Cancel Updates'
TabOrder = 15
OnClick = btnCancelUpdatesClick
end
object lblTableName: TLabel
Left = 7
Top = 218
Width = 61
Height = 13
Caption = 'Table Name:'
end
object edtTableName: TEdit
Left = 4
Top = 234
Width = 193
Height = 21
TabOrder = 17
Text = 'blob_values'
OnChange = PropertiesChange
end
object lblMemoColumn: TLabel
Left = 8
Top = 260
Width = 70
Height = 13
Caption = 'Memo Column:'
end
object edtMemoColumn: TEdit
Left = 5
Top = 276
Width = 193
Height = 21
TabOrder = 19
Text = 'b_text'
OnChange = PropertiesChange
end
object lblBlobColumn: TLabel
Left = 9
Top = 301
Width = 62
Height = 13
Caption = 'Blob Column:'
end
object edtBlobColumn: TEdit
Left = 6
Top = 317
Width = 193
Height = 21
TabOrder = 21
Text = 'b_image'
OnChange = PropertiesChange
end
object btnLoadImage: TButton
Left = 5
Top = 571
Width = 193
Height = 25
Caption = '&Load Image'
TabOrder = 22
OnClick = btnLoadImageClick
end
end
object pnMain: TPanel
Left = 0
Top = 0
Width = 536
Height = 603
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object splMain: TSplitter
Left = 0
Top = 355
Width = 536
Height = 9
Cursor = crVSplit
Align = alBottom
end
object navMain: TDBNavigator
Left = 0
Top = 0
Width = 536
Height = 27
DataSource = dsMain
Align = alTop
TabOrder = 0
end
object gdMain: TDBGrid
Left = 0
Top = 27
Width = 536
Height = 328
Align = alClient
DataSource = dsMain
TabOrder = 1
TitleFont.Color = clBlack
TitleFont.Height = 11
TitleFont.Name = 'MS Shell Dlg'
TitleFont.Pitch = fpVariable
TitleFont.Style = []
TitleFont.Weight = 40
end
object pnDetail: TPanel
Left = 0
Top = 364
Width = 536
Height = 239
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object splDetail: TSplitter
Left = 257
Top = 0
Width = 9
Height = 239
end
object memText: TDBMemo
Left = 0
Top = 0
Width = 257
Height = 239
Align = alLeft
DataField = 'b_text'
DataSource = dsMain
TabOrder = 0
end
object imgBlob: TDBImage
Left = 266
Top = 0
Width = 270
Height = 239
Align = alClient
DataField = 'b_image'
DataSource = dsMain
TabOrder = 1
end
end
end
object dsMain: TDataSource
Left = 16
Top = 80
end
object dlgOpenFile: TOpenDialog
Title = 'Open'
Left = 48
Top = 80
end
end