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 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 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.
255 <
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