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 21 by tony, Thu Feb 26 10:33:34 2015 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+}
30 <
31 < interface
32 <
33 < uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
36 <
37 < type
38 <
39 <  { TIBDeleteSQLEditorForm }
40 <
41 <  TIBDeleteSQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    ExecuteOnlyIndicator: TLabel;
45 <    GenerateBtn: TButton;
46 <    GenerateParams: TCheckBox;
47 <    Label1: 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 <    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);
73 <  private
74 <    { private declarations }
75 <    FIBSystemTables: TIBSystemTables;
76 <  public
77 <    { public declarations }
78 <    constructor Create(TheOwner: TComponent); override;
79 <    destructor Destroy; override;
80 <    procedure SetDatabase(Database: TIBDatabase);
81 <  end;
82 <
83 < var
84 <  IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
85 <
86 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
87 <
88 < implementation
89 <
90 < uses IBSQL;
91 <
92 < {$R *.lfm}
93 <
94 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
95 < begin
96 <  Result := false;
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 <
104 <  with TIBDeleteSQLEditorForm.Create(Application) do
105 <  try
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 <    begin
115 <     SelectSQL.Assign(SQLText.Lines);
116 <     if assigned(DataSet) then
117 <          DataSet.GenerateParamNames := GenerateParams.Checked
118 <    end;
119 <  finally
120 <    Free
121 <  end;
122 < end;
123 <
124 < { TIBDeleteSQLEditorForm }
125 <
126 < procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
127 < var IsProcedureName: boolean;
128 <    SQLType: TIBSQLTypes;
129 < begin
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 <    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);
147 < begin
148 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
149 <  SQLText.SetFocus
150 < end;
151 <
152 < procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
153 < begin
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.ProcedureNamesCloseUp(Sender: TObject);
162 < var ExecuteOnly: boolean;
163 < begin
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);
211 < begin
212 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
213 < end;
214 <
215 < constructor TIBDeleteSQLEditorForm.Create(TheOwner: TComponent);
216 < begin
217 <  inherited Create(TheOwner);
218 <  FIBSystemTables := TIBSystemTables.Create;
219 < end;
220 <
221 < destructor TIBDeleteSQLEditorForm.Destroy;
222 < begin
223 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
224 <  inherited Destroy;
225 < end;
226 <
227 < procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
228 < begin
229 <  IBTransaction1.DefaultDatabase := Database;
230 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
231 < end;
232 <
233 < end.
234 <
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+}
30 >
31 > interface
32 >
33 > uses
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 >  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
36 >
37 > type
38 >
39 >  { TIBDeleteSQLEditorForm }
40 >
41 >  TIBDeleteSQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    ExecuteOnlyIndicator: TLabel;
45 >    GenerateBtn: TButton;
46 >    GenerateParams: TCheckBox;
47 >    Label1: 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 >    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);
73 >  private
74 >    { private declarations }
75 >    FIBSystemTables: TIBSystemTables;
76 >  public
77 >    { public declarations }
78 >    constructor Create(TheOwner: TComponent); override;
79 >    destructor Destroy; override;
80 >    procedure SetDatabase(Database: TIBDatabase);
81 >  end;
82 >
83 > var
84 >  IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
85 >
86 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
87 >
88 > implementation
89 >
90 > uses IBSQL;
91 >
92 > {$R *.lfm}
93 >
94 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
95 > begin
96 >  Result := false;
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 >
104 >  with TIBDeleteSQLEditorForm.Create(Application) do
105 >  try
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 >    begin
115 >     SelectSQL.Assign(SQLText.Lines);
116 >     if assigned(DataSet) then
117 >          DataSet.GenerateParamNames := GenerateParams.Checked
118 >    end;
119 >  finally
120 >    Free
121 >  end;
122 > end;
123 >
124 > { TIBDeleteSQLEditorForm }
125 >
126 > procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
127 > var IsProcedureName: boolean;
128 >    SQLType: TIBSQLTypes;
129 > begin
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 >    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);
147 > begin
148 >  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
149 >  SQLText.SetFocus
150 > end;
151 >
152 > procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
153 > begin
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.ProcedureNamesCloseUp(Sender: TObject);
162 > var ExecuteOnly: boolean;
163 > begin
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);
211 > begin
212 >  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
213 > end;
214 >
215 > constructor TIBDeleteSQLEditorForm.Create(TheOwner: TComponent);
216 > begin
217 >  inherited Create(TheOwner);
218 >  FIBSystemTables := TIBSystemTables.Create;
219 > end;
220 >
221 > destructor TIBDeleteSQLEditorForm.Destroy;
222 > begin
223 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
224 >  inherited Destroy;
225 > end;
226 >
227 > procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
228 > begin
229 >  IBTransaction1.DefaultDatabase := Database;
230 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
231 > end;
232 >
233 > end.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines