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

Comparing ibx/trunk/design/ibdeletesqleditor.pas (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 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 ibdeletesqleditor;
28  
29   {$mode objfpc}{$H+}
# Line 5 | Line 31 | unit ibdeletesqleditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, IBSystemTables, IBDatabase;
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 >  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
36  
37   type
38  
# Line 15 | Line 41 | type
41    TIBDeleteSQLEditorForm = class(TForm)
42      Button1: TButton;
43      Button2: TButton;
44 <    Button3: TButton;
45 <    Button4: TButton;
44 >    ExecuteOnlyIndicator: TLabel;
45 >    GenerateBtn: TButton;
46 >    GenerateParams: TCheckBox;
47      Label1: TLabel;
48 <    Label3: TLabel;
48 >    Label16: TLabel;
49 >    Label17: TLabel;
50 >    Label18: TLabel;
51      Label4: TLabel;
52 +    PageControl: TPageControl;
53      PrimaryKeyList: TListBox;
54 +    ProcedureNames: TComboBox;
55 +    ProcInputList: TListBox;
56 +    ProcOutputList: TListBox;
57 +    TableNamesCombo: TComboBox;
58 +    DeletePage: TTabSheet;
59 +    ExecutePage: TTabSheet;
60 +    TestBtn: TButton;
61 +    IBTransaction1: TIBTransaction;
62 +    Label3: TLabel;
63      QuoteFields: TCheckBox;
64      SQLText: TMemo;
65 <    TableNamesCombo: TComboBox;
66 <    procedure Button3Click(Sender: TObject);
67 <    procedure Button4Click(Sender: TObject);
65 >    procedure DeletePageShow(Sender: TObject);
66 >    procedure ExecutePageShow(Sender: TObject);
67 >    procedure GenerateBtnClick(Sender: TObject);
68 >    procedure ProcedureNamesCloseUp(Sender: TObject);
69 >    procedure TestBtnClick(Sender: TObject);
70      procedure FormShow(Sender: TObject);
71      procedure PrimaryKeyListDblClick(Sender: TObject);
72      procedure TableNamesComboCloseUp(Sender: TObject);
# Line 36 | Line 77 | type
77      { public declarations }
78      constructor Create(TheOwner: TComponent); override;
79      destructor Destroy; override;
80 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
80 >    procedure SetDatabase(Database: TIBDatabase);
81    end;
82  
83   var
84    IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
85  
86 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
86 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
87  
88   implementation
89  
90 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
90 > uses IBSQL;
91 >
92 > {$R *.lfm}
93 >
94 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
95   begin
96    Result := false;
97 <  if assigned(Database) then
98 <  begin
99 <    if not assigned(Transaction) then
100 <    begin
101 <      if not assigned(Database.DefaultTransaction)then
57 <      begin
58 <        ShowMessage('No Default Transaction!');
59 <        Exit
60 <      end;
61 <      Transaction := Database.DefaultTransaction
97 >  if assigned(DataSet) and assigned(DataSet.Database) then
98 >    try
99 >      DataSet.Database.Connected := true;
100 >    except on E: Exception do
101 >      ShowMessage(E.Message)
102      end;
103  
64 –    Database.Connected := true;
65 –  end;
66 –
104    with TIBDeleteSQLEditorForm.Create(Application) do
105    try
106 <    SetDatabase(Database,Transaction);
106 >    if assigned(DataSet) then
107 >    begin
108 >        SetDatabase(DataSet.Database);
109 >        GenerateParams.Checked := DataSet.GenerateParamNames;
110 >    end;
111      SQLText.Lines.Assign(SelectSQL);
112      Result := ShowModal = mrOK;
113      if Result then
114 <     SelectSQL.Assign(SQLText.Lines)
114 >    begin
115 >     SelectSQL.Assign(SQLText.Lines);
116 >     if assigned(DataSet) then
117 >          DataSet.GenerateParamNames := GenerateParams.Checked
118 >    end;
119    finally
120      Free
121    end;
# Line 79 | Line 124 | end;
124   { TIBDeleteSQLEditorForm }
125  
126   procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
127 + var IsProcedureName: boolean;
128 +    SQLType: TIBSQLTypes;
129   begin
130 <  TableNamesCombo.Items.Clear;
131 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
132 <  if TableNamesCombo.Items.Count > 0 then
130 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
131 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
132 >  if Trim(SQLText.Text) <> '' then
133    begin
134 <    TableNamesCombo.ItemIndex := 0;
135 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
136 <  end;
134 >    try
135 >      SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
136 >    except  end;
137 >    if SQLType = SQLExecProcedure then
138 >      PageControl.ActivePage := ExecutePage
139 >    else
140 >      PageControl.ActivePage := DeletePage;
141 >  end
142 >  else
143 >    PageControl.ActivePage := DeletePage;
144   end;
145  
146   procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
# Line 95 | Line 149 | begin
149    SQLText.SetFocus
150   end;
151  
152 < procedure TIBDeleteSQLEditorForm.Button3Click(Sender: TObject);
152 > procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
153   begin
154 <  FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
154 >  if PageControl.ActivePage = ExecutePage then
155 >    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
156 >          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
157 >  else
158 >    FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
159   end;
160  
161 < procedure TIBDeleteSQLEditorForm.Button4Click(Sender: TObject);
161 > procedure TIBDeleteSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
162 > var ExecuteOnly: boolean;
163   begin
164 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
164 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
165 >  ExecuteOnlyIndicator.Visible := ExecuteOnly;
166 > end;
167 >
168 > procedure TIBDeleteSQLEditorForm.DeletePageShow(Sender: TObject);
169 > var TableName: string;
170 > begin
171 >  TableNamesCombo.Items.Clear;
172 >  try
173 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
174 >  if TableNamesCombo.Items.Count > 0 then
175 >  begin
176 >    TableNamesCombo.ItemIndex := 0;
177 >    if Trim(SQLText.Text) <> '' then
178 >    begin
179 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
180 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
181 >    end;
182 >    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
183 >  end;
184 >  except {ignore} end;
185 > end;
186 >
187 > procedure TIBDeleteSQLEditorForm.ExecutePageShow(Sender: TObject);
188 > var ProcName: string;
189 >    IsProcedureName: boolean;
190 > begin
191 >  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
192 >  if ProcedureNames.Items.Count > 0 then
193 >  begin
194 >    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
195 >    begin
196 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
197 >      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
198 >    end
199 >    else
200 >      ProcedureNames.ItemIndex := 0;
201 >  end;
202 >  ProcedureNamesCloseUp(nil);
203 > end;
204 >
205 > procedure TIBDeleteSQLEditorForm.TestBtnClick(Sender: TObject);
206 > begin
207 >  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
208   end;
209  
210   procedure TIBDeleteSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
# Line 122 | Line 224 | begin
224    inherited Destroy;
225   end;
226  
227 < procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
227 > procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
228   begin
229 <  FIBSystemTables.SelectDatabase(Database,Transaction)
229 >  IBTransaction1.DefaultDatabase := Database;
230 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
231   end;
232  
130 – initialization
131 –  {$I ibdeletesqleditor.lrs}
132 –
233   end.
134 –

Diff Legend

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