使用Delphi在已安装的应用程序中进行数据库版本控制

dbisam database versioning 和 sql server .

重要的部分是:

因为dbisam不支持视图, 数据库目录中的文件。

我有一个数据模块, TdmodCheckDatabase。这有一个 在数据库中。表组件 无论何时更新表,都会进行更新

要更改数据库,请 使用了以下过程:

1. 增加应用程序中的版本号
3. 更新TdmodCheckDatabase中受影响的表
4. 如有必要(很少)将进一步的升级查询添加到 新字段的值,或添加新字段 数据行。
5. 使用提供的数据库生成CreateDatabase单元脚本
6. 更新单元测试以适应新的数据库

通过以下过程

1. 如果找不到数据库,则运行CreateDatabase单元,然后执行以下操作 步骤3
3. 如果小于预期的版本号,则 运行CreateDatabase(创建任何新表) 检查TdmodCheckDatabase中的每个表组件
4. 更新数据库ini文件中的版本号

下面是一个代码示例

class procedure TdmodCheckDatabase.UpgradeDatabase(databasePath: string; currentVersion, newVersion: integer);
var
module: TdmodCheckDatabase;
f: integer;
begin
module:= TdmodCheckDatabase.create(nil);
try
  module.OpenDatabase( databasePath );

  for f:= 0 to module.ComponentCount -1  do
  begin
    if module.Components[f] is TDBISAMTable then
    begin
      try
        // if we need to upgrade table to dbisam 4
        if currentVersion <= DB_VERSION_FOR_DBISAM4 then
          TDBISAMTable(module.Components[f]).UpgradeTable;

        module.UpgradeTable(TDBISAMTable(module.Components[f]));
      except
       // logging and error stuff removed
      end;
    end;
  end;

  for f:= currentVersion + 1 to newVersion do
    module.RunUpgradeScripts(f);

  module.sqlMakeIndexes.ExecSQL; // have to create additional indexes manually
 finally
  module.DBISAMDatabase1.Close;
  module.free;
end;
end;


procedure TdmodCheckDatabase.UpgradeTable(table: TDBISAMTable);
var
 fieldIndex: integer;
 needsRestructure: boolean;
 canonical: TField;
begin
 needsRestructure:= false;

 table.FieldDefs.Update;

 // add any new fields to the FieldDefs
 if table.FieldDefs.Count < table.FieldCount then
 begin
   for fieldIndex := table.FieldDefs.Count to table.Fields.Count -1 do
   begin
     table.FieldDefs.Add(fieldIndex + 1, table.Fields[fieldIndex].FieldName, table.Fields[fieldIndex].DataType, table.Fields[fieldIndex].Size, table.Fields[fieldIndex].Required);
   end;
   needsRestructure:= true;
 end;

 // make sure we have correct size for string fields
 for fieldIndex := 0 to table.FieldDefs.Count -1 do
 begin
   if (table.FieldDefs[fieldIndex].DataType = ftString) then
   begin
     canonical:= table.FindField(table.FieldDefs[fieldIndex].Name);
     if assigned(canonical) and (table.FieldDefs[fieldIndex].Size <> canonical.Size) then
   begin
     // field size has changed
     needsRestructure:= true;
     table.FieldDefs[fieldIndex].Size:= canonical.Size;
   end;
   end;
 end;

 if needsRestructure then
   table.AlterTable(); // upgrades table using the new FieldDef values
end;

procedure TdmodCheckDatabase.RunUpgradeScripts(newVersion: integer);
begin
 case newVersion of
   3: sqlVersion3.ExecSQL;
   9: sqlVersion9.ExecSQL;
   11: begin  // change to DBISAM 4
         sqlVersion11a.ExecSQL;
         sqlVersion11b.ExecSQL;
         sqlVersion11c.ExecSQL;
         sqlVersion11d.ExecSQL;
         sqlVersion11e.ExecSQL;
       end;
   19: sqlVersion19.ExecSQL;
   20: sqlVersion20.ExecSQL;
 end;
end;

这里也有类似的故事。

在开发过程中,当我们需要升级数据库时,我们会编写一个DDL脚本来完成这项工作,一旦它正常工作,它就会作为文本资源添加到应用程序中。

当应用程序确定需要升级时,将加载相应的资源并运行它们。如果需要升级多个版本,则必须按顺序运行每个脚本。结果证明,最后只有几行代码。

然后我有一个dbpatch表,其中包含一个由唯一名称标识的补丁列表。如果缺少特定的修补程序,则会应用这些修补程序,并将相应的记录添加到dbpatch表中。通常情况下,这是新的存储过程、字段大小调整或索引

我还维护一个min db版本,该版本也会被检查,因为我允许用户使用旧版本的客户端,我只允许他们使用一个>=最小数据库版本和<=curdb版本。

更新数据库的版本号。因此,数据库现在是最新的应用程序。我的代码类似于

if DBVersion < AppVersion then
begin
  for i := DBVersion+1 to AppVersion do
    UpdateStructure(i);
end
else
  if DBVersion > AppVersion then
    raise EWrongVersion.Create('Wrong application for this database');

procedure UpdateStructure(const aVersion : Integer);
begin
  case aVersion of
    1 : //some db code
    2 : //some more db code
    ...
    ...
  end;
  UpdateDatabaseVersion(aVersion);
end;  

实际上,您可以使用相同的代码从头开始创建数据库

CreateDatabase;
for i := 1 to AppVersion do
  UpdateStructure(i);