ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.pas
Revision: 209
Committed: Wed Mar 14 12:48:51 2018 UTC (6 years ago) by tony
Content type: text/x-pascal
File size: 3043 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 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, LResources, Forms, Controls, Graphics, Dialogs,
35 StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame,
36 IBDynamicGrid, IBDatabase, IBCustomDataset;
37
38 type
39
40 { TIBModifySQLEditorForm }
41
42 TIBModifySQLEditorForm = class(TIBSelectSQLEditorForm)
43 IncludePrimaryKeys: TCheckBox;
44 Label5: TLabel;
45 ReadOnlyGrid: TIBDynamicGrid;
46 procedure GenerateBtnClick(Sender: TObject);
47 private
48
49 protected
50 procedure Loaded; override;
51
52 public
53
54 end;
55
56 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
57
58 var
59 IBModifySQLEditorForm: TIBModifySQLEditorForm;
60
61 implementation
62
63 {$R *.lfm}
64
65 function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
66 begin
67 Result := false;
68 if assigned(DataSet) and assigned(DataSet.Database) then
69 try
70 DataSet.Database.Connected := true;
71 except on E: Exception do
72 ShowMessage(E.Message)
73 end;
74
75 with TIBModifySQLEditorForm.Create(Application) do
76 try
77 if assigned(DataSet) then
78 begin
79 IBSQLEditFrame1.Database := DataSet.Database;
80 GenerateParams.Checked := DataSet.GenerateParamNames;
81 end;
82 with IBSQLEditFrame1 do
83 begin
84 IncludeReadOnlyFields := false;
85 ExecuteOnlyProcs := true;
86 SQLText.Lines.Assign(SelectSQL);
87 end;
88 IncludePrimaryKeys.Checked := false;
89 Result := ShowModal = mrOK;
90 if Result then
91 begin
92 SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
93 if assigned(DataSet) then
94 DataSet.GenerateParamNames := GenerateParams.Checked
95 end;
96 finally
97 Free
98 end;
99 end;
100
101 { TIBModifySQLEditorForm }
102
103 procedure TIBModifySQLEditorForm.Loaded;
104 begin
105 inherited Loaded;
106 if IBSQLEditFrame1 <> nil then
107 begin
108 if ReadOnlyGrid <> nil then
109 ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
110 end;
111 end;
112
113 procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
114 begin
115 if PageControl.ActivePage = ExecutePage then
116 IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
117 else
118 IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,IncludePrimaryKeys.Checked);
119 end;
120
121
122 end.
123