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

Comparing ibx/trunk/design/ibdataseteditor.pas (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 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 IBDataSetEditor;
28 <
29 < {$mode objfpc}{$H+}
30 <
31 < interface
32 <
33 < uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  ComCtrls, StdCtrls, ExtCtrls, IBSystemTables, IBCustomDataSet, IBDatabase;
36 <
37 < type
38 <
39 <  { TIBDataSetEditorForm }
40 <
41 <  TIBDataSetEditorForm = class(TForm)
42 <    GenerateParams: TCheckBox;
43 <    TestBtn: TButton;
44 <    CancelButton: TButton;
45 <    FieldsPage: TTabSheet;
46 <    GenerateButton: TButton;
47 <    GroupBox1: TGroupBox;
48 <    IBTransaction1: TIBTransaction;
49 <    IncludePrimaryKeys: TCheckBox;
50 <    PrimaryKeyList: TListBox;
51 <    Label1: TLabel;
52 <    Label2: TLabel;
53 <    Label3: TLabel;
54 <    Label4: TLabel;
55 <    OkButton: TButton;
56 <    PageControl: TPageControl;
57 <    QuoteFields: TCheckBox;
58 <    SQLMemo: TMemo;
59 <    SQLPage: TTabSheet;
60 <    StatementType: TRadioGroup;
61 <    FieldList: TListBox;
62 <    TableNamesCombo: TComboBox;
63 <    procedure TestBtnClick(Sender: TObject);
64 <    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
65 <    procedure FormShow(Sender: TObject);
66 <    procedure GenerateButtonClick(Sender: TObject);
67 <    procedure SQLMemoChange(Sender: TObject);
68 <    procedure SQLPageShow(Sender: TObject);
69 <    procedure StatementTypeClick(Sender: TObject);
70 <    procedure TableNamesComboCloseUp(Sender: TObject);
71 <  private
72 <    { private declarations }
73 <    FDataSet: TIBDataSet;
74 <    FIBSystemTables: TIBSystemTables;
75 <    FDirty: boolean;
76 <    FCurrentStatement: integer;
77 <    FSelectSQL: TStringList;
78 <    FModifySQL: TStringList;
79 <    FInsertSQL: TStringList;
80 <    FDeleteSQL: TStringList;
81 <    FRefreshSQL: TStringList;
82 <    procedure UpdateSQLMemo;
83 <  public
84 <    { public declarations }
85 <    constructor Create(TheOwner: TComponent); override;
86 <    destructor Destroy; override;
87 <    procedure SetDataSet(AObject: TIBDataSet);
88 <  end;
89 <
90 < var
91 <  IBDataSetEditorForm: TIBDataSetEditorForm;
92 <
93 < function EditIBDataSet(DataSet: TIBDataSet): boolean;
94 <
95 < implementation
96 <
97 < {$R *.lfm}
98 <
99 < function EditIBDataSet(DataSet: TIBDataSet): boolean;
100 < begin
101 <  Result := false;
102 <  if assigned(DataSet) and assigned(DataSet.Database) then
103 <  try
104 <    DataSet.Database.Connected := true;
105 <  except on E: Exception do
106 <    ShowMessage(E.Message)
107 <  end;
108 <
109 <  with TIBDataSetEditorForm.Create(Application) do
110 <  try
111 <    SetDataSet(DataSet);
112 <    if assigned(DataSet) then
113 <        GenerateParams.Checked := DataSet.GenerateParamNames;
114 <    Result := ShowModal = mrOK;
115 <    if Result and assigned(DataSet) then
116 <      DataSet.GenerateParamNames := GenerateParams.Checked
117 <  finally
118 <    Free
119 <  end;
120 <
121 < end;
122 <
123 < { TIBDataSetEditorForm }
124 <
125 < procedure TIBDataSetEditorForm.FormShow(Sender: TObject);
126 < var TableName: string;
127 < begin
128 <  PageControl.ActivePage := FieldsPage;
129 <  FModifySQL.Assign(FDataSet.ModifySQL);
130 <  FInsertSQL.Assign(FDataSet.InsertSQL);
131 <  FDeleteSQL.Assign(FDataSet.DeleteSQL);
132 <  FRefreshSQL.Assign(FDataSet.RefreshSQL);
133 <  FSelectSQL.Assign(FDataSet.SelectSQL);
134 <  GenerateButton.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
135 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
136 <  FCurrentStatement := -1;
137 <  TableNamesCombo.Items.Clear;
138 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
139 <  if TableNamesCombo.Items.Count > 0 then
140 <  begin
141 <    TableNamesCombo.ItemIndex := 0;
142 <    if FSelectSQL.Text <> '' then
143 <    try
144 <       FIBSystemTables.GetTableAndColumns(FSelectSQL.Text,TableName,nil);
145 <       TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName);
146 <    except end;//ignore
147 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
148 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
149 <  end;
150 < end;
151 <
152 < procedure TIBDataSetEditorForm.FormClose(Sender: TObject;
153 <  var CloseAction: TCloseAction);
154 < begin
155 <  if ModalResult = mrOK then
156 <  begin
157 <    UpdateSQLMemo;
158 <    FDataSet.ModifySQL.Assign(FModifySQL);
159 <    FDataSet.InsertSQL.Assign(FInsertSQL);
160 <    FDataSet.DeleteSQL.Assign(FDeleteSQL);
161 <    FDataSet.RefreshSQL.Assign(FRefreshSQL);
162 <    FDataSet.SelectSQL.Assign(FSelectSQL);
163 <  end;
164 < end;
165 <
166 < procedure TIBDataSetEditorForm.TestBtnClick(Sender: TObject);
167 < begin
168 <  if SQLMemo.Lines.Text <> '' then
169 <    FIBSystemTables.TestSQL(SQLMemo.Lines.Text,GenerateParams.Checked);
170 < end;
171 <
172 < procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
173 < var FieldNames: TStringList;
174 <    I: integer;
175 < begin
176 <  FieldNames := TStringList.Create;
177 <  try
178 <    FRefreshSQL.Clear;
179 <    FSelectSQL.Clear;
180 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldNames);
181 <    FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,FSelectSQL);
182 <    FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,FRefreshSQL);
183 <    FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,FDeleteSQL);
184 <    FieldNames.Clear;
185 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldNames,true,false);
186 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
187 <        FieldNames,FInsertSQL);
188 <    if FieldList.SelCount = 0 then
189 <    begin
190 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
191 <        FieldList.Items,FModifySQL);
192 <
193 <    end
194 <    else
195 <    begin
196 <      FieldNames.Clear;
197 <      for I := 0 to FieldList.Items.Count - 1 do
198 <        if FieldList.Selected[I] then
199 <          FieldNames.Add(FieldList.Items[I]);
200 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
201 <        FieldNames,FModifySQL);
202 <    end;
203 <    FDirty := false;
204 <    PageControl.ActivePage := SQLPage;
205 <  finally
206 <    FieldNames.Free
207 <  end;
208 < end;
209 <
210 < procedure TIBDataSetEditorForm.SQLMemoChange(Sender: TObject);
211 < begin
212 <  FDirty := true
213 < end;
214 <
215 < procedure TIBDataSetEditorForm.SQLPageShow(Sender: TObject);
216 < begin
217 <  UpdateSQLMemo
218 < end;
219 <
220 < procedure TIBDataSetEditorForm.StatementTypeClick(Sender: TObject);
221 < begin
222 <  UpdateSQLMemo
223 < end;
224 <
225 < procedure TIBDataSetEditorForm.TableNamesComboCloseUp(Sender: TObject);
226 < begin
227 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
228 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
229 < end;
230 <
231 < procedure TIBDataSetEditorForm.UpdateSQLMemo;
232 < begin
233 <  if FDirty then
234 <    case FCurrentStatement of
235 <    0: // Select
236 <        FSelectSQL.Assign(SQLMemo.Lines);
237 <    1: //Modify
238 <        FModifySQL.Assign(SQLMemo.Lines);
239 <    2: //Insert
240 <        FInsertSQL.Assign(SQLMemo.Lines);
241 <    3: // Delete
242 <        FDeleteSQL.Assign(SQLMemo.Lines);
243 <    4: //Refresh
244 <        FRefreshSQL.Assign(SQLMemo.Lines);
245 <    end;
246 <  FDirty := false;
247 <  case StatementType.ItemIndex of
248 <  0: //Select
249 <     SQLMemo.Lines.Assign(FSelectSQL);
250 <  1: // Modify
251 <    SQLMemo.Lines.Assign(FModifySQL)  ;
252 <  2: //Insert
253 <    SQLMemo.Lines.Assign(FInsertSQL)  ;
254 <  3: // Delete
255 <    SQLMemo.Lines.Assign(FDeleteSQL)  ;
256 <  4: //Refresh
257 <    SQLMemo.Lines.Assign(FRefreshSQL)  ;
258 <  end;
259 <  FCurrentStatement := StatementType.ItemIndex;
260 < end;
261 <
262 < constructor TIBDataSetEditorForm.Create(TheOwner: TComponent);
263 < begin
264 <  inherited Create(TheOwner);
265 <  FIBSystemTables := TIBSystemTables.Create;
266 <  FModifySQL := TStringList.Create;
267 <  FInsertSQL := TStringList.Create;
268 <  FDeleteSQL := TStringList.Create;
269 <  FRefreshSQL := TStringList.Create;
270 <  FSelectSQL := TStringList.Create;
271 < end;
272 <
273 < destructor TIBDataSetEditorForm.Destroy;
274 < begin
275 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
276 <  if assigned(FModifySQL) then FModifySQL.Free;
277 <  if assigned(FInsertSQL) then FInsertSQL.Free;
278 <  if assigned(FDeleteSQL) then FDeleteSQL.Free;
279 <  if assigned(FRefreshSQL) then FRefreshSQL.Free;
280 < if assigned(FSelectSQL) then FSelectSQL.Free;
281 <  inherited Destroy;
282 < end;
283 <
284 < procedure TIBDataSetEditorForm.SetDataSet(AObject: TIBDataSet);
285 < begin
286 <  FDataSet := AObject;
287 <  IBTransaction1.DefaultDatabase := FDataSet.Database;
288 <  if assigned(FDataSet) then
289 <    FIBSystemTables.SelectDatabase(FDataSet.Database,IBTransaction1);
290 < end;
291 <
292 < end.
293 <
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 IBDataSetEditor;
28 >
29 > {$mode objfpc}{$H+}
30 >
31 > interface
32 >
33 > uses
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
35 >  StdCtrls, ExtCtrls, IBSQLEditFrame, IBCustomDataSet,
36 >  IBDatabase, IBLookupComboEditBox, IBDynamicGrid;
37 >
38 > type
39 >
40 >  { TIBDataSetEditorForm }
41 >
42 >  TIBDataSetEditorForm = class(TForm)
43 >    FieldNamesGrid: TIBDynamicGrid;
44 >    GenerateParams: TCheckBox;
45 >    IBSQLEditFrame1: TIBSQLEditFrame;
46 >    IncludeSysTables: TCheckBox;
47 >    Label5: TLabel;
48 >    Label6: TLabel;
49 >    PrimaryKeysGrid: TIBDynamicGrid;
50 >    IdentityGrid: TIBDynamicGrid;
51 >    ReadOnlyGrid: TIBDynamicGrid;
52 >    SelectSelectAll: TCheckBox;
53 >    SelectTableNames: TIBLookupComboEditBox;
54 >    TestBtn: TButton;
55 >    CancelButton: TButton;
56 >    FieldsPage: TTabSheet;
57 >    GenerateButton: TButton;
58 >    GroupBox1: TGroupBox;
59 >    IncludePrimaryKeys: TCheckBox;
60 >    Label1: TLabel;
61 >    Label2: TLabel;
62 >    Label3: TLabel;
63 >    Label4: TLabel;
64 >    OkButton: TButton;
65 >    PageControl: TPageControl;
66 >    QuoteFields: TCheckBox;
67 >    SQLPage: TTabSheet;
68 >    StatementType: TRadioGroup;
69 >    procedure IncludeSysTablesChange(Sender: TObject);
70 >    procedure SelectSelectAllClick(Sender: TObject);
71 >    procedure TestBtnClick(Sender: TObject);
72 >    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
73 >    procedure FormShow(Sender: TObject);
74 >    procedure GenerateButtonClick(Sender: TObject);
75 >    procedure SQLMemoChange(Sender: TObject);
76 >    procedure SQLPageShow(Sender: TObject);
77 >    procedure StatementTypeClick(Sender: TObject);
78 >  private
79 >    { private declarations }
80 >    FDataSet: TIBDataSet;
81 >    FDirty: boolean;
82 >    FCurrentStatement: integer;
83 >    FSelectSQL: TStringList;
84 >    FModifySQL: TStringList;
85 >    FInsertSQL: TStringList;
86 >    FDeleteSQL: TStringList;
87 >    FRefreshSQL: TStringList;
88 >    procedure UpdateSQLMemo;
89 >    procedure HandleUserTablesOpened(Sender: TObject);
90 >  protected
91 >    procedure Loaded; override;
92 >  public
93 >    { public declarations }
94 >    constructor Create(TheOwner: TComponent); override;
95 >    destructor Destroy; override;
96 >  end;
97 >
98 > var
99 >  IBDataSetEditorForm: TIBDataSetEditorForm;
100 >
101 > function EditIBDataSet(DataSet: TIBDataSet): boolean;
102 >
103 > implementation
104 >
105 > {$R *.lfm}
106 >
107 > function EditIBDataSet(DataSet: TIBDataSet): boolean;
108 > begin
109 >  Result := false;
110 >  if assigned(DataSet) and assigned(DataSet.Database) then
111 >  try
112 >    DataSet.Database.Connected := true;
113 >  except on E: Exception do
114 >    ShowMessage(E.Message)
115 >  end;
116 >
117 >  with TIBDataSetEditorForm.Create(Application) do
118 >  try
119 >    if assigned(DataSet) then
120 >    begin
121 >      IBSQLEditFrame1.Database := DataSet.Database;
122 >      GenerateParams.Checked := DataSet.GenerateParamNames;
123 >    end;
124 >    FDataSet := DataSet;
125 >    with IBSQLEditFrame1 do
126 >    begin
127 >      IncludeReadOnlyFields := false;
128 >    end;
129 >    Result := ShowModal = mrOK;
130 >    if Result and assigned(DataSet) then
131 >      DataSet.GenerateParamNames := GenerateParams.Checked
132 >  finally
133 >    Free
134 >  end;
135 >
136 > end;
137 >
138 > { TIBDataSetEditorForm }
139 >
140 > procedure TIBDataSetEditorForm.FormShow(Sender: TObject);
141 > begin
142 >  PageControl.ActivePage := FieldsPage;
143 >  FModifySQL.Assign(FDataSet.ModifySQL);
144 >  FInsertSQL.Assign(FDataSet.InsertSQL);
145 >  FDeleteSQL.Assign(FDataSet.DeleteSQL);
146 >  FRefreshSQL.Assign(FDataSet.RefreshSQL);
147 >  FSelectSQL.Assign(FDataSet.SelectSQL);
148 >  GenerateButton.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
149 >  TestBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
150 >  FCurrentStatement := -1;
151 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
152 >  begin
153 >    IBSQLEditFrame1.UserTables.Active := true;
154 >    IBSQLEditFrame1.SyncQueryBuilder(FSelectSQL);
155 >  end;
156 > end;
157 >
158 > procedure TIBDataSetEditorForm.FormClose(Sender: TObject;
159 >  var CloseAction: TCloseAction);
160 > begin
161 >  if ModalResult = mrOK then
162 >  begin
163 >    UpdateSQLMemo;
164 >    FDataSet.ModifySQL.Assign(FModifySQL);
165 >    FDataSet.InsertSQL.Assign(FInsertSQL);
166 >    FDataSet.DeleteSQL.Assign(FDeleteSQL);
167 >    FDataSet.RefreshSQL.Assign(FRefreshSQL);
168 >    FDataSet.SelectSQL.Assign(FSelectSQL);
169 >  end;
170 > end;
171 >
172 > procedure TIBDataSetEditorForm.TestBtnClick(Sender: TObject);
173 > begin
174 >  IBSQLEditFrame1.TestSQL(GenerateParams.Checked);
175 > end;
176 >
177 > procedure TIBDataSetEditorForm.IncludeSysTablesChange(Sender: TObject);
178 > begin
179 >  IBSQLEditFrame1.IncludeSystemTables := IncludeSysTables.Checked;
180 > end;
181 >
182 > procedure TIBDataSetEditorForm.SelectSelectAllClick(Sender: TObject);
183 > begin
184 >  IBSQLEditFrame1.SelectAllFields(SelectSelectAll.Checked);
185 > end;
186 >
187 > procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
188 > begin
189 >  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL,true);
190 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
191 >  IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
192 >  IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
193 >  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
194 >  FDirty := false;
195 >  PageControl.ActivePage := SQLPage;
196 > end;
197 >
198 > procedure TIBDataSetEditorForm.SQLMemoChange(Sender: TObject);
199 > begin
200 >  FDirty := true
201 > end;
202 >
203 > procedure TIBDataSetEditorForm.SQLPageShow(Sender: TObject);
204 > begin
205 >  UpdateSQLMemo
206 > end;
207 >
208 > procedure TIBDataSetEditorForm.StatementTypeClick(Sender: TObject);
209 > begin
210 >  UpdateSQLMemo
211 > end;
212 >
213 > procedure TIBDataSetEditorForm.UpdateSQLMemo;
214 > begin
215 >  if FDirty then
216 >    case FCurrentStatement of
217 >    0: // Select
218 >        FSelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
219 >    1: //Modify
220 >        FModifySQL.Assign(IBSQLEditFrame1.SQLText.Lines);
221 >    2: //Insert
222 >        FInsertSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
223 >    3: // Delete
224 >        FDeleteSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
225 >    4: //Refresh
226 >        FRefreshSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
227 >    end;
228 >  FDirty := false;
229 >  case StatementType.ItemIndex of
230 >  0: //Select
231 >     IBSQLEditFrame1.SQLText.Lines.Assign(FSelectSQL);
232 >  1: // Modify
233 >    IBSQLEditFrame1.SQLText.Lines.Assign(FModifySQL)  ;
234 >  2: //Insert
235 >    IBSQLEditFrame1.SQLText.Lines.Assign(FInsertSQL)  ;
236 >  3: // Delete
237 >    IBSQLEditFrame1.SQLText.Lines.Assign(FDeleteSQL)  ;
238 >  4: //Refresh
239 >    IBSQLEditFrame1.SQLText.Lines.Assign(FRefreshSQL)  ;
240 >  end;
241 >  FCurrentStatement := StatementType.ItemIndex;
242 > end;
243 >
244 > procedure TIBDataSetEditorForm.HandleUserTablesOpened(Sender: TObject);
245 > begin
246 >  SelectSelectAll.Checked := true;
247 > end;
248 >
249 > procedure TIBDataSetEditorForm.Loaded;
250 > begin
251 >  inherited Loaded;
252 >  if IBSQLEditFrame1 <> nil then
253 >  begin
254 >    IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened;
255 >    if SelectTableNames <> nil then
256 >      SelectTableNames.ListSource :=  IBSQLEditFrame1.UserTableSource;
257 >    if FieldNamesGrid <> nil then
258 >      FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
259 >    if PrimaryKeysGrid <> nil then
260 >      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
261 >    if IdentityGrid <> nil then
262 >      IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
263 >    if ReadOnlyGrid <> nil then
264 >      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
265 >  end;
266 > end;
267 >
268 > constructor TIBDataSetEditorForm.Create(TheOwner: TComponent);
269 > begin
270 >  inherited Create(TheOwner);
271 >  FModifySQL := TStringList.Create;
272 >  FInsertSQL := TStringList.Create;
273 >  FDeleteSQL := TStringList.Create;
274 >  FRefreshSQL := TStringList.Create;
275 >  FSelectSQL := TStringList.Create;
276 > end;
277 >
278 > destructor TIBDataSetEditorForm.Destroy;
279 > begin
280 >  if assigned(FModifySQL) then FModifySQL.Free;
281 >  if assigned(FInsertSQL) then FInsertSQL.Free;
282 >  if assigned(FDeleteSQL) then FDeleteSQL.Free;
283 >  if assigned(FRefreshSQL) then FRefreshSQL.Free;
284 >  if assigned(FSelectSQL) then FSelectSQL.Free;
285 >  inherited Destroy;
286 > end;
287 >
288 > end.

Diff Legend

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