ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.pas
Revision: 7
Committed: Sun Aug 5 18:28:19 2012 UTC (11 years, 7 months ago) by tony
Content type: text/x-pascal
File size: 5127 byte(s)
Log Message:
Committing updates for Release R1-0-0

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