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 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 44 | Line 44 | type
44      Label5: TLabel;
45      ReadOnlyGrid: TIBDynamicGrid;
46      procedure GenerateBtnClick(Sender: TObject);
47    procedure IncludePrimaryKeysChange(Sender: TObject);
47    private
48  
49    protected
# Line 82 | Line 81 | begin
81      end;
82      with IBSQLEditFrame1 do
83      begin
85      IncludePrimaryKeys := false;
84        IncludeReadOnlyFields := false;
85        ExecuteOnlyProcs := true;
86        SQLText.Lines.Assign(SelectSQL);
# Line 102 | Line 100 | end;
100  
101   { TIBModifySQLEditorForm }
102  
105 procedure TIBModifySQLEditorForm.IncludePrimaryKeysChange(Sender: TObject);
106 begin
107  IBSQLEditFrame1.IncludePrimaryKeys := IncludePrimaryKeys.Checked;
108 end;
109
103   procedure TIBModifySQLEditorForm.Loaded;
104   begin
105    inherited Loaded;
# Line 122 | Line 115 | begin
115    if PageControl.ActivePage = ExecutePage then
116      IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
117    else
118 <    IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,not IncludePrimaryKeys.Checked);
118 >    IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,IncludePrimaryKeys.Checked);
119   end;
120  
121  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines