118
btnReport1: TcxButton;
btnReport2: TcxButton;
btnReport3: TcxButton;
procedure btnReport1Click(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnReport2Click(Sender: TObject);
procedure btnReport3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmReport: TfrmReport;
implementation
{$R *.dfm}
uses DataBase;
procedure TfrmReport.btnCloseClick(Sender: TObject);
begin
frmReport.Close;
end;
procedure TfrmReport.FormShow(Sender: TObject);
begin
DateFrom.Date:=Date+StrToTime('00:00');
DateInto.Date:=Date+StrToTime('23:59');
end;
procedure TfrmReport.btnReport1Click(Sender: TObject);
119
begin
DataInfo.qReport1.Close;
DataInfo.qReport1.Open;
if DataInfo.qReport1.RecordCount=0 then
begin
MessageDlg('Отчет пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qRepDoc1.Close;
DataInfo.qRepDoc1.Parameters.ParamValues['DateFrom']:=DateFrom.Date;
DataInfo.qRepDoc1.Parameters.ParamValues['DateInto']:=DateInto.Date;
DataInfo.qRepDoc1.Open;
if MessageDlg('Формируем отчет?',mtConfirmation,[mbYes,mbNo],0)=mrNo then Exit;
DataInfo.EkRTF.InFile:=ExtractFilePath(Application.ExeName)+'Template\report1.rtf';
DataInfo.EkRTF.ClearVars;
DataInfo.EkRTF.CreateVar('DateFrom',DateToStr(DateFrom.Date));
DataInfo.EkRTF.CreateVar('DateInto',DateToStr(DateInto.Date));
DataInfo.EkRTF.OutFile:=ExtractFilePath(Application.ExeName)+'Report\report1.doc';
DataInfo.EkRTF.ExecuteOpen([DataInfo.qReport1,DataInfo.qRepDoc1],SW_Show);
end;
procedure TfrmReport.btnReport2Click(Sender: TObject);
begin
DataInfo.qReport2.Close;
DataInfo.qReport2.Parameters.ParamValues['DateFrom']:=DateFrom.Date;
DataInfo.qReport2.Parameters.ParamValues['DateInto']:=DateInto.Date;
DataInfo.qReport2.Open;
if DataInfo.qReport2.RecordCount=0 then
begin
MessageDlg('Отчет пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qRepDoc2.Close;
DataInfo.qRepDoc2.Parameters.ParamValues['DateFrom']:=DateFrom.Date;
DataInfo.qRepDoc2.Parameters.ParamValues['DateInto']:=DateInto.Date;
120
DataInfo.qRepDoc2.Open;
if MessageDlg('Формируем отчет?',mtConfirmation,[mbYes,mbNo],0)=mrNo then Exit;
DataInfo.EkRTF.InFile:=ExtractFilePath(Application.ExeName)+'Template\report2.rtf';
DataInfo.EkRTF.ClearVars;
DataInfo.EkRTF.CreateVar('DateFrom',DateToStr(DateFrom.Date));
DataInfo.EkRTF.CreateVar('DateInto',DateToStr(DateInto.Date));
DataInfo.EkRTF.OutFile:=ExtractFilePath(Application.ExeName)+'Report\report2.doc';
DataInfo.EkRTF.ExecuteOpen([DataInfo.qReport2,DataInfo.qRepDoc2],SW_Show);
end;
procedure TfrmReport.btnReport3Click(Sender: TObject);
begin
DataInfo.qReport3.Close;
DataInfo.qReport3.Parameters.ParamValues['DateFrom']:=DateFrom.Date;
DataInfo.qReport3.Parameters.ParamValues['DateInto']:=DateInto.Date;
DataInfo.qReport3.Open;
if DataInfo.qReport3.RecordCount=0 then
begin
MessageDlg('Отчет пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qRepDoc3.Close;
DataInfo.qRepDoc3.Parameters.ParamValues['DateFrom']:=DateFrom.Date;
DataInfo.qRepDoc3.Parameters.ParamValues['DateInto']:=DateInto.Date;
DataInfo.qRepDoc3.Open;
if MessageDlg('Формируем отчет?',mtConfirmation,[mbYes,mbNo],0)=mrNo then Exit;
DataInfo.EkRTF.InFile:=ExtractFilePath(Application.ExeName)+'Template\report3.rtf';
DataInfo.EkRTF.ClearVars;
DataInfo.EkRTF.CreateVar('DateFrom',DateToStr(DateFrom.Date));
DataInfo.EkRTF.CreateVar('DateInto',DateToStr(DateInto.Date));
DataInfo.EkRTF.OutFile:=ExtractFilePath(Application.ExeName)+'Report\report3.doc';
DataInfo.EkRTF.ExecuteOpen([DataInfo.qReport3,DataInfo.qRepDoc3],SW_Show);
end;
end.