Copiar o registro anterior e usar parte dele

Question

Estou usando o MySQL e o Delphi 7.Preciso copiar parte de um registro da tabela e colocar no pr�ximo registro. Ex: Minha tabela tem 5 campos diferentes e preciso copiar 2 campos do registro atual e us...

Mcsmarmcs · Answer

S� pra complementar: eu gostaria que no pr�ximo registro os dados aparececem em campos edit....

Adriano Santos · Answer

Cara n�o tem muito segredo, eu acho. N�o sei se entendi direito.
Eu criaria vari�veis pra armazenar temporariamente os valores dos campos que precisa e daria um next na tabela. Depois do next voc� edita o registro e passa para os campos os valores armazenados nas vari�veis. Assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  Nome: string;
  Endereco: string;
begin
  Nome := ClientDataSet1.FieldByName(�NOME�).Asstring;
  Endereco := ClientDataSet1.FieldByName(�ENDERECO�).Asstring;
  ClientDataSet1.Next;
  ClientDataSet1.Edit;
  ClientDataSet1.FieldByName(�NOME�).Asstring := Nome;
  ClientDataSet1.FieldByName(�ENDERECO�).Asstring := Endereco;
  ClientDataSet1.Post;
  ClientDataSet1.ApplyUpdates(0);
  Edit1.Text := Nome;
  Edit2.Text := Endreco;
end;

Mcsmarmcs · Answer

Na verdade, foi ainda mais simples, com o c�digo abaixo consegui resolver. A diferen�a � que estou usando componentes ADO e voc� deve estar usando dbExpress.

var
data: string;
begin
data := QRYfuturo.FieldByName(�data�).Asstring;
QRYfuturo.Next;
QRYfuturo.Insert;
QRYfuturo.FieldByName(�data�).Asstring := data;
end;

Mas ainda n�o acabou, tem um campo que precisa se repetir, mas ele est� em um local qualquer da tabela.
Ex: Ao entrar com o conte�do do campo, seria necess�rio trazer algumas informa��es referentes a este campo.
Devo usar alguma consulta?

Paullsoftware · Answer

e que tipo de campo seria esse?...

Adriano Santos · Answer

[quote:57ace0e68c=�mcsmarmcs�]Na verdade, foi ainda mais simples, com o c�digo abaixo consegui resolver. A diferen�a � que estou usando componentes ADO e voc� deve estar usando dbExpress.[/quote:57ace0e68c]� isso ai, uso DBX, mas o princ�pio � o mesmo....

Mcsmarmcs · Answer

� um campo chamado nome e � do tipo string.
Ao criar um novo registro, eu digito algo neste campo nome e deve haver uma consulta pra verificar se o conte�do deste campo j� existe.
Se o que digitei j� existir, pego o conte�do do campo data do registro antigo e replico no campo data do registro atual.

Paullsoftware · Answer

Esse nome seria o nome de um pessoa, tipo cliente??

se for, n�o acha meio impr�prio essa t�cnica? uma vez que exitam umas 30 [b:ababbc3ee7]Maria Jos� da Silva[/b:ababbc3ee7] como faria pra saber qual �? n�o sei se essa seria a melhor solu��o para o seu problema, ainda n�o entendi exatamente o que voc� quer fazer realmente... :roll:

Mcsmarmcs · Answer

Vai haver nomes repetidos mas s� do mesmo cliente, o que vai diferenciar � um campo data, mas eu gostaria de pegar a �ltima vez que cada cliente estava presente....

Paullsoftware · Answer

voc� pode fazer uma pesquisa auxiliar no evento OnExit do DbEdit correspondente, para usar o conteudo digitado em uma pesquisa na tabela, claro que tb deve ser usado uma query auxiliar para isso...
� s� uma ideia...:wink:

Mcsmarmcs · Answer

Voc� poderia me dar um exemplo?...

Adriano Santos · Answer

[quote:e26437c87d=�mcsmarmcs�]Voc� poderia me dar um exemplo?[/quote:e26437c87d][code:1:e26437c87d]procedure TForm1.DBEditPesquisaExit...;begin  with QueryAuxiliar do  begin    Close;    Sql.Clear;    Sql.Add(�SELECT * FROM TABELA WHERE CAMPO= :PESQUISA�);    ParamByName(�PESQUISA�).AsString := DbEditPesquisa.Text;    Open;    if not IsEmpty then      //Faz alguma coisa.    Close;  end;end;[/code:1:e26437c87d]...

Paullsoftware · Answer

[quote:f4d1632d9d=�Adriano Santos�][quote:f4d1632d9d=�mcsmarmcs�]Voc� poderia me dar um exemplo?[/quote:f4d1632d9d][code:1:f4d1632d9d]procedure TForm1.DBEditPesquisaExit...;begin  with QueryAuxiliar do  begin    Close;    Sql.Clear;    Sql.Add(�SELECT * FROM TABELA WHERE CAMPO= :PESQUISA�);    ParamByName(�PESQUISA�).AsString := DbEditPesquisa.Text;    Open;    if not IsEmpty then      //Faz alguma coisa.    Close;  end;end;[/code:1:f4d1632d9d][/quote:f4d1632d9d]Valeu [b:f4d1632d9d]x-man[/b:f4d1632d9d] pela for�a!!!  :wink:...

F�rum Copiar o registro anterior e usar parte dele #341307