Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Small fixes for Interbase SQLGenerator

Browse Source
This commit is contained in:
Daniele Teti 2020-06-24 23:51:06 +02:00
parent a8ee598b9d
commit 57e785efd7
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
samples/data/ACTIVERECORDDB.IB
View File

Binary file not shown.

9
sources/MVCFramework.SQLGenerators.Interbase.pas
View File

@ -62,7 +62,7 @@ var
lSB: TStringBuilder;
lPKInInsert: Boolean;
begin
lPKInInsert := (not PKFieldName.IsEmpty) and (not(TMVCActiveRecordFieldOption.foAutoGenerated in PKOptions));
lPKInInsert := (not PKFieldName.IsEmpty); // and (not(TMVCActiveRecordFieldOption.foAutoGenerated in PKOptions));
lSB := TStringBuilder.Create;
try
lSB.Append('INSERT INTO ' + TableName + '(');
@ -74,7 +74,7 @@ begin
begin
if lKeyValue.Value.Writeable then
begin
lSB.Append(':' + lKeyValue.Value.FieldName + ',');
lSB.Append(lKeyValue.Value.FieldName + ',');
end;
end;
@ -86,7 +86,10 @@ begin
end;
for lKeyValue in Map do
begin
lSB.Append(':' + lKeyValue.Value.FieldName + ',');
if lKeyValue.Value.Writeable then
begin
lSB.Append(':' + lKeyValue.Value.FieldName + ',');
end;
end;
lSB.Remove(lSB.Length - 1, 1);