ActiveDelphi

[bladexp]

Bom Tarde!

Sou iniciante no mundo do mobile e preciso que alguém me ajude na seguinte situação:

Tenho duas querys uma puxa a venda em si e a outra os itens.

Eu consigo listar as vendas no listview, mas gostaria que quando selecionasse uma venda mandasse para outra tela(tabcontrol) todos os itens apenas dessa venda, pode ser em outra listview ou mesmo listar todos em uma grid.

Podem me ajudar?

Obrigado pela atenção.

[Missias]

procedure TfrmProjColihNI.ListView2ItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
dmColihNI.cdsMbHosp.Close;
dmColihNI.cdsMbHosp.Params.ParamValues['hp']:=dmColihNI.cdsAgendadosGeralCODIGOH.AsInteger;
dmColihNI.cdsMbHosp.Open;
TabControl1.TabIndex:=3;
dmColihNI.cdsMbHosp.First;
while dmColihNI.cdsMbHosp.Eof=false do
begin
Label5.Text:=dmColihNI.cdsMbHospNOME.AsString;
dmColihNI.cdsMbHosp.Next;
Label6.Text:=dmColihNI.cdsMbHospNOME.AsString;
dmColihNI.cdsMbHosp.Next;

end;
TabItem2.Visible:=true;
dmColihNI.cdsRelatorioAgen.Close;
dmColihNI.cdsRelatorioAgen.Params.ParamValues['hp']:= dmColihNI.cdsAgendadosGeralCODIGOH.AsInteger;
dmColihNI.cdsRelatorioAgen.Open;
Memo1.Text:='';
TabControl1.TabIndex:=3;
TabItem2.Visible:=true;
end;

Aqui eu tenho um tabcontrol e nele alguns tabitens, no evento onItenClick do listView1 dque está no tabiten1 eu coloquei o codigo acima, assim eu uso como parametro o iten selecionado na ListView1 para colocar no parametro do Sql para o Listview2, possiciono o Tabcontrol no Tabitem que está a nova ListVew2 e assim tenho os dados da escolha na primeira Listview. Não sou bom em explicar. mas se houver duvidas posta ai que tento explicar melhor.

Espero ter ajudado!!