Merged revisions 12581 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r12581 | joost | 2009-01-22 17:39:31 +0100 (Thu, 22 Jan 2009) | 1 line
  
   * Fixed streaming of TSQLQuery.UpdateSQL, .InsertSQL and .DeleteSQL
........

git-svn-id: branches/fixes_2_2@12668 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -216,8 +216,11 @@ type
     procedure FreeFldBuffers;
     function GetServerIndexDefs: TServerIndexDefs;
     function GetStatementType : TStatementType;
+    procedure SetDeleteSQL(const AValue: TStringlist);
+    procedure SetInsertSQL(const AValue: TStringlist);
     procedure SetReadOnly(AValue : Boolean);
     procedure SetParseSQL(AValue : Boolean);
+    procedure SetUpdateSQL(const AValue: TStringlist);
     procedure SetUsePrimaryKeyAsKey(AValue : Boolean);
     procedure SetUpdateMode(AValue : TUpdateMode);
     procedure OnChangeSQL(Sender : TObject);
@@ -293,9 +296,9 @@ type
     property Transaction;
     property ReadOnly : Boolean read FReadOnly write SetReadOnly;
     property SQL : TStringlist read FSQL write FSQL;
-    property UpdateSQL : TStringlist read FUpdateSQL;
-    property InsertSQL : TStringlist read FInsertSQL;
-    property DeleteSQL : TStringlist read FDeleteSQL;
+    property UpdateSQL : TStringlist read FUpdateSQL write SetUpdateSQL;
+    property InsertSQL : TStringlist read FInsertSQL write SetInsertSQL;
+    property DeleteSQL : TStringlist read FDeleteSQL write SetDeleteSQL;
     property Params : TParams read FParams write FParams;
     property UpdateMode : TUpdateMode read FUpdateMode write SetUpdateMode;
     property UsePrimaryKeyAsKey : boolean read FUsePrimaryKeyAsKey write SetUsePrimaryKeyAsKey default true;
@@ -1324,6 +1327,11 @@ begin
     FParseSQL := True;
 end;
 
+procedure TCustomSQLQuery.SetUpdateSQL(const AValue: TStringlist);
+begin
+  FUpdateSQL.Assign(AValue);
+end;
+
 procedure TCustomSQLQuery.SetUsePrimaryKeyAsKey(AValue : Boolean);
 
 begin
@@ -1525,6 +1533,16 @@ begin
     else Result := stNone;
 end;
 
+procedure TCustomSQLQuery.SetDeleteSQL(const AValue: TStringlist);
+begin
+  FDeleteQry.Assign(AValue);
+end;
+
+procedure TCustomSQLQuery.SetInsertSQL(const AValue: TStringlist);
+begin
+  FInsertQry.Assign(AValue);
+end;
+
 Procedure TCustomSQLQuery.SetDataSource(AVAlue : TDatasource);
 
 Var