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

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 32 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 ibinsertsqleditor;
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 <  { TIBInsertSQLEditorForm }
40 <
41 <  TIBInsertSQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    ExecuteOnlyIndicator: TLabel;
45 <    FieldList: TListBox;
46 <    GenerateBtn: TButton;
47 <    GenerateParams: TCheckBox;
48 <    Label1: TLabel;
49 <    Label16: TLabel;
50 <    Label17: TLabel;
51 <    Label18: TLabel;
52 <    Label2: TLabel;
53 <    PageControl: TPageControl;
54 <    ProcedureNames: TComboBox;
55 <    ProcInputList: TListBox;
56 <    ProcOutputList: TListBox;
57 <    TableNamesCombo: TComboBox;
58 <    InsertPage: TTabSheet;
59 <    ExecutePage: TTabSheet;
60 <    TestBtn: TButton;
61 <    IBTransaction1: TIBTransaction;
62 <    Label3: TLabel;
63 <    QuoteFields: TCheckBox;
64 <    SQLText: TMemo;
65 <    procedure ExecutePageShow(Sender: TObject);
66 <    procedure GenerateBtnClick(Sender: TObject);
67 <    procedure InsertPageShow(Sender: TObject);
68 <    procedure ProcedureNamesCloseUp(Sender: TObject);
69 <    procedure TestBtnClick(Sender: TObject);
70 <    procedure FieldListDblClick(Sender: TObject);
71 <    procedure FormShow(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 <  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
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 <
98 < if assigned(DataSet) and assigned(DataSet.Database) then
99 <    try
100 <      DataSet.Database.Connected := true;
101 <    except on E: Exception do
102 <      ShowMessage(E.Message)
103 <    end;
104 <
105 <  with TIBInsertSQLEditorForm.Create(Application) do
106 <  try
107 <    if assigned(DataSet) then
108 <    begin
109 <      SetDatabase(DataSet.Database);
110 <      GenerateParams.Checked := DataSet.GenerateParamNames;
111 <    end;
112 <    SQLText.Lines.Assign(SelectSQL);
113 <    Result := ShowModal = mrOK;
114 <    if Result then
115 <    begin
116 <     SelectSQL.Assign(SQLText.Lines);
117 <     if assigned(DataSet) then
118 <          DataSet.GenerateParamNames := GenerateParams.Checked
119 <    end;
120 <  finally
121 <    Free
122 <  end;
123 < end;
124 <
125 < { TIBInsertSQLEditorForm }
126 <
127 < procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
128 < var IsProcedureName: boolean;
129 <    SQLType: TIBSQLTypes;
130 < begin
131 <  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
132 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
133 < if Trim(SQLText.Text) <> '' then
134 < begin
135 <   try
136 <     SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
137 <   except  end;
138 <   if SQLType = SQLExecProcedure then
139 <     PageControl.ActivePage := ExecutePage
140 <   else
141 <     PageControl.ActivePage := InsertPage;
142 < end
143 < else
144 <   PageControl.ActivePage := InsertPage;
145 < end;
146 <
147 < procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
148 < begin
149 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
150 <  SQLText.SetFocus
151 < end;
152 <
153 < procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
154 < var FieldNames: TStrings;
155 < begin
156 < if PageControl.ActivePage = ExecutePage then
157 <   FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
158 <         ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
159 < else
160 < begin
161 <  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
162 <  try
163 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
164 <               FieldNames,SQLText.Lines)
165 <  finally
166 <    FieldNames.Free
167 <  end;
168 < end;
169 < end;
170 <
171 < procedure TIBInsertSQLEditorForm.ExecutePageShow(Sender: TObject);
172 < var ProcName: string;
173 <    IsProcedureName: boolean;
174 < begin
175 <  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
176 <  if ProcedureNames.Items.Count > 0 then
177 <  begin
178 <    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
179 <    begin
180 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
181 <      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
182 <    end
183 <    else
184 <      ProcedureNames.ItemIndex := 0;
185 <  end;
186 <  ProcedureNamesCloseUp(nil);
187 < end;
188 <
189 < procedure TIBInsertSQLEditorForm.InsertPageShow(Sender: TObject);
190 < var TableName: string;
191 < begin
192 <  TableNamesCombo.Items.Clear;
193 <  try
194 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
195 <  if TableNamesCombo.Items.Count > 0 then
196 <  begin
197 <    TableNamesCombo.ItemIndex := 0;
198 <    if Trim(SQLText.Text) <> '' then
199 <    begin
200 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
201 <      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
202 <    end;
203 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
204 <  end;
205 <  except {ignore}
206 <  end;
207 < end;
208 <
209 < procedure TIBInsertSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
210 < var ExecuteOnly: boolean;
211 < begin
212 <  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
213 <  ExecuteOnlyIndicator.Visible := ExecuteOnly;
214 < end;
215 <
216 < procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
217 < begin
218 <  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
219 < end;
220 <
221 < procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
222 < begin
223 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
224 < end;
225 <
226 < constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
227 < begin
228 <  inherited Create(TheOwner);
229 <  FIBSystemTables := TIBSystemTables.Create;
230 < end;
231 <
232 < destructor TIBInsertSQLEditorForm.Destroy;
233 < begin
234 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
235 <  inherited Destroy;
236 < end;
237 <
238 < procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
239 < begin
240 <  IBTransaction1.DefaultDatabase := Database;
241 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
242 < end;
243 <
244 < end.
245 <
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 ibinsertsqleditor;
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 >  { TIBInsertSQLEditorForm }
40 >
41 >  TIBInsertSQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    ExecuteOnlyIndicator: TLabel;
45 >    FieldList: TListBox;
46 >    GenerateBtn: TButton;
47 >    GenerateParams: TCheckBox;
48 >    Label1: TLabel;
49 >    Label16: TLabel;
50 >    Label17: TLabel;
51 >    Label18: TLabel;
52 >    Label2: TLabel;
53 >    PageControl: TPageControl;
54 >    ProcedureNames: TComboBox;
55 >    ProcInputList: TListBox;
56 >    ProcOutputList: TListBox;
57 >    TableNamesCombo: TComboBox;
58 >    InsertPage: TTabSheet;
59 >    ExecutePage: TTabSheet;
60 >    TestBtn: TButton;
61 >    IBTransaction1: TIBTransaction;
62 >    Label3: TLabel;
63 >    QuoteFields: TCheckBox;
64 >    SQLText: TMemo;
65 >    procedure ExecutePageShow(Sender: TObject);
66 >    procedure GenerateBtnClick(Sender: TObject);
67 >    procedure InsertPageShow(Sender: TObject);
68 >    procedure ProcedureNamesCloseUp(Sender: TObject);
69 >    procedure TestBtnClick(Sender: TObject);
70 >    procedure FieldListDblClick(Sender: TObject);
71 >    procedure FormShow(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 >  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
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 >
98 > if assigned(DataSet) and assigned(DataSet.Database) then
99 >    try
100 >      DataSet.Database.Connected := true;
101 >    except on E: Exception do
102 >      ShowMessage(E.Message)
103 >    end;
104 >
105 >  with TIBInsertSQLEditorForm.Create(Application) do
106 >  try
107 >    if assigned(DataSet) then
108 >    begin
109 >      SetDatabase(DataSet.Database);
110 >      GenerateParams.Checked := DataSet.GenerateParamNames;
111 >    end;
112 >    SQLText.Lines.Assign(SelectSQL);
113 >    Result := ShowModal = mrOK;
114 >    if Result then
115 >    begin
116 >     SelectSQL.Assign(SQLText.Lines);
117 >     if assigned(DataSet) then
118 >          DataSet.GenerateParamNames := GenerateParams.Checked
119 >    end;
120 >  finally
121 >    Free
122 >  end;
123 > end;
124 >
125 > { TIBInsertSQLEditorForm }
126 >
127 > procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
128 > var IsProcedureName: boolean;
129 >    SQLType: TIBSQLTypes;
130 > begin
131 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
132 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
133 > if Trim(SQLText.Text) <> '' then
134 > begin
135 >   try
136 >     SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
137 >   except  end;
138 >   if SQLType = SQLExecProcedure then
139 >     PageControl.ActivePage := ExecutePage
140 >   else
141 >     PageControl.ActivePage := InsertPage;
142 > end
143 > else
144 >   PageControl.ActivePage := InsertPage;
145 > end;
146 >
147 > procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
148 > begin
149 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
150 >  SQLText.SetFocus
151 > end;
152 >
153 > procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
154 > var FieldNames: TStrings;
155 > begin
156 > if PageControl.ActivePage = ExecutePage then
157 >   FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
158 >         ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
159 > else
160 > begin
161 >  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
162 >  try
163 >    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
164 >               FieldNames,SQLText.Lines)
165 >  finally
166 >    FieldNames.Free
167 >  end;
168 > end;
169 > end;
170 >
171 > procedure TIBInsertSQLEditorForm.ExecutePageShow(Sender: TObject);
172 > var ProcName: string;
173 >    IsProcedureName: boolean;
174 > begin
175 >  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
176 >  if ProcedureNames.Items.Count > 0 then
177 >  begin
178 >    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
179 >    begin
180 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
181 >      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
182 >    end
183 >    else
184 >      ProcedureNames.ItemIndex := 0;
185 >  end;
186 >  ProcedureNamesCloseUp(nil);
187 > end;
188 >
189 > procedure TIBInsertSQLEditorForm.InsertPageShow(Sender: TObject);
190 > var TableName: string;
191 > begin
192 >  TableNamesCombo.Items.Clear;
193 >  try
194 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
195 >  if TableNamesCombo.Items.Count > 0 then
196 >  begin
197 >    TableNamesCombo.ItemIndex := 0;
198 >    if Trim(SQLText.Text) <> '' then
199 >    begin
200 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
201 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
202 >    end;
203 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
204 >  end;
205 >  except {ignore}
206 >  end;
207 > end;
208 >
209 > procedure TIBInsertSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
210 > var ExecuteOnly: boolean;
211 > begin
212 >  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
213 >  ExecuteOnlyIndicator.Visible := ExecuteOnly;
214 > end;
215 >
216 > procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
217 > begin
218 >  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
219 > end;
220 >
221 > procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
222 > begin
223 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
224 > end;
225 >
226 > constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
227 > begin
228 >  inherited Create(TheOwner);
229 >  FIBSystemTables := TIBSystemTables.Create;
230 > end;
231 >
232 > destructor TIBInsertSQLEditorForm.Destroy;
233 > begin
234 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
235 >  inherited Destroy;
236 > end;
237 >
238 > procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
239 > begin
240 >  IBTransaction1.DefaultDatabase := Database;
241 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
242 > end;
243 >
244 > end.

Diff Legend

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