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 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 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 +      IncludePrimaryKeys := false;
128 +      IncludeReadOnlyFields := false;
129 +    end;
130      Result := ShowModal = mrOK;
131      if Result and assigned(DataSet) then
132        DataSet.GenerateParamNames := GenerateParams.Checked
# Line 141 | Line 150 | begin
150    GenerateButton.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
151    TestBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
152    FCurrentStatement := -1;
153 <  IBSQLEditFrame1.UserTables.Active := true;
154 <  IBSQLEditFrame1.SyncQueryBuilder(FSelectSQL);
153 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
154 >  begin
155 >    IBSQLEditFrame1.UserTables.Active := true;
156 >    IBSQLEditFrame1.SyncQueryBuilder(FSelectSQL);
157 >  end;
158   end;
159  
160   procedure TIBDataSetEditorForm.FormClose(Sender: TObject;
# Line 248 | Line 260 | begin
260        FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
261      if PrimaryKeysGrid <> nil then
262        PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
263 +    if IdentityGrid <> nil then
264 +      IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
265 +    if ReadOnlyGrid <> nil then
266 +      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
267    end;
268   end;
269  

Diff Legend

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