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 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC

# Line 39 | Line 39 | type
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    private
# Line 79 | Line 81 | begin
81      end;
82      with IBSQLEditFrame1 do
83      begin
82      IncludePrimaryKeys := true;
84        IncludeReadOnlyFields := false;
85        ExecuteOnlyProcs := true;
86        ExcludeIdentityColumns := true;
# Line 112 | Line 113 | begin
113    inherited Loaded;
114    if IBSQLEditFrame1 <> nil then
115    begin
116 <    if PrimaryKeysGrid <> nil then
117 <      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
116 >   if PrimaryKeysGrid <> nil then
117 >     PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
118 >   if IdentityGrid <> nil then
119 >     IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
120      if ReadOnlyGrid <> nil then
121        ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
122    end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines