Тема: Разработка автоматизированной системы для Бюро недвижимости «Баст-ЕТ» (стр. 21 )

procedure TfmRequest.FormShow(Sender: TObject);

begin

DM.dstRequest.Open;

DM.dstContrag.Open;

DM.dstRealtyType.Open;

DM.dstDistrict.Open;

DM.dstRealtor.Open;

DM.dstDealType.Open;

chbRealtyTypeClick(Self);

end;

procedure TfmRequest.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DM.dstRequest.Close;

DM.dstContrag.Close;

DM.dstRealtyType.Close;

DM.dstDistrict.Close;

DM.dstRealtor.Close;

DM.dstDealType.Close;

end;

procedure TfmRequest.bbtPrintClick(Sender: TObject);

begin

DocAuto(DBGrid1, 8, Self.Caption);

end;

//Фильтрация списка заявок по заданным критериям:

procedure TfmRequest.chbRealtyTypeClick(Sender: TObject);

var

Filter: string;

begin

Filter := '';

if chbDate1.Checked then

  Filter := 'ДатаПодачи >= ' + QuotedStr(DateToStr(dtpDate1.Date));

if chbDate2.Checked then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'ДатаПодачи <= ' + QuotedStr(DateToStr(dtpDate2.Date));

end;

if chbActual.Checked then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'Актуально = True';

end;

if chbRealtyType.Checked and (dblcbRealtyType.KeyValue <> Null) then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'ТипНедвижID = ' + IntToStr(dblcbRealtyType.KeyValue);

end;

if chbRealtor.Checked and (dblcbRealtor.KeyValue <> Null) then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'РиэлторID = ' + IntToStr(dblcbRealtor.KeyValue);

end;

if chbDistrict.Checked and (dblcbDistrict.KeyValue <> Null) then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'РайонID = ' + IntToStr(dblcbDistrict.KeyValue);

end;

if chbDealType.Checked and (dblcbDealType.KeyValue <> Null) then

begin

  if Filter <> '' then

    Filter := Filter + ' and ';

  Filter := Filter + 'ТипСделкиID = ' + IntToStr(dblcbDealType.KeyValue);

end;

if Filter <> '' then

begin

  DM.dstRequest.Filter := Filter;

  DM.dstRequest.Filtered := True;

end

else

  DM.dstRequest.Filtered := False;

end;

procedure TfmRequest.FormCreate(Sender: TObject);

begin

dtpDate1.Date := Date - 60;

dtpDate2.Date := Date;

end;

procedure TfmRequest.bbtCloseClick(Sender: TObject);

begin

Close;

end;

procedure TfmRequest.bbtCardClick(Sender: TObject);

begin

fmReqCard.ShowModal;

end;

//Выделение цветом неактуальных записей:

procedure TfmRequest.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if not DM.dstRequest.FieldByName('Актуально').AsBoolean then

  DBGrid1.Canvas.Brush.Color := clGray;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end.

Программный модуль uSpecific.pas

unit uSpecific;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TfmSpecific = class(TForm)

  DBGrid1: TDBGrid;

  Panel1: TPanel;

  DBNavigator1: TDBNavigator;

  bbtClose: TBitBtn;

  procedure FormShow(Sender: TObject);

  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  procedure bbtCloseClick(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end;

var

fmSpecific: TfmSpecific;

implementation

uses uDM, uDocs, uCard, uReqCard, uTypicalSpecific;

{$R *.dfm}

procedure TfmSpecific.FormShow(Sender: TObject);

begin

DM.dstSpecific.Open;

DM.dstSpecific.Sort := 'Характеристика';

end;

procedure TfmSpecific.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Если форма, на которой используется набор данных в данный момент закрыта, то

//набор данных также закрывается:

if (not fmCard.Showing) and (not fmReqCard.Showing) and (not fmTypicalSpecific.Showing) then

  DM.dstSpecific.Close;

end;

procedure TfmSpecific.bbtCloseClick(Sender: TObject);

begin

Close;

end;

end.

Программный модуль uStat.pas

unit uStat;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, ExtCtrls, TeEngine,

Series, TeeProcs, Chart, DbChart, TeePrevi;

type

TfmStat = class(TForm)

  PageControl1: TPageControl;

  TabSheet1: TTabSheet;

  TabSheet2: TTabSheet;

  TabSheet3: TTabSheet;

  TabSheet4: TTabSheet;

  Panel3: TPanel;

  SpeedButton1: TSpeedButton;

  SpeedButton2: TSpeedButton;

  SpeedButton3: TSpeedButton;

  SpeedButton4: TSpeedButton;

  Label1: TLabel;

  dtpDate1: TDateTimePicker;

  Label2: TLabel;

  dtpDate2: TDateTimePicker;

  DBChart1: TDBChart;

  LineSeries1: TBarSeries;

  SpeedButton5: TSpeedButton;

  TabSheet5: TTabSheet;

  DBChart5: TDBChart;

  PieSeries3: TPieSeries;

  TabSheet6: TTabSheet;

  SpeedButton6: TSpeedButton;

  DBChart6: TDBChart;

  HorizBarSeries1: THorizBarSeries;

  bbtPrint: TBitBtn;

  bbtClose: TBitBtn;

  DBChart2: TDBChart;

  BarSeries1: TBarSeries;

  DBChart3: TDBChart;

  BarSeries2: TBarSeries;

  DBChart4: TDBChart;

  BarSeries3: TBarSeries;

  procedure dtpDate1Change(Sender: TObject);

  procedure FormCreate(Sender: TObject);

  procedure SpeedButton1Click(Sender: TObject);

  procedure SpeedButton4Click(Sender: TObject);

  procedure SpeedButton3Click(Sender: TObject);

  procedure SpeedButton2Click(Sender: TObject);

  procedure bbtPrintClick(Sender: TObject);

  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  procedure SpeedButton5Click(Sender: TObject);

  procedure bbtCloseClick(Sender: TObject);

  procedure SpeedButton6Click(Sender: TObject);

  procedure FormShow(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end;

var

fmStat: TfmStat;

implementation

uses uDM, ADODB, DB;

{$R *.dfm}

procedure TfmStat.dtpDate1Change(Sender: TObject);

begin

//В зависимости от активной закладки запускается обработчик соответствующей кнопки:

case PageControl1.ActivePageIndex of

  0: SpeedButton1Click(Self);

  1: SpeedButton2Click(Self);

  2: SpeedButton3Click(Self);

  3: SpeedButton4Click(Self);

  4: SpeedButton5Click(Self);

  5: SpeedButton6Click(Self);

end;

end;

procedure TfmStat.FormCreate(Sender: TObject);

begin

dtpDate1.Date := Date - 365;

dtpDate2.Date := Date;

SpeedButton1.Caption := 'Количество предложений' + Chr(13) + 'помесячно за период';

SpeedButton2.Caption := 'Количество заявок' + Chr(13) + 'помесячно за период';

SpeedButton3.Caption := 'Количество сделок' + Chr(13) + 'помесячно за период';

SpeedButton4.Caption := 'Суммы сделок' + Chr(13) + 'помесячно за период';

SpeedButton5.Caption := 'Суммы сделок по' + Chr(13) + 'риэлторам за период';

SpeedButton6.Caption := 'Комиссионный доход' + Chr(13) + 'помесячно за период';

SpeedButton1.Down := True;

end;

//Формирование диаграммы "Количество предложений помесячно за период":

procedure TfmStat.SpeedButton1Click(Sender: TObject);

begin

PageControl1.ActivePageIndex := 0;

DM.dstStatQuantity.Close;

DM.dstStatQuantity.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;

DM.dstStatQuantity.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;

DM.dstStatQuantity.Open;

DBChart1.Title.Text.Strings[0] := 'Количество предложений за период с ' +

  DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);

end;

//Формирование диаграммы "Количество заявок за период":

procedure TfmStat.SpeedButton2Click(Sender: TObject);

begin

PageControl1.ActivePageIndex := 1;

DM.dstStatReq.Close;

DM.dstStatReq.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;

DM.dstStatReq.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;

DM.dstStatReq.Open;

DBChart2.Title.Text.Strings[0] := 'Количество заявок за период с ' +

  DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);

end;

//Формирование диаграммы "Количество сделок за период":

procedure TfmStat.SpeedButton3Click(Sender: TObject);

begin

PageControl1.ActivePageIndex := 2;

DM.dstStatDealQuant.Close;

DM.dstStatDealQuant.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;

DM.dstStatDealQuant.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;

DM.dstStatDealQuant.Open;

DBChart3.Title.Text.Strings[0] := 'Количество сделок за период с ' +

  DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);

end;

//Формирование диаграммы "Суммы сделок за период":

procedure TfmStat.SpeedButton4Click(Sender: TObject);

begin

PageControl1.ActivePageIndex := 3;

DM.dstStatDealSum.Close;

DM.dstStatDealSum.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;

DM.dstStatDealSum.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;

DM.dstStatDealSum.Open;

DBChart4.Title.Text.Strings[0] := 'Суммы сделок за период с ' +