cara, seguinte. Eu sou um programador em delphi pleno, quando eu era junior
eu construi um
cadastro padrao aqui na empresa onde trabalho para facilitar nossa
programação, nao foi um coisa
muito fudida mas quebrou um galhão e agente economizou muito tempo.
O meu cadastro padrao se baseava em um tabsheet com 2 abas uma para busca e
outra para cadastro
tinha uma toolbar com os botoes de ação ( grava deleter .......)
o que eu fiz foi o seguinte coloquei todos os datasets e provider num data
modulo o cadastro padrao
ficou sem nenhum dataset apenas com um datasouce criei um metodo abstrato(
metodo abstrato é obrigado
a ser reescrito nas classes filhas) que retornava um tdataset
no show do form padrao eu fazia o seguinte
datasource.dataset := getDataset();
j := 0;
for x := 0 componentcount -1 do
begin
if ( component[ x ] is tdbedit ) then
begin
(component[x] as tdbedit) .datafield :=
getDataset().fields[ j ].fieldname;
inc( j );
end
end
mais ou menos assim cara nao estou com os codigos aqui...mas da forma que eu
fiz ficou bem flexivel usando
o polimorfismo.
qualquer duvida pode me escrever wag182 arroba gmail ponto com
Em 24/10/06, Marcos P. M. de Souza <[EMAIL PROTECTED]> escreveu:
>
> Já procurei a mesma coisa q vc....ainda não encontrei nada tao
> completo....algumas poucas coisas.
> Se achar ...por favor me avise.
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> nome de Programador Delphi
> Enviada em: segunda-feira, 23 de outubro de 2006 19:10
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Cadastro Padrão - Como Criar ??????
>
> Pessoal como faço para criar um cadastro padrão, com todas as
> funcionalidades de botões Gravar, Alterar, Incluir, Excluir e botões
> demovimentação usando apenas os componentes e um componente DataSource
> neste
> Formulário Padrão.
>
> os Demais Componentes tipo Query, ClientDataSet e Provider gostaria de
> colocar em um DataModulo isso é possível ?
>
> como instanciar este datamodulo ou até mesmo herdar o mesmo juntamente com
> o
> formulário e todas as suas funcionalidades já que as mesmas são
> programadas
> apontando-se para o ClientDataSet que se encontra no DataModulo
>
> Hoje esta assim o Formulário Herda o DataSource Padrão, o ClientDataSet
> Padrão e o Provider Padrão e o código do botão gravar fica assim dentro do
> formulário.
>
> // Botão Gravar
> cdsPadrao.Post;
> if cdsPadrao.ApplyUpdates(0) <> 0 then
> cdsPadrao.CancelUpdates;
>
> cdsPadrao é o meu ClientDataSet herdado juntamente com o Formulário
> Padrão,
> caso eu venha a colocar este ClientDataSet em um DataModulo como ficaria o
> Código ?
> como faço para que o Formulário indique quem é seu DataModulo
> Correspondente
> ?
>
> dmPadrao.cdsPadrão.Post; // Este código não funcionaria porque o dmPadrão
> já
> não existe mais na Herança agora o Dm chama-se DMVendas, não mais padrão.
>
> Teria como eu Criar um Cadastro Padrão onde o mesmo apontaria para o DM
> correto ?
>
>
> Obrigado
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
>
>
>
> __________ Informação do NOD32 IMON 1.1823 (20061022) __________
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
>
>
>
> _______________________________________________________
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
> Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
>
>
--
Att.,
Wagner Araujo
(11) 8377-7633 (11)6446-3920
[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]
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
