Valeu galera,
Eu já me achei, realmente vi que estava totalmente errado.
Valeu a todos...
Fiz assim:
unit UTabelas;
interface
uses IBCustomDataSet, IBDataBase, Classes;
type
TTabela_OOP = class(TObject)
private
FDataSet: TIBDataSet;
//SelectText : TStrings;
public
constructor Create;
destructor Destroy; override;
function Active: Boolean;
//function Apply: Boolean; virtual; --Não Ultilizarei está comentado o
código
function Cancel: Boolean; virtual;
function Close: Boolean; virtual;
function Delete: Boolean; virtual;
function Edit: Boolean; virtual;
function Insert: Boolean; virtual;
function Next: Boolean; virtual;
function Open: Boolean; virtual;
function Post: Boolean; virtual;
function Prior: Boolean; virtual;
function First: Boolean; virtual;
function Last: Boolean; virtual;
function Bof: Boolean; virtual;
function Eof: Boolean; virtual;
property DataSet: TIBDataSet read FDataSet write FDataSet;
end;
implementation
{TTabela}
constructor TTabela_OOP.Create;
begin
//
end;
destructor TTabela_OOP.Destroy;
begin
//
end;
//Não ultilizarei
{function TTabela_OOP.Apply: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) and (DataSet.ChangeCount > 0)
then DataSet.ApplyUpdates(0);
except
Result := False;
end;
end;}
function TTabela_OOP.Cancel: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Cancel;
except
Result := False;
end;
end;
function TTabela_OOP.Close: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Close;
// DataSet recebe o objeto que acessa a tabela no banco de dados.
DataSet := nil;
except
Result := False;
end;
end;
function TTabela_OOP.Delete: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := False;
try
if (DataSet <> nil) and (DataSet.Active) then
begin
if (DataSet.RecordCount > 0) then
begin
DataSet.Delete;
Result := True;
end;
end;
except
Result := False;
end;
end;
function TTabela_OOP.Edit: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Edit;
except
Result := False;
end;
end;
function TTabela_OOP.Insert: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Insert;
except
Result := False;
end;
end;
function TTabela_OOP.Next: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Next;
except
Result := False;
end;
end;
function TTabela_OOP.Open: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and not (DataSet.Active) then DataSet.Open;
except
Result := False;
end;
end;
function TTabela_OOP.Post: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
//
if (DataSet <> nil) and (DataSet.Active) then DataSet.Post;
end;
function TTabela_OOP.Prior: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Prior;
except
Result := False;
end;
end;
function TTabela_OOP.Last: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.Last;
except
Result := False;
end;
end;
function TTabela_OOP.First: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then DataSet.First;
except
Result := False;
end;
end;
function TTabela_OOP.Bof: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then Result := DataSet.Bof;
except
Result := False;
end;
end;
function TTabela_OOP.Eof: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then Result := DataSet.Eof;
except
Result := False;
end;
end;
function TTabela_OOP.Active: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet <> nil) and (DataSet.Active) then Result := DataSet.Active;
except
Result := False;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
