ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibinsertsqleditor.pas
Revision: 101
Committed: Thu Jan 18 14:37:18 2018 UTC (6 years, 2 months ago) by tony
Content type: text/x-pascal
File size: 2928 byte(s)
Log Message:
Fixes merged for support of Identity Columns

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