Програмний код основних модулів додатку

unit Unit1; //головний модуль додатку

interface

uses

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

Dialogs, unit2, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses owner form, realty form, rent form, lease form, find lease, STAT Lease;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

rent edit.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

realty edit.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

lease edit form.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

fm find lease.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

stat_lease.fmSTAT Lease.Show;

end;

end.

unit Unit2; //модуль даних

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule2 = class(TDataModule)

tOwner: TTable;

dsOwner: TDataSource;

dsRent: TDataSource;

dsRealty: TDataSource;

tRent: TTable;

tRealty: TTable;

tRentTYP: TStringField;

tRentRN: TIntegerField;

tRealtyADR: TStringField;

tRealtyTYP: TStringField;

tOwnerNON: TSmallintField;

tOwnerOW: TStringField;

tOwnerADO: TStringField;

Database1: TDatabase;

dsLease: TDataSource;

taLease: TTable;

taLeaseNLEASE: TSmallintField;

taLeaseNTN: TStringField;

taLeaseADT: TStringField;

taLeaseNON: TSmallintField;

taLeaseADR: TStringField;

taLeaseLDATE: TDateTimeField;

tRealtytup: TStringField;

taLeasenum: TStringField;

taLeasedf: TStringField;

Query1: TQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

Query2: TQuery;

Query2TN: TStringField;

Query2OW: TStringField;

Query2LDATE: TDateTimeField;

Query2TYP: TStringField;

Query2ADR: TStringField;

Query2RN: TIntegerField;

Query2ADT: TStringField;

Query2ADO: TStringField;

Query3: TQuery;

Query4: TQuery;

Query5: TQuery;

Query6: TQuery;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

Query3OW: TStringField;

Query4NTN: TStringField;

Query5ADR: TStringField;

Query5TYP: TStringField;

Query5RN: TIntegerField;

Query6NLEASE: TSmallintField;

Query6OW: TStringField;

Query6ADR: TStringField;

Query6TYP: TStringField;

Query6RN: TIntegerField;

Query6LDATE: TDateTimeField;

taLeaseg: TIntegerField;

Query1NLEASE: TSmallintField;

Query1NTN: TStringField;

Query1ADT: TStringField;

Query1OW: TStringField;

Query1ADO: TStringField;

Query1ADR: TStringField;

Query1LDATE: TDateTimeField;

Query1TYP: TStringField;

Query1RN: TIntegerField;

StoredProc1: TStoredProc;

Query7: TQuery;

Query7TN: TStringField;

Query7OW: TStringField;

Query7LDATE: TDateTimeField;

Query7TYP: TStringField;

Query7ADR: TStringField;

Query7RN: TIntegerField;

Query7ADT: TStringField;

Query7ADO: TStringField;

DataSource7: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

unit STAT Lease; // модуль статистики

interface

uses

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

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

type

TfmSTAT Lease = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button1: TButton;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Panel1: TPanel;

Label13: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Button2: TButton;

DBLookupComboBox1: TDBLookupComboBox;

Label19: TLabel;

Label20: TLabel;

DBGrid1: TDBGrid;

Label21: TLabel;

Label22: TLabel;

DBGrid2: TDBGrid;

Label23: TLabel;

Label24: TLabel;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSTAT Lease: TfmSTAT Lease;

implementation

uses Unit2;

{$R *.dfm}

procedure TfmSTAT Lease.Button1Click(Sender: TObject);

begin

with datamodule2.Query5 do begin

close;

parambyname('param1').Asstring:=edit1.Text;

open;

end;

end;

procedure TfmSTAT Lease.Button2Click(Sender: TObject);

begin

with datamodule2.Query6 do begin

close;

parambyname('param1').AsString:=DBLookupComboBox2.Text;

open;

end;end;end.

unit lease form; //модуль форми договорів

interface

uses

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

Dialogs, DBCtrls, ExtCtrls, StdCtrls, Mask;

type

Tlease edit form = class(TForm)

Label1: TLabel;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit6: TDBEdit;

DBText1: TDBText;

DBNavigator1: TDBNavigator;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

lease edit form: Tlease edit form;

implementation

uses Unit2, fmDogovor;

{$R *.dfm}

procedure Tlease edit form.Button1Click(Sender: TObject);

begin

inherited;

with DataModule2.Query1 do begin

if active then close;

ParamByName('param1').AsInteger:=DataModule2.taLeaseNLEASE.AsInteger;

open; end;

formDogovor.QuickRep1.Preview;

end;end.

unit find lease; //модуль форми пошуку договорів по вказаних параметрах

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

Tfm find lease = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

DBGrid1: TDBGrid;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure printlease (preview:boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fm find lease: Tfm find lease;

implementation

uses Unit2, fmDogovor;

{$R *.dfm}

procedure Tfm find lease.printlease(preview:boolean);

begin

if preview then

formDogovor.QuickRep1.Preview

else

formDogovor.QuickRep1.Print;

end;

procedure Tfm find lease.Button1Click(Sender: TObject);

begin

with datamodule2.Query2 do begin

close;

parambyname('name').AsString:=edit1.Text;

open;

end;

end;

procedure Tfm find lease.Button2Click(Sender: TObject);

begin

PrintLease(true);

end;

end.

Вохменцева Тетяна Борисівна

Грищенко Інна Володимірівна

Колумба Ірина Вікторівна

ОСНОВИ ПРОЕКТУВАННЯ БАЗ ДАНИХ

Підписано до друку . Формат 6084 1/16

Умовн.друк.арк. 19 . Наклад прим.

Надруковано видавницьким центорм ОДАХ