Acho q o q vc está querendo é um tutorial de POO... vc acha em www.delphi.eti.br
Arquivo de Object Pascal http://www.joaomorais.com.br Desta última eu gostei mais... Sds, Celso do A. Vianna Martins Desenvolvimento de Sistemas ------------------------------------------------------- Archive ISP - Rio de Janeiro - RJ www.archive.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 202634027 "Tudo aquilo que algum idiota diz que é urgente, é algo que este imbecil não fez em tempo hábil e quer que você se foda para fazer em tempo recorde." -------Mensagem original------- De: [EMAIL PROTECTED] Data: 09/27/04 17:04:32 Para: [EMAIL PROTECTED] Assunto: Re: RES: RES: [delphi-br] Edit ou DBEdit Alguem poderia dar um exemplo de como usar os edits para os leigos da lista??? Ou um link com alguma apostila sobre isso... Obrigado. ----- Original Message ----- From: Cícerot To: [EMAIL PROTECTED] Sent: Friday, September 24, 2004 3:34 PM Subject: RES: RES: RES: [delphi-br] Edit ou DBEdit É,,, 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] Yahoo! Grupos, um serviço oferecido por: ----------------------------------------------------------------------------- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [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] 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
