Changeset 136 for oup/current


Ignore:
Timestamp:
Mar 29, 2007, 4:20:25 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/DataAccess/Access_OUP_ADB.pas

    r135 r136  
    271271          ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension);
    272272          ST_ExtAsc, ST_ExtDesc:   list.Add(extension + ';' + id + ';' + name);
    273           ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id);
     273          ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id);
    274274        end;
    275275      end;
  • oup/current/Helper/LevelDB.pas

    r134 r136  
    514514}
    515515  DataBase.MaxConnections := 1;
     516  DataBase.PageSize := 8112;
     517  DataBase.PageCountInExtent := 8;
    516518{
    517519  DataBase.DatabaseName := 'OLDB';
     
    528530  Query.DatabaseName := 'OLDB';
    529531  Query.SQL.Text :=
    530     'CREATE TABLE globals  ( id AUTOINC PRIMARY KEY, name STRING(128), value STRING(128) );';
     532    'CREATE TABLE globals  ( id AUTOINC PRIMARY KEY, name STRING(128), ' +
     533    'value STRING(128) );';
    531534  Query.ExecSQL;
    532535  Query.SQL.Text :=
    533     'CREATE TABLE linkmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, target_id INTEGER );';
     536    'CREATE TABLE linkmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
     537    'src_link_offset INTEGER, target_id INTEGER,  INDEX idsrcid src_id, ' +
     538    'INDEX iddestid target_id);';
    534539  Query.ExecSQL;
    535540  Query.SQL.Text :=
    536     'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, sep BOOLEAN, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
     541    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
     542    'src_link_offset INTEGER, sep BOOLEAN, size INTEGER, ' +
     543    'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib, ' +
     544    'INDEX idsrcid src_id);';
    537545  //    Query.SQL.Text:='CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
    538546  Query.ExecSQL;
    539547  Query.SQL.Text :=
    540     'CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
     548    'CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), ' +
     549    'name STRING(128), contenttype INTEGER, size INTEGER, ' +
     550    'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
    541551  //    Query.SQL.Text:='CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
    542552  Query.ExecSQL;
    543   Query.SQL.Text :=
    544     'CREATE TABLE extlist  ( id AUTOINC PRIMARY KEY, ext CHAR(4), ident CHAR(16) );';
    545   Query.ExecSQL;
     553//  Query.SQL.Text :=
     554//    'CREATE TABLE extlist  ( id AUTOINC PRIMARY KEY, ext CHAR(4), ident CHAR(16) );';
     555//  Query.ExecSQL;
    546556
    547557  Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("dbversion","' +
     
    552562    Data[i] := OniDataConnection.LevelInfo.Ident[i];
    553563  temps := CreateHexString(Data, True);
    554   Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("ident","' + temps + '");';
    555   Query.ExecSQL;
     564//  Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("ident","' + temps + '");';
     565//  Query.ExecSQL;
    556566  Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("lvl","' +
    557567    IntToStr(OniDataConnection.LevelInfo.LevelNumber) + '");';
Note: See TracChangeset for help on using the changeset viewer.