examples/scriptengine/unit2.pas

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, db,
  IBDynamicGrid, IBQuery, IBDatabase;

type

  { TSelectSQLResults }

  TSelectSQLResults = class(TForm)
    DataSource1: TDataSource;
    IBDynamicGrid1: TIBDynamicGrid;
    IBTransaction1: TIBTransaction;
    SelectQuery: TIBQuery;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    procedure Show(SelectSQLText: string);
  end;

var
  SelectSQLResults: TSelectSQLResults;

implementation

{$R *.lfm}

{ TSelectSQLResults }

procedure TSelectSQLResults.FormShow(Sender: TObject);
begin
  SelectQuery.Active := true;
end;

procedure TSelectSQLResults.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  SelectQuery.ACtive := false;
  CloseAction := caFree;
end;

procedure TSelectSQLResults.Show(SelectSQLText: string);
begin
  SelectQuery.SQL.Text := SelectSQLText;
  inherited Show;
end;

end.

Revision:	37
Committed:	Mon Feb 15 14:44:25 2016 UTC (8 years, 9 months ago) by tony
Content type:	text/x-pascal
File size:	1079 byte(s)
Log Message:	Committing updates for Release R1-4-0
#	User	Rev	Content
1	tony	37	unit Unit2;
2
3			{$mode objfpc}{$H+}
4
5			interface
6
7			uses
8			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, db,
9			IBDynamicGrid, IBQuery, IBDatabase;
10
11			type
12
13			{ TSelectSQLResults }
14
15			TSelectSQLResults = class(TForm)
16			DataSource1: TDataSource;
17			IBDynamicGrid1: TIBDynamicGrid;
18			IBTransaction1: TIBTransaction;
19			SelectQuery: TIBQuery;
20			procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
21			procedure FormShow(Sender: TObject);
22			private
23			{ private declarations }
24			public
25			{ public declarations }
26			procedure Show(SelectSQLText: string);
27			end;
28
29			var
30			SelectSQLResults: TSelectSQLResults;
31
32			implementation
33
34			{$R *.lfm}
35
36			{ TSelectSQLResults }
37
38			procedure TSelectSQLResults.FormShow(Sender: TObject);
39			begin
40			SelectQuery.Active := true;
41			end;
42
43			procedure TSelectSQLResults.FormClose(Sender: TObject;
44			var CloseAction: TCloseAction);
45			begin
46			SelectQuery.ACtive := false;
47			CloseAction := caFree;
48			end;
49
50			procedure TSelectSQLResults.Show(SelectSQLText: string);
51			begin
52			SelectQuery.SQL.Text := SelectSQLText;
53			inherited Show;
54			end;
55
56			end.
57