procedure TfrmFilter.FormShow(Sender: TObject);
var
I: Integer;
begin
ListBox1.Items.Clear;
for I := 0 to frmQueryGeneral.Query1.FieldCount - 1do
ListBox1.Items.Add(frmQueryGeneral.Query1.Fields.FieldName);
end;
将listbox1通过单击方式到要列表的字段中
自己根据输入的sql语名动态生成新的sql语句即可