Fórum manipulando objeto. #351390
04/01/2008
0
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TAnimal = class
Nome: string;
idade : Integer;
Altura, Peso: real;
end;
type
Tcarro = class
Marca: string;
end;
type
Tcliente = class
Nome : string;
telefone : Integer;
endereco : String;
end;
var
MeuAnimal: TAnimal;
Carro : Tcarro;
cliente : Tcliente;
implementation
end.
fiz uma classe de cliente e manipulei para gravas os dados no banco fiz esse codigo dentro do envento on Click do botao esta correto:
cliente := Tcliente.Create();
cliente.Nome := Edit1.Text;
cliente.telefone := StrToInt(Edit2.text);
cliente.endereco := Edit3.Text;
ADODataSet1.Insert;
ADODataSet1.FieldByName(´nome´).Value := cliente.Nome;
ADODataSet1.FieldByName(´telefone´).Value := cliente.telefone;
ADODataSet1.FieldByName(´endereco´).Value := cliente.endereco;
ADODataSet1.post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
ai que vem minha duvida usei objeto mas o trablho foi maior nesse caso alguem poderia dar uma dica como manipular esse objeto de forma mais inteligente.
sendo que dessa forma funciou.
Ciotti
Curtir tópico
+ 0Posts
05/01/2008
Massuda
procedure Tcliente.Gravar(ADataset: TDataSet); begin ADataSet.Insert; ADataSet.FieldByName(´nome´).Value := Nome; ADataSet.FieldByName(´telefone´).Value := telefone; ADataSet.FieldByName(´endereco´).Value := endereco; ADataSet.post; end; ... cliente := Tcliente.Create(); cliente.Nome := Edit1.Text; cliente.telefone := StrToInt(Edit2.text); cliente.endereco := Edit3.Text; cliente.Gravar(ADODataSet1); cliente.Free; ...
Gostei + 0
05/01/2008
Ciotti
nao entendi muito bem esse seu codigo se tivesse como dar mais detalhes por gentileza ou se agluem tiver um outro exemplo fico grato.
Muito obrigado.
Gostei + 0
09/01/2008
Ciotti
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TAnimal = class
Nome: string;
idade : Integer;
Altura, Peso: real;
end;
type
Tcarro = class
Marca: string;
end;
type
Tcliente = class
Nome : string;
telefone : Integer;
endereco : String;
end;
var
MeuAnimal: TAnimal;
Carro : Tcarro;
cliente : Tcliente;
implementation
end.
fiz uma classe de cliente e manipulei para gravas os dados no banco fiz esse codigo dentro do envento on Click do botao esta correto:
cliente := Tcliente.Create();
cliente.Nome := Edit1.Text;
cliente.telefone := StrToInt(Edit2.text);
cliente.endereco := Edit3.Text;
ADODataSet1.Insert;
ADODataSet1.FieldByName(´nome´).Value := cliente.Nome;
ADODataSet1.FieldByName(´telefone´).Value := cliente.telefone;
ADODataSet1.FieldByName(´endereco´).Value := cliente.endereco;
ADODataSet1.post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
ai que vem minha duvida usei objeto mas o trablho foi maior nesse caso alguem poderia dar uma dica como manipular esse objeto de forma mais inteligente.
sendo que dessa forma funciou.
Gostei + 0
15/01/2008
Ciotti
Gostei + 0
15/01/2008
Rjun
O ideal seria que seu objeto tivesse um método Save, pois no seu exemplo, seu objeto somente é um conteiner de informação, não realizando nenhuma ação. Ele poderia ter como propriedade um Dataset e no método save do objeto você chamaria esse dataset. Só que dessa forma seu objeto estaria dependente desse tipo de arquitetura.
Eu sou iniciante nesse tipo de estudo, mas acho que aplicar esse tipo de abordagem em Delphi gera uma complicação excessiva.
Gostei + 0
16/01/2008
Ciotti
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)