procedure TForm20.BitBtn1Click(Sender: TObject);
begin
DataModule1.QVac.Parameters.CreateParameter('Date1 ',ftDate,pdInput,0,0);
DataModule1.QVac.SQL.Text:= 'Select * from TbSoldier, TbVac
Where IdSoldier=IdSoldierV and InitialDate>=:date1';
DataModule1.QVac.Parameters.ParamByName('Date1').V alue:=DateTimePicker1.Date;
DataModule1.QVac.Open;
if DataModule1.QVac.IsEmpty then ShowMessage('Данных не имеется!')
else
begin
//вывод в отчет
form1.Ek1.InFile:='Шаблоны\Between.rtf';
form1.ek1.OutFile:='Справки\Отчет за период.doc';
form1.ek1.ExecuteOpen([DataModule1.QVac],SW_SHOW);
end;
DataModule1.QVac.Close;
end;
|