ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibupdatesqleditor.pas
Revision: 209
Committed: Wed Mar 14 12:48:51 2018 UTC (6 years ago) by tony
Content type: text/x-pascal
File size: 8332 byte(s)
Log Message:
Fixes Merged

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-17 Tony Whyman, MWA Software
19 * (http://www.mwasoftware.co.uk).
20 *
21 * All Rights Reserved.
22 *
23 * Contributor(s): ______________________________________.
24 *
25 *)
26
27 unit ibupdatesqleditor;
28
29 {$mode objfpc}{$H+}
30
31 interface
32
33 uses
34 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
35 StdCtrls, ExtCtrls, IBSQLEditFrame, IBCustomDataSet,
36 IBDatabase, IBLookupComboEditBox, IBDynamicGrid, IBUpdateSQL;
37
38 type
39
40 { TIBUpdateSQLEditorForm }
41
42 TIBUpdateSQLEditorForm = class(TForm)
43 FieldNamesGrid: TIBDynamicGrid;
44 GenerateParams: TCheckBox;
45 IBSQLEditFrame1: TIBSQLEditFrame;
46 IdentityGrid: TIBDynamicGrid;
47 IncludeSysTables: TCheckBox;
48 Label5: TLabel;
49 Label6: TLabel;
50 PrimaryKeysGrid: TIBDynamicGrid;
51 ReadOnlyGrid: TIBDynamicGrid;
52 SelectSelectAll: TCheckBox;
53 SelectTableNames: TIBLookupComboEditBox;
54 TestBtn: TButton;
55 CancelButton: TButton;
56 FieldsPage: TTabSheet;
57 GenerateButton: TButton;
58 GroupBox1: TGroupBox;
59 IncludePrimaryKeys: TCheckBox;
60 Label1: TLabel;
61 Label2: TLabel;
62 Label3: TLabel;
63 Label4: TLabel;
64 OkButton: TButton;
65 PageControl: TPageControl;
66 QuoteFields: TCheckBox;
67 SQLPage: TTabSheet;
68 StatementType: TRadioGroup;
69 procedure IncludeSysTablesChange(Sender: TObject);
70 procedure SelectSelectAllClick(Sender: TObject);
71 procedure TestBtnClick(Sender: TObject);
72 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
73 procedure FormShow(Sender: TObject);
74 procedure GenerateButtonClick(Sender: TObject);
75 procedure SQLMemoChange(Sender: TObject);
76 procedure SQLPageShow(Sender: TObject);
77 procedure StatementTypeClick(Sender: TObject);
78 private
79 { private declarations }
80 FUpdateObject: TIBUpdateSQL;
81 FDirty: boolean;
82 FCurrentStatement: integer;
83 FModifySQL: TStringList;
84 FInsertSQL: TStringList;
85 FDeleteSQL: TStringList;
86 FRefreshSQL: TStringList;
87 procedure UpdateSQLMemo;
88 procedure HandleUserTablesOpened(Sender: TObject);
89 protected
90 procedure Loaded; override;
91 public
92 { public declarations }
93 constructor Create(TheOwner: TComponent); override;
94 destructor Destroy; override;
95 end;
96
97 var
98 IBUpdateSQLEditorForm: TIBUpdateSQLEditorForm;
99
100 function EditIBUpdateSQL(UpdateObject: TIBUpdateSQL): boolean;
101
102 implementation
103
104 {$R *.lfm}
105
106 function EditIBUpdateSQL(UpdateObject: TIBUpdateSQL): boolean;
107 begin
108 Result := false;
109 if assigned(UpdateObject) and assigned(UpdateObject.DataSet) and assigned(UpdateObject.DataSet.Database) then
110 try
111 UpdateObject.DataSet.Database.Connected := true;
112 except on E: Exception do
113 ShowMessage(E.Message)
114 end;
115
116 with TIBUpdateSQLEditorForm.Create(Application) do
117 try
118 if assigned(UpdateObject) and assigned(UpdateObject.DataSet) then
119 begin
120 IBSQLEditFrame1.Database := UpdateObject.DataSet.Database;
121 GenerateParams.Checked := UpdateObject.DataSet.GenerateParamNames;
122 end;
123 with IBSQLEditFrame1 do
124 IncludeReadOnlyFields := false;
125 FUpdateObject := UpdateObject;
126 Result := ShowModal = mrOK;
127 if Result then
128 UpdateObject.DataSet.GenerateParamNames := GenerateParams.Checked
129 finally
130 Free
131 end;
132
133 end;
134
135 { TIBUpdateSQLEditorForm }
136
137 procedure TIBUpdateSQLEditorForm.FormShow(Sender: TObject);
138 begin
139 PageControl.ActivePage := FieldsPage;
140 FModifySQL.Assign(FUpdateObject.ModifySQL);
141 FInsertSQL.Assign(FUpdateObject.InsertSQL);
142 FDeleteSQL.Assign(FUpdateObject.DeleteSQL);
143 FRefreshSQL.Assign(FUpdateObject.RefreshSQL);
144 GenerateButton.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
145 TestBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
146 FCurrentStatement := -1;
147 if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
148 begin
149 IBSQLEditFrame1.UserTables.Active := true;
150 IBSQLEditFrame1.SyncQueryBuilder(FRefreshSQL);
151 end;
152 end;
153
154 procedure TIBUpdateSQLEditorForm.FormClose(Sender: TObject;
155 var CloseAction: TCloseAction);
156 begin
157 if ModalResult = mrOK then
158 begin
159 UpdateSQLMemo;
160 FUpdateObject.ModifySQL.Assign(FModifySQL);
161 FUpdateObject.InsertSQL.Assign(FInsertSQL);
162 FUpdateObject.DeleteSQL.Assign(FDeleteSQL);
163 FUpdateObject.RefreshSQL.Assign(FRefreshSQL);
164 end;
165 end;
166
167 procedure TIBUpdateSQLEditorForm.TestBtnClick(Sender: TObject);
168 begin
169 IBSQLEditFrame1.TestSQL(GenerateParams.Checked);
170 end;
171
172 procedure TIBUpdateSQLEditorForm.IncludeSysTablesChange(Sender: TObject);
173 begin
174 IBSQLEditFrame1.IncludeSystemTables := IncludeSysTables.Checked;
175 end;
176
177 procedure TIBUpdateSQLEditorForm.SelectSelectAllClick(Sender: TObject);
178 begin
179 IBSQLEditFrame1.SelectAllFields(SelectSelectAll.Checked);
180 end;
181
182 procedure TIBUpdateSQLEditorForm.GenerateButtonClick(Sender: TObject);
183 begin
184 IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
185 IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
186 IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
187 IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
188 FDirty := false;
189 PageControl.ActivePage := SQLPage;
190 end;
191
192 procedure TIBUpdateSQLEditorForm.SQLMemoChange(Sender: TObject);
193 begin
194 FDirty := true
195 end;
196
197 procedure TIBUpdateSQLEditorForm.SQLPageShow(Sender: TObject);
198 begin
199 UpdateSQLMemo
200 end;
201
202 procedure TIBUpdateSQLEditorForm.StatementTypeClick(Sender: TObject);
203 begin
204 UpdateSQLMemo
205 end;
206
207 procedure TIBUpdateSQLEditorForm.UpdateSQLMemo;
208 begin
209 if FDirty then
210 case FCurrentStatement of
211 0: //Modify
212 FModifySQL.Assign(IBSQLEditFrame1.SQLText.Lines);
213 1: //Insert
214 FInsertSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
215 2: // Delete
216 FDeleteSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
217 3: //Refresh
218 FRefreshSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
219 end;
220 FDirty := false;
221 case StatementType.ItemIndex of
222 0: // Modify
223 IBSQLEditFrame1.SQLText.Lines.Assign(FModifySQL) ;
224 1: //Insert
225 IBSQLEditFrame1.SQLText.Lines.Assign(FInsertSQL) ;
226 2: // Delete
227 IBSQLEditFrame1.SQLText.Lines.Assign(FDeleteSQL) ;
228 3: //Refresh
229 IBSQLEditFrame1.SQLText.Lines.Assign(FRefreshSQL) ;
230 end;
231 FCurrentStatement := StatementType.ItemIndex;
232 end;
233
234 procedure TIBUpdateSQLEditorForm.HandleUserTablesOpened(Sender: TObject);
235 begin
236 SelectSelectAll.Checked := true;
237 end;
238
239 procedure TIBUpdateSQLEditorForm.Loaded;
240 begin
241 inherited Loaded;
242 if IBSQLEditFrame1 <> nil then
243 begin
244 IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened;
245 if SelectTableNames <> nil then
246 SelectTableNames.ListSource := IBSQLEditFrame1.UserTableSource;
247 if FieldNamesGrid <> nil then
248 FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
249 if PrimaryKeysGrid <> nil then
250 PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
251 if IdentityGrid <> nil then
252 IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
253 if ReadOnlyGrid <> nil then
254 ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
255 end;
256 end;
257
258 constructor TIBUpdateSQLEditorForm.Create(TheOwner: TComponent);
259 begin
260 inherited Create(TheOwner);
261 FModifySQL := TStringList.Create;
262 FInsertSQL := TStringList.Create;
263 FDeleteSQL := TStringList.Create;
264 FRefreshSQL := TStringList.Create;
265 end;
266
267 destructor TIBUpdateSQLEditorForm.Destroy;
268 begin
269 if assigned(FModifySQL) then FModifySQL.Free;
270 if assigned(FInsertSQL) then FInsertSQL.Free;
271 if assigned(FDeleteSQL) then FDeleteSQL.Free;
272 if assigned(FRefreshSQL) then FRefreshSQL.Free;
273 inherited Destroy;
274 end;
275
276 end.