ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdeletesqleditor.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: 6818 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 ibdeletesqleditor;
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 { TIBDeleteSQLEditorForm }
40
41 TIBDeleteSQLEditorForm = class(TForm)
42 Button1: TButton;
43 Button2: TButton;
44 ExecuteOnlyIndicator: TLabel;
45 GenerateBtn: TButton;
46 GenerateParams: TCheckBox;
47 Label1: TLabel;
48 Label16: TLabel;
49 Label17: TLabel;
50 Label18: TLabel;
51 Label4: TLabel;
52 PageControl: TPageControl;
53 PrimaryKeyList: TListBox;
54 ProcedureNames: TComboBox;
55 ProcInputList: TListBox;
56 ProcOutputList: TListBox;
57 TableNamesCombo: TComboBox;
58 DeletePage: TTabSheet;
59 ExecutePage: TTabSheet;
60 TestBtn: TButton;
61 IBTransaction1: TIBTransaction;
62 Label3: TLabel;
63 QuoteFields: TCheckBox;
64 SQLText: TMemo;
65 procedure DeletePageShow(Sender: TObject);
66 procedure ExecutePageShow(Sender: TObject);
67 procedure GenerateBtnClick(Sender: TObject);
68 procedure ProcedureNamesCloseUp(Sender: TObject);
69 procedure TestBtnClick(Sender: TObject);
70 procedure FormShow(Sender: TObject);
71 procedure PrimaryKeyListDblClick(Sender: TObject);
72 procedure TableNamesComboCloseUp(Sender: TObject);
73 private
74 { private declarations }
75 FIBSystemTables: TIBSystemTables;
76 public
77 { public declarations }
78 constructor Create(TheOwner: TComponent); override;
79 destructor Destroy; override;
80 procedure SetDatabase(Database: TIBDatabase);
81 end;
82
83 var
84 IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
85
86 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
87
88 implementation
89
90 uses IBSQL;
91
92 {$R *.lfm}
93
94 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
95 begin
96 Result := false;
97 if assigned(DataSet) and assigned(DataSet.Database) then
98 try
99 DataSet.Database.Connected := true;
100 except on E: Exception do
101 ShowMessage(E.Message)
102 end;
103
104 with TIBDeleteSQLEditorForm.Create(Application) do
105 try
106 if assigned(DataSet) then
107 begin
108 SetDatabase(DataSet.Database);
109 GenerateParams.Checked := DataSet.GenerateParamNames;
110 end;
111 SQLText.Lines.Assign(SelectSQL);
112 Result := ShowModal = mrOK;
113 if Result then
114 begin
115 SelectSQL.Assign(SQLText.Lines);
116 if assigned(DataSet) then
117 DataSet.GenerateParamNames := GenerateParams.Checked
118 end;
119 finally
120 Free
121 end;
122 end;
123
124 { TIBDeleteSQLEditorForm }
125
126 procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
127 var IsProcedureName: boolean;
128 SQLType: TIBSQLTypes;
129 begin
130 GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
131 TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
132 if Trim(SQLText.Text) <> '' then
133 begin
134 try
135 SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
136 except end;
137 if SQLType = SQLExecProcedure then
138 PageControl.ActivePage := ExecutePage
139 else
140 PageControl.ActivePage := DeletePage;
141 end
142 else
143 PageControl.ActivePage := DeletePage;
144 end;
145
146 procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
147 begin
148 SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
149 SQLText.SetFocus
150 end;
151
152 procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
153 begin
154 if PageControl.ActivePage = ExecutePage then
155 FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
156 ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
157 else
158 FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
159 end;
160
161 procedure TIBDeleteSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
162 var ExecuteOnly: boolean;
163 begin
164 FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
165 ExecuteOnlyIndicator.Visible := ExecuteOnly;
166 end;
167
168 procedure TIBDeleteSQLEditorForm.DeletePageShow(Sender: TObject);
169 var TableName: string;
170 begin
171 TableNamesCombo.Items.Clear;
172 try
173 FIBSystemTables.GetTableNames(TableNamesCombo.Items);
174 if TableNamesCombo.Items.Count > 0 then
175 begin
176 TableNamesCombo.ItemIndex := 0;
177 if Trim(SQLText.Text) <> '' then
178 begin
179 FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
180 TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
181 end;
182 FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
183 end;
184 except {ignore} end;
185 end;
186
187 procedure TIBDeleteSQLEditorForm.ExecutePageShow(Sender: TObject);
188 var ProcName: string;
189 IsProcedureName: boolean;
190 begin
191 FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
192 if ProcedureNames.Items.Count > 0 then
193 begin
194 if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
195 begin
196 FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
197 ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
198 end
199 else
200 ProcedureNames.ItemIndex := 0;
201 end;
202 ProcedureNamesCloseUp(nil);
203 end;
204
205 procedure TIBDeleteSQLEditorForm.TestBtnClick(Sender: TObject);
206 begin
207 FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
208 end;
209
210 procedure TIBDeleteSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
211 begin
212 FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
213 end;
214
215 constructor TIBDeleteSQLEditorForm.Create(TheOwner: TComponent);
216 begin
217 inherited Create(TheOwner);
218 FIBSystemTables := TIBSystemTables.Create;
219 end;
220
221 destructor TIBDeleteSQLEditorForm.Destroy;
222 begin
223 if assigned(FIBSystemTables) then FIBSystemTables.Free;
224 inherited Destroy;
225 end;
226
227 procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
228 begin
229 IBTransaction1.DefaultDatabase := Database;
230 FIBSystemTables.SelectDatabase(Database,IBTransaction1)
231 end;
232
233 end.