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 106 by tony, Thu Jan 18 14:37:35 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    private
48  
# Line 76 | Line 81 | begin
81      end;
82      with IBSQLEditFrame1 do
83      begin
79 –      IncludePrimaryKeys := true;
84        IncludeReadOnlyFields := false;
85        ExecuteOnlyProcs := true;
86        ExcludeIdentityColumns := true;
# Line 109 | 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;
123   end;
124  

Diff Legend

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