Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, QuickRpt, ComCtrls, StdCtrls,ComObj, DB, Grids,

DBGrids, ADODB, FR_DSet, FR_DBSet, FR_Class;

type

TForm5 = class(TForm)

MonthCalendar1: TMonthCalendar;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

frReport1: TfrReport;

frDBDataSet1: TfrDBDataSet;

procedure Edit1Click(Sender: TObject);

procedure Edit2Click(Sender: TObject);

procedure MonthCalendar1DblClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure frUserDataset1First(Sender: TObject);

procedure FormClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

a1,b1:integer;

Implementation

uses Unit2, Unit7, Unit12, Unit4;

{$R *.dfm}

procedure TForm5.Edit1Click(Sender: TObject);

begin

MonthCalendar1.Visible:=true;

a1:=1;b1:=0;

end;

procedure TForm5.Edit2Click(Sender: TObject);

begin

a1:=0;b1:=1;

MonthCalendar1.Visible:=true;

end;

procedure TForm5.MonthCalendar1DblClick(Sender: TObject);

begin

Edit1.Text:=datetostr(MonthCalendar1.date);

MonthCalendar1.Visible:=false;

end;

procedure TForm5.Button1Click(Sender: TObject);

var y,m,d,y1,m1,d1,y2,m2,d2:word;

dat,dat1,dat2:tdate;

begin

if (edit1.text='') then showmessage('Сначала введите дату') else

begin

dat1:=strtodate(edit1.Text);

decodedate(dat1,y1,m1,d1);

dat2:=date();

DecodeDate(dat2,y2,m2,d2);

if (y1<y2)or((y1=y2)and(m1<m2))or((y1=y2)and(m1=m2)and(d1<d2)) then

begin

Form5.ADOQuery1.Active:=false;

Form5.ADOQuery1.SQL.Clear;

Form5.ADOQuery1.SQL.Append('SELECT ClientsTB.FIO, ClientsTB.Org, ClientsTB.Addr_S, ClientsTB.Addr_D, ClientsTB.Addr_K, ClientsTB.Tel, ClientsTB.date_zakl FROM ClientsTB');

Form5.ADOQuery1.Active:=true;

{ Form5.DBGrid1.DataSource.DataSet.First;

while not Form5.DBGrid1.DataSource.DataSet.Eof do

begin

dat:=strtodate( Form5.DBGrid1.DataSource.DataSet.FieldByName('date_zakl').Text);

decodedate(dat,y,m,d);

if (((y<y1)or(y>y2))or(((y=y1)and(m<m1))or((y=y2)and(m>m2)))or(((y=y1)and(m=m1)and(d<d1))or((y=y2)and(m=m2)and(d>d2)))) then Form5.DBGrid1.DataSource.DataSet.Delete

else Form5.DBGrid1.DataSource.DataSet.Next;

end; }

adoquery1.Filtered:=false;

adoquery1.Filter:='date_zakl >'+edit1.text;

adoquery1.Filtered:=true;

frReport1.LoadFromFile('otchet4.frf');

Form4.dbgrid2.DataSource.DataSet.First;

while not Form4.dbgrid2.DataSource.DataSet.Eof do

begin

Form4.dbgrid2.DataSource.DataSet.Delete;

end;

Form4.dbgrid2.DataSource.DataSet.Insert;

Form4.dbgrid2.DataSource.DataSet.FieldByName('dt_n').Text:=edit1.Text;

Form4.dbgrid2.DataSource.DataSet.Next;

frReport1.ShowReport;

close;

Form5.Edit1.Text:='';

end else showmessage('начальная дата не должна превышать текущую');

end;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

Form5.Edit1.Text:='';

end;

procedure TForm5.frUserDataset1First(Sender: TObject);

var a,a1:string;

begin

a:=edit1.Text;

end;

procedure TForm5.FormClick(Sender: TObject);

begin

monthcalendar1.Visible:=false;

end;

end.

unit Unit6;