Classe genérica pra todo sistema
Enviado: 18 Nov 2012 19:30
Ainda não sei se isso vai facilitar ou atrapalhar quando mexer em modo gráfico.
Criei uma classe para cadastros (console/texto), mas estou usando no sistema INTEIRO, incluindo digitação de pedidos.
Botões padrão:
Inclui
Altera
Exclui
Consulta
Primeiro
Ultimo
Anterior
Seguinte
Sair
Métodos padrão:
Executa(): faz todo processo
Primeiro(): goto top
Ultimo(): goto bottom
Anterior(): skip -1
Seguinte(): skip
Específico(): fica na classe herdada, pra selecionar um código específico
TelaDados(lDigita): fica na classe herdada, pra mostrar e/ou digitar
O default da propriedade: cLetrasMenu é "IAEC" (inclui, altera, exclui, consulta), pode ser modificada, caso a senha do usuário não permita inclusão, por exemplo.
O default da propriedade: acEventos é vazio, e serve pra adicionar mais opções.
O default da propriedade: acTabName é "GERAL", mas permite adicionar Tabs que já ficam disponíveis na navegação
O método UserFunction() não faz nada, mas na classe herdada permite incluir rotinas extras/substitutas
E por aí vai.
A vantagem está sendo reduzir código, e necessidade das variáveis padrão.
E o cadastro inteiro praticamente vira uma variável local contendo a classe.
Imagino que tudo isso facilite quando usar ambiente gráfico, ou várias rotinas simultâneas.
Mas isso vou descobrir quando chegar lá.
Por enquanto ainda ajustando cada módulo para a classe.
Criei uma classe para cadastros (console/texto), mas estou usando no sistema INTEIRO, incluindo digitação de pedidos.
Botões padrão:
Inclui
Altera
Exclui
Consulta
Primeiro
Ultimo
Anterior
Seguinte
Sair
Métodos padrão:
Executa(): faz todo processo
Primeiro(): goto top
Ultimo(): goto bottom
Anterior(): skip -1
Seguinte(): skip
Específico(): fica na classe herdada, pra selecionar um código específico
TelaDados(lDigita): fica na classe herdada, pra mostrar e/ou digitar
O default da propriedade: cLetrasMenu é "IAEC" (inclui, altera, exclui, consulta), pode ser modificada, caso a senha do usuário não permita inclusão, por exemplo.
O default da propriedade: acEventos é vazio, e serve pra adicionar mais opções.
O default da propriedade: acTabName é "GERAL", mas permite adicionar Tabs que já ficam disponíveis na navegação
O método UserFunction() não faz nada, mas na classe herdada permite incluir rotinas extras/substitutas
E por aí vai.
A vantagem está sendo reduzir código, e necessidade das variáveis padrão.
E o cadastro inteiro praticamente vira uma variável local contendo a classe.
Imagino que tudo isso facilite quando usar ambiente gráfico, ou várias rotinas simultâneas.
Mas isso vou descobrir quando chegar lá.
Por enquanto ainda ajustando cada módulo para a classe.