Розробка системи з роботою бази даних “Список хворих” з використанням елементів технології ЕСО та мови моделювання UML

stify">  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DefaultDateTime := System.DateTime.Create((Int64(0)));

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DefaultStringLength := 255;

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DropColumnTemplate := 'DECLAR' +

  'E @defname VARCHAR(100), @cmd VARCHAR(1000) SET @defname = (SELECT name F' +

  'ROM sysobjects so JOIN sysconstraints sc ON so.id = sc.constid  WHERE obj' +

  'ect_name(so.parent_obj) = ''<TableName>'' AND so.xtype = ''D'' AND sc.col' +

  'id = (SELECT colid FROM syscolumns WHERE id = object_id(''dbo.<TableName>' +

  ''') AND name = ''<ColumnName>'')) SET @cmd = ''ALTER TABLE <TableName> DR' +

  'OP CONSTRAINT '' + @defname EXEC(@cmd);ALTER TABLE <TableName> DROP COLUM' +

  'N <ColumnName>';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DropIndexTemplate := 'DROP IN' +

  'DEX <TableName>.<IndexName>';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DropTableTemplate := 'DROP TA' +

  'BLE <TableName>';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.FetchBlockSize := 250;

  KeyMapperDefinition11.Mapper := TypeOf(Borland.Eco.Persistence.DefaultEcoIdMapper);

  KeyMapperDefinition11.Name := 'DefaultEcoIdMapper';

  KeyMapperDefinition12.Mapper := TypeOf(Borland.Eco.Persistence.AttributeKeyMapper);

  KeyMapperDefinition12.Name := 'Attribute';

  KeyMapperDefinition13.Mapper := TypeOf(Borland.Eco.Persistence.AutoIncKeyMapper);

  KeyMapperDefinition13.Name := 'AutoInc';

  KeyMapperDefinition14.Mapper := TypeOf(Borland.Eco.Persistence.GuidKeyMapper);

  KeyMapperDefinition14.Name := 'Guid';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.KeyMappers.AddRange(TArrayOfBorland_Eco_Persistence_Configuration_KeyMapperDefinition.Create(KeyMapperDefinition11,

          KeyMapperDefinition12, KeyMapperDefinition13, KeyMapperDefinition14));

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.LengthFunctionName := 'LEN';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.MaxParamsInIdList := 20;

  PersistenceMapperDefinition11.Mapper := TypeOf(Borland.Eco.Persistence.Default.CharAsChar);

  PersistenceMapperDefinition11.Name := 'System.Char';

  PersistenceMapperDefinition12.Mapper := TypeOf(Borland.Eco.Persistence.Default.StringAsVarChar);

  PersistenceMapperDefinition12.Name := 'System.String';

  PersistenceMapperDefinition13.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.DateTimeAsDateTime);

  PersistenceMapperDefinition13.Name := 'System.DateTime';

  PersistenceMapperDefinition14.Mapper := TypeOf(Borland.Eco.Persistence.Default.GuidAsVarChar32);

  PersistenceMapperDefinition14.Name := 'System.Guid';

  PersistenceMapperDefinition15.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.BooleanAsBit);

  PersistenceMapperDefinition15.Name := 'System.Boolean';

  PersistenceMapperDefinition16.Mapper := TypeOf(Borland.Eco.Persistence.Default.BooleanAsYNChar);

  PersistenceMapperDefinition16.Name := 'BooleanAsYN';

  PersistenceMapperDefinition17.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Bdp.ByteAsTinyInt);

  PersistenceMapperDefinition17.Name := 'System.Byte';

  PersistenceMapperDefinition18.Mapper := TypeOf(Borland.Eco.Persistence.Default.SByteAsSmallInt);

  PersistenceMapperDefinition18.Name := 'System.SByte';

  PersistenceMapperDefinition19.Mapper := TypeOf(Borland.Eco.Persistence.Default.Int16AsSmallint);

  PersistenceMapperDefinition19.Name := 'System.Int16';

  PersistenceMapperDefinition110.Mapper := TypeOf(Borland.Eco.Persistence.Default.UInt16AsLongInteger);

  PersistenceMapperDefinition110.Name := 'System.UInt16';

  PersistenceMapperDefinition111.Mapper := TypeOf(Borland.Eco.Persistence.Default.Int32AsInteger);

  PersistenceMapperDefinition111.Name := 'System.Int32';

  PersistenceMapperDefinition112.Mapper := TypeOf(Borland.Eco.Persistence.Default.UInt32AsLongInteger);

  PersistenceMapperDefinition112.Name := 'System.UInt32';

  PersistenceMapperDefinition113.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Int64AsLongInteger);

  PersistenceMapperDefinition113.Name := 'System.Int64';

  PersistenceMapperDefinition114.Mapper := TypeOf(Borland.Eco.Persistence.Default.UInt64AsDecimal);

  PersistenceMapperDefinition114.Name := 'System.UInt64';

  PersistenceMapperDefinition115.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.SingleAsReal);

  PersistenceMapperDefinition115.Name := 'System.Single';

  PersistenceMapperDefinition116.Mapper := TypeOf(Borland.Eco.Persistence.Default.DoubleAsDouble);

  PersistenceMapperDefinition116.Name := 'System.Double';

  PersistenceMapperDefinition117.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.DecimalAsDecimal);

  PersistenceMapperDefinition117.Name := 'System.Decimal';

  PersistenceMapperDefinition118.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.TimeSpanAsDateTime);

  PersistenceMapperDefinition118.Name := 'System.TimeSpan';

  PersistenceMapperDefinition119.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Int32AsAutoInc);

  PersistenceMapperDefinition119.Name := 'AutoInc';

  PersistenceMapperDefinition120.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Int16AsAutoInc);

  PersistenceMapperDefinition120.Name := 'AutoInc16';

  PersistenceMapperDefinition121.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.DecimalAsAutoInc);

  PersistenceMapperDefinition121.Name := 'AutoIncDecimal';

  PersistenceMapperDefinition122.Mapper := TypeOf(Borland.Eco.Persistence.Default.BooleanAsInteger);

  PersistenceMapperDefinition122.Name := 'BooleanAsInteger';

  PersistenceMapperDefinition123.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Bdp.ByteArrayAsImage);

  PersistenceMapperDefinition123.Name := 'System.Byte[]';

  PersistenceMapperDefinition124.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Bdp.StringAsText);

  PersistenceMapperDefinition124.Name := 'StringAsText';

  PersistenceMapperDefinition125.Mapper := TypeOf(Borland.Eco.Persistence.SqlServer.Bdp.StringAsNText);

  PersistenceMapperDefinition125.Name := 'StringAsNText';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.PersistenceMappers.AddRange(TArrayOfBorland_Eco_Persistence_Configuration_PersistenceMapperDefinition.Create(PersistenceMapperDefinition11,

          PersistenceMapperDefinition12, PersistenceMapperDefinition13, PersistenceMapperDefinition14,

          PersistenceMapperDefinition15, PersistenceMapperDefinition16, PersistenceMapperDefinition17,

          PersistenceMapperDefinition18, PersistenceMapperDefinition19, PersistenceMapperDefinition110,

          PersistenceMapperDefinition111, PersistenceMapperDefinition112, PersistenceMapperDefinition113,

          PersistenceMapperDefinition114, PersistenceMapperDefinition115, PersistenceMapperDefinition116,

          PersistenceMapperDefinition117, PersistenceMapperDefinition118, PersistenceMapperDefinition119,

          PersistenceMapperDefinition120, PersistenceMapperDefinition121, PersistenceMapperDefinition122,

          PersistenceMapperDefinition123, PersistenceMapperDefinition124, PersistenceMapperDefinition125));

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.ReservedWords := 'ABSOLUTE,AC' +

  'TION,ACTIVE,ADD,AFTER,ALL,ALLOCATE,ALTER,AND,ANY,ARE,AS,ASC,ASCENDING,ASS' +

  'ERTION,AT,AUTHORIZATION,AUTO,AUTOINC,AVG,BASE_NAME,BEFORE,BEGIN,BETWEEN,B' +

  'IT,BIT_LENGTH,BLOB,BOOLEAN,BOTH,BY,BYTES,CACHE,CASCADE,CASCADED,CASE,CAST' +

  ',CATALOG,CHAR,CHARACTER,CHARACTER_LENGTH,CHAR_LENGTH,CHECK,CHECK_POINT_LE' +

  'NGTH,CLOSE,COALESCE,COLLATE,COLLATION,COLUMN,COMMIT,COMMITTED,COMPUTED,CO' +

  'NDITIONAL,CONNECT,CONNECTION,CONSTRAINT,CONSTRAINTS,CONTAINING,CONTINUE,C' +

  'ONVERT,CORRESPONDING,COUNT,CREATE,CROSS,CSTRING,CURRENT,CURRENT_DATE,CURR' +

  'ENT_TIME,CURRENT_TIMESTAMP,CURRENT_USER,CURSOR,DATABASE,DATE,DAY,DB_KEY,D' +

  'EALLOCATE,DEBUG,DEC,DECIMAL,DECLARE,DEFAULT,DEFERRABLE,DEFERRED,DELETE,DE' +

  'SC,DESCENDING,DESCRIBE,DESCRIPTOR,DIAGNOSTICS,DISCONNECT,DISTINCT,DO,DOMA' +

  'IN,DOUBLE,DROP,ELSE,END,END-EXEC,ENTRY_POINT,ESCAPE,EXCEPT,EXCEPTION,EXEC' +

  ',EXECUTE,EXISTS,EXIT,EXTERNAL,EXTRACT,FALSE,FETCH,FILE,FILTER,FLOAT,FOR,F' +

  'OREIGN,FOUND,FROM,FULL,FUNCTION,GDSCODE,GENERATOR,GEN_ID,GET,GLOBAL,GO,GO' +

  'TO,GRANT,GROUP,GROUP_COMMIT_WAIT_TIME,HAVING,HOUR,IDENTITY,IF,IMMEDIATE,I' +

  'N,INACTIVE,INDEX,INDICATOR,INITIALLY,INNER,INPUT,INPUT_TYPE,INSENSITIVE,I' +

  'NSERT,INT,INTEGER,INTERSECT,INTERVAL,INTO,IS,ISOLATION,JOIN,KEY,LANGUAGE,' +

  'LAST,LEADING,LEFT,LENGTH,LEN,LEVEL,LIKE,LOCAL,LOGFILE,LOG_BUFFER_SIZE,LON' +

  'G,LOWER,MANUAL,MATCH,MAX,MAXIMUM_SEGMENT,MERGE,MESSAGE,MIN,MINUTE,MODULE,' +

  'MODULE_NAME,MONEY,MONTH,NAMES,NATIONAL,NATURAL,NCHAR,NEXT,NO,NOT,NULL,NUL' +

  'LIF,NUMERIC,NUM_LOG_BUFFERS,OCTET_LENGTH,OF,ON,ONLY,OPEN,OPTION,OR,ORDER,' +

  'OUTER,OUTPUT,OUTPUT_TYPE,OVERFLOW,OVERLAPS,PAD,PAGE,PAGES,PAGE_SIZE,PARAM' +

  'ETER,PARTIAL,PASSWORD,PLAN,POSITION,POST_EVENT,PRECISION,PREPARE,PRESERVE' +

  ',PRIMARY,PRIOR,PRIVILEGES,PROCEDURE,PROTECTED,PUBLIC,RAW_PARTITIONS,RD,RE' +

  'AD,REAL,RECORD_VERSION,REFERENCES,RELATIVE,RESERV,RESERVING,RESTRICT,RETA' +

  'IN,RETURNING_VALUES,RETURNS,REVOKE,RIGHT,ROLE,ROLLBACK,ROWS,SCHEMA,SCROLL' +

  ',SECOND,SECTION,SEGMENT,SELECT,SESSION,SESSION_USER,SET,SHADOW,SHARED,SIN' +

  'GULAR,SIZE,SMALLINT,SNAPSHOT,SOME,SORT,SPACE,SQL,SQLCODE,SQLERROR,SQLSTAT' +

  'E,SQLWARNING,STABILITY,STARTING,STARTS,STATISTICS,SUBSTRING,SUB_TYPE,SUM,' +

  'SUSPEND,SYSTEM_USER,TABLE,TEMPORARY,THEN,TIME,TIMESTAMP,TIMEZONE_HOUR,TIM' +

  'EZONE_MINUTE,TO,TRAILING,TRANSACTION,TRANSLATE,TRANSLATION,TRIGGER,TRIM,T' +

  'RUE,UNCOMMITTED,UNION,UNIQUE,UNKNOWN,UPDATE,UPPER,USAGE,USER,USING,VALUE,' +

  'VALUES,VARCHAR,VARIABLE,VARYING,VIEW,WAIT,WHEN,WHENEVER,WHERE,WHILE,WITH,' +

  'WORK,WRITE,YEAR,YES,ZONE';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SQLforNotNull := 'NOT NULL';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptCommentStart := '/* ';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptCommentStop := ' */';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptCommitTransaction := 'C' +

  'OMMIT';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptRollBackTransaction := 'R' +

  'OLLBACK';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptSeparator := '---';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptStartTransaction := 'S' +

  'TART TRANSACTION';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SqlScriptTerminator := ';';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SupportsConstraintsInCreateTable := True;

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.SystemTablePrefix := 'ECO';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.UseSQL92Joins := True;

  Self.PersistenceMapperBdp1.VersionGranularity := System.TimeSpan.Parse('00' +

    ':00:00');

  //

  // BdpConnection1

  //

  Self.BdpConnection1.ConnectionOptions := 'transaction isolation=ReadCommit' +

  'ted;blobsize=1024';

  Self.BdpConnection1.ConnectionString := 'assembly=Borland.Data.Mssql, Vers' +

  'ion=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;vendorclien' +

  't=sqloledb.dll;pooling=True;grow on demand=True;database=spusok_hvoruh;us' +

  'ername=sa;max pool size=100;password=1;provider=MSSQL;min pool size=0;hos' +

  'tname=localhost';

  //

  // TProject4EcoSpace

  //

  Self.PersistenceMapper := Self.PersistenceMapperBdp1;

end;

 

end.