--- ibx/trunk/design/ibinsertsqleditor.pas	2013/12/28 19:22:24	18
+++ ibx/trunk/design/ibinsertsqleditor.pas	2014/07/07 13:00:15	19
@@ -32,7 +32,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, IBSystemTables, IBDatabase;
+  StdCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
 
 type
 
@@ -42,6 +42,7 @@ type
     Button1: TButton;
     Button2: TButton;
     GenerateBtn: TButton;
+    GenerateParams: TCheckBox;
     TestBtn: TButton;
     FieldList: TListBox;
     IBTransaction1: TIBTransaction;
@@ -69,30 +70,38 @@ type
 var
   IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
 
-function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
+function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
 
 implementation
 
 {$R *.lfm}
 
-function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
+ function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
 begin
  Result := false;
 
- if assigned(Database) then
+ if assigned(DataSet) and assigned(DataSet.Database) then
     try
-      Database.Connected := true;
+      DataSet.Database.Connected := true;
     except on E: Exception do
       ShowMessage(E.Message)
     end;
 
   with TIBInsertSQLEditorForm.Create(Application) do
   try
-    SetDatabase(Database);
+    if assigned(DataSet) then
+    begin
+      SetDatabase(DataSet.Database);
+      GenerateParams.Checked := DataSet.GenerateParamNames;
+    end;
     SQLText.Lines.Assign(SelectSQL);
     Result := ShowModal = mrOK;
     if Result then
-     SelectSQL.Assign(SQLText.Lines)
+    begin
+     SelectSQL.Assign(SQLText.Lines);
+     if assigned(DataSet) then
+          DataSet.GenerateParamNames := GenerateParams.Checked
+    end;
   finally
     Free
   end;
@@ -142,7 +151,7 @@ end;
 
 procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
 begin
-  FIBSystemTables.TestSQL(SQLText.Lines.Text)
+  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
 end;
 
 procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
@@ -169,4 +178,4 @@ begin
 end;
 
 end.
-
+
\ No newline at end of file