examples/sqlparser/MainForm.pas

unit MainForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    HavingAllUnions: TCheckBox;
    Button1: TButton;
    WhereAllUnions: TCheckBox;
    WhereCondition: TEdit;
    HavingCondition: TEdit;
    HavingConditionType: TRadioGroup;
    OrderBy: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    OriginalSQL: TMemo;
    GeneratedSQL: TMemo;
    WhereConditionType: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

uses IBSQLParser;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var Parser: TSelectSQLParser;
begin
  Parser := TSelectSQLParser.Create(nil,OriginalSQL.Lines);
  try
    if WhereCondition.Text <> '' then
      Parser.Add2WhereClause(WhereCondition.Text,WhereConditionType.ItemIndex <> 0,WhereAllUnions.Checked);
    if HavingCondition.Text <> '' then
      Parser.Add2HavingClause(HavingCondition.Text,HavingConditionType.ItemIndex <> 0,HavingAllUnions.Checked);
    if OrderBy.Text <> ''then
      Parser.OrderByClause := OrderBy.Text;
    GeneratedSQL.Lines.Text := Parser.SQLText
  finally
  end;
end;

end.

Revision:	21
Committed:	Thu Feb 26 10:33:34 2015 UTC (9 years, 2 months ago) by tony
Content type:	text/x-pascal
File size:	1377 byte(s)
Log Message:	Committing updates for Release R1-2-0
#	User	Rev	Content
1	tony	21	unit MainForm;
2
3			{$mode objfpc}{$H+}
4
5			interface
6
7			uses
8			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9			ExtCtrls;
10
11			type
12
13			{ TForm1 }
14
15			TForm1 = class(TForm)
16			HavingAllUnions: TCheckBox;
17			Button1: TButton;
18			WhereAllUnions: TCheckBox;
19			WhereCondition: TEdit;
20			HavingCondition: TEdit;
21			HavingConditionType: TRadioGroup;
22			OrderBy: TEdit;
23			Label1: TLabel;
24			Label2: TLabel;
25			Label3: TLabel;
26			Label4: TLabel;
27			Label5: TLabel;
28			OriginalSQL: TMemo;
29			GeneratedSQL: TMemo;
30			WhereConditionType: TRadioGroup;
31			procedure Button1Click(Sender: TObject);
32			private
33			{ private declarations }
34			public
35			{ public declarations }
36			end;
37
38			var
39			Form1: TForm1;
40
41			implementation
42
43			{$R *.lfm}
44
45			uses IBSQLParser;
46
47			{ TForm1 }
48
49			procedure TForm1.Button1Click(Sender: TObject);
50			var Parser: TSelectSQLParser;
51			begin
52			Parser := TSelectSQLParser.Create(nil,OriginalSQL.Lines);
53			try
54			if WhereCondition.Text <> '' then
55			Parser.Add2WhereClause(WhereCondition.Text,WhereConditionType.ItemIndex <> 0,WhereAllUnions.Checked);
56			if HavingCondition.Text <> '' then
57			Parser.Add2HavingClause(HavingCondition.Text,HavingConditionType.ItemIndex <> 0,HavingAllUnions.Checked);
58			if OrderBy.Text <> ''then
59			Parser.OrderByClause := OrderBy.Text;
60			GeneratedSQL.Lines.Text := Parser.SQLText
61			finally
62			end;
63			end;
64
65			end.
66