ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.pas
Revision: 33
Committed: Sat Jul 18 12:30:52 2015 UTC (8 years, 8 months ago) by tony
Content type: text/x-pascal
File size: 7496 byte(s)
Log Message:
Committing updates for Release R1-3-1

File Contents

# Content
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 ibmodifysqleditor;
28
29 {$mode objfpc}{$H+}
30
31 interface
32
33 uses
34 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
36
37 type
38
39 { TIBModifySQLEditorForm }
40
41 TIBModifySQLEditorForm = class(TForm)
42 Button1: TButton;
43 Button2: TButton;
44 FieldList: TListBox;
45 GenerateBtn: TButton;
46 GenerateParams: TCheckBox;
47 IncludePrimaryKeys: TCheckBox;
48 Label1: TLabel;
49 Label16: TLabel;
50 Label17: TLabel;
51 Label18: TLabel;
52 Label2: TLabel;
53 Label4: TLabel;
54 ExecuteOnlyIndicator: TLabel;
55 PageControl: TPageControl;
56 PrimaryKeyList: TListBox;
57 ProcedureNames: TComboBox;
58 ProcInputList: TListBox;
59 ProcOutputList: TListBox;
60 TableNamesCombo: TComboBox;
61 ModifyPage: TTabSheet;
62 ExecutePage: TTabSheet;
63 TestBtn: TButton;
64 IBTransaction1: TIBTransaction;
65 Label3: TLabel;
66 QuoteFields: TCheckBox;
67 SQLText: TMemo;
68 procedure ExecutePageShow(Sender: TObject);
69 procedure GenerateBtnClick(Sender: TObject);
70 procedure ModifyPageShow(Sender: TObject);
71 procedure ProcedureNamesCloseUp(Sender: TObject);
72 procedure TestBtnClick(Sender: TObject);
73 procedure FieldListDblClick(Sender: TObject);
74 procedure FormShow(Sender: TObject);
75 procedure PrimaryKeyListDblClick(Sender: TObject);
76 procedure TableNamesComboCloseUp(Sender: TObject);
77 private
78 { private declarations }
79 FIBSystemTables: TIBSystemTables;
80 public
81 { public declarations }
82 constructor Create(TheOwner: TComponent); override;
83 destructor Destroy; override;
84 procedure SetDatabase(Database: TIBDatabase);
85 end;
86
87 var
88 IBModifySQLEditorForm: TIBModifySQLEditorForm;
89
90 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
91
92 implementation
93
94 uses IBSQL;
95
96 {$R *.lfm}
97
98 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
99 begin
100 Result := false;
101 if assigned(DataSet) and assigned(DataSet.Database) then
102 try
103 DataSet.Database.Connected := true;
104 except on E: Exception do
105 ShowMessage(E.Message)
106 end;
107
108 with TIBModifySQLEditorForm.Create(Application) do
109 try
110 if assigned(DataSet) then
111 begin
112 SetDatabase(DataSet.Database);
113 GenerateParams.Checked := DataSet.GenerateParamNames;
114 end;
115 SQLText.Lines.Assign(SelectSQL);
116 Result := ShowModal = mrOK;
117 if Result then
118 begin
119 SelectSQL.Assign(SQLText.Lines);
120 if assigned(DataSet) then
121 DataSet.GenerateParamNames := GenerateParams.Checked
122 end;
123 finally
124 Free
125 end;
126 end;
127
128 { TIBModifySQLEditorForm }
129
130 procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
131 var IsProcedureName: boolean;
132 SQLType: TIBSQLTypes;
133 begin
134 GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
135 TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
136 if Trim(SQLText.Text) <> '' then
137 begin
138 try
139 SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
140 except end;
141 if SQLType = SQLExecProcedure then
142 PageControl.ActivePage := ExecutePage
143 else
144 PageControl.ActivePage := ModifyPage;
145 end
146 else
147 PageControl.ActivePage := ModifyPage;
148 end;
149
150 procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
151 begin
152 SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
153 SQLText.SetFocus
154 end;
155
156 procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
157 begin
158 SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
159 SQLText.SetFocus
160 end;
161
162 procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
163 var FieldNames: TStrings;
164 begin
165 if PageControl.ActivePage = ExecutePage then
166 FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
167 ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
168 else
169 begin
170 FieldNames := FIBSystemTables.GetFieldNames(FieldList);
171 try
172 FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
173 FieldNames,SQLText.Lines)
174 finally
175 FieldNames.Free
176 end;
177 end;
178 end;
179
180 procedure TIBModifySQLEditorForm.ExecutePageShow(Sender: TObject);
181 var ProcName: string;
182 IsProcedureName: boolean;
183 begin
184 FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
185 if ProcedureNames.Items.Count > 0 then
186 begin
187 if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
188 begin
189 FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
190 ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
191 end
192 else
193 ProcedureNames.ItemIndex := 0;
194 end;
195 ProcedureNamesCloseUp(nil);
196 end;
197
198 procedure TIBModifySQLEditorForm.ModifyPageShow(Sender: TObject);
199 var TableName: string;
200 begin
201 TableNamesCombo.Items.Clear;
202 try
203 FIBSystemTables.GetTableNames(TableNamesCombo.Items);
204 if TableNamesCombo.Items.Count > 0 then
205 begin
206 TableNamesCombo.ItemIndex := 0;
207 if Trim(SQLText.Text) <> '' then
208 begin
209 FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
210 TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
211 end;
212 FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
213 FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
214 end;
215 except {ignore} end;
216 end;
217
218 procedure TIBModifySQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
219 var ExecuteOnly: boolean;
220 begin
221 FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
222 ExecuteOnlyIndicator.Visible := ExecuteOnly;
223 end;
224
225 procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
226 begin
227 FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
228 end;
229
230 procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
231 begin
232 FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
233 FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
234 end;
235
236 constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
237 begin
238 inherited Create(TheOwner);
239 FIBSystemTables := TIBSystemTables.Create;
240 end;
241
242 destructor TIBModifySQLEditorForm.Destroy;
243 begin
244 if assigned(FIBSystemTables) then FIBSystemTables.Free;
245 inherited Destroy;
246 end;
247
248 procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
249 begin
250 IBTransaction1.DefaultDatabase := Database;
251 FIBSystemTables.SelectDatabase(Database,IBTransaction1)
252 end;
253
254 end.