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 45 by tony, Tue Dec 6 10:33:46 2016 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, IB;
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 > {$R *.lfm}
95 >
96 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
97 > begin
98 >  Result := false;
99 >  if assigned(DataSet) and assigned(DataSet.Database) then
100 >    try
101 >      DataSet.Database.Connected := true;
102 >    except on E: Exception do
103 >      ShowMessage(E.Message)
104 >    end;
105 >
106 >  with TIBModifySQLEditorForm.Create(Application) do
107 >  try
108 >    if assigned(DataSet) then
109 >    begin
110 >      SetDatabase(DataSet.Database);
111 >      GenerateParams.Checked := DataSet.GenerateParamNames;
112 >    end;
113 >    SQLText.Lines.Assign(SelectSQL);
114 >    Result := ShowModal = mrOK;
115 >    if Result then
116 >    begin
117 >     SelectSQL.Assign(SQLText.Lines);
118 >     if assigned(DataSet) then
119 >          DataSet.GenerateParamNames := GenerateParams.Checked
120 >    end;
121 >  finally
122 >    Free
123 >  end;
124 > end;
125 >
126 > { TIBModifySQLEditorForm }
127 >
128 > procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
129 > var IsProcedureName: boolean;
130 >    SQLType: TIBSQLStatementTypes;
131 > begin
132 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
133 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
134 >  if Trim(SQLText.Text) <> '' then
135 >  begin
136 >    try
137 >      SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
138 >    except  end;
139 >    if SQLType = SQLExecProcedure then
140 >      PageControl.ActivePage := ExecutePage
141 >    else
142 >      PageControl.ActivePage := ModifyPage;
143 >  end
144 >  else
145 >    PageControl.ActivePage := ModifyPage;
146 > end;
147 >
148 > procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
149 > begin
150 >  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
151 >  SQLText.SetFocus
152 > end;
153 >
154 > procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
155 > begin
156 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
157 >  SQLText.SetFocus
158 > end;
159 >
160 > procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
161 > var FieldNames: TStrings;
162 > begin
163 >  if PageControl.ActivePage = ExecutePage then
164 >    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
165 >          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
166 >  else
167 >  begin
168 >    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
169 >    try
170 >      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
171 >             FieldNames,SQLText.Lines)
172 >    finally
173 >      FieldNames.Free
174 >    end;
175 >  end;
176 > end;
177 >
178 > procedure TIBModifySQLEditorForm.ExecutePageShow(Sender: TObject);
179 > var ProcName: string;
180 >    IsProcedureName: boolean;
181 > begin
182 >  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
183 >  if ProcedureNames.Items.Count > 0 then
184 >  begin
185 >    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
186 >    begin
187 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
188 >      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
189 >    end
190 >    else
191 >      ProcedureNames.ItemIndex := 0;
192 >  end;
193 >  ProcedureNamesCloseUp(nil);
194 > end;
195 >
196 > procedure TIBModifySQLEditorForm.ModifyPageShow(Sender: TObject);
197 > var TableName: string;
198 > begin
199 >  TableNamesCombo.Items.Clear;
200 >  try
201 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
202 >  if TableNamesCombo.Items.Count > 0 then
203 >  begin
204 >    TableNamesCombo.ItemIndex := 0;
205 >    if Trim(SQLText.Text) <> '' then
206 >    begin
207 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
208 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
209 >    end;
210 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
211 >    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
212 >  end;
213 >  except {ignore}  end;
214 > end;
215 >
216 > procedure TIBModifySQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
217 > var ExecuteOnly: boolean;
218 > begin
219 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
220 >  ExecuteOnlyIndicator.Visible := ExecuteOnly;
221 > end;
222 >
223 > procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
224 > begin
225 >  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
226 > end;
227 >
228 > procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
229 > begin
230 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
231 >  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
232 > end;
233 >
234 > constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
235 > begin
236 >  inherited Create(TheOwner);
237 >  FIBSystemTables := TIBSystemTables.Create;
238 > end;
239 >
240 > destructor TIBModifySQLEditorForm.Destroy;
241 > begin
242 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
243 >  inherited Destroy;
244 > end;
245 >
246 > procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
247 > begin
248 >  IBTransaction1.DefaultDatabase := Database;
249 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
250 > end;
251 >
252 > end.

Diff Legend

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