listar em listbox

Question

olapreciso fazer um relatorio por grupo do produto, tenho uma tabela PRODUTO e uma grupo, referente ao grupo q o produto pertence [enlatados, verduras..] ... dai eu gostaria de listar em um listbox to...

Anonymous · Answer

F�bio, vou passar alguns algoritimos, que vc precisa implementar:

1-Altere a propriedade do ListBox para aceitar multiplas sele��es (Ex.: ListBox1.MultiSelect := True);

2-No evento ONSHOW do form, criar uma query que retorne os grupos e preencher o ListBox1 com o resultado da query;

3-Para o relat�rio, criar uma query que contenha a cl�usula WHERE cfe. o exemplo:
procedure TForm1.FormShow(Sender: TObject);
var
i:Integer;
CodGrupo:String;
begin
CodGrupo := ��;
for i := 0 to ListBox1.Items.Count-1 do
begin
if ListBox1.Selected[i] then
CodGrupo := CodGrupo + ListBox1.Items.Strings[i]+�,�;
end;
CodGrupo := Copy(CodGrupo,1,Length(CodGrupo)-1);
qry.SQL.Text := �SELECT * FROM TB_PRODUTOS WHERE CODGRUPO IN [�+CodGrupo+�]�
qry.Open;
end;

4-Boa Sorte...