Atualizar 80 registros com apenas um click
Olá, Pessoal,
Seguinte: Tenho um tabela nomeada de CADASTRO, nela estão cadastrados os dados de ´ 80 ´ funcionários, o campo SALARIO é igual em todos os registros, porque todos os funcionarios recebem o mesmo valor de salario, eu gostaria de colocar um edit e um botão para que quando o salario for modificado fosse colocado o valor no edit e ao clicar no botão, os salarios de todos os funcionarios fossem alterados com apenas esse click no botão, para não ser preciso entrar em cada registro para alterar , seria muito trabalhoso pois tem 80 registros, será que tem como fazer isso? se alguem solber por favor ajude.
Uso Delphi5, Tabela Paradox
obrigado.
Seguinte: Tenho um tabela nomeada de CADASTRO, nela estão cadastrados os dados de ´ 80 ´ funcionários, o campo SALARIO é igual em todos os registros, porque todos os funcionarios recebem o mesmo valor de salario, eu gostaria de colocar um edit e um botão para que quando o salario for modificado fosse colocado o valor no edit e ao clicar no botão, os salarios de todos os funcionarios fossem alterados com apenas esse click no botão, para não ser preciso entrar em cada registro para alterar , seria muito trabalhoso pois tem 80 registros, será que tem como fazer isso? se alguem solber por favor ajude.
Uso Delphi5, Tabela Paradox
obrigado.
Clenio
Curtidas 0
Respostas
Marco Salles
29/02/2004
Table1.First;
While Not Table1.Eof Do
Begin
Table1.FieldByName(´Salario´).AsCurrency:=StrToCurr(Edit1.Text);
Table1.Next;
end;GOSTEI 0
Aroldo Zanela
29/02/2004
Colega,
Outra forma:
Outra forma:
MyQuery.SQL.Text := ´update teste set valor = ´+edit1.text; MyQuery.ExecSQL;
GOSTEI 0