Coloquei esse codigo dentro do botao alteraritens para q possa chamar o Form onde será carregado os dados e exibido dentro form, mas o form ate vem na tela mas os dados q é bom nada será que estou fazendo alguma coisa erra???????
begin
FrmCadItensCon:= TFrmCadItensCon.create(self);
with QRY_ITENSMOVIMENTO do begin
close;
SQL.Clear;
SQL.Text := 'select * from ITENSMOVIMENTO where ITEM =:ITEMOV';
Pergunta
Guest brabbi
Coloquei esse codigo dentro do botao alteraritens para q possa chamar o Form onde será carregado os dados e exibido dentro form, mas o form ate vem na tela mas os dados q é bom nada será que estou fazendo alguma coisa erra???????
begin
FrmCadItensCon:= TFrmCadItensCon.create(self);
with QRY_ITENSMOVIMENTO do begin
close;
SQL.Clear;
SQL.Text := 'select * from ITENSMOVIMENTO where ITEM =:ITEMOV';
ParamByName('ITEMMOV').AsString :=FieldByName('ITEM').AsString;
Open;
END;
With FrmCadItensCon do Begin
with QRY_ITENSMOVIMENTO do begin
DBT_Item.Caption := FieldByName('ITEM' ).AsString;
DESCRIMEMO.Text := FieldByName('DESCRICAO' ).AsString;
JUSTIMEMO.text := FieldByName( 'JUSTIFICATIVA' ).AsString;
Ativmemo.text := FieldByName( 'ATIVIDADE' ).AsString;
acaomemo.text := FieldByName( 'ACAO' ).AsString;
end;
FrmCadItensCon.showmodal;
END;
Link para o comentário
Compartilhar em outros sites
1 resposta 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.