Seguinte galera olhem esse codigo
unit uClassMarca;
interface
uses
uDatamodule, SysUtils;
type
Marca = class(TObject)
private
ID_MARCA: integer;
DESCRICAO: string;
public
function getID_MARCA: integer;
function getDESCRICAO: String;
function setID_MARCA(ID_MARCA: Integer): boolean;
function setDESCRICAO(DESCRICAO: string): boolean;
function incluir: boolean;
end;
implementation
uses
DataModule;
function Marca.getID_MARCA: Integer;
begin
result:= ID_MARCA;
end;
function Marca.getDESCRICAO: String;
begin
result:= DESCRICAO;
end;
function Marca.setID_MARCA(ID_MARCA: Integer): boolean;
begin
if ID_MARCA > 0 then
begin
Self.ID_MARCA:= ID_MARCA;
Result:= true;
end
else Result:= False;
end;
function Marca.setDESCRICAO(DESCRICAO: string): boolean;
begin
self.DESCRICAO:= DESCRICAO;
end;
Function Marca.incluir: boolean;
begin
try
dModule.dtMARCA.Open;
dModule.dtMARCA.Append;
dModule.dtMARCA.FieldByName('ID_MARCA').AsInteger:= ID_MARCA; semprara
a aplicacao aki e dah um erro ja nao sei o que fazer
em todas, toda vez que vou incluir dah esse erro e para bem nessa linha, se
alguem souber de algo pra resolver ficarei muito grato :(
dModule.dtMARCA.FieldByName('DESCRICAO').AsString:= DESCRICAO;
dModule.dtMARCA.Post;
dModule.T1.CommitRetaining;
result:= true;
except
result:= false;
end;
end;
end.
Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100
[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
