ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdeletesqleditor.pas
Revision: 80
Committed: Mon Jan 1 11:31:07 2018 UTC (6 years, 10 months ago) by tony
Content type: text/x-pascal
File size: 2600 byte(s)
Log Message:
Fixes merged into public release

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 unit ibdeletesqleditor;
27
28 {$mode objfpc}{$H+}
29
30 interface
31
32 uses
33 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 ibselectsqleditor, IBDatabase, IBCustomDataset;
35
36 type
37
38 { TIBDeleteSQLEditorForm }
39
40 TIBDeleteSQLEditorForm = class(TIBSelectSQLEditorForm)
41 procedure GenerateBtnClick(Sender: TObject);
42 private
43
44 public
45
46 end;
47
48 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
49
50 var
51 IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
52
53 implementation
54
55 {$R *.lfm}
56
57 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
58 begin
59 Result := false;
60 if assigned(DataSet) and assigned(DataSet.Database) then
61 try
62 DataSet.Database.Connected := true;
63 except on E: Exception do
64 ShowMessage(E.Message)
65 end;
66
67 with TIBDeleteSQLEditorForm.Create(Application) do
68 try
69 if assigned(DataSet) then
70 begin
71 IBSQLEditFrame1.Database := DataSet.Database;
72 GenerateParams.Checked := DataSet.GenerateParamNames;
73 end;
74 with IBSQLEditFrame1 do
75 begin
76 IncludePrimaryKeys := true;
77 IncludeReadOnlyFields := false;
78 ExecuteOnlyProcs := true;
79 SQLText.Lines.Assign(SelectSQL);
80 end;
81 Result := ShowModal = mrOK;
82 if Result then
83 begin
84 SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
85 if assigned(DataSet) then
86 DataSet.GenerateParamNames := GenerateParams.Checked
87 end;
88 finally
89 Free
90 end;
91 end;
92
93 { TIBDeleteSQLEditorForm }
94
95 procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
96 begin
97 if PageControl.ActivePage = ExecutePage then
98 IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
99 else
100 IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked);
101 end;
102
103 end.
104