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

Comparing ibx/trunk/design/ibrefreshsqleditor.pas (file contents):
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 1 | Line 1
1 + (*
2 + *  IBX For Lazarus (Firebird Express)
3 + *
4 + *  The contents of this file are subject to the Initial Developer's
5 + *  Public License Version 1.0 (the "License"); you may not use this
6 + *  file except in compliance with the License. You may obtain a copy
7 + *  of the License here:
8 + *
9 + *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
10 + *
11 + *  Software distributed under the License is distributed on an "AS
12 + *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13 + *  implied. See the License for the specific language governing rights
14 + *  and limitations under the License.
15 + *
16 + *  The Initial Developer of the Original Code is Tony Whyman.
17 + *
18 + *  The Original Code is (C) 2011 Tony Whyman, MWA Software
19 + *  (http://www.mwasoftware.co.uk).
20 + *
21 + *  All Rights Reserved.
22 + *
23 + *  Contributor(s): ______________________________________.
24 + *
25 + *)
26 +
27   unit ibrefreshsqleditor;
28  
29   {$mode objfpc}{$H+}
# Line 5 | Line 31 | unit ibrefreshsqleditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
34 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35 >    ibselectsqleditor, IBDatabase, IBCustomDataSet, IBSQLEditFrame;
36  
37   type
38  
39    { TIBRefreshSQLEditorForm }
40  
41 <  TIBRefreshSQLEditorForm = class(TForm)
16 <    Button1: TButton;
17 <    Button2: TButton;
18 <    GenerateBtn: TButton;
19 <    GenerateParams: TCheckBox;
20 <    TestBtn: TButton;
21 <    FieldList: TListBox;
22 <    IBTransaction1: TIBTransaction;
23 <    Label1: TLabel;
24 <    Label2: TLabel;
25 <    Label3: TLabel;
26 <    Label4: TLabel;
27 <    PrimaryKeyList: TListBox;
28 <    QuoteFields: TCheckBox;
29 <    SQLText: TMemo;
30 <    TableNamesCombo: TComboBox;
41 >  TIBRefreshSQLEditorForm = class(TIBSelectSQLEditorForm)
42      procedure GenerateBtnClick(Sender: TObject);
32 –    procedure TestBtnClick(Sender: TObject);
33 –    procedure FieldListDblClick(Sender: TObject);
34 –    procedure FormShow(Sender: TObject);
35 –    procedure PrimaryKeyListDblClick(Sender: TObject);
36 –    procedure TableNamesComboCloseUp(Sender: TObject);
43    private
44 <    { private declarations }
39 <    FIBSystemTables: TIBSystemTables;
44 >
45    public
46 <    { public declarations }
47 <    constructor Create(TheOwner: TComponent); override;
43 <    destructor Destroy; override;
44 <    procedure SetDatabase(Database: TIBDatabase);
45 <  end;
46 >
47 >  end;
48  
49   var
50    IBRefreshSQLEditorForm: TIBRefreshSQLEditorForm;
# Line 67 | Line 69 | begin
69    try
70      if assigned(DataSet) then
71      begin
72 <        SetDatabase(DataSet.Database);
73 <        GenerateParams.Checked := DataSet.GenerateParamNames;
72 >      IBSQLEditFrame1.Database := DataSet.Database;
73 >      GenerateParams.Checked := DataSet.GenerateParamNames;
74      end;
75 <    SQLText.Lines.Assign(SelectSQL);
75 >    IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
76 >    IBSQLEditFrame1.SelectProcs := true;
77      Result := ShowModal = mrOK;
78      if Result then
79      begin
80 <     SelectSQL.Assign(SQLText.Lines);
80 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
81       if assigned(DataSet) then
82            DataSet.GenerateParamNames := GenerateParams.Checked
83      end;
# Line 85 | Line 88 | end;
88  
89   { TIBRefreshSQLEditorForm }
90  
88 – procedure TIBRefreshSQLEditorForm.FormShow(Sender: TObject);
89 – var TableName: string;
90 – begin
91 –  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
92 –  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
93 –  TableNamesCombo.Items.Clear;
94 –  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
95 –  if TableNamesCombo.Items.Count > 0 then
96 –  begin
97 –    TableNamesCombo.ItemIndex := 0;
98 –    if Trim(SQLText.Text) <> '' then
99 –    begin
100 –      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
101 –      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
102 –    end;
103 –    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
104 –    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
105 –  end;
106 – end;
107 –
108 – procedure TIBRefreshSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
109 – begin
110 –  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
111 –  SQLText.SetFocus
112 – end;
113 –
114 – procedure TIBRefreshSQLEditorForm.FieldListDblClick(Sender: TObject);
115 – begin
116 –  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
117 –  SQLText.SetFocus
118 – end;
119 –
91   procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
121 – var FieldNames: TStrings;
122 – begin
123 –  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
124 –  try
125 –    FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
126 –  finally
127 –    FieldNames.Free
128 –  end;
129 – end;
130 –
131 – procedure TIBRefreshSQLEditorForm.TestBtnClick(Sender: TObject);
92   begin
93 <  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
93 >  if PageControl.ActivePage = ExecutePage then
94 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
95 >  else
96 >    IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
97   end;
98  
136 – procedure TIBRefreshSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
137 – begin
138 –  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
139 –  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
140 – end;
141 –
142 – constructor TIBRefreshSQLEditorForm.Create(TheOwner: TComponent);
143 – begin
144 –  inherited Create(TheOwner);
145 –  FIBSystemTables := TIBSystemTables.Create;
146 – end;
147 –
148 – destructor TIBRefreshSQLEditorForm.Destroy;
149 – begin
150 –  if assigned(FIBSystemTables) then FIBSystemTables.Free;
151 –  inherited Destroy;
152 – end;
153 –
154 – procedure TIBRefreshSQLEditorForm.SetDatabase(Database: TIBDatabase);
155 – begin
156 –  IBTransaction1.DefaultDatabase := Database;
157 –  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
158 – end;
99  
100   end.
101 +

Diff Legend

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