albert/kreta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

init

Browse source
This commit is contained in:
skidoodle 2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

49
Tools/CodeGeneration/Templates/Server/DataAccess/DBCommands/InsertCommands.tdl Normal file
View file

@ -0,0 +1,49 @@
//***************************************************************************//
// Megjegyzés? //
// //
// VALÓSZÍNŰLEG MÁR ELAVULT, ÉS NEM HASZNÁLT! //
//***************************************************************************//
template GenerateInsertEntityCommand(MClass as ENTITY)
begin
[GenerateInsertEntityCommandCore([ENTITY])]
end;
end template
//***************************************************************************//
// Megjegyzés? //
// //
// VALÓSZÍNŰLEG MÁR ELAVULT, ÉS NEM HASZNÁLT! //
//***************************************************************************//
template GenerateInsertEntityCommandCore(MClass as ENTITY)
[if (IsMasterEntity([ENTITY]) == "false")]
insert into [ConvertNameToSQLTableName([ENTITY.name])] (
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
[ConvertNameToSQLColumnName([ATTRIBUTE.name])],
[end loop]
ID
)
values (
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
:[ConvertNameToCommandParameterName([ATTRIBUTE.name])],
[end loop]
:[ConvertNameToCommandParameterName("ID")]
);
[loop (ENTITY -> SuperClass as BASECLASS)]
[GenerateInsertEntityCommandCore([BASECLASS])][break]
[end loop]
[else]
insert into [ConvertNameToSQLTableName([ENTITY.name])] (
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
[ConvertNameToSQLColumnName([ATTRIBUTE.name])],
[end loop]
ID, SERIAL
)
values (
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
:[ConvertNameToCommandParameterName([ATTRIBUTE.name])],
[end loop]
:[ConvertNameToCommandParameterName("ID")], :[ConvertNameToCommandParameterName("Serial")]
);
[end if]
end template