F�rum Carlos � possivel criar um classe sim porem a parte de inserir consultar etc e muito mais complicada. #9998

09/10/2009

Ola Rodrigo bom j� sabe ne uma classe igual ele record tMotqueiro lembra onde eu posso consultar inserir e edtiar Carlos � possivel criar um classe sim porem a parte de inserir consultar etc e muito mais complicada. Abra um chamado pedindo para que seja criada uma classe com um metodo de inserir. Faremos um exemplos simples e vc adapta a sua necessidade pois o sistema de suporte ano comtempla desenvolvimento. Abs!!

Carlos Faria

Curtir t�pico

+ 0

Responder

Posts

13/10/2009

Wesley Yamazack

Ol� Carlos,

Desculpe a demora, o Rodrigo est� com problemas, e pediu para ajudar ele neste chamado, voc� poderia ser mais claro sobre o que esta querendo fazer ?

Um abra�o

Wesley Y

Responder

Gostei + 0

13/10/2009

Carlos Faria

Ola wesley Eu gostaria de criar uma classe TCliente onde nessa classe eu posso usar todas as propriedades de um Cliente para inserir ,consultar , editar em todo o projeto

Responder

Gostei + 0

13/10/2009

Wesley Yamazack

Ol� Carlos

Os metodos de inclus�o, edi��o, etc, n�o tem mist�rio voc� so precisa saber como voc� vai persistir os dados.

Exemplo

unit Unit2;

interface
Type
TCliente = Class
    public
      procedure Inserir;
      procedure Deletar;
      procedure Pesquisar;
      procedure Editar;

end;

implementation

{ TCliente }

procedure TCliente.Deletar;
begin
//Forma de Deletar
end;

procedure TCliente.Editar;
begin
//Forma de Editar
end;

procedure TCliente.Inserir;
begin
//Forma de Inserir
end;

procedure TCliente.Pesquisar;
begin
//Forma de Pesquisar
end;

end.

Por�m voc� tem que definir como fazer os metodos, vai montar seus scripts na m�o? Vai usar ClientDataSet ? Como voc� quer fazer ?

Att,

Wesley Y

Responder

Gostei + 0

13/10/2009

Carlos Faria

que tal um exemplo das duas maneiras nao mao e com clientdataset ?

Responder

Gostei + 0

15/10/2009

Wesley Yamazack

Ol� Carlos,
Segue o exemplo

Exemplo

unit Unit2;

interface
Type
TCliente = Class
    public
      procedure Inserir;
      procedure Deletar;
      procedure Pesquisar;
      procedure Editar;

end;

implementation

{ TCliente }

procedure TCliente.Deletar;
begin
//Forma de Deletar
end;

procedure TCliente.Editar;
begin
//Forma de Editar
end;

procedure TCliente.Inserir;
Var
   xQry: TSQLQuery;
begin
xQry := TSQLQuery.Create(Self);
      With xQry do
      begin
         SQLConnection := DM.SqlCOnnection1;
         SQL.Add(' INSERT INTO CLIENTE (IDCLIENTE, NOME)          '+
                 '   VALUES (:IDCLIENTE, :NOME );
         Params.ParamByName('IDCLIENTE').AsBCD := IDCLIENTE;
         Params.ParamByName('NOME ').AsBCD := NOME;
         ExecSQL;
end;

procedure TCliente.Pesquisar;
begin
//Forma de Pesquisar
end;

end.

   Veja que os scripts s�o montados para cada situa��o, inclus�o, altera��o, etc, fa�a as adapta��es de acordo com sua necessidade.

Um abra�o

Wesley Y

Responder

Gostei + 0

22/10/2009

Carlos Faria

Wesley segui o exemplo como vc descreveu aqui porem nao compila aparece um erro no fim da linha [DCC Fatal Error] F2092 Program or unit 'Classes' recursively uses itself

Responder

Gostei + 0

22/10/2009

Wesley Yamazack

Ol� Carlos,
Me diga uma coisa, o nome da tua Unt � Classes ? � isso mesmo ?? Se for voc� sabe que n�o pode correto, pois classes � o nome de unit do Delphi ? Ent�o mude o nome, para uClasses, ou algo do tiop.

Att,

WesleY Y

Responder

Gostei + 0

22/10/2009

Carlos Faria

Weslye
Nao faltou aqui as propriedades ? exemplo imagino que um cliente tenha algumas propriedades como nome, endereco ,rg etc
para fazer uma consulta dessa cliente acho que preciso dessas propriedades

Responder

Gostei + 0

22/10/2009

Wesley Yamazack

Carlos, o erro que voc� falou n�o tem nada haver com o que voc� respondeu agora.

Veja como criar as propertys

Type
TCliente = Class
    public
      procedure Inserir;
      procedure Deletar;
      procedure Pesquisar;
      procedure Editar;
    published
      property Nome : String;
      property Cpf : String;
      property RG : String;

end;

Apos digitar o que esta em Negrito ! Voc� implementa com CTRL+SHIF+C

Logo apos ficaria assim.

unit Unit2;

interface
Uses DB, SqlExpr;
Type
TCliente = Class
private
    FNome: String;
    FCpf: String;
    FRG: String;
    procedure SetCpf(const Value: String);
    procedure SetNome(const Value: String);
    procedure SetRG(const Value: String);
    public
      procedure Inserir;
      procedure Deletar;
      procedure Pesquisar;
      procedure Editar;
    published
      property Nome : String read FNome write SetNome;
      property Cpf : String read FCpf write SetCpf;
      property RG : String read FRG write SetRG;

end;

implementation

{ TCliente }

procedure TCliente.Deletar;
begin
//Forma de Deletar
end;

procedure TCliente.Editar;
begin
//Forma de Editar
end;

procedure TCliente.Inserir;
Var
   xQry: TSQLQuery;
begin
xQry := TSQLQuery.Create(Nil);
      With xQry do
      begin
         SQLConnection := DM.SqlCOnnection1;
         SQL.Add(' INSERT INTO CLIENTE (IDCLIENTE, NOME)          '+
                 '   VALUES (:IDCLIENTE, :NOME );
         Params.ParamByName('IDCLIENTE').AsBCD := IDCLIENTE;
         Params.ParamByName('NOME ').AsBCD := NOME;
         ExecSQL;
end;

procedure TCliente.Pesquisar;
begin
//Forma de Pesquisar
end;

procedure TCliente.SetCpf(const Value: String);
begin
FCpf := Value;
end;

procedure TCliente.SetNome(const Value: String);
begin
FNome := Value;
end;

procedure TCliente.SetRG(const Value: String);
begin
FRG := Value;
end;

end.

procedure TCliente.SetCpf(const Value: String);
begin
FCpf := Value;
end;

procedure TCliente.SetNome(const Value: String);
begin
FNome := Value;
end;

procedure TCliente.SetRG(const Value: String);
begin
FRG := Value;
end;

end.

Responder

Gostei + 0

22/10/2009

Carlos Faria

vou adaptar a um exemplo para mim e te retorno, quanto aquele chamando sobre compilar o pacote pe�o prioridade maxima , pois e urgentissimo

Responder

Gostei + 0

28/10/2009

Wesley Yamazack

Ol� Carlos,

Consegui adaptar o exemplo ? Podemos fechar este chamado ? Ficou mais alguma d�vida ?

Att,

Wesley Y

Responder

Gostei + 0

28/10/2009

Carlos Faria

Deixa eu dar os ultimos ajustes ate amanha agente fecha aqui ok

Responder

Gostei + 0

30/10/2009

Wesley Yamazack

Fala meu camarada, td certo ?
E ai consegui ver o chamado ?

Att,

Wesley Y

Responder

Gostei + 0

31/10/2009

Carlos Faria

wesley calma ai que ja fechamos o chamado ainda esta semana , so nao dei um ok ainda pq estou com chamados abertos com o rodrigo a mais de 1 mes e chamados que dependem dessa rotina ok

Responder

Gostei + 0

01/11/2009

Wesley Yamazack

OK Carlos, estou no aguardo....

Att,

Wesley Y

Responder

Gostei + 0

Mais t�picos