TSQLScript/ja

uses
...sqldb, TIBConnection,...
const
  DBSchemaFile='dbreporter.sql';
var
  FBScript:TSQLScript;
  ScriptText:TStringList;
  TranWasStarted: boolean;
begin
  TranWasStarted:=FTran.Active; //Ftranはこのクラスのどこかで定義されているトランザクション
  if not TranWasStarted then FTran.StartTransaction;
  FBScript:=TSQLScript.Create(nil);
  ScriptText:=TStringList.Create;
  try
    if not fileexists(DBSchemaFile) then 
      raise Exception.CreateFmt('dbreporter: could not load database schema file %s',[DBSchemaFile]);
    ScriptText.LoadFromFile(DBSchemaFile);
    FBScript.DataBase:=(FConn as TIBConnection);
    FBScript.Transaction:=FTran;
    FBScript.Script:=ScriptText;
    // いま、すべてが読み込まれ、すべてのコマンドが1度に実行される:
    FBScript.Execute;
    //... そしてコミットしてそれらを固定させ、
    // コミットの後に来るSQLに表示します
    FTran.Commit;
  finally
    FBScript.Free;
    ScriptText.Free;
  end;
  // トランザクション状態を元あった状態に戻すこと、切り替えに便利
  // 明示的な開始/コミットトランザクションとコミット保持の間:
  if TranWasStarted then FTran.StartTransaction;