Fórum [Duvida] Como Fazer uma Classe de Banco de Dados Campo MEMO #399465
19/04/2011
0
TClientes = Class
Protected
fCodigo: Integer;
fNome: String;
fEndereco: String;
fNumero: String;
fBairro: String;
fCodCid: Integer;
fCidade: String;
fEstado: String;
fCep: String;
fFantasia: String;
fPais: String;
fPessoa: Integer;
fCgc: String;
fIe: String;
fTelefone: String;
fFax: String;
fContato: String;
fCelular: String;
fEmail: String;
fCodGrupo: Integer;
fCodRef: Integer;
fCodReg: Integer;
fLoja: String;
fCodRep: Integer;
fCodSeg: Integer;
fDataCad: String;
fFundacao: String;
fRestricao: Integer;
fEndCob: String;
fNumCob: String;
fBaiCob: String;
fCidCob: String;
fEstCob: String;
fCepCob: String;
fCredito: Double;
fObs: TMemo; <<--- Como declarar isso para exibir / gravar os dados
fAtivo: Integer;
Public
Constructor Create;
Property Codigo: Integer Read fCodigo Write fCodigo;
Property Nome: String Read fNome Write fNome;
Property Endereco: String Read fEndereco Write fEndereco;
Property Numero: String Read fNumero Write fNumero;
Property Bairro: String Read fBairro Write fBairro;
Property CodCid: Integer Read fCodCid Write fCodCid;
Property Cidade: String Read fCidade Write fCidade;
Property Estado: String Read fEstado Write fEstado;
Property Cep: String Read fCep Write fCep;
Property Fantasia: String Read fFantasia Write fFantasia;
Property Pais: String Read fPais Write fPais;
Property Pessoa: Integer Read fPessoa Write fPessoa;
Property Cgc: String Read fCgc Write fCgc;
Property Ie: String Read fIe Write fIe;
Property Telefone: String Read fTelefone Write fTelefone;
Property Fax: String Read fFax Write fFax;
Property Contato: String Read fContato Write fContato;
Property Celular: String Read fCelular Write fCelular;
Property Email: String Read fEmail Write fEmail;
Property CodGrupo: Integer Read fCodGrupo Write fCodGrupo;
Property CodRef: Integer Read fCodRef Write fCodRef;
Property CodReg: Integer Read fCodReg Write fCodReg;
Property Loja: String Read fLoja Write fLoja;
Property CodRep: Integer Read fCodRep Write fCodRep;
Property CodSeg: Integer Read fCodSeg Write fCodSeg;
Property DataCad: String Read fDataCad Write fDataCad;
Property Fundacao: String Read fFundacao Write fFundacao;
Property Restricao: Integer Read fRestricao Write fRestricao;
Property EndCob: String Read fEndCob Write fEndCob;
Property NumCob: String Read fNumCob Write fNumCob;
Property BaiCob: String Read fBaiCob Write fBaiCob;
Property CidCob: String Read fCidCob Write fCidCob;
Property EstCob: String Read fEstCob Write fEstCob;
Property CepCob: String Read fCepCob Write fCepCob;
Property Credito: Double Read fCredito Write fCredito;
Property Obs: TMemo Read fObs Write fObs;
Property Ativo: Integer Read fAtivo Write fAtivo;
End;
Abraço
Fernando Papile
Curtir tópico
+ 0Posts
20/04/2011
Alan Souza
Gostei + 0
21/04/2011
Fernando Papile
Gostei + 0
25/04/2011
Wilson Junior
Espero ter colaborado.
Gostei + 0
18/04/2013
José
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)