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

Comparing ibx/trunk/design/ibmodifysqleditor.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 41 | Line 41 | type
41  
42    TIBModifySQLEditorForm = class(TIBSelectSQLEditorForm)
43      IncludePrimaryKeys: TCheckBox;
44 +    Label5: TLabel;
45 +    ReadOnlyGrid: TIBDynamicGrid;
46      procedure GenerateBtnClick(Sender: TObject);
47      procedure IncludePrimaryKeysChange(Sender: TObject);
48    private
49  
50 +  protected
51 +    procedure Loaded; override;
52 +
53    public
54  
55    end;
# Line 102 | Line 107 | begin
107    IBSQLEditFrame1.IncludePrimaryKeys := IncludePrimaryKeys.Checked;
108   end;
109  
110 + procedure TIBModifySQLEditorForm.Loaded;
111 + begin
112 +  inherited Loaded;
113 +  if IBSQLEditFrame1 <> nil then
114 +  begin
115 +   if ReadOnlyGrid <> nil then
116 +     ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
117 +  end;
118 + end;
119 +
120   procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
121   begin
122    if PageControl.ActivePage = ExecutePage then
123      IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
124    else
125 <    IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked);
125 >    IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,not IncludePrimaryKeys.Checked);
126   end;
127  
128  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines