ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibselectsqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibselectsqleditor.pas (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 17 by tony, Sat Dec 28 19:22:24 2013 UTC

# Line 1 | Line 1
1 < unit ibselectsqleditor;
2 <
3 < {$mode objfpc}{$H+}
4 <
5 < interface
6 <
7 < uses
8 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9 <  StdCtrls, IBSystemTables, IBDatabase;
10 <
11 < type
12 <
13 <  { TIBSelectSQLEditorForm }
14 <
15 <  TIBSelectSQLEditorForm = class(TForm)
16 <    Button1: TButton;
17 <    Button2: TButton;
18 <    Button3: TButton;
19 <    Button4: TButton;
20 <    FieldList: TListBox;
21 <    Label1: TLabel;
22 <    Label2: TLabel;
23 <    Label3: TLabel;
24 <    Label4: TLabel;
25 <    PrimaryKeyList: TListBox;
26 <    QuoteFields: TCheckBox;
27 <    SQLText: TMemo;
28 <    TableNamesCombo: TComboBox;
29 <    procedure Button3Click(Sender: TObject);
30 <    procedure Button4Click(Sender: TObject);
31 <    procedure FieldListDblClick(Sender: TObject);
32 <    procedure FormShow(Sender: TObject);
33 <    procedure PrimaryKeyListDblClick(Sender: TObject);
34 <    procedure TableNamesComboCloseUp(Sender: TObject);
35 <  private
36 <    { private declarations }
37 <    FIBSystemTables: TIBSystemTables;
38 <  public
39 <    { public declarations }
40 <    constructor Create(TheOwner: TComponent); override;
41 <    destructor Destroy; override;
42 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
43 <  end;
44 <
45 < var
46 <  IBSelectSQLEditorForm: TIBSelectSQLEditorForm;
47 <
48 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
49 <
50 < implementation
51 <
52 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
53 < begin
54 <  Result := false;
55 <  if assigned(Database) then
56 <  begin
57 <    if not assigned(Transaction) then
58 <    begin
59 <      if not assigned(Database.DefaultTransaction)then
60 <      begin
61 <        ShowMessage('No Default Transaction!');
62 <        Exit
63 <      end;
64 <      Transaction := Database.DefaultTransaction
65 <    end;
66 <
67 <    Database.Connected := true;
68 <  end;
69 <
70 <  with TIBSelectSQLEditorForm.Create(Application) do
71 <  try
72 <    SetDatabase(Database,Transaction);
73 <    SQLText.Lines.Assign(SelectSQL);
74 <    Result := ShowModal = mrOK;
75 <    if Result then
76 <     SelectSQL.Assign(SQLText.Lines)
77 <  finally
78 <    Free
79 <  end;
80 < end;
81 <
82 < { TIBSelectSQLEditorForm }
83 <
84 < procedure TIBSelectSQLEditorForm.FormShow(Sender: TObject);
85 < begin
86 <  TableNamesCombo.Items.Clear;
87 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
88 <  if TableNamesCombo.Items.Count > 0 then
89 <  begin
90 <    TableNamesCombo.ItemIndex := 0;
91 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
92 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
93 <  end;
94 < end;
95 <
96 < procedure TIBSelectSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
97 < begin
98 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
99 <  SQLText.SetFocus
100 < end;
101 <
102 < procedure TIBSelectSQLEditorForm.FieldListDblClick(Sender: TObject);
103 < begin
104 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
105 <  SQLText.SetFocus
106 < end;
107 <
108 < procedure TIBSelectSQLEditorForm.Button3Click(Sender: TObject);
109 < begin
110 <  FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
111 < end;
112 <
113 < procedure TIBSelectSQLEditorForm.Button4Click(Sender: TObject);
114 < begin
115 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
116 < end;
117 <
118 < procedure TIBSelectSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
119 < begin
120 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
121 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
122 < end;
123 <
124 < constructor TIBSelectSQLEditorForm.Create(TheOwner: TComponent);
125 < begin
126 <  inherited Create(TheOwner);
127 <  FIBSystemTables := TIBSystemTables.Create;
128 < end;
129 <
130 < destructor TIBSelectSQLEditorForm.Destroy;
131 < begin
132 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
133 <  inherited Destroy;
134 < end;
135 <
136 < procedure TIBSelectSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
137 < begin
138 <  FIBSystemTables.SelectDatabase(Database,Transaction)
139 < end;
140 <
141 < initialization
142 <  {$I ibselectsqleditor.lrs}
143 <
144 < end.
145 <
1 > (*
2 > *  IBX For Lazarus (Firebird Express)
3 > *
4 > *  The contents of this file are subject to the Initial Developer's
5 > *  Public License Version 1.0 (the "License"); you may not use this
6 > *  file except in compliance with the License. You may obtain a copy
7 > *  of the License here:
8 > *
9 > *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
10 > *
11 > *  Software distributed under the License is distributed on an "AS
12 > *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13 > *  implied. See the License for the specific language governing rights
14 > *  and limitations under the License.
15 > *
16 > *  The Initial Developer of the Original Code is Tony Whyman.
17 > *
18 > *  The Original Code is (C) 2011 Tony Whyman, MWA Software
19 > *  (http://www.mwasoftware.co.uk).
20 > *
21 > *  All Rights Reserved.
22 > *
23 > *  Contributor(s): ______________________________________.
24 > *
25 > *)
26 >
27 > unit ibselectsqleditor;
28 >
29 > {$mode objfpc}{$H+}
30 >
31 > interface
32 >
33 > uses
34 >  Classes, SysUtils, FileUtil,  Forms, Controls, Graphics, Dialogs,
35 >  StdCtrls, ComCtrls, IBSystemTables, IBDatabase;
36 >
37 > type
38 >
39 >  { TIBSelectSQLEditorForm }
40 >
41 >  TIBSelectSQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    GenerateBtn: TButton;
45 >    SelectProcedure: TLabel;
46 >    TestBtn: TButton;
47 >    FieldList: TListBox;
48 >    IBTransaction1: TIBTransaction;
49 >    Label1: TLabel;
50 >    Label16: TLabel;
51 >    Label17: TLabel;
52 >    Label18: TLabel;
53 >    Label2: TLabel;
54 >    Label3: TLabel;
55 >    Label4: TLabel;
56 >    PageControl: TPageControl;
57 >    PrimaryKeyList: TListBox;
58 >    ProcedureNames: TComboBox;
59 >    ProcInputList: TListBox;
60 >    ProcOutputList: TListBox;
61 >    QuoteFields: TCheckBox;
62 >    SQLText: TMemo;
63 >    TableNamesCombo: TComboBox;
64 >    SelectPage: TTabSheet;
65 >    ExecutePage: TTabSheet;
66 >    procedure GenerateBtnClick(Sender: TObject);
67 >    procedure TestBtnClick(Sender: TObject);
68 >    procedure ExecutePageShow(Sender: TObject);
69 >    procedure FieldListDblClick(Sender: TObject);
70 >    procedure FormShow(Sender: TObject);
71 >    procedure PrimaryKeyListDblClick(Sender: TObject);
72 >    procedure ProcedureNamesCloseUp(Sender: TObject);
73 >    procedure SelectPageShow(Sender: TObject);
74 >    procedure TableNamesComboCloseUp(Sender: TObject);
75 >  private
76 >    { private declarations }
77 >    FIBSystemTables: TIBSystemTables;
78 >    FExecuteOnly: boolean;
79 >  public
80 >    { public declarations }
81 >    constructor Create(TheOwner: TComponent); override;
82 >    destructor Destroy; override;
83 >    procedure SetDatabase(Database: TIBDatabase);
84 >  end;
85 >
86 > var
87 >  IBSelectSQLEditorForm: TIBSelectSQLEditorForm;
88 >
89 > function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
90 >
91 > implementation
92 >
93 > uses IBSQL;
94 >
95 > {$R *.lfm}
96 >
97 > function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
98 > begin
99 >  Result := false;
100 >  if assigned(Database) then
101 >    try
102 >      Database.Connected := true;
103 >    except on E: Exception do
104 >      ShowMessage(E.Message)
105 >    end;
106 >
107 >  with TIBSelectSQLEditorForm.Create(Application) do
108 >  try
109 >    SetDatabase(Database);
110 >    SQLText.Lines.Assign(SelectSQL);
111 >    Result := ShowModal = mrOK;
112 >    if Result then
113 >     SelectSQL.Assign(SQLText.Lines)
114 >  finally
115 >    Free
116 >  end;
117 > end;
118 >
119 > { TIBSelectSQLEditorForm }
120 >
121 > procedure TIBSelectSQLEditorForm.FormShow(Sender: TObject);
122 > var IsProcedureName: boolean;
123 > begin
124 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
125 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
126 >  if Trim(SQLText.Text) <> '' then
127 >  begin
128 >    try
129 >      FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
130 >    except  end;
131 >    if IsProcedureName then
132 >      PageControl.ActivePage := ExecutePage
133 >    else
134 >      PageControl.ActivePage := SelectPage;
135 >  end
136 >  else
137 >    PageControl.ActivePage := SelectPage;
138 > end;
139 >
140 > procedure TIBSelectSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
141 > begin
142 >  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
143 >  SQLText.SetFocus
144 > end;
145 >
146 > procedure TIBSelectSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
147 > begin
148 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
149 >  SelectProcedure.Visible := not FExecuteOnly
150 > end;
151 >
152 > procedure TIBSelectSQLEditorForm.SelectPageShow(Sender: TObject);
153 > var TableName: string;
154 > begin
155 >  TableNamesCombo.Items.Clear;
156 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
157 >  if TableNamesCombo.Items.Count > 0 then
158 >  begin
159 >    TableNamesCombo.ItemIndex := 0;
160 >    if Trim(SQLText.Text) <> '' then
161 >    begin
162 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
163 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
164 >    end;
165 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
166 >    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
167 >  end;
168 > end;
169 >
170 > procedure TIBSelectSQLEditorForm.FieldListDblClick(Sender: TObject);
171 > begin
172 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
173 >  SQLText.SetFocus
174 > end;
175 >
176 > procedure TIBSelectSQLEditorForm.GenerateBtnClick(Sender: TObject);
177 > var FieldNames: TStrings;
178 > begin
179 >  if PageControl.ActivePage = ExecutePage then
180 >    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,FExecuteOnly,
181 >          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
182 >  else
183 >  begin
184 >    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
185 >    try
186 >      FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
187 >    finally
188 >      FieldNames.Free
189 >    end;
190 >  end;
191 > end;
192 >
193 > procedure TIBSelectSQLEditorForm.TestBtnClick(Sender: TObject);
194 > begin
195 >  FIBSystemTables.TestSQL(SQLText.Lines.Text)
196 > end;
197 >
198 > procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
199 > var ProcName: string;
200 >    IsProcedureName: boolean;
201 > begin
202 >  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,true);
203 >  if ProcedureNames.Items.Count > 0 then
204 >  begin
205 >    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
206 >    begin
207 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
208 >      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
209 >    end
210 >    else
211 >      ProcedureNames.ItemIndex := 0;
212 >  end;
213 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
214 >  SelectProcedure.Visible := not FExecuteOnly
215 > end;
216 >
217 > procedure TIBSelectSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
218 > begin
219 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
220 >  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
221 > end;
222 >
223 > constructor TIBSelectSQLEditorForm.Create(TheOwner: TComponent);
224 > begin
225 >  inherited Create(TheOwner);
226 >  FIBSystemTables := TIBSystemTables.Create;
227 > end;
228 >
229 > destructor TIBSelectSQLEditorForm.Destroy;
230 > begin
231 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
232 >  inherited Destroy;
233 > end;
234 >
235 > procedure TIBSelectSQLEditorForm.SetDatabase(Database: TIBDatabase);
236 > begin
237 >  IBTransaction1.DefaultDatabase := Database;
238 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
239 > end;
240 >
241 > end.
242 >

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines