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

Comparing ibx/trunk/design/ibdataseteditor.pas (file contents):
Revision 81 by tony, Mon Jan 1 11:31:10 2018 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 44 | Line 44 | type
44      GenerateParams: TCheckBox;
45      IBSQLEditFrame1: TIBSQLEditFrame;
46      IncludeSysTables: TCheckBox;
47 +    Label5: TLabel;
48 +    Label6: TLabel;
49      PrimaryKeysGrid: TIBDynamicGrid;
50 +    IdentityGrid: TIBDynamicGrid;
51 +    ReadOnlyGrid: TIBDynamicGrid;
52      SelectSelectAll: TCheckBox;
53      SelectTableNames: TIBLookupComboEditBox;
54      TestBtn: TButton;
# Line 118 | Line 122 | begin
122        GenerateParams.Checked := DataSet.GenerateParamNames;
123      end;
124      FDataSet := DataSet;
125 +    with IBSQLEditFrame1 do
126 +    begin
127 +      IncludeReadOnlyFields := false;
128 +    end;
129      Result := ShowModal = mrOK;
130      if Result and assigned(DataSet) then
131        DataSet.GenerateParamNames := GenerateParams.Checked
# Line 179 | Line 187 | end;
187  
188   procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
189   begin
190 <  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL);
191 <  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL);
190 >  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL,true);
191 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
192    IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
193    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
194 <  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, not IncludePrimaryKeys.Checked);
194 >  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
195    FDirty := false;
196    PageControl.ActivePage := SQLPage;
197   end;
# Line 251 | Line 259 | begin
259        FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
260      if PrimaryKeysGrid <> nil then
261        PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
262 +    if IdentityGrid <> nil then
263 +      IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
264 +    if ReadOnlyGrid <> nil then
265 +      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
266    end;
267   end;
268  

Diff Legend

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