ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibinsertsqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 30 | Line 30 | unit ibinsertsqleditor;
30   interface
31  
32   uses
33 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 <    ibselectsqleditor, IBSQLEditFrame, IBDatabase, IBCustomDataset;
33 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 >  IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
36  
37   type
38  
39    { TIBInsertSQLEditorForm }
40  
41    TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 +    IdentityGrid: TIBDynamicGrid;
43 +    Label5: TLabel;
44 +    Label6: TLabel;
45 +    ReadOnlyGrid: TIBDynamicGrid;
46      procedure GenerateBtnClick(Sender: TObject);
47 +    procedure IdentityGridDblClick(Sender: TObject);
48 +    procedure ReadOnlyGridDblClick(Sender: TObject);
49    private
50  
51    protected
# Line 76 | Line 83 | begin
83      end;
84      with IBSQLEditFrame1 do
85      begin
79 –      IncludePrimaryKeys := true;
86        IncludeReadOnlyFields := false;
87        ExecuteOnlyProcs := true;
88        ExcludeIdentityColumns := true;
# Line 104 | Line 110 | begin
110      IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
111   end;
112  
113 + procedure TIBInsertSQLEditorForm.IdentityGridDblClick(Sender: TObject);
114 + begin
115 +  IBSQLEditFrame1.InsertSelectedIdentityCol;
116 + end;
117 +
118 + procedure TIBInsertSQLEditorForm.ReadOnlyGridDblClick(Sender: TObject);
119 + begin
120 +  IBSQLEditFrame1.InsertSelectedReadOnlyField;
121 + end;
122 +
123   procedure TIBInsertSQLEditorForm.Loaded;
124   begin
125    inherited Loaded;
126    if IBSQLEditFrame1 <> nil then
127    begin
128 <    if PrimaryKeysGrid <> nil then
129 <      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
128 >   if PrimaryKeysGrid <> nil then
129 >     PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
130 >   if IdentityGrid <> nil then
131 >     IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
132 >    if ReadOnlyGrid <> nil then
133 >      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
134    end;
135   end;
136  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines