ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/IBSQLEditFrame.pas
(Generate patch)

Comparing ibx/trunk/design/IBSQLEditFrame.pas (file contents):
Revision 208 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 32 | Line 32 | interface
32   uses
33    Classes, SysUtils, FileUtil, SynEdit, SynHighlighterSQL, LResources, Forms,
34    Controls, ActnList, Menus, Dialogs, ComCtrls, ExtCtrls, StdCtrls, IBQuery,
35 <  IBSQL, IBDatabase, IBUpdate, IBDatabaseInfo, IBLookupComboEditBox,
35 >  IBSQL, IBDatabase, IBUpdate, IBDatabaseInfo,
36    IBCustomDataset, db, LazSynTextArea, IB;
37  
38   type
# Line 702 | Line 702 | procedure TIBSQLEditFrame.GenerateModify
702   var FieldNames: TStrings;
703      ReadOnlyFieldNames: TStrings;
704      UpdateFields: TStrings;
705 –    i, index: integer;
705   begin
706    SQL.Clear;
707    FieldNames := TStringList.Create;
# Line 925 | Line 924 | begin
924               (not PrimaryKeys.Active or not PrimaryKeys.Locate('columnName;Selected',
925                    VarArrayOf([IdentityCols.FieldByName('ColumnName').AsString,0]),[loCaseInsensitive])) then
926            begin
927 <            InsertSQL := InsertSQL + Separator + IdentityCols.FieldByName('ColumnName').AsString;
927 >            InsertSQL := InsertSQL + Separator + QuoteIdentifierIfNeeded(Database.SQLDialect,IdentityCols.FieldByName('ColumnName').AsString);
928              Separator := ', ';
929            end;
930            IdentityCols.Next;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines