5483e65197
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6119 8e941d3f-bd1b-0410-a28a-d453659cc2b4
151 lines
4.8 KiB
ObjectPascal
151 lines
4.8 KiB
ObjectPascal
{*********************************************************}
|
|
{ }
|
|
{ ZMSQL }
|
|
{ SQL enhanced in-memory dataset }
|
|
{ }
|
|
{ Original developer: Zlatko Matić, 2011 }
|
|
{ e-mail: matalab@gmail.com }
|
|
{ Milkovićeva 6, Mala Ostrna, 10370 Dugo Selo, Croatia. }
|
|
{ }
|
|
{*********************************************************}
|
|
{
|
|
This file is copyright (c) 2015 by Zlatko Matić
|
|
|
|
This source code is distributed under
|
|
the Library GNU General Public License (see the file
|
|
COPYING) with the following modification:
|
|
|
|
As a special exception, the copyright holders of this library give you
|
|
permission to link this library with independent modules to produce an
|
|
executable, regardless of the license terms of these independent modules,
|
|
and to copy and distribute the resulting executable under terms of your choice,
|
|
provided that you also meet, for each linked independent module, the terms
|
|
and conditions of the license of that module. An independent module is a module
|
|
which is not derived from or based on this library. If you modify this
|
|
library, you may extend this exception to your version of the library, but you are
|
|
not obligated to do so. If you do not wish to do so, delete this exception
|
|
statement from your version.
|
|
|
|
If you didn't receive a copy of the file COPYING, contact:
|
|
Free Software Foundation
|
|
675 Mass Ave
|
|
Cambridge, MA 02139
|
|
USA
|
|
|
|
Modifications are made by Zlatko Matić and contributors for purposes of zmsql package.
|
|
|
|
**********************************************************************}
|
|
|
|
{-----------------------------------------------------------------------------
|
|
|
|
The original developer of the code is Zlatko Matić
|
|
(matalab@gmail.com or matic.zlatko@gmail.com).
|
|
|
|
Contributor(s):
|
|
|
|
Last Modified: 08.02.2015
|
|
|
|
Known Issues:The visual query builder is not adapted to JanSQL non-standard SQL dialect.
|
|
|
|
History (Change log):global history log is in ZMQueryDataset unit.
|
|
-----------------------------------------------------------------------------}
|
|
|
|
unit ZMQueryBuilder;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, { LResources, Forms, Controls, Graphics, Dialogs,}
|
|
ZMConnection, QBuilder,QBEZmsql;
|
|
|
|
type
|
|
|
|
{ TZMQueryBuilder }
|
|
|
|
TZMQueryBuilder = class(TComponent)
|
|
private
|
|
FACtive: Boolean;
|
|
FQueryBuilderDialog: TOQBuilderDialog;
|
|
FVisualQueryEngine: TOQBEngineZmsql;
|
|
FZMConnection: TZMConnection;
|
|
procedure SetACtive(AValue: Boolean);
|
|
procedure SetConnection(AValue: TZMConnection);
|
|
procedure SetQueryBuilderDialog(AValue: TOQBuilderDialog);
|
|
procedure SetVisualQueryEngine(AValue: TOQBEngineZmsql);
|
|
{ Private declarations }
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property QueryBuilderDialog:TOQBuilderDialog read FQueryBuilderDialog write SetQueryBuilderDialog;
|
|
property VisualQueryEngine: TOQBEngineZmsql read FVisualQueryEngine write SetVisualQueryEngine;
|
|
published
|
|
{ Published declarations }
|
|
property ZMConnection:TZMConnection read FZMConnection write SetConnection;
|
|
property ACtive:Boolean read FACtive write SetACtive;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TZMQueryBuilder }
|
|
|
|
procedure TZMQueryBuilder.SetConnection(AValue: TZMConnection);
|
|
begin
|
|
if FZMConnection=AValue then Exit;
|
|
FZMConnection:=AValue;
|
|
end;
|
|
|
|
procedure TZMQueryBuilder.SetQueryBuilderDialog(AValue: TOQBuilderDialog);
|
|
begin
|
|
if FQueryBuilderDialog=AValue then Exit;
|
|
FQueryBuilderDialog:=AValue;
|
|
end;
|
|
|
|
procedure TZMQueryBuilder.SetVisualQueryEngine(AValue: TOQBEngineZmsql);
|
|
begin
|
|
if FVisualQueryEngine=AValue then Exit;
|
|
FVisualQueryEngine:=AValue;
|
|
end;
|
|
|
|
constructor TZMQueryBuilder.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
QueryBuilderDialog := TOQBuilderDialog.Create(nil);
|
|
VisualQueryEngine := TOQBEngineZmsql.Create(nil);
|
|
end;
|
|
|
|
destructor TZMQueryBuilder.Destroy;
|
|
begin
|
|
QueryBuilderDialog.Free;
|
|
VisualQueryEngine.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TZMQueryBuilder.SetACtive(AValue: Boolean);
|
|
begin
|
|
if FACtive=AValue then Exit;
|
|
FACtive:=AValue;
|
|
|
|
if FActive=True then begin
|
|
try
|
|
VisualQueryEngine.Connection := ZMConnection;
|
|
QueryBuilderDialog.OQBEngine := VisualQueryEngine;
|
|
QueryBuilderDialog.OQBEngine.DatabaseName :=ZMConnection.DatabasePath{Full};
|
|
|
|
VisualQueryEngine.ShowSystemTables := False;
|
|
|
|
QueryBuilderDialog.Execute;
|
|
finally
|
|
VisualQueryEngine.Free;
|
|
QueryBuilderDialog.Free;
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
|
|
end.
|