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

Comparing:
ibx/trunk/design/ibsqleditor.pas (file contents), Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC vs.
ibx/branches/journaling/design/ibsqleditor.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

# Line 33 | Line 33 | interface
33   uses
34    Classes, SysUtils, FileUtil, SynEdit, LResources, Forms, Controls, Graphics,
35    Dialogs, StdCtrls, ComCtrls, ibinsertsqleditor, IBSQLEditFrame,
36 <  IBLookupComboEditBox, IBDynamicGrid, IBDatabase, IBSQL, IBQuery, IB, Types, db;
36 >  IBDatabase, IBSQL, IB, db;
37  
38   type
39  
# Line 83 | Line 83 | begin
83      end;
84      with IBSQLEditFrame1 do
85      begin
86 <      IncludeReadOnlyFields := true;
86 >      IncludeReadOnlyFields := false;
87        ExecuteOnlyProcs := true;
88        SelectProcs := true;
89        SQLText.Lines.Assign(aIBSQL.SQL);
# Line 134 | Line 134 | procedure TIBSQLEditorForm.GenerateBtnCl
134   begin
135    case TabControl1.TabIndex of
136    0:
137 <    IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked);
137 >    IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,true);
138    1:
139      IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
140    2:
# Line 148 | Line 148 | end;
148  
149   procedure TIBSQLEditorForm.SetupFlags;
150   begin
151 –  IBSQLEditFrame1.IncludeReadOnlyFields := (TabControl1.TabIndex = 0);
151    IncludePrimaryKeys.Visible := TabControl1.TabIndex = 2;
152    FieldNamesGrid.Visible := TabControl1.TabIndex <> 3;
153    Label2.Visible := TabControl1.TabIndex <> 3;

Diff Legend

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