ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibinsertsqleditor.pas
Revision: 17
Committed: Sat Dec 28 19:22:24 2013 UTC (10 years, 3 months ago) by tony
Content type: text/x-pascal
File size: 4786 byte(s)
Log Message:
Committing updates for Release R1-0-5

File Contents

# Content
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, IBSystemTables, IBDatabase;
36
37 type
38
39 { TIBInsertSQLEditorForm }
40
41 TIBInsertSQLEditorForm = class(TForm)
42 Button1: TButton;
43 Button2: TButton;
44 GenerateBtn: TButton;
45 TestBtn: TButton;
46 FieldList: TListBox;
47 IBTransaction1: TIBTransaction;
48 Label1: TLabel;
49 Label2: TLabel;
50 Label3: TLabel;
51 QuoteFields: TCheckBox;
52 SQLText: TMemo;
53 TableNamesCombo: TComboBox;
54 procedure GenerateBtnClick(Sender: TObject);
55 procedure TestBtnClick(Sender: TObject);
56 procedure FieldListDblClick(Sender: TObject);
57 procedure FormShow(Sender: TObject);
58 procedure TableNamesComboCloseUp(Sender: TObject);
59 private
60 { private declarations }
61 FIBSystemTables: TIBSystemTables;
62 public
63 { public declarations }
64 constructor Create(TheOwner: TComponent); override;
65 destructor Destroy; override;
66 procedure SetDatabase(Database: TIBDatabase);
67 end;
68
69 var
70 IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
71
72 function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73
74 implementation
75
76 {$R *.lfm}
77
78 function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
79 begin
80 Result := false;
81
82 if assigned(Database) then
83 try
84 Database.Connected := true;
85 except on E: Exception do
86 ShowMessage(E.Message)
87 end;
88
89 with TIBInsertSQLEditorForm.Create(Application) do
90 try
91 SetDatabase(Database);
92 SQLText.Lines.Assign(SelectSQL);
93 Result := ShowModal = mrOK;
94 if Result then
95 SelectSQL.Assign(SQLText.Lines)
96 finally
97 Free
98 end;
99 end;
100
101 { TIBInsertSQLEditorForm }
102
103 procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
104 var TableName: string;
105 begin
106 GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107 TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
108 TableNamesCombo.Items.Clear;
109 try
110 FIBSystemTables.GetTableNames(TableNamesCombo.Items);
111 if TableNamesCombo.Items.Count > 0 then
112 begin
113 TableNamesCombo.ItemIndex := 0;
114 if Trim(SQLText.Text) <> '' then
115 begin
116 FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
117 TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
118 end;
119 FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
120 end;
121 except {ignore}
122 end;
123 end;
124
125 procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
126 begin
127 SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
128 SQLText.SetFocus
129 end;
130
131 procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
132 var FieldNames: TStrings;
133 begin
134 FieldNames := FIBSystemTables.GetFieldNames(FieldList);
135 try
136 FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
137 FieldNames,SQLText.Lines)
138 finally
139 FieldNames.Free
140 end;
141 end;
142
143 procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
144 begin
145 FIBSystemTables.TestSQL(SQLText.Lines.Text)
146 end;
147
148 procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
149 begin
150 FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
151 end;
152
153 constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
154 begin
155 inherited Create(TheOwner);
156 FIBSystemTables := TIBSystemTables.Create;
157 end;
158
159 destructor TIBInsertSQLEditorForm.Destroy;
160 begin
161 if assigned(FIBSystemTables) then FIBSystemTables.Free;
162 inherited Destroy;
163 end;
164
165 procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
166 begin
167 IBTransaction1.DefaultDatabase := Database;
168 FIBSystemTables.SelectDatabase(Database,IBTransaction1)
169 end;
170
171 end.
172