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 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 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;
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)
42 <    Button1: TButton;
17 <    Button2: TButton;
18 <    Button3: TButton;
19 <    Button4: TButton;
20 <    FieldList: TListBox;
21 <    Label1: TLabel;
22 <    Label2: TLabel;
23 <    Label3: TLabel;
24 <    Label4: TLabel;
25 <    PrimaryKeyList: TListBox;
26 <    QuoteFields: TCheckBox;
27 <    SQLText: TMemo;
28 <    TableNamesCombo: TComboBox;
29 <    procedure Button3Click(Sender: TObject);
30 <    procedure Button4Click(Sender: TObject);
31 <    procedure FieldListDblClick(Sender: TObject);
32 <    procedure FormShow(Sender: TObject);
33 <    procedure PrimaryKeyListDblClick(Sender: TObject);
34 <    procedure TableNamesComboCloseUp(Sender: TObject);
41 >  TIBRefreshSQLEditorForm = class(TIBSelectSQLEditorForm)
42 >    procedure GenerateBtnClick(Sender: TObject);
43    private
44 <    { private declarations }
37 <    FIBSystemTables: TIBSystemTables;
44 >
45    public
46 <    { public declarations }
47 <    constructor Create(TheOwner: TComponent); override;
41 <    destructor Destroy; override;
42 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
43 <  end;
46 >
47 >  end;
48  
49   var
50    IBRefreshSQLEditorForm: TIBRefreshSQLEditorForm;
51  
52 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
52 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
53  
54   implementation
55  
56 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
56 > {$R *.lfm}
57 >
58 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
59   begin
60    Result := false;
61 <  if assigned(Database) then
62 <  begin
63 <    if not assigned(Transaction) then
64 <    begin
65 <      if not assigned(Database.DefaultTransaction)then
60 <      begin
61 <        ShowMessage('No Default Transaction!');
62 <        Exit
63 <      end;
64 <      Transaction := Database.DefaultTransaction
61 >  if assigned(DataSet) and assigned(DataSet.Database) then
62 >    try
63 >      DataSet.Database.Connected := true;
64 >    except on E: Exception do
65 >      ShowMessage(E.Message)
66      end;
67  
67 –    Database.Connected := true;
68 –  end;
69 –
68    with TIBRefreshSQLEditorForm.Create(Application) do
69    try
70 <    SetDatabase(Database,Transaction);
71 <    SQLText.Lines.Assign(SelectSQL);
70 >    if assigned(DataSet) then
71 >    begin
72 >      IBSQLEditFrame1.Database := DataSet.Database;
73 >      GenerateParams.Checked := DataSet.GenerateParamNames;
74 >    end;
75 >    IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
76      Result := ShowModal = mrOK;
77      if Result then
78 <     SelectSQL.Assign(SQLText.Lines)
78 >    begin
79 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
80 >     if assigned(DataSet) then
81 >          DataSet.GenerateParamNames := GenerateParams.Checked
82 >    end;
83    finally
84      Free
85    end;
# Line 81 | Line 87 | end;
87  
88   { TIBRefreshSQLEditorForm }
89  
90 < procedure TIBRefreshSQLEditorForm.FormShow(Sender: TObject);
85 < begin
86 <  TableNamesCombo.Items.Clear;
87 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
88 <  if TableNamesCombo.Items.Count > 0 then
89 <  begin
90 <    TableNamesCombo.ItemIndex := 0;
91 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
92 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
93 <  end;
94 < end;
95 <
96 < procedure TIBRefreshSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
97 < begin
98 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
99 <  SQLText.SetFocus
100 < end;
101 <
102 < procedure TIBRefreshSQLEditorForm.FieldListDblClick(Sender: TObject);
103 < begin
104 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
105 <  SQLText.SetFocus
106 < end;
107 <
108 < procedure TIBRefreshSQLEditorForm.Button3Click(Sender: TObject);
109 < begin
110 <  FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
111 < end;
112 <
113 < procedure TIBRefreshSQLEditorForm.Button4Click(Sender: TObject);
114 < begin
115 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
116 < end;
117 <
118 < procedure TIBRefreshSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
119 < begin
120 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
121 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
122 < end;
123 <
124 < constructor TIBRefreshSQLEditorForm.Create(TheOwner: TComponent);
125 < begin
126 <  inherited Create(TheOwner);
127 <  FIBSystemTables := TIBSystemTables.Create;
128 < end;
129 <
130 < destructor TIBRefreshSQLEditorForm.Destroy;
131 < begin
132 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
133 <  inherited Destroy;
134 < end;
135 <
136 < procedure TIBRefreshSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
90 > procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
91   begin
92 <  FIBSystemTables.SelectDatabase(Database,Transaction)
92 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
93   end;
94  
141 – initialization
142 –  {$I ibrefreshsqleditor.lrs}
95  
96   end.
97  

Diff Legend

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