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 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 31 | Line 31 | interface
31  
32   uses
33    Classes, SysUtils, FileUtil,  Forms, Controls, Graphics, Dialogs,
34 <  StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase;
34 >  StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase, IB;
35  
36   type
37  
# Line 40 | Line 40 | type
40    TIBSQLEditorForm = class(TForm)
41      Button1: TButton;
42      Button2: TButton;
43 +    GenerateParams: TCheckBox;
44      GenerateBtn: TButton;
45      IBTransaction1: TIBTransaction;
46      Label5: TLabel;
# Line 102 | Line 103 | type
103      FTableName: string;
104      FIBSystemTables: TIBSystemTables;
105      FExecuteOnly: boolean;
106 +  protected
107 +    procedure Loaded; override;
108    public
109      { public declarations }
110      constructor Create(TheOwner: TComponent); override;
# Line 134 | Line 137 | begin
137    try
138      SetDatabase(DataSet.Database);
139      SQLText.Lines.Assign(DataSet.SQL);
140 +    GenerateParams.Checked := DataSet.GenerateParamNames;
141      Result := ShowModal = mrOK;
142      if Result then
143 <      DataSet.SQL.Assign(SQLText.Lines)
143 >      begin
144 >            DataSet.SQL.Assign(SQLText.Lines);
145 >            DataSet.GenerateParamNames := GenerateParams.Checked
146 >      end;
147    finally
148      Free
149    end;
# Line 235 | Line 242 | end;
242  
243   procedure TIBSQLEditorForm.TestBtnClick(Sender: TObject);
244   begin
245 <  FIBSystemTables.TestSQL(SQLText.Text);
245 >  FIBSystemTables.TestSQL(SQLText.Text,GenerateParams.Checked);
246   end;
247  
248   procedure TIBSQLEditorForm.DeleteTableNamesCloseUp(Sender: TObject);
# Line 365 | Line 372 | begin
372    FIBSystemTables.GetFieldNames(InsertTableNames.Text,InsertFieldsList.Items);
373   end;
374  
375 + procedure TIBSQLEditorForm.Loaded;
376 + begin
377 +  inherited Loaded;
378 +  {$IFDEF WINDOWS}
379 +  if assigned(PageControl) then
380 +    PageControl.TabPosition := tpTop;
381 +  {$ENDIF}
382 + end;
383 +
384   constructor TIBSQLEditorForm.Create(TheOwner: TComponent);
385   begin
386    inherited Create(TheOwner);
# Line 384 | Line 400 | begin
400   end;
401  
402   end.
387 –

Diff Legend

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