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

Программный модуль Realty.dpr

program Realty;

uses

Forms,      // Формы вызываемые пользователем

uMain in 'uMain.pas' {fmMain},

uDM in 'uDM.pas' {DM: TDataModule},

uDeal in 'uDeal.pas' {fmDeal},

uDocs in 'uDocs.pas',

uContrag in 'uContrag.pas' {fmContrag},

uRequest in 'uRequest.pas' {fmRequest},

uRealtor in 'uRealtor.pas' {fmRealtor},

uReqCard in 'uReqCard.pas' {fmReqCard},

uTypicalSpecific in 'uTypicalSpecific.pas' {fmTypicalSpecific},

uSpecific in 'uSpecific.pas' {fmSpecific},

uRealty in 'uRealty.pas' {fmRealty},

uCard in 'uCard.pas' {fmCard},

uDistrict in 'uDistrict.pas' {fmDistrict},

uStat in 'uStat.pas' {fmStat},

uSumToStr in 'uSumToStr.pas',

uLogin in 'uLogin.pas' {fmLogin};

{$R *.res}

Begin        // Инициализация окон

Application.Initialize;

Application.CreateForm(TfmLogin, fmLogin);

Application.CreateForm(TfmMain, fmMain);

Application.CreateForm(TDM, DM);

Application.CreateForm(TfmDeal, fmDeal);

Application.CreateForm(TfmContrag, fmContrag);

Application.CreateForm(TfmRequest, fmRequest);

Application.CreateForm(TfmRealtor, fmRealtor);

Application.CreateForm(TfmReqCard, fmReqCard);

Application.CreateForm(TfmTypicalSpecific, fmTypicalSpecific);

Application.CreateForm(TfmSpecific, fmSpecific);

Application.CreateForm(TfmRealty, fmRealty);

Application.CreateForm(TfmCard, fmCard);

Application.CreateForm(TfmDistrict, fmDistrict);

Application.CreateForm(TfmStat, fmStat);

Application.Run;

end.

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

unit uCard;

interface

uses

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

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

ExtDlgs;

type

TfmCard = class(TForm)

  Panel1: TPanel;

  DBImage1: TDBImage;

  Panel2: TPanel;

  DBGrid1: TDBGrid;

  Label1: TLabel;

  DBLookupComboBox1: TDBLookupComboBox;

  Label2: TLabel;

  dblcbType: TDBLookupComboBox;

  Label3: TLabel;

  Label4: TLabel;

  DBEdit2: TDBEdit;

  Label5: TLabel;

  DBLookupComboBox3: TDBLookupComboBox;

  Label6: TLabel;

  DBLookupComboBox4: TDBLookupComboBox;

  Label7: TLabel;

  dbedPrice: TDBEdit;

  Label8: TLabel;

  DBEdit4: TDBEdit;

  Label9: TLabel;

  DBEdit5: TDBEdit;

  DBCheckBox1: TDBCheckBox;

  Label10: TLabel;

  DBLookupComboBox5: TDBLookupComboBox;

  DBMemo1: TDBMemo;

  OpenPictureDialog1: TOpenPictureDialog;

  Splitter1: TSplitter;

  Panel3: TPanel;

  bbtPhoto: TBitBtn;

  bbtTypeSpecific: TBitBtn;

  DBNavigator1: TDBNavigator;

  bbtPrint: TBitBtn;

  bbtClose: TBitBtn;

  Splitter2: TSplitter;

  Label11: TLabel;

  DBEdit1: TDBEdit;

  lbWarning: TLabel;

  bbtDeal: TBitBtn;

  bbtPrintAdPress: TBitBtn;

  procedure FormShow(Sender: TObject);

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

  procedure bbtPhotoClick(Sender: TObject);

  procedure bbtCloseClick(Sender: TObject);

  procedure DBGrid1Enter(Sender: TObject);

  procedure bbtTypeSpecificClick(Sender: TObject);

  procedure bbtPrintClick(Sender: TObject);

  procedure dbedPriceEnter(Sender: TObject);

  procedure dbedPriceExit(Sender: TObject);

  procedure bbtDealClick(Sender: TObject);

  procedure bbtPrintAdPressClick(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end;

var

fmCard: TfmCard;

implementation

uses uDM, uDocs, DB, uRealty, uDeal;

{$R *.dfm}

procedure TfmCard.FormShow(Sender: TObject);

begin

DM.dstRealtySpecific.Open;

DM.dstPhoto.Open;

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

end;

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

begin

//Сохранение внесенных данных:

if DM.dstRealtySpecific.State in [dsEdit, dsInsert] then

  DM.dstRealtySpecific.Post;

if DM.dstPhoto.State in [dsEdit, dsInsert] then

  DM.dstPhoto.Post;

if DM.dstRealty.State in [dsEdit, dsInsert] then

  DM.dstRealty.Post;

DM.dstRealtySpecific.Close;

DM.dstPhoto.Close;

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

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

if not fmRealty.Showing then

  DM.dstRealty.Close;

end;

//Загрузка фото объекта недвижимости:

procedure TfmCard.bbtPhotoClick(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

begin

  if not (DM.dstPhoto.State in [dsEdit, dsInsert]) then

    DM.dstPhoto.Edit;

  DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

  DM.dstPhoto.Post;

end;

end;

procedure TfmCard.bbtCloseClick(Sender: TObject);

begin

Close;

end;

//DBNavigator1 работает с двумя наборами данных, в зависимости от того, какой

//из них выбран - Характиеристики недвижимости или Фото недвижимости:

procedure TfmCard.DBGrid1Enter(Sender: TObject);

begin

if Sender.ClassType = TDBGrid then

  DBNavigator1.DataSource := DM.dsRealtySpecific

else

  DBNavigator1.DataSource := DM.dsPhoto;

end;

//Автоматически создается набор типовых характеристик. Пользователю остается

//только ввести их значения, удалить лишние или добавить необходимые из общего

//перечня характеристик:

procedure TfmCard.bbtTypeSpecificClick(Sender: TObject);

begin

if DM.dstRealty.State = dsInsert then

  DM.dstRealty.Post;

if DM.dstRealtySpecific.RecordCount > 0 then

  Application.MessageBox('Для данного объекта уже заданы характеристики!', 'Информация',

    MB_OK + MB_ICONINFORMATION)

else

  if DM.dstRealtyType.Locate('ID', DM.dstRealty.FieldByName('ТипНедвижID').AsInteger, []) then

  begin

    DM.dstTypicalSpecific.Open;

    DM.dstTypicalSpecific.First;

    //Цикл по типовым характеристикам выбранного типа недвижимости:

    while not DM.dstTypicalSpecific.Eof do

    begin

      DM.dstRealtySpecific.InsertRecord([DM.dstRealty.FieldByName('ID').AsInteger,

        DM.dstTypicalSpecific.FieldByName('ХарактID').AsInteger, Nil]);

      DM.dstTypicalSpecific.Next;

    end;

    DM.dstTypicalSpecific.Close;

  end; //if dstRealtyType.Locate

end;

procedure TfmCard.bbtPrintClick(Sender: TObject);

begin

DocCardRealty;

end;

//При получении фокуса поля ввода цены отображается уведомление:

procedure TfmCard.dbedPriceEnter(Sender: TObject);

begin

if dblcbType.Text = 'Аренда' then

  lbWarning.Visible := True;

end;

//При потери фокуса поля ввода цены скрывается уведомление:

procedure TfmCard.dbedPriceExit(Sender: TObject);

begin

lbWarning.Visible := False;

end;

procedure TfmCard.bbtDealClick(Sender: TObject);

begin

fmDeal.Show;

fmCard.Close;

if fmRealty.Showing then

  fmRealty.Close;

end;

procedure TfmCard.bbtPrintAdPressClick(Sender: TObject);

begin

DocAd;

end;

end.

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

unit uContrag;

interface

uses

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

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

type

TfmContrag = class(TForm)

  Panel1: TPanel;

  DBNavigator1: TDBNavigator;

  Panel2: TPanel;

  Panel3: TPanel;

  DBGrid1: TDBGrid;

  Label1: TLabel;

  DBEdit1: TDBEdit;

  Label2: TLabel;

  DBEdit2: TDBEdit;

  Label3: TLabel;

  DBEdit3: TDBEdit;

  Label5: TLabel;

  DBEdit5: TDBEdit;

  Label6: TLabel;

  DBEdit6: TDBEdit;

  Label7: TLabel;

  Label8: TLabel;

  DBEdit8: TDBEdit;

  Label9: TLabel;

  DBEdit9: TDBEdit;

  Splitter1: TSplitter;

  DBMemo1: TDBMemo;

  CheckBox1: TCheckBox;

  bbtPrint: TBitBtn;

  bbtClose: TBitBtn;

  dblcbType: TDBLookupComboBox;

  Label4: TLabel;

  DBLookupComboBox1: TDBLookupComboBox;

  procedure FormShow(Sender: TObject);

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

  procedure bbtPrintClick(Sender: TObject);

  procedure DBGrid1TitleClick(Column: TColumn);

  procedure CheckBox1Click(Sender: TObject);

  procedure bbtCloseClick(Sender: TObject);

private

  { Private declarations }

public

  { Public declarations }

end;

var

fmContrag: TfmContrag;

implementation

uses uDM, uDocs, ADODB, uCard, uDeal, uRealty, uReqCard, uRequest;

{$R *.dfm}

procedure TfmContrag.FormShow(Sender: TObject);

begin

DM.dstContrag.Open;

DM.dstContrag.Sort := 'ФИО_Наименование';

CheckBox1Click(Self);

end;

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

begin

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

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

if (not fmCard.Showing) and (not fmReqCard.Showing) and (not fmRequest.Showing)

  and (not fmRealty.Showing) and (not fmDeal.Showing) then

  DM.dstContrag.Close;

DM.dstContrag.Filtered := False;

end;

procedure TfmContrag.bbtPrintClick(Sender: TObject);