12. Александровский А. Delphi. Разработка корпоративных приложений. - М.: ДМК, 2000. - 512 с.

13. Канту Марко и др. Delphi. Руководство разработчика. - К.: Век; М.: ЭНТРОП; М.: ДЕСС, 2001. - 752 с.

14. Баженова И.Ю. Delphi 6. Самоучитель программиста. - М.: КУДИЦ-ОБРАЗ, 2002. - 432 с.

15. Гофман В.Э., Хоменко А.Д. Delphi 6. - СПб.: БХВ-Петербург, 2002. - 1152 c.

16. Методические указания к выполнению экономической части дипломных проектов студентами специальности “Компьютерные системы проектирования” /Сост. Скибина А.В., Подгора Е.А. - Краматорск: ДГМА, 1998. - 22 с.

17. План-пам’ятка до вивчення курсу “Охорона праці в галузі” для студентів спеціальності 7.080402 „Інформаційні технології проектування” / Укл.: Л.В. Дементій, Г.Л. Юсіна, Романьков Д.А. - Краматорськ: ДДМА, 2005. - 60 с.

18. Основи охорони праці // В.Ц. Жидецький, В.С. Джигерей, О.В. Мельников. Львів: Афіша, 2000. - 350 с.

19. Сивко В.Й. Розрахунки з охорони праці. - Житомир: ЖІТІ, 2001. - 152 с.

20. Справочник по охране труда на промышленном предприятии / К.Н. Ткачук, Д.Ф. Иванчук, Р.В. Сабарно, А.Г. Степанов. - Киев: Техника, 1991. - 285 с.

Приложение А

ВЕДОМОСТЬ ПРОЕКТА

Приложение Б

Листинг программного комплекса:

program ARM_Radio;

uses

Forms,

uSotrudniki in 'uSotrudniki. pas' {frmSotrudniki},

uDataModule in 'uDataModule. pas' {frmDataModule: TDataModule},

uConnect in 'uConnect. pas' {frmConnect},

uMain in 'uMain. pas' {frmMain},

uResultSQL1 in 'uResultSQL1. pas' {frmResultSQL1},

uReport in 'uReport. pas' {frmReport},

uPeredachi in 'uPeredachi. pas' {frmPeredachi},

uElementy in 'uElementy. pas' {frmElementy},

uResultSQL2 in 'uResultSQL2. pas' {frmResultSQL2},

uResultSQL3 in 'uResultSQL3. pas' {frmResultSQL3},

uPostavshiki in 'uPostavshiki. pas' {frmPostavshiki};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm (TfrmMain, frmMain);

Application. CreateForm (TfrmSotrudniki, frmSotrudniki);

Application. CreateForm (TfrmDataModule, frmDataModule);

Application. CreateForm (TfrmConnect, frmConnect);

Application. CreateForm (TfrmResultSQL1, frmResultSQL1);

Application. CreateForm (TfrmReport, frmReport);

Application. CreateForm (TfrmPeredachi, frmPeredachi);

Application. CreateForm (TfrmElementy, frmElementy);

Application. CreateForm (TfrmResultSQL2, frmResultSQL2);

Application. CreateForm (TfrmResultSQL3, frmResultSQL3);

Application. CreateForm (TfrmPostavshiki, frmPostavshiki);

Application.run;

end.

unit uMain;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, uDataModule,

Mask, uConnect, ShellAPI, uReport;

type

TfrmMain = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

TabSheet5: TTabSheet;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

N4: TMenuItem;

N5: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox5: TCheckBox;

Button1: TButton;

MaskEdit2: TMaskEdit;

CheckBox7: TCheckBox;

N13: TMenuItem;

N14: TMenuItem;

N3: TMenuItem;

N15: TMenuItem;

TabSheet6: TTabSheet;

CheckBox8: TCheckBox;

MaskEdit3: TMaskEdit;

Button3: TButton;

CheckBox9: TCheckBox;

DBGrid6: TDBGrid;

DBNavigator6: TDBNavigator;

DBGrid4: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

CheckBox4: TCheckBox;

DBNavigator4: TDBNavigator;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure CheckBox2Click (Sender: TObject);

procedure CheckBox3Click (Sender: TObject);

procedure CheckBox4Click (Sender: TObject);

procedure CheckBox5Click (Sender: TObject);

procedure Edit2Change (Sender: TObject);

procedure Edit4Change (Sender: TObject);

procedure Edit3Change (Sender: TObject);

procedure CheckBox7Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N31Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure CheckBox9Click (Sender: TObject);

procedure CheckBox8Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N15Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMain: TfrmMain;

implementation

uses uResultSQL1, uResultSQL2, uResultSQL3,uPeredachi, uElementy, uSotrudniki, uPostavshiki;

{$R *. dfm}

procedure TfrmMain. N6Click (Sender: TObject);

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14