33 |
|
uses |
34 |
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, |
35 |
|
StdCtrls, ExtCtrls, IBSQLEditFrame, IBCustomDataSet, |
36 |
< |
IBDatabase, IBLookupComboEditBox, IBDynamicGrid, Types, IBUpdateSQL; |
36 |
> |
IBDatabase, IBLookupComboEditBox, IBDynamicGrid, IBUpdateSQL; |
37 |
|
|
38 |
|
type |
39 |
|
|
135 |
|
{ TIBUpdateSQLEditorForm } |
136 |
|
|
137 |
|
procedure TIBUpdateSQLEditorForm.FormShow(Sender: TObject); |
138 |
– |
var TableName: string; |
138 |
|
begin |
139 |
|
PageControl.ActivePage := FieldsPage; |
140 |
|
FModifySQL.Assign(FUpdateObject.ModifySQL); |