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

Comparing ibx/trunk/design/ibmodifysqleditor.pas (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 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 ibmodifysqleditor;
28 <
29 < {$mode objfpc}{$H+}
30 <
31 < interface
32 <
33 < uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
36 <
37 < type
38 <
39 <  { TIBModifySQLEditorForm }
40 <
41 <  TIBModifySQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    GenerateBtn: TButton;
45 <    GenerateParams: TCheckBox;
46 <    TestBtn: TButton;
47 <    IBTransaction1: TIBTransaction;
48 <    IncludePrimaryKeys: TCheckBox;
49 <    FieldList: TListBox;
50 <    Label1: TLabel;
51 <    Label2: TLabel;
52 <    Label3: TLabel;
53 <    Label4: TLabel;
54 <    PrimaryKeyList: TListBox;
55 <    QuoteFields: TCheckBox;
56 <    SQLText: TMemo;
57 <    TableNamesCombo: TComboBox;
58 <    procedure GenerateBtnClick(Sender: TObject);
59 <    procedure TestBtnClick(Sender: TObject);
60 <    procedure FieldListDblClick(Sender: TObject);
61 <    procedure FormShow(Sender: TObject);
62 <    procedure PrimaryKeyListDblClick(Sender: TObject);
63 <    procedure TableNamesComboCloseUp(Sender: TObject);
64 <  private
65 <    { private declarations }
66 <    FIBSystemTables: TIBSystemTables;
67 <  public
68 <    { public declarations }
69 <    constructor Create(TheOwner: TComponent); override;
70 <    destructor Destroy; override;
71 <    procedure SetDatabase(Database: TIBDatabase);
72 <  end;
73 <
74 < var
75 <  IBModifySQLEditorForm: TIBModifySQLEditorForm;
76 <
77 < function EditSQL(DataSet: TIBCustomDataSet;  SelectSQL: TStrings): boolean;
78 <
79 < implementation
80 <
81 < {$R *.lfm}
82 <
83 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
84 < begin
85 <  Result := false;
86 <  if assigned(DataSet) and assigned(DataSet.Database) then
87 <    try
88 <      DataSet.Database.Connected := true;
89 <    except on E: Exception do
90 <      ShowMessage(E.Message)
91 <    end;
92 <
93 <  with TIBModifySQLEditorForm.Create(Application) do
94 <  try
95 <    if assigned(DataSet) then
96 <    begin
97 <      SetDatabase(DataSet.Database);
98 <      GenerateParams.Checked := DataSet.GenerateParamNames;
99 <    end;
100 <    SQLText.Lines.Assign(SelectSQL);
101 <    Result := ShowModal = mrOK;
102 <    if Result then
103 <    begin
104 <     SelectSQL.Assign(SQLText.Lines);
105 <     if assigned(DataSet) then
106 <          DataSet.GenerateParamNames := GenerateParams.Checked
107 <    end;
108 <  finally
109 <    Free
110 <  end;
111 < end;
112 <
113 < { TIBModifySQLEditorForm }
114 <
115 < procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
116 < var TableName: string;
117 < begin
118 <  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
119 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
120 <  TableNamesCombo.Items.Clear;
121 <  try
122 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
123 <  if TableNamesCombo.Items.Count > 0 then
124 <  begin
125 <    TableNamesCombo.ItemIndex := 0;
126 <    if Trim(SQLText.Text) <> '' then
127 <    begin
128 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
129 <      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
130 <    end;
131 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
132 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
133 <  end;
134 <  except {ignore}  end;
135 < end;
136 <
137 < procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
138 < begin
139 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
140 <  SQLText.SetFocus
141 < end;
142 <
143 < procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
144 < begin
145 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
146 <  SQLText.SetFocus
147 < end;
148 <
149 < procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
150 < var FieldNames: TStrings;
151 < begin
152 <  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
153 <  try
154 <    FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
155 <             FieldNames,SQLText.Lines)
156 <  finally
157 <    FieldNames.Free
158 <  end;
159 < end;
160 <
161 < procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
162 < begin
163 <  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
164 < end;
165 <
166 < procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
167 < begin
168 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
169 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
170 < end;
171 <
172 < constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
173 < begin
174 <  inherited Create(TheOwner);
175 <  FIBSystemTables := TIBSystemTables.Create;
176 < end;
177 <
178 < destructor TIBModifySQLEditorForm.Destroy;
179 < begin
180 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
181 <  inherited Destroy;
182 < end;
183 <
184 < procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
185 < begin
186 <  IBTransaction1.DefaultDatabase := Database;
187 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
188 < end;
189 <
190 < end.
191 <
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 ibmodifysqleditor;
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 >  { TIBModifySQLEditorForm }
40 >
41 >  TIBModifySQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    FieldList: TListBox;
45 >    GenerateBtn: TButton;
46 >    GenerateParams: TCheckBox;
47 >    IncludePrimaryKeys: TCheckBox;
48 >    Label1: TLabel;
49 >    Label16: TLabel;
50 >    Label17: TLabel;
51 >    Label18: TLabel;
52 >    Label2: TLabel;
53 >    Label4: TLabel;
54 >    ExecuteOnlyIndicator: TLabel;
55 >    PageControl: TPageControl;
56 >    PrimaryKeyList: TListBox;
57 >    ProcedureNames: TComboBox;
58 >    ProcInputList: TListBox;
59 >    ProcOutputList: TListBox;
60 >    TableNamesCombo: TComboBox;
61 >    ModifyPage: TTabSheet;
62 >    ExecutePage: TTabSheet;
63 >    TestBtn: TButton;
64 >    IBTransaction1: TIBTransaction;
65 >    Label3: TLabel;
66 >    QuoteFields: TCheckBox;
67 >    SQLText: TMemo;
68 >    procedure ExecutePageShow(Sender: TObject);
69 >    procedure GenerateBtnClick(Sender: TObject);
70 >    procedure ModifyPageShow(Sender: TObject);
71 >    procedure ProcedureNamesCloseUp(Sender: TObject);
72 >    procedure TestBtnClick(Sender: TObject);
73 >    procedure FieldListDblClick(Sender: TObject);
74 >    procedure FormShow(Sender: TObject);
75 >    procedure PrimaryKeyListDblClick(Sender: TObject);
76 >    procedure TableNamesComboCloseUp(Sender: TObject);
77 >  private
78 >    { private declarations }
79 >    FIBSystemTables: TIBSystemTables;
80 >  public
81 >    { public declarations }
82 >    constructor Create(TheOwner: TComponent); override;
83 >    destructor Destroy; override;
84 >    procedure SetDatabase(Database: TIBDatabase);
85 >  end;
86 >
87 > var
88 >  IBModifySQLEditorForm: TIBModifySQLEditorForm;
89 >
90 > function EditSQL(DataSet: TIBCustomDataSet;  SelectSQL: TStrings): boolean;
91 >
92 > implementation
93 >
94 > uses IBSQL;
95 >
96 > {$R *.lfm}
97 >
98 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
99 > begin
100 >  Result := false;
101 >  if assigned(DataSet) and assigned(DataSet.Database) then
102 >    try
103 >      DataSet.Database.Connected := true;
104 >    except on E: Exception do
105 >      ShowMessage(E.Message)
106 >    end;
107 >
108 >  with TIBModifySQLEditorForm.Create(Application) do
109 >  try
110 >    if assigned(DataSet) then
111 >    begin
112 >      SetDatabase(DataSet.Database);
113 >      GenerateParams.Checked := DataSet.GenerateParamNames;
114 >    end;
115 >    SQLText.Lines.Assign(SelectSQL);
116 >    Result := ShowModal = mrOK;
117 >    if Result then
118 >    begin
119 >     SelectSQL.Assign(SQLText.Lines);
120 >     if assigned(DataSet) then
121 >          DataSet.GenerateParamNames := GenerateParams.Checked
122 >    end;
123 >  finally
124 >    Free
125 >  end;
126 > end;
127 >
128 > { TIBModifySQLEditorForm }
129 >
130 > procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
131 > var IsProcedureName: boolean;
132 >    SQLType: TIBSQLTypes;
133 > begin
134 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
135 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
136 >  if Trim(SQLText.Text) <> '' then
137 >  begin
138 >    try
139 >      SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
140 >    except  end;
141 >    if SQLType = SQLExecProcedure then
142 >      PageControl.ActivePage := ExecutePage
143 >    else
144 >      PageControl.ActivePage := ModifyPage;
145 >  end
146 >  else
147 >    PageControl.ActivePage := ModifyPage;
148 > end;
149 >
150 > procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
151 > begin
152 >  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
153 >  SQLText.SetFocus
154 > end;
155 >
156 > procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
157 > begin
158 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
159 >  SQLText.SetFocus
160 > end;
161 >
162 > procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
163 > var FieldNames: TStrings;
164 > begin
165 >  if PageControl.ActivePage = ExecutePage then
166 >    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
167 >          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
168 >  else
169 >  begin
170 >    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
171 >    try
172 >      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
173 >             FieldNames,SQLText.Lines)
174 >    finally
175 >      FieldNames.Free
176 >    end;
177 >  end;
178 > end;
179 >
180 > procedure TIBModifySQLEditorForm.ExecutePageShow(Sender: TObject);
181 > var ProcName: string;
182 >    IsProcedureName: boolean;
183 > begin
184 >  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
185 >  if ProcedureNames.Items.Count > 0 then
186 >  begin
187 >    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
188 >    begin
189 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
190 >      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
191 >    end
192 >    else
193 >      ProcedureNames.ItemIndex := 0;
194 >  end;
195 >  ProcedureNamesCloseUp(nil);
196 > end;
197 >
198 > procedure TIBModifySQLEditorForm.ModifyPageShow(Sender: TObject);
199 > var TableName: string;
200 > begin
201 >  TableNamesCombo.Items.Clear;
202 >  try
203 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
204 >  if TableNamesCombo.Items.Count > 0 then
205 >  begin
206 >    TableNamesCombo.ItemIndex := 0;
207 >    if Trim(SQLText.Text) <> '' then
208 >    begin
209 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
210 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
211 >    end;
212 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
213 >    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
214 >  end;
215 >  except {ignore}  end;
216 > end;
217 >
218 > procedure TIBModifySQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
219 > var ExecuteOnly: boolean;
220 > begin
221 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
222 >  ExecuteOnlyIndicator.Visible := ExecuteOnly;
223 > end;
224 >
225 > procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
226 > begin
227 >  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
228 > end;
229 >
230 > procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
231 > begin
232 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
233 >  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
234 > end;
235 >
236 > constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
237 > begin
238 >  inherited Create(TheOwner);
239 >  FIBSystemTables := TIBSystemTables.Create;
240 > end;
241 >
242 > destructor TIBModifySQLEditorForm.Destroy;
243 > begin
244 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
245 >  inherited Destroy;
246 > end;
247 >
248 > procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
249 > begin
250 >  IBTransaction1.DefaultDatabase := Database;
251 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
252 > end;
253 >
254 > end.

Diff Legend

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