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 106 by tony, Thu Jan 18 14:37:35 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;
36 >  IBDatabase, IBSQL, IB, db;
37  
38   type
39  
# Line 41 | Line 41 | type
41  
42    TIBSQLEditorForm = class(TIBInsertSQLEditorForm)
43      IncludePrimaryKeys: TCheckBox;
44 +    SelectProcedure: TLabel;
45      TabControl1: TTabControl;
46      procedure FormShow(Sender: TObject);
47      procedure GenerateBtnClick(Sender: TObject);
48      procedure TabControl1Change(Sender: TObject);
49 +    procedure UserProceduresAfterScroll(DataSet: TDataSet);
50    private
51      procedure SetupFlags;
52    protected
# Line 81 | Line 83 | begin
83      end;
84      with IBSQLEditFrame1 do
85      begin
86 <      IncludeReadOnlyFields := true;
87 <      ExecuteOnlyProcs := false;
86 >      IncludeReadOnlyFields := false;
87 >      ExecuteOnlyProcs := true;
88 >      SelectProcs := true;
89        SQLText.Lines.Assign(aIBSQL.SQL);
90      end;
91      IncludePrimaryKeys.Checked := false;
# Line 111 | Line 114 | begin
114    SetupFlags;
115   end;
116  
117 + procedure TIBSQLEditorForm.UserProceduresAfterScroll(DataSet: TDataSet);
118 + begin
119 +    SelectProcedure.Visible := (DataSet.FieldByName('RDB$PROCEDURE_TYPE').AsInteger = 1)
120 +      and (Dataset.FieldByName('RDB$PROCEDURE_OUTPUTS').AsInteger > 0);
121 +    if SelectProcedure.Visible then
122 +      OutputProcGrid.Columns[0].Width := 30
123 +    else
124 +      OutputProcGrid.Columns[0].Width := 0;
125 + end;
126 +
127   procedure TIBSQLEditorForm.FormShow(Sender: TObject);
128   begin
129    inherited;
# Line 121 | 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 135 | Line 148 | end;
148  
149   procedure TIBSQLEditorForm.SetupFlags;
150   begin
138 –  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