Введение (стр. 8 )

Проверка произведена в присутствии:

Представитель заказчика________________________________________________

Представитель подрядной

Организации ________________________________________________

Отчет Дефектный акт

«25»__03____2000г. курорт Анапа

1.Наименование объекта___Хозяйственный магазин ___________

2.Заказчик__________ГАЗППРОМ___________________________

3.Подрядчик_______ФЕЯ____________________________________

4. Адрес ________ул._Астрахонская 270.______________________

7.Таблица дефектов :

Праметры

СНиП 2.01 - сваи
СНиП 2.01 - шваллер
СНиП 03-76 - подошва

Отчет Результаты проверки

("81") «25»__03____2000г. курорт Анапа

1.Наименование объекта___Хозяйственный магазин ___________

2.Заказчик__________ГАЗППРОМ___________________________

3.Подрядчик_______ФЕЯ____________________________________

4. Адрес ________ул._Астрахонская 270.______________________

5. Таблица значение результатов:

Нормативный документ	Статья	Параметр	Значение

Приложение 4

Листинг программы

unit Unit1;

interface

uses

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

Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

("82") N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N17: TMenuItem;

("83") N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N11: TMenuItem;

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N23Click(Sender: TObject);

("84") procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,

Unit14, Unit13, Unit15, Unit16;

{$R *.DFM}

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ShowMessage('Программа "ИНСПЕКТОР ГАСН" перднозначена для осушествления комплексной оценки дефектов при выполнении СМР и выводом отчетов(предписания, дефектного акта, результата проверки).Спроектировал Петров "_____" ');

("85") end;

procedure TForm1.N13Click(Sender: TObject);

begin

DobDok. Show;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

UdalDok. Show;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

DobTip. Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Dobobjekt. Show;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

IzmObjekt. Show;

("86") end;

procedure TForm1.N19Click(Sender: TObject);

begin

IzmTip. Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

SostPlanProv. Show;

end;

procedure TForm1.N20Click(Sender: TObject);

begin

UdalTip. Show;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

IzmDok. Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

ProsmDok. Show;

("87") end;

procedure TForm1.N23Click(Sender: TObject);

begin

SformProv. Show;

end;

procedure TForm1.N24Click(Sender: TObject);

begin

VnosRezPr. Show;

end;

procedure TForm1.N25Click(Sender: TObject);

begin

AnalizRez. Show;

end;

end.

unit Unit2;

interface

uses

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

StdCtrls, Grids, Calendar, DBCtrls, Mask, Menus, ExtCtrls, DBGrids, Db,

DBTables;

("88") type

TDobDok = class(TForm)

Button1: TButton;

Button2: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

Button3: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

("89") { Public declarations }

end;

var

DobDok: TDobDok;

implementation

uses Unit4;

{$R *.DFM}

procedure TDobDok. Button1Click(Sender: TObject);

begin

DobStPm. show;

end;

procedure TDobDok. Button3Click(Sender: TObject);

begin

DobDok. Close;

end;

end.

unit Unit3;

interface

uses

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

("90") DBCtrls, StdCtrls, ExtCtrls, Db, DBTables, DBLookup, Grids, DBGrids;

type

TUdalDok = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

DataSource1: TDataSource;

Table1: TTable;

DBLookupList1: TDBLookupList;

Button3: TButton;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

UdalDok: TUdalDok;

implementation

("91") {$R *.DFM}

procedure TUdalDok. Button2Click(Sender: TObject);

begin

UdalDok. Close;

end;

procedure TUdalDok. Button3Click(Sender: TObject);

begin

UdalDok. Close;

end;

end.

unit Unit4;

interface

uses

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

StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables;

type

TDobStPm = class(TForm)

Button1: TButton;

Button2: TButton;

DBEdit3: TDBEdit;

("92") DBEdit4: TDBEdit;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

DataSource1: TDataSource;

DBEdit5: TDBEdit;

DBEdit1: TDBEdit;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DobStPm: TDobStPm;

("93") implementation

{$R *.DFM}

procedure TDobStPm. Button2Click(Sender: TObject);

begin

DobStPm. Close;

end;

end.

unit Unit5;

interface

uses

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

ExtCtrls, Tabs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables;

type

TDobTip = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

Button1: TButton;

Button2: TButton;

("94") Label1: TLabel;

Button3: TButton;

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DobTip: TDobTip;

implementation

{$R *.DFM}

procedure TDobTip. Button3Click(Sender: TObject);

begin

DobTip. Close;

end;

end.

unit Unit6;

interface

uses

("95") Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables;

type

TDobObjekt = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DataSource1: TDataSource;

Table1: TTable;

DataSource2: TDataSource;

Table2: TTable;

DBLookupListBox1: TDBLookupListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label5: TLabel;

Label6: TLabel;

("96") Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DobObjekt: TDobObjekt;

implementation

{$R *.DFM}

procedure TDobObjekt. Button3Click(Sender: TObject);

begin

DobObjekt. Close;

end;

end.

unit Unit7;

interface

("97") uses

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

Grids, DBGrids, Db, DBTables, StdCtrls, Buttons, ExtCtrls, DBCtrls;

type

TIzmObjekt = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Edit1: TEdit;

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

("98") { Public declarations }

end;

var

IzmObjekt: TIzmObjekt;

implementation

{$R *.DFM}

procedure TIzmObjekt. BitBtn4Click(Sender: TObject);

begin

IzmObjekt. Close;

end;

end.

unit Unit8;

interface

uses

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

Db, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons;

type

TIzmTip = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

("99") DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label1: TLabel;

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

IzmTip: TIzmTip;

implementation

{$R *.DFM}

procedure TIzmTip. BitBtn3Click(Sender: TObject);

begin

IzmTip. Close;

end;

("100") end.

unit Unit9;

interface

uses

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

Db, DBTables, DBCtrls, StdCtrls, Buttons;

type

TSostPlanProv = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBLookupListBox1: TDBLookupListBox;

Label1: TLabel;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Memo2: TMemo;

Button3: TButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn2Click(Sender: TObject);

("101") private

{ Private declarations }

public

{ Public declarations }

end;

var

SostPlanProv: TSostPlanProv;

implementation

{$R *.DFM}

procedure TSostPlanProv. BitBtn2Click(Sender: TObject);

begin

SostPlanProv. Close;

end;

end.

unit Unit10;

interface

uses

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

StdCtrls, Buttons, DBCtrls, Db, DBTables;

type

("102") TUdalTip = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBLookupListBox1: TDBLookupListBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label1: TLabel;

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

UdalTip: TUdalTip;

implementation

{$R *.DFM}

procedure TUdalTip. BitBtn3Click(Sender: TObject);

begin

("103") UdalTip. Close;

end;

end.

unit Unit11;

interface

uses

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

StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Buttons;

type

TIzmDok = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBLookupListBox1: TDBLookupListBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

("104") procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

IzmDok: TIzmDok;

implementation

uses Unit12;

{$R *.DFM}

procedure TIzmDok. Button1Click(Sender: TObject);

begin

IzmStPr. Show;

end;

procedure TIzmDok. BitBtn1Click(Sender: TObject);

begin

IzmDok. Close;

end;

("105") end.

unit Unit12;

interface

uses

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

StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;

type

TIzmStPr = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBLookupListBox1: TDBLookupListBox;

DBLookupListBox2: TDBLookupListBox;

DBLookupListBox3: TDBLookupListBox;

DBLookupListBox4: TDBLookupListBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

Label3: TLabel;

("106") Label5: TLabel;

Label6: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

IzmStPr: TIzmStPr;

implementation

{$R *.DFM}

procedure TIzmStPr. BitBtn3Click(Sender: TObject);

begin

IzmStPr. Close;

end;

end.

("107") unit Unit13;

interface

uses

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

StdCtrls, Buttons, DBCtrls, Db, DBTables;

type

TSformProv = class(TForm)

Memo1: TMemo;

Memo2: TMemo;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn8: TBitBtn;

("108") BitBtn9: TBitBtn;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DataSource1: TDataSource;

Table1: TTable;

Edit1: TEdit;

Label5: TLabel;

Label6: TLabel;

procedure BitBtn7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

SformProv: TSformProv;

implementation

{$R *.DFM}

procedure TSformProv. BitBtn7Click(Sender: TObject);

begin

("109") SformProv. Close;

end;

end.

unit Unit14;

interface

uses

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

StdCtrls, DBCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids, Buttons;

type

TProsmDok = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid1: TDBGrid;

Label2: TLabel;

DataSource2: TDataSource;

Table2: TTable;

("110") DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn3: TBitBtn;

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ProsmDok: TProsmDok;

implementation

{$R *.DFM}

procedure TProsmDok. BitBtn3Click(Sender: TObject);

begin

ProsmDok. Close;

end;

end.

unit Unit15;

interface

("111") uses

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

StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables, Buttons;

type

TVnosRezPr = class(TForm)

DBEdit1: TDBEdit;

Label1: TLabel;

Label3: TLabel;

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label2: TLabel;

DataSource2: TDataSource;

Table2: TTable;

DBLookupListBox1: TDBLookupListBox;

DataSource3: TDataSource;

Table3: TTable;

Label4: TLabel;

BitBtn1: TBitBtn;

("112") BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label5: TLabel;

Memo1: TMemo;

DBLookupComboBox1: TDBLookupComboBox;

DataSource4: TDataSource;

Table4: TTable;

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

VnosRezPr: TVnosRezPr;

implementation

{$R *.DFM}

procedure TVnosRezPr. BitBtn2Click(Sender: TObject);

begin

VnosRezPr. Close;

("113") end;

end. unit Unit16;

interface

uses

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

Grids, DBGrids, Db, DBTables, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls;

type

TAnalizRez = class(TForm)

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label2: TLabel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

Memo1: TMemo;

Memo2: TMemo;

Label3: TLabel;

DataSource1: TDataSource;

Table1: TTable;

("114") DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Memo3: TMemo;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

BitBtn6: TBitBtn;

Label6: TLabel;

BitBtn7: TBitBtn;

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AnalizRez: TAnalizRez;

implementation

{$R *.DFM}

procedure TAnalizRez. BitBtn6Click(Sender: TObject);

("115") begin

AnalizRez. Close;

end;

end.

preview_end()