Como Aplicar o metodo uDAL de Guinter

Delphi

17/09/2008

Gostaria de Aplicar a DAL(Data Access Layer) demonstrada por Guinther Pauli, em botãoes em meus Webforms, teria como ?

Video aula
[url]https://www.devmedia.com.br/articles/viewcomp.asp?comp=10280[/url]

Muito grato


Pauloroger

Pauloroger

Curtidas 0

Respostas

Signori

Signori

17/09/2008

  
            var
               OBJETO : DAL; //classe de acesso aos dados
            begin
               OBJETO := DAL.CREATE; //instanciando o objeto da classe
              try
                OBJETO.INSERT(´Passe os parametros´); //chama a funcao
              finally
                 OBJETO.free; //liberando da memoria
              end;
          end;


Creio que funcione.


flws


GOSTEI 0
Pauloroger

Pauloroger

17/09/2008

signori, sabe me dizer onde estou errando ?

procedure TCadastroDeEntrada.btSalvar_Click(sender: System.Object; e: System.EventArgs);
var
Objeto : DAL;
begin
Objeto := DAL.Create; //instanciando o objeto da classe
try
Objeto.Insert(Convert.ToDateTime(txtDataEntrada.Text), Convert.ToInt16(txtMatricula.Text), txtNome.Text, txtResponsavel.Text, txtTelefone.Text, txtHoraEntrada.Text, txtHoraSaida.Text); //chama a funcao
finally
Objeto.free; //liberando da memoria
end;
end;

Mensagem de Erro:

[DCC Error] CadastroDeEntrada.pas(100): E2010 Incompatible types: ´Integer´ and ´DateTime´
[DCC Error] CadastroDeEntrada.pas(100): E2010 Incompatible types: ´DateTime´ and ´Smallint´
[DCC Error] CadastroDeEntrada.pas(100): E2010 Incompatible types: ´Integer´ and ´string´
[DCC Error] CadastroDeEntrada.pas(100): E2035 Not enough actual parameters
[DCC Error] Cultural.dpr(8): F2063 Could not compile used unit ´CadastroDeEntrada.pas´


GOSTEI 0
Signori

Signori

17/09/2008

Pelo erro que está mostrando, creio que seja uma incompatibilidade emn seus parâmetros, onde a função espera um integer e vc está passando um DateTime.

att


GOSTEI 0
POSTAR