- •Приложение
- •Interface
- •Implementation
- •Interface
- •Img1: tImage;
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
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;