É,,, vai valer muito aa pena eu buscar essa experiencia... valeu
-----Mensagem original-----
De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 24 de setembro de 2004 12:22
Para: [EMAIL PROTECTED]
Assunto: Re: RES: RES: [delphi-br] Edit ou DBEdit
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
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
<<<<< 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
