Na Classe você teria:
Function TEmpresa.SalvaEmpresa: Boolean;
Begin
Result := dtm_empresa.SalvaEmpresa(Self);
End;
==
No DataModule você teria: (isso é só parte do código)
Function Tdtm_empresa.SalvaEmpresa(oEmpresa: TEmpresa): Boolean;
Begin
Result := False;
With dtm_empresa.cds_empresa do
Begin
Try
...
FieldByName('RazaoSocial' ).AsString := oEmpresa.RazaoSocial;
FieldByName('NomeFantasia').AsString := oEmpresa.NomeFantasia;
FieldByName('CNPJ').AsString := oEmpresa.CNPJ;
FieldByName('InscEstadual').AsString := oEmpresa.InscEstadual;
Post;
If ApplyUpdates(0) = 0 Then
Result := True;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
End;
==
Fiz de cabeça diretamente no corpo do e-mail. Pode ser que haja erro.
Espero ter ajudado na compreensão.
Uma ótima referência é o livro:
Título : Desenvolvendo Aplicações com Uml 2.0
Autor : Ana Cristina Melo
Editora : Brasport
Edição : 2/2004
ISBN: 8574521752
Páginas : 284
Sds,
Romario
Cícerot escreveu:
Desculpe a ignorancia e já concordando (óbvio por isso minha pergunta), o
que se faz depois de criado o empresa.salvaempresa. Já que ficou tao
bonito... me diga como continuar com o salvaempresa (assumo que sou um
desses que voce falou) mais eu chego lá
-Mensagem original-
De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 23 de setembro de 2004 18:18
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Edit ou DBEdit
O problema é que dessa forma você chutou a orientação a objetos para bem
longe da sua aplicação.
As ferramentas RAD induzem o programador a trabalhar de uma forma não
muito orientada a objetos. Criamos funções e procedimentos, utilizamos
vários dos eventos que a ferramenta nos disponibiliza e fechamos os
olhos para enxergar o futuro que virá pela frente.
Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a
reusar nossos objetos no futuro, estamos evitando ser comparados com
aqueles que alguns chamam de meros pregadores de botão.
Aí você diz: a minha função é reusável, mas será que você pensou que
ela poderia ser um objeto? Que ela poderia ter atributos e métodos
próprios? Que poderia ao invés de receber vários componentes, receber
apenas as informações necessárias?
Ex. do código na Interface:
Empresa:= TEmpresa.Create;
Empresa.RazaoSocial := edt_razao.Text;
Empresa.NomeFantasia := edt_nome.Text;
Empresa.CNPJ := edt_cnpj.Text;
Empresa.InscricaoEstadual := edt_inscricao.Text;
Empresa.SalvaEmpresa;
Lembre-se que programar qualquer um pode, mas desenvolver com excelência
são poucos os que conseguem. Espero que um dia eu consiga chegar lá.
Sds,
Romario
--
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] ou [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
