[firebase-br] Dica sobre o IBO

[Dimas - Pessoal]

Ola pessoal,
Vcs poderia me passar 2 exemplos ref. ao IBO, um de como fazer o relacionamento e outro para disparar o autoincremento...
O autoincremento fiz assim mas não sei se esta certo....será q poderia colocar em todas as query no evento abaixo que não teria problema?

procedure TDM.IBClientesNewRecord(IB_Dataset: TIB_Dataset);
var SQLstmt:string;
begin
      SQLstmt := 'Select GEN_ID(GEN_CLIENTES_ID,1) ' + ' AS AI_CLIENTES from RDB$DATABASE';
      IB_Q_ID.Unprepare;
      IB_Q_ID.Close;
      IB_Q_ID.SQL.Clear;
      IB_Q_ID.SQL.Add(SQLstmt);
      IB_Q_ID.Prepare;
      IB_Q_ID.Open;
      DM.IBClientes.FieldByName('CLI_CODIGO').AsInteger :=
                  IB_Q_ID.FieldbyName('AI_CLIENTES').AsInteger;
      IB_Q_ID.Unprepare;
      IB_Q_ID.Close;

end;


DBSOFT INFORMÁTICA - OURO FINO
Dimas Bolognani - Diretor
Tel.(35)3441-5254