mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 08:49:31 +02:00
a828ed780c
- add support for LazReport tutorial (with PHOTO blob field) - allow loading your own script - better error reporting - support SET TERM if using Firebird - various small fixes patch from Reinier Olislagers, issue #26355 git-svn-id: trunk@45575 -
64 lines
1.2 KiB
Plaintext
64 lines
1.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 361
|
|
Height = 387
|
|
Top = 162
|
|
Width = 515
|
|
Caption = 'TSQLScriptSample'
|
|
ClientHeight = 387
|
|
ClientWidth = 515
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '1.3'
|
|
object ScriptMemo: TMemo
|
|
Left = 8
|
|
Height = 272
|
|
Top = 48
|
|
Width = 496
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 3
|
|
end
|
|
object CmdCopyDDL: TButton
|
|
Left = 168
|
|
Height = 25
|
|
Top = 16
|
|
Width = 147
|
|
Caption = 'Copy &table creation script'
|
|
OnClick = CmdCopyDDLClick
|
|
TabOrder = 1
|
|
end
|
|
object CmdCopyDML: TButton
|
|
Left = 357
|
|
Height = 25
|
|
Top = 16
|
|
Width = 147
|
|
Caption = 'Copy &sample data script'
|
|
OnClick = CmdCopyDMLClick
|
|
TabOrder = 2
|
|
end
|
|
object CmdRunScript: TButton
|
|
Left = 184
|
|
Height = 25
|
|
Top = 336
|
|
Width = 75
|
|
Caption = '&Run script'
|
|
OnClick = CmdRunScriptClick
|
|
TabOrder = 4
|
|
end
|
|
object CmdOpenSQL: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Hint = 'Loads a file containing SQL script/SQL commands'
|
|
Top = 16
|
|
Width = 147
|
|
Caption = '&Open SQL file...'
|
|
OnClick = CmdOpenSQLClick
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
left = 16
|
|
top = 336
|
|
end
|
|
end
|