[delphiman]

Кусок кода для Quick Report

Код:

  if (ListBox_Menu1.Items.Count > 0) and (ComboBoxMenuSelect.Text <> '') then begin

    with DataModule1 do begin

      ADOQuery_Menu.Close;

      ADOQuery_Menu.SQL.Clear;

      ADOQuery_Menu.SQl.Add('SELECT id_menu_name FROM menu_names WHERE name='+chr(39)+ComboBoxMenuSelect.Text+chr(39));

      ADOQuery_Menu.Open;

      Main.Caption := ADOQuery_Menu.Fields[0].AsString;

      ///////////////////

      ADOQuery_Hot.Close;

      ADOQuery_Hot.SQL.Clear;

      ADOQuery_Hot.SQL.Add('SELECT bludo_name, price FROM menu WHERE id_type_menu=1 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Hot.Open;

      ADOQuery_Cold.Close;

      ADOQuery_Cold.SQL.Clear;

      ADOQuery_Cold.SQL.Add('SELECT bludo_name AS Hot, '' AS Cold FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString+' UNION SELECT '', bludo_name FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Cold.Open;

      /////////////////////

    end;

    Application.CreateForm(TReports, Reports);

    Reports.QuickRep1.Preview;

  end

  else

  ShowMessage('бШАЕПХРЕ ЛЕМЧ!');