Sobre a Modularização

class function InstForm.LocalizarFormularioMDI( const s : ShortString ) : TfrmPadrao;
var Encontrou : TfrmPadrao;
    i : Byte;
    mf : TForm;
begin
   mf := Application.MainForm;
  Encontrou := nil;
  if mf.MDIChildCount <> 0 then begin
     for i := 0 to mf.MDIChildCount - 1 do begin
         if UpperCase( mf.MDIChildren[i].Name ) = UpperCase( s ) then begin
            Encontrou := TfrmPai( mf.MDIChildren[i] );
            Break;
         end;
     end;
  end;
  Result := Encontrou;
end;

class procedure InstForm.InstanciarFormularioMDI( const Package, NomeForm : ShortString );
var h : THandle;
    f : TfrmPadrao;
    CriarNovoForm : function : TfrmPadrao;
begin
  // Verifica se o formulário já está na tela
  f := LocalizarFormularioMDI( NomeForm );
  if f <> nil then begin
     // Se já estiver na tela, apenas o traz para a frente de todos
     f.Show;
  end else begin
     // Carrega o package
     h := LoadPackage( Package );
     if h <> 0 then begin
        {
         Procura por uma função de inicialização do form. O nome foi
         padronizado, como se pode observar. Fique atento a detalhes de
         minúsculas e maiúsculas
        }
        @CriarNovoForm := GetProcAddress( h, PChar( ´CriarNovo´ + NomeForm ) );
        if Assigned(CriarNovoForm) then begin
           CriarNovoForm;
        end;
     end;
  end;
end;

function CriarNovofrmA : TfrmPadrao;
begin
  CriarNovoNomeFormCriar := TNomeFormCriar.Create( Application );
end;

exports
  CriarNovoNomeFormCriar;

  TInstForm.InstanciarFormularioMDI( BPL, ´NomeFormDentroBPL´ );

unit ConexaoBD;

interface

uses Classes, DBXpress, DB, SqlExpr, SysUtils,
     ConfigBD;

type TConexaoBD = class

private
  FTipoBanco: TTipoBanco;
protected
  FConexao: TSQLConnection;
public
  procedure conectar(config: TConfigBD);
  procedure setTipoBanco(tipoBanco: TTipoBanco);
  function getConexao(): TSQLConnection;
  function getTipoBanco(): TTipoBanco;
  procedure startTransaction(var td: TTransactionDesc);
  procedure commitTransaction(td: TTransactionDesc);
  procedure rollbackTransaction(td: TTransactionDesc);
end;

var
  conexao: TConexaoBD;

implementation

{ TUntBD }


procedure TConexaoBD.commitTransaction(td: TTransactionDesc);
begin
  if FConexao.InTransaction then
    FConexao.Commit(td);
end;

procedure TConexaoBD.conectar(config: TConfigBD);
begin
  FConexao := TSQLConnection.Create(nil);
  with FConexao do
  begin
    Connected := false;
    LoginPrompt := False;
    ConnectionName := config.getConnectionName;
    VendorLib := config.getVendorLib;
    LibraryName := config.getLibraryName;
    DriverName := config.getDriverName;
    GetDriverFunc := config.getDriverFunc;
    Params.Text := config.getParamConexao;
    Connected := True;
  end;
end;

function TConexaoBD.getConexao: TSQLConnection;
begin
  Result := FConexao;
end;

function TConexaoBD.getTipoBanco: TTipoBanco;
begin
  Result := FTipoBanco;
end;

procedure TConexaoBD.rollbackTransaction(td: TTransactionDesc);
begin
  if FConexao.InTransaction then
    FConexao.Rollback(td);
end;

procedure TConexaoBD.setTipoBanco(tipoBanco: TTipoBanco);
begin
  FTipoBanco := tipoBanco;
end;

procedure TConexaoBD.startTransaction(var td: TTransactionDesc);
begin
  with td do
  begin
    TransactionID := 1;
    GlobalID := 1;
    IsolationLevel :=  xilREADCOMMITTED;
  end;
  FConexao.StartTransaction(td);
end;

end.

Const

  Finan = ´finan.bpl´;
  Escrita = ´escrita.bpl´;