paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 19:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Sqldb, show strings editor for SQL properties in case database connection do not support metadata extraction

Browse Source 
git-svn-id: trunk@16667 -
This commit is contained in:
jesus 2008-09-21 23:01:04 +00:00
parent 09983c4aa0
commit 4cd081d380
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/sqldb/registersqldb.pas
View File

@ -38,7 +38,7 @@ unit registersqldb;
interface
uses
Classes, SysUtils, LResources, sqldb, ibconnection, odbcconn,
Classes, SysUtils, LResources, db, sqldb, ibconnection, odbcconn,
{$IFDEF HASPQCONNECTION}
pqconnection,
{$ENDIF}
@ -61,10 +61,12 @@ uses
Type
{ TSQLStringsPropertyEditor }
TSQLStringsPropertyEditor = class(TClassPropertyEditor)
TSQLStringsPropertyEditor = class(TStringsPropertyEditor)
private
procedure EditSQL;
public
procedure Edit; override;
function CreateDlg(s: TStrings): TSQLStringsPropertyEditorDlg; virtual;
function CreateEnhancedDlg(s: TStrings): TSQLStringsPropertyEditorDlg; virtual;
function GetAttributes: TPropertyAttributes; override;
end;
@ -127,8 +129,7 @@ end;
{ TSQLStringsPropertyEditor }
//-------------------------------------//
procedure TSQLStringsPropertyEditor.Edit;
procedure TSQLStringsPropertyEditor.EditSQL;
var
TheDialog:TSQLStringsPropertyEditorDlg;
Strings :TStrings;
@ -136,7 +137,7 @@ var
begin
Strings := TStrings(GetObjectValue);
TheDialog := CreateDlg(Strings);
TheDialog := CreateEnhancedDlg(Strings);
try
TheDialog.Caption := Format(SSQLStringsPropertyEditorDlgTitle, [GetPropInfo^.Name]);
if(GetComponent(0) is TSQLQuery)then
@ -156,8 +157,20 @@ begin
end;
end;
procedure TSQLStringsPropertyEditor.Edit;
begin
try
EditSQL;
except
on E:EDatabaseError do
begin
inherited Edit;
end;
end;
end;
//------------------------------------------------------------------------------------//
function TSQLStringsPropertyEditor.CreateDlg(s: TStrings): TSQLStringsPropertyEditorDlg;
function TSQLStringsPropertyEditor.CreateEnhancedDlg(s: TStrings): TSQLStringsPropertyEditorDlg;
begin
Result := TSQLStringsPropertyEditorDlg.Create(Application);
Result.SQLEditor.Text := s.Text;