[Yurk@]

Код:

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT  Заказ_робіт.Дата, Перелік_робіт.код_заказа, Перелік_робіт.Назва, Перелік_робіт.Вартість_за_1, '
    + ' Заказ_робіт.Количество_заказов, Заказ_робіт.Оплачено, [Вартість_за_1]*[Количество_заказов] AS Стоимость'
    + ' FROM  Заказ_робіт'
    + ' INNER JOIN Перелік_робіт ON Заказ_робіт.Код_заказа = Перелік_робіт.код_заказа'
    + ' WHERE Заказ_робіт.Дата = :d';
  ADOQuery1.Parameters.ParamByName('d').Value := d;
  ADOQuery1.Open;
end;