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 |
|
|
91 |
|
|
92 |
|
implementation |
93 |
|
|
94 |
– |
uses IBSQL; |
95 |
– |
|
94 |
|
{$R *.lfm} |
95 |
|
|
96 |
|
function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean; |
127 |
|
|
128 |
|
procedure TIBModifySQLEditorForm.FormShow(Sender: TObject); |
129 |
|
var IsProcedureName: boolean; |
130 |
< |
SQLType: TIBSQLTypes; |
130 |
> |
SQLType: TIBSQLStatementTypes; |
131 |
|
begin |
132 |
|
GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |
133 |
|
TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |