unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, DBCtrls,  ComCtrls, ToolWin,
  DBGridEh, Grids, PrnDbgeh;

type
  TForm8 = class(TForm)
    ADOStoredProc2: TADOStoredProc;
    DataSource2: TDataSource;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    ToolButton4: TToolButton;
    ADOStoredProc3: TADOStoredProc;
    DataSource3: TDataSource;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ToolButton5: TToolButton;
    ADOStoredProc4: TADOStoredProc;
    ADOStoredProc5: TADOStoredProc;
    DataSource1: TDataSource;
    DBGridEh2: TDBGridEh;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    ToolButton3: TToolButton;
    procedure Edit1Change(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
  v:variant;
  wbk,ws:olevariant;
  year, month:integer;
  end;

var
  Form8: TForm8;

implementation

uses Unit2, Unit1, comobj,summa ;

{$R *.dfm}

procedure TForm8.Edit1Change(Sender: TObject);
begin
If Edit1.Text='' then
begin
Toolbutton1.Enabled:=False;
Toolbutton2.Enabled:=False;
end
Else
begin
Toolbutton1.Enabled:=True;
Toolbutton2.Enabled:=True;
end;

If StrToInt(edit1.Text)>StrToInt(StatusBar1.Panels[ 1 ].Text) then
begin
Toolbutton2.Enabled:=False;
Toolbutton1.Enabled:=False;
end;




If StrToInt(edit1.Text)=StrToInt(StatusBar1.Panels[ 1 ].Text) then
begin
Toolbutton2.Enabled:=False;
Toolbutton1.Enabled:=True;
end;

If StrToInt(edit1.Text)= 1  then
begin
Toolbutton1.Enabled:=False;
Toolbutton2.Enabled:=True;
end;



end;

procedure TForm8.ToolButton1Click(Sender: TObject);
var
x1,x2:integer;
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)- 1 );

AdoStoredProc5.Active:=False;
AdoStoredProc5.Active:=true;
StatusBar1.Panels[ 1 ].Text:=AdoStoredProc5.fieldByname('pages').AsString;

AdoStoredProc2.Active:=False;
x2:=(AdoStoredProc5.fieldbyname('from').AsInteger+StrToInt(Edit1.Text)- 1 )* 30 ;
x1:=x2- 29 ;

AdoStoredProc2.Active:=false;
AdoStoredProc2.Parameters[ 1 ].Value:=x1;
AdoStoredProc2.Parameters[ 2 ].Value:=x2;
AdoStoredProc2.Active:=True;

AdoStoredProc3.Active:=false;
AdoStoredProc3.Parameters[ 1 ].Value:=x1;
AdoStoredProc3.Parameters[ 2 ].Value:=x2;
AdoStoredProc3.Active:=True;

StatusBar1.Panels[ 3 ].Text:=IntToStr(AdoStoredProc2.RecordCount- 1 );
AdoStoredProc2.Last;
//Label1.Caption:=SumToString(AdoStoredProc2.fieldbyname('Сумма').AsString);
Statusbar1.panels[ 6 ].Text:=SumToString(AdoStoredProc2.fieldbyname('Сумма').AsString);
end;

procedure TForm8.ToolButton2Click(Sender: TObject);
var
x1,x2:integer;
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+ 1 );

AdoStoredProc5.Active:=False;
AdoStoredProc5.Active:=true;
StatusBar1.Panels[ 1 ].Text:=AdoStoredProc5.fieldByname('pages').AsString;

AdoStoredProc2.Active:=False;
x2:=(AdoStoredProc5.fieldbyname('from').AsInteger+StrToInt(Edit1.Text)- 1 )* 30 ;
x1:=x2- 29 ;

AdoStoredProc2.Active:=false;
AdoStoredProc2.Parameters[ 1 ].Value:=x1;
AdoStoredProc2.Parameters[ 2 ].Value:=x2;
AdoStoredProc2.Active:=True;


AdoStoredProc3.Active:=false;
AdoStoredProc3.Parameters[ 1 ].Value:=x1;
AdoStoredProc3.Parameters[ 2 ].Value:=x2;
AdoStoredProc3.Active:=True;



StatusBar1.Panels[ 3 ].Text:=IntToStr(AdoStoredProc2.RecordCount- 1 );
AdoStoredProc2.Last;
//Label1.Caption:=SumToString(AdoStoredProc2.fieldbyname('Сумма').AsString);
Statusbar1.panels[ 6 ].Text:=SumToString(AdoStoredProc2.fieldbyname('Сумма').AsString);
end;

procedure TForm8.ToolButton4Click(Sender: TObject);
var
I,x,y:integer;
begin
v:=createoleobject('excel.application');
{v.visible:=true;}
AdoStoredProc2.Last;


wbk:=v.workbooks.open('c:\economics\reestr.xls');


v.cells.item[ 2 , 4 ].value:='Реестр №__';
v.cells.item[ 2 , 5 ].value:=combobox2.Text;

v.cells.item[ 3 , 2 ].value:='Ф. И. О.';
v.cells.item[ 3 , 3 ].value:='Дата';
v.cells.item[ 3 , 4 ].value:='Наименование пл.';
v.cells.item[ 3 , 5 ].value:='Серия';
v.cells.item[ 3 , 6 ].value:='№';



//v.cells.item[ 1 , 8 ].value:='на '+ADOStoredproc5.FieldByName('date_expire').AsString;



AdoStoredproc2.First;
For i:= 1  to ADOStoredProc2.RecordCount do
begin
v.cells.item[ 3 +i, 1 ].value:=i;
v.cells.item[ 3 +i, 2 ].value:=AdoStoredProc2.FieldByName('Ф.И.О.').AsString;
v.cells.item[ 3 +i, 3 ].value:=AdoStoredProc2.FieldByName('Дата').AsString;
v.cells.item[ 3 +i, 4 ].value:=AdoStoredProc2.FieldByName('Наименование платежа').AsString;
v.cells.item[ 3 +i, 5 ].value:=AdoStoredProc2.FieldByName('Серия').AsString;
v.cells.item[ 3 +i, 6 ].value:=AdoStoredProc2.FieldByName('Номер').AsString;
v.cells.item[ 3 +i, 7 ].value:=AdoStoredProc2.FieldByName('Сумма').AsString;
AdoStoredproc2.Next;
end;
v.cells.item[ 35 , 1 ].value:='Сумма прописью: '+SumToString(AdoStoredProc2.fieldbyname('Сумма').AsString);
x:= 0 ;
y:= 0 ;
AdoStoredProc3.First;
For i:= 1  to AdoStoredProc3.RecordCount do
Begin
 If i< 6  then
 begin
 v.cells.item[ 36 +i, 2 ].value:=AdoStoredProc3.FieldByName('Наименование платежа').AsString+ ' --- '+
 CurrToStr(AdoStoredProc3.FieldByName('Сумма').AsCurrency)+' руб';
 end;

 If (i> 5 ) and (i< 11 ) then
 begin
 inc(y, 1 );
 v.cells.item[ 36 +y, 3 ].value:=AdoStoredProc3.FieldByName('Наименование платежа').AsString+ ' --- '+
 CurrToStr(AdoStoredProc3.FieldByName('Сумма').AsCurrency)+' руб';
 end;



 If (i> 10 ) then
 begin
 inc(x, 1 );
 v.cells.item[ 36 +x, 5 ].value:=AdoStoredProc3.FieldByName('Наименование платежа').AsString+ ' --- '+
 CurrToStr(AdoStoredProc3.FieldByName('Сумма').AsCurrency)+' руб';
 end;
 AdoStoredProc3.Next;
end;


v.visible:=True;
wbk.printpreview;
end;

procedure TForm8.ComboBox2Change(Sender: TObject);
begin
if combobox2.text='Январь' then month:= 1 ;
if combobox2.text='Февраль' then month:= 2 ;
if combobox2.text='Март' then month:= 3 ;
if combobox2.text='Апрель' then month:= 4 ;
if combobox2.text='Май' then month:= 5 ;
if combobox2.text='Июнь' then month:= 6 ;
if combobox2.text='Июль' then month:= 7 ;
if combobox2.text='Август' then month:= 8 ;
if combobox2.text='Сентябрь' then month:= 9 ;
if combobox2.text='Октябрь' then month:= 10 ;
if combobox2.text='Ноябрь' then month:= 11 ;
if combobox2.text='Декабрь' then month:= 12 ;
end;

procedure TForm8.ComboBox1Change(Sender: TObject);
begin
year:=StrToInt(combobox1.text);
end;

procedure TForm8.ToolButton5Click(Sender: TObject);
var
x1, x2:integer;
begin

AdoStoredProc4.Active:=False;
AdoStoredProc4.Parameters[ 1 ].Value:=month;
AdoStoredProc4.Parameters[ 2 ].Value:=year;
AdoStoredProc4.Active:=true;

AdoStoredProc5.Active:=False;
AdoStoredProc5.Active:=true;
StatusBar1.Panels[ 1 ].Text:=AdoStoredProc5.fieldByname('pages').AsString;
StatusBar1.Panels[ 3 ].Text:=AdoStoredProc5.fieldByname('records').AsString;
edit1.Text:='1';

x2:=(AdoStoredProc5.fieldbyname('from').AsInteger+StrToInt(Edit1.Text)- 1 )* 30 ;
x1:=x2- 29 ;


AdoStoredProc2.Active:=false;
AdoStoredProc2.Parameters[ 1 ].Value:=x1;
AdoStoredProc2.Parameters[ 2 ].Value:=x2;
AdoStoredProc2.Active:=True;
AdoStoredProc2.Last;

AdoStoredProc3.Active:=false;
AdoStoredProc3.Parameters[ 1 ].Value:=x1;
AdoStoredProc3.Parameters[ 2 ].Value:=x2;
AdoStoredProc3.Active:=True;

end;

procedure TForm8.ToolButton3Click(Sender: TObject);
begin
PrintDBGridEh1.Preview;
end;

end.

Form8.FormStyle:=FSMDIChild;
Form8.WindowState:=wsmaximized;
Form1.ToolButton8.Enabled:=False;
Form1.ToolButton5.Enabled:=False;
Form1.ToolButton6.Enabled:=False;
Form1.ToolButton9.Enabled:=False;
Form1.ToolButton3.Enabled:=False;
Form1.ToolButton4.Enabled:=False;
Form1.ToolButton12.Enabled:=False;