procedure TFMQRbooking.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRMemo1.Lines.Clear;
  QRMemo2.Lines.Clear;
  QRMemo3.Lines.Clear;
  QRMemo4.Lines.Clear;
  QRMemo5.Lines.Clear;
  QRMemo6.Lines.Clear;
  QRMemo7.Lines.Clear;
  QRMemo8.Lines.Clear;
  QRMemo9.Lines.Clear;
  QRMemo10.Lines.Clear;
  with ADOQuery2 do
  begin
    sql.Text := 'select * from mhbooking where booking_date='
        QuotedStr(DateToStr(booking.DateTimePicker2.Date))
        'and booking_systemtime='
        QuotedStr(ADOQuery1.Fieldbyname('booking_systemtime').AsString)
        'order by amount desc';
    open;
  end;
  QRMemo1.Lines.Add(ADOQuery2.Fieldbyname('amount').AsString   'X'   copy(ADOQuery2.Fieldbyname('container_size').AsString, 0, 3));
  while not ADOQuery2.Eof do
  begin
    QRMemo2.Lines.Add(ADOQuery2.FieldByName('container_id').AsString);
    QRMemo3.Lines.Add(ADOQuery2.FieldByName('booking_shipper').AsString);
    QRMemo4.Lines.Add(ADOQuery2.FieldByName('booking_consignee').AsString);
    QRMemo5.Lines.Add(ADOQuery2.FieldByName('booking_time').AsString);
    QRMemo6.Lines.Add(ADOQuery2.FieldByName('container_make').AsString);
    QRMemo7.Lines.Add(ADOQuery2.FieldByName('container_type').AsString);
    QRMemo8.Lines.Add(ADOQuery2.FieldByName('transit').AsString);
    QRMemo9.Lines.Add(ADOQuery2.FieldByName('cbm').AsString);
    QRMemo10.Lines.Add(ADOQuery2.FieldByName('remark').AsString);
    ADOQuery2.Next;
  end;
end;