var
realresutado : Real;
strresultado : String;
begin
inherited;
realresutado := (StrToFloat(edPorcentagem.Text)/100);
realresutado := 1 * realresutado;
strresultado := FloatToStr(realresutado);
qryResult.Close;
qryResult.SQL.Clear;
qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * ' + strresultado);
qryResult.SQL.Add('WHERE PR_Grupo='+ #39 + edGrupo.Text + #39);
edPorcentagem.Text := strresultado;
if edGrupo.Text <> '' then
qryResult.SQL.Add(' AND produtos.ID =0'+edGrupo.Text);
if edPorcentagem.Text <> '' then
qryResult.SQL.Add(' AND produtos.ID =0'+edPorcentagem.Text);
//Mensagem para o usuário
if edPorcentagem.Text <> '' then
MessageDlg('O preço dos Produtos deste Grupo subiu em ' + edPorcentagem.Text + ' porcento !!',mtInformation,[mbok],0);
Pergunta
Guilherme014
não faz o UPDATE....
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.