IF e ELSE Banco de dados DBexpress delphi 7
Boa tarde!
Sou novo em programação e gostaria da ajuda dos colegas do forum no codigo abaixo
estou fazendo uma consulta no banco de dados e se este codigo que foi digitado pelo usario for achada no banco vou iserir no dbgrid se nao informo no lbInfoCaixa.Caption := 'Produto não encontrado - tente novamente!';
procedure TFrmPDV.VerificaProduto(Codigo: String);
begin
if Codigo = '10000' then
InserirProduto(1, 'Produto sem cadastro', StrToFloat(InputBox('Produto sem cadastro', 'Digite o valor', '')))
else
begin
F_Dados.sqlProdutos.Active := False;
F_Dados.sqlProdutos.SQL.Clear;
F_Dados.sqlProdutos.SQL.Add('SELECT * FROM PRODUTOS WHERE CODIGO_PRODUTO = ' + edtCodigo.Text);
F_Dados.sqlProdutos.Active := True;
if F_dados.sqlProdutos. ( o que devo progrmar aqui?????)
InserirProduto(F_dados.sqlProdutosID_PRODUTO.AsInteger,F_dados.sqlProdutosNOME_PRODUTO.AsString, F_Dados.sqlProdutosPRECO_PRODUTO.Value)
else
lbInfoCaixa.Caption := 'Produto não encontrado - tente novamente!';
end;
end;
Atenciosamente,
Flaviano Silva
Sou novo em programação e gostaria da ajuda dos colegas do forum no codigo abaixo
estou fazendo uma consulta no banco de dados e se este codigo que foi digitado pelo usario for achada no banco vou iserir no dbgrid se nao informo no lbInfoCaixa.Caption := 'Produto não encontrado - tente novamente!';
procedure TFrmPDV.VerificaProduto(Codigo: String);
begin
if Codigo = '10000' then
InserirProduto(1, 'Produto sem cadastro', StrToFloat(InputBox('Produto sem cadastro', 'Digite o valor', '')))
else
begin
F_Dados.sqlProdutos.Active := False;
F_Dados.sqlProdutos.SQL.Clear;
F_Dados.sqlProdutos.SQL.Add('SELECT * FROM PRODUTOS WHERE CODIGO_PRODUTO = ' + edtCodigo.Text);
F_Dados.sqlProdutos.Active := True;
if F_dados.sqlProdutos. ( o que devo progrmar aqui?????)
InserirProduto(F_dados.sqlProdutosID_PRODUTO.AsInteger,F_dados.sqlProdutosNOME_PRODUTO.AsString, F_Dados.sqlProdutosPRECO_PRODUTO.Value)
else
lbInfoCaixa.Caption := 'Produto não encontrado - tente novamente!';
end;
end;
Atenciosamente,
Flaviano Silva
Flaviano Silva
Curtidas 0
Melhor post
Alexsandro
06/06/2015
F_Dados.sqlProdutos.Active := False;
F_Dados.sqlProdutos.SQL.Clear;
F_Dados.sqlProdutos.SQL.Add('SELECT * FROM PRODUTOS WHERE CODIGO_PRODUTO = ' + edtCodigo.Text);
F_Dados.sqlProdutos.Active := True;
if F_Dados.sqlProdutos.Recordcount>0 then
begin
showmessage('Registro Localizado');
end
else
begin
label1.caption := 'Registro não localizado';
end;
F_Dados.sqlProdutos.SQL.Clear;
F_Dados.sqlProdutos.SQL.Add('SELECT * FROM PRODUTOS WHERE CODIGO_PRODUTO = ' + edtCodigo.Text);
F_Dados.sqlProdutos.Active := True;
if F_Dados.sqlProdutos.Recordcount>0 then
begin
showmessage('Registro Localizado');
end
else
begin
label1.caption := 'Registro não localizado';
end;
GOSTEI 1
Mais Respostas
Flaviano Silva
06/06/2015
Caro colega Alexsandro muito obrigado por responder minha duvida, já apliquei o código e deu certo.
Um abraço.
Atenciosamente,
Flaviano Silva
Um abraço.
Atenciosamente,
Flaviano Silva
GOSTEI 0
Alexsandro
06/06/2015
de nada sou novato no ramo mais no que puder ajudar, estou as ordens
GOSTEI 0