mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 16:29:38 +02:00
SqlDb: Improve SQL editor. Patch by Reinier Olislagers.
git-svn-id: trunk@43671 -
This commit is contained in:
juha
parent
3751b5d0a1
commit
79d881edce
@ -35,7 +35,7 @@ msgid "Tables"
|
||||
msgstr "Tabulky"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -43,16 +43,16 @@ msgid "Results"
|
||||
msgstr "Výsledky"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -34,7 +34,7 @@ msgid "Tables"
|
||||
msgstr "Tabellen"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -42,16 +42,16 @@ msgid "Results"
|
||||
msgstr "Ergebnisse"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -34,7 +34,7 @@ msgid "Tables"
|
||||
msgstr "Tablas"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -42,16 +42,16 @@ msgid "Results"
|
||||
msgstr "Resultados"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -35,7 +35,7 @@ msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -43,16 +43,16 @@ msgid "Results"
|
||||
msgstr "Risultati"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -36,7 +36,7 @@ msgid "Tables"
|
||||
msgstr "Lentelės"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -44,16 +44,16 @@ msgid "Results"
|
||||
msgstr "Rezultatai"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -26,7 +26,7 @@ msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -34,16 +34,16 @@ msgid "Results"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -34,7 +34,7 @@ msgid "Tables"
|
||||
msgstr "Tabelas"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -42,16 +42,16 @@ msgid "Results"
|
||||
msgstr "Resultados"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -34,7 +34,9 @@ msgid "Tables"
|
||||
msgstr "Таблицы"
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
#, fuzzy
|
||||
#| msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr "Выражение SQL не содержит синтаксических ошибок."
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -42,16 +44,24 @@ msgid "Results"
|
||||
msgstr "Результаты"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
#, fuzzy
|
||||
#| msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr "Код SQL некорректен"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
#, fuzzy
|
||||
#| msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr "Код SQL корректен"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
#, fuzzy
|
||||
#| msgid ""
|
||||
#| "Syntax error in SQL statement:\n"
|
||||
#| "%s\n"
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
"Синтаксическая ошибка в выражении SQL:\n"
|
||||
|
||||
@ -34,7 +34,7 @@ msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -42,16 +42,16 @@ msgid "Results"
|
||||
msgstr "Результати"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -37,7 +37,7 @@ msgid "Tables"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sqlsyntaxok
|
||||
msgid "No syntax errors in SQL statement."
|
||||
msgid "No syntax errors in SQL statement found."
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.sresulttabcaption
|
||||
@ -45,16 +45,16 @@ msgid "Results"
|
||||
msgstr "返回值"
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlerror
|
||||
msgid "SQL Error"
|
||||
msgid "Probable SQL error"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlok
|
||||
msgid "SQL OK"
|
||||
msgid "Quick SQL check OK"
|
||||
msgstr ""
|
||||
|
||||
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
|
||||
msgid ""
|
||||
"Syntax error in SQL statement:\n"
|
||||
"Probable syntax error in SQL statement:\n"
|
||||
"%s\n"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -9,11 +9,11 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
ClientWidth = 494
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.1'
|
||||
LCLVersion = '1.3'
|
||||
object ButtonsPanel: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 317
|
||||
Height = 41
|
||||
Top = 310
|
||||
Width = 482
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.DefaultCaption = True
|
||||
@ -40,17 +40,23 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
TabOrder = 1
|
||||
object OpenToolButton: TToolButton
|
||||
Left = 1
|
||||
Hint = 'Load SQL code...'
|
||||
Top = 2
|
||||
Caption = 'OpenToolButton'
|
||||
ImageIndex = 0
|
||||
OnClick = OpenToolButtonClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object SaveToolButton: TToolButton
|
||||
Left = 29
|
||||
Hint = 'Save SQL code...'
|
||||
Top = 2
|
||||
Caption = 'SaveToolButton'
|
||||
ImageIndex = 1
|
||||
OnClick = SaveToolButtonClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object DividerToolButton: TToolButton
|
||||
Left = 57
|
||||
@ -61,22 +67,28 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
end
|
||||
object ExecuteToolButton: TToolButton
|
||||
Left = 62
|
||||
Hint = 'Run SQL code'
|
||||
Top = 2
|
||||
Caption = 'ExecuteToolButton'
|
||||
ImageIndex = 2
|
||||
OnClick = ExecuteToolButtonClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object TBCheck: TToolButton
|
||||
Left = 90
|
||||
Hint = 'Quick check of SQL syntax'
|
||||
Top = 2
|
||||
Caption = 'TBCheck'
|
||||
ImageIndex = 3
|
||||
OnClick = TBCheckClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
end
|
||||
object PageControl: TPageControl
|
||||
Left = 0
|
||||
Height = 281
|
||||
Height = 274
|
||||
Top = 30
|
||||
Width = 494
|
||||
ActivePage = EditorTabSheet
|
||||
@ -84,13 +96,13 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
TabIndex = 0
|
||||
TabOrder = 2
|
||||
object EditorTabSheet: TTabSheet
|
||||
ClientHeight = 255
|
||||
ClientWidth = 486
|
||||
ClientHeight = 249
|
||||
ClientWidth = 490
|
||||
inline SQLEditor: TSynEdit
|
||||
Left = 0
|
||||
Height = 255
|
||||
Height = 249
|
||||
Top = 0
|
||||
Width = 486
|
||||
Width = 490
|
||||
Align = alClient
|
||||
Font.Height = -16
|
||||
Font.Name = '-misc-dejavu sans mono-*-*-*-*-*-*-*-*-*-*-iso10646-1'
|
||||
@ -514,17 +526,31 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
Command = emcStartDragMove
|
||||
end>
|
||||
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
||||
SelectedColor.FrameEdges = sfeAround
|
||||
SelectedColor.BackPriority = 50
|
||||
SelectedColor.ForePriority = 50
|
||||
SelectedColor.FramePriority = 50
|
||||
SelectedColor.BoldPriority = 50
|
||||
SelectedColor.ItalicPriority = 50
|
||||
SelectedColor.UnderlinePriority = 50
|
||||
SelectedColor.StrikeOutPriority = 50
|
||||
IncrementColor.FrameEdges = sfeAround
|
||||
HighlightAllColor.FrameEdges = sfeAround
|
||||
BracketHighlightStyle = sbhsBoth
|
||||
BracketMatchColor.Background = clNone
|
||||
BracketMatchColor.Foreground = clNone
|
||||
BracketMatchColor.FrameEdges = sfeAround
|
||||
BracketMatchColor.Style = [fsBold]
|
||||
FoldedCodeColor.Background = clNone
|
||||
FoldedCodeColor.Foreground = clGray
|
||||
FoldedCodeColor.FrameColor = clGray
|
||||
FoldedCodeColor.FrameEdges = sfeAround
|
||||
MouseLinkColor.Background = clNone
|
||||
MouseLinkColor.Foreground = clBlue
|
||||
MouseLinkColor.FrameEdges = sfeAround
|
||||
LineHighlightColor.Background = clNone
|
||||
LineHighlightColor.Foreground = clNone
|
||||
LineHighlightColor.FrameEdges = sfeAround
|
||||
inline SynGutterPartList1: TSynGutterPartList
|
||||
object SynGutterMarks1: TSynGutterMarks
|
||||
Width = 24
|
||||
@ -535,6 +561,7 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
MouseActions = <>
|
||||
MarkupInfo.Background = clBtnFace
|
||||
MarkupInfo.Foreground = clNone
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
DigitCount = 2
|
||||
ShowOnlyLineNumbersMultiplesOf = 1
|
||||
ZeroStart = False
|
||||
@ -549,6 +576,9 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
object SynGutterSeparator1: TSynGutterSeparator
|
||||
Width = 2
|
||||
MouseActions = <>
|
||||
MarkupInfo.Background = clWhite
|
||||
MarkupInfo.Foreground = clGray
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
end
|
||||
object SynGutterCodeFolding1: TSynGutterCodeFolding
|
||||
MouseActions = <
|
||||
@ -579,6 +609,7 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
end>
|
||||
MarkupInfo.Background = clNone
|
||||
MarkupInfo.Foreground = clGray
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
MouseActionsExpanded = <
|
||||
item
|
||||
ClickCount = ccAny
|
||||
@ -627,11 +658,11 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
ClientWidth = 486
|
||||
object CbxMetaData: TComboBox
|
||||
Left = 8
|
||||
Height = 21
|
||||
Height = 23
|
||||
Hint = 'Select the type of metadata to retrieve.'
|
||||
Top = 9
|
||||
Width = 132
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
@ -690,33 +721,33 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
TableNameAttri.FrameEdges = sfeAround
|
||||
VariableAttri.FrameEdges = sfeAround
|
||||
SQLDialect = sqlInterbase6
|
||||
left = 120
|
||||
top = 156
|
||||
left = 88
|
||||
top = 136
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
|
||||
left = 156
|
||||
top = 157
|
||||
left = 152
|
||||
top = 152
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofViewDetail]
|
||||
left = 188
|
||||
top = 157
|
||||
left = 208
|
||||
top = 136
|
||||
end
|
||||
object SQLQuery: TSQLQuery
|
||||
FieldDefs = <>
|
||||
Params = <>
|
||||
left = 220
|
||||
top = 157
|
||||
left = 264
|
||||
top = 152
|
||||
end
|
||||
object SQLDataSource: TDatasource
|
||||
DataSet = SQLQuery
|
||||
left = 252
|
||||
top = 157
|
||||
left = 336
|
||||
top = 136
|
||||
end
|
||||
object ImageList: TImageList
|
||||
left = 284
|
||||
top = 156
|
||||
left = 408
|
||||
top = 152
|
||||
Bitmap = {
|
||||
4C69050000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
|
||||
@ -883,8 +914,8 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
end
|
||||
object PMSQL: TPopupMenu
|
||||
Images = ImageList
|
||||
left = 155
|
||||
top = 101
|
||||
left = 152
|
||||
top = 64
|
||||
object MICheck: TMenuItem
|
||||
Caption = 'Check syntax'
|
||||
Bitmap.Data = {
|
||||
@ -982,12 +1013,12 @@ object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
|
||||
object SQLMeta: TSQLQuery
|
||||
FieldDefs = <>
|
||||
Params = <>
|
||||
left = 220
|
||||
left = 120
|
||||
top = 208
|
||||
end
|
||||
object SQLDataSource1: TDatasource
|
||||
DataSet = SQLMeta
|
||||
left = 256
|
||||
left = 208
|
||||
top = 208
|
||||
end
|
||||
object PMMeta: TPopupMenu
|
||||
|
||||
@ -94,10 +94,12 @@ resourcestring
|
||||
SMetaPleaseSpecifyATableInTheObjectField = 'Please specify a table in the '
|
||||
+'object field.';
|
||||
SMetaSysTables = 'SysTables';
|
||||
SSQLOK = 'SQL OK';
|
||||
SQLSyntaxOK = 'No syntax errors in SQL statement.';
|
||||
SSQLError = 'SQL Error';
|
||||
SSQLSyntaxError = 'Syntax error in SQL statement:'+slineBreak+'%s';
|
||||
// SQL Parser results:
|
||||
// Note: sql parser is not quite exact, so indicate it's not completely sure
|
||||
SSQLOK = 'Quick SQL check OK';
|
||||
SQLSyntaxOK = 'No syntax errors in SQL statement found.';
|
||||
SSQLError = 'Probable SQL error';
|
||||
SSQLSyntaxError = 'Probable syntax error in SQL statement:'+slineBreak+'%s';
|
||||
|
||||
{ TSQLStringsPropertyEditorDlg }
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user