32 |
|
|
33 |
|
uses |
34 |
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, |
35 |
< |
StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet; |
35 |
> |
StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet, IB; |
36 |
|
|
37 |
|
type |
38 |
|
|
125 |
|
|
126 |
|
procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject); |
127 |
|
var IsProcedureName: boolean; |
128 |
< |
SQLType: TIBSQLTypes; |
128 |
> |
SQLType: TIBSQLStatementTypes; |
129 |
|
begin |
130 |
|
GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |
131 |
|
TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |