Дипломная работа: Разработка базы данных
Содержание спасательных работ: ведение разведки маршрутов
выдвижения формирований и участков (объектов) работ; локализация и тушение
пожаров на участках (объектах) проведения работ и на путях выхода к ним; розыск
поражённых и извлечение их из-под завалов, повреждённых и горящих зданий,
загазованных и задымлённых помещений; вскрытие разрушенных, повреждённых,
заваленных защитных сооружений и спасение находящихся в них людей, а также
подача воздуха в заваленные защитные сооружения; оказание первой медицинской и
первой врачебной помощи поражённым людям и эвакуация их в лечебные учреждения;
вывод населения из опасных мест ( сильно заражённых и затапливаемых районов) в
безопасные (менее зараженные) или незараженные районы; санитарная обработка
людей и обеззараживание их одежды, территории сооружений техники.
Содержание неотложных аварийно-восстановительных работ:
прокладка колонных путей и устройство проездов в завалах и на зараженных участках;
локализация аварий при газовых, энергетических и других сетях; укрепление или
разрушение конструкций зданий и сооружений, угрожающих обвалом, препятствующих
безопасному движению и проведению спасательных работ.
Неотложные аварийно-восстановительные работы организуют в
минимально короткие сроки и производят непрерывно днём и ночью, в любую погоду
до полного их завершения.
ВЫВОД
Главным результатом проведенной работы является
создание функционирующего приложения клиент-сервер, которое выполняет требуемый
от него круг задач. Оно предоставляет возможность получить быстрые доступ к
любому источнику литературы, находящемуся на сервере предприятия. В приложении
реализован поиск и фильтрация источников литературы по заданным атрибутам. В
клиентской части приложения предусмотрена возможность настраивать интерфейс
программы самому пользователю.
База
данных была разработана и функционирует под управлением СУБД InterBase, одного из наиболее популярных, функциональных и надёжных серверов баз
данных в мире. Клиентское приложение разработано при помощи среды
программирования Borland Delphi 7.0, представляющей из себя
мощное и современное средство для разработки приложений в архитектуре
клиент-сервер.
Вся
необходимая работа по осуществлению методов доступа к информации хранимой в
базе данных, её модификации, поддержании базы данных в целостном виде скрыта
внутри и пользователю нет необходимости знать о ней, чтобы успешно решать весь
круг возникающих задач связанных с использованием информации хранимой базе
данных. Более того, программный интерфейс максимально облегчает работу по
обращению с базой данных.
Все
функции выполняемые приложением были тщательным образом проверены в процессе
разработки и протестированы на готовом продукте.
Разработанная
БД имеет и экономическое значение. она значительно увеличивает скорость доступа
работников предприятия к необходимым источникам технической литературы,
уменьшает время поиска требуемой информации. Поэтому отпадает необходимость
большой траты времени на подобные действия. Вследствие чего экономится время
работников предприятия и повышается эффективность их труда.
СПИСОК ССЫЛОК
1. Дейт К. Дж. Введение в
системы баз данных – М.: Издательский дом “Вильямс”, 2001. – 1072 с.
2. Атре Ш. Структурный
подход к организации баз данных – М.: Финансы и статистика, 1983. – 317с.
3. Кузнецов С.Д. Основы
современных баз данных - http://www.citforum.ru/database/osbd/contents.shtml
4. Кириллов В. В. Основы
проектирования реляционных баз данных -
http://www.citforum.ru/database/dbguide/index.shtml
5. Пушников А. Ю. Введение
в системы управления базами данных -
http://www.citforum.ru/database/dblearn/index.shtml
6. Грабер М. Введение в SQL –
М.: Лори, 1996. – 380 с.
7. Ковязин А., Востриков С.
Мир InterBase. Архитектура, администрирование и разработка
приложений баз данных в InterBase/Firebird/Yaffil – М.: КУДИЦ-ОБРАЗ, 2002. – 432 с.
8. Гофман В. Э., Хомоненко
А. Д. Delphi 6 – СПб.: БХВ-Петербург, 2001. – 1152 с.
9. Канту М. Delphi
6 для профессионалов – СПб.: Питер, 2002. – 1088 с.
10. Культин Н. Б.
Программирование в Turbo Pascal 7.0 и Delphi
– СПб.: БХВ-Петербург, 1997. – 240 с
11. Закон
Украины об охране труда от 25.11. 1992г.
12. ГОСТ
12.0.003 – 74* ССБТ. Опасные и вредные производственные факторы. Классификация.
– Введ. 01.01.76.
13. ОНТП 24 – 86. Общесоюзные нормы технологического проектирования.
Определение категорий зданий и сооружений по взрывопожарной и пожарной
опасности. – М.: Стройиздат, 1987. – 128 с.
14.ДБНВ 1.1 – Захист від
пожежі. Пожежна безпека об’єктів булівництва, 2002 –
41с.
15. СНиП 2.09.02 – 85. Строительные нормы и правила. Производственные
здания промышленных предприятий. Нормы проектирования. – М: Стройиздат, 1986.
16. ГОСТ 12.1 005 – 88*. ССБТ. Общие санитарно-гигиенические требования к
воздуху рабочей зоны. – Введ. 01.01.89.
17. СНиП. II – 4 – 79. Строительные нормы и
правила. Естественное и искусственное освещение. Нормы проектирования. – М.:
Стройиздат, 1980. – 110 с.
18. ГОСТ 12.1.003 – 83*. ССБТ. Шум. Общие требования безопасности. –
Введ.01.07.84.
19. ГОСТ 12.1.045 – 84. ССБТ. Электростатические поля. Допустимые уровни
на рабочих местах и требования к проведению контроля. – Введ.01.01.85.
20. ГОСТ 12.1.006 – 84.ССБТ. Электромагнитные поля радиочастот.
Допустимые уровни на рабочих местах и требования к проведению контроля. –
Введ.01.01.85.
21. ДНАОП 0.00 – 1.31. – 99 Правила охраны труда при
эксплуатации ЭВМ. – К.:1999.
22.
Санитарно – гигиенические нормы допустимых уровней ионизации воздуха
производственных и общественных помещений № 2152 – 80. – Минздрав СССР,1980.
23. ГОСТ 12.1.038 – 82.ССБТ. Электробезопасность. Предельно – допустимые
уровни напряжений прикосновения и токов.
24. СНиП
2.04.05-93 Нормы проектирования. Отопление, вентиляция и кондиционирование. -
М.: Стройиздат, 1994-64 с.
25. ДНАОП
0.03-3.14-85 Санітарні
норми допустимих рівнів шуму на робочих місцях №3223-85.
26. ГОСТ 12.1.012-90 ССБТ. Вибрационная
безопасность. Общие требования. – Введ.01.07.91.
27. ГОСТ
12.2.007.0-75 ССБТ. Изделия электрические. Общие требования безопасности. -
Введ.01.01.76.
28. ПУЭ –
87. Правила устройства электроустановок. – М.: Энерогоатомиздат, 1987. –648 с.
29. ГОСТ
14255-69. Аппараты электрические напряжением до 1000В. Оболочки. Степени
защиты.
30. ГОСТ
12.1.004-91 ССБТ. Пожарная безопасность. Общие требования. – Введ.01.07.91.
31. РД
34.21.122-87 Инструкция по устройству молниезащиты зданий и сооружений /
Минэнерго СССР. - М.: Энергоатомиздат. – 1989. – 58 с.
32. Закон
Украины «Об охране окружающей природной среды» от 25.06.91г.
33.
Государственный стандарт Украины «Система управления окружающей средой» ISO 14001-97 – К.: ГОСТАНТДАРТ УКРАИНЫ.
1997 – 31 с.
34. Депутат О.П. Коваленко І.В. Мужик І.С.
Цивільна оборона – Львів: Афіша, 2000 – 336 с.
35. Атаманюк В.Г. и др. Гражданская оборона – М: Высш. шк., 1987. – 288 с.
ПРИЛОЖЕНИЯ
Приложение А
Формы приложения этапе проектирования
Рисунок А.1 – Форма MainForm на этапе проектирования
Рисунок А.2 – Модуль данных DataModule1 на этапе проектирования
Рисунок А.3 – Форма EditForm на этапе проектирования
Рисунок А.4 – Форма FindForm на этапе проектирования
Рисунок А.5 – Форма DeleteForm на этапе проектирования
Рисунок А.6 – Форма FilterForm на этапе проектирования
Рисунок А.7 – Форма DirSourceForm на этапе проектирования
Рисунок А.8 – Форма PathForm на этапе проектирования
Рисунок А.9 – Форма UserForm на этапе проектирования
Рисунок А.10 – Форма AboutForm на этапе проектирования
Приложение Б
Листинг проекта приложения Lib.dpr
program Lib;
uses
Forms,
Main in 'Main.pas' {MainForm},
DBUnit in 'DBUnit.pas' {DataModule1:
TDataModule},
DirSource in 'DirSource.pas'
{DirSourceForm},
Edit in 'Edit.pas' {EditForm},
Files in 'Files.pas',
About in 'About.pas'
{AboutBox},
Delete in 'Delete.pas'
{DeleteForm},
Data in 'Data.pas',
Find in 'Find.pas' {FindForm},
Filter in 'Filter.pas'
{FilterForm},
User in 'User.pas' {UserForm},
Path in 'Path.pas' {PathForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TMainForm,
MainForm);
Application.CreateForm(TDataModule1,
DataModule1);
Application.CreateForm(TDirSourceForm,
DirSourceForm);
Application.CreateForm(TEditForm,
EditForm);
Application.CreateForm(TAboutBox,
AboutBox);
Application.CreateForm(TDeleteForm,
DeleteForm);
Application.CreateForm(TFindForm,
FindForm);
Application.CreateForm(TFilterForm,
FilterForm);
Application.CreateForm(TUserForm,
UserForm);
Application.CreateForm(TPathForm,
PathForm);
Application.Run;
end.
Приложение В
Листинг модуля Main.pas
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids,
StdCtrls, ExtCtrls, Buttons, DBCtrls, ImgList,
ComCtrls, ToolWin, DBActns,
ActnList, AppEvnts, Menus, StdActns;
type
TMainForm = class(TForm)
ToolBar1: TToolBar;
TBInsert: TToolButton;
TBDelete: TToolButton;
ImageList1: TImageList;
TBUpdate: TToolButton;
TBFirst: TToolButton;
TBPrev: TToolButton;
TBNext: TToolButton;
TBLast: TToolButton;
ActionList1: TActionList;
DataSetFirst: TDataSetFirst;
DataSetPrior: TDataSetPrior;
DataSetNext: TDataSetNext;
TBRefrash: TToolButton;
DataSetLast: TDataSetLast;
DataSetInsert: TAction;
DataSetDelete: TAction;
DataSetUpdate: TAction;
DataSetRefrash: TAction;
ApplicationEvents1:
TApplicationEvents;
FileExit: TFileExit;
MainMenu1: TMainMenu;
HelpAbout: TAction;
mmTable: TMenuItem;
mmFile: TMenuItem;
mmSort: TMenuItem;
mmExit: TMenuItem;
mmFirst: TMenuItem;
mmPrior: TMenuItem;
mmNext: TMenuItem;
mmLast: TMenuItem;
N5: TMenuItem;
mmInsert: TMenuItem;
mmDelete: TMenuItem;
mmUpdate: TMenuItem;
mmRefrash: TMenuItem;
mmHelp: TMenuItem;
SortByNum: TAction;
SortByAut: TAction;
SortByTit: TAction;
SortByLan: TAction;
SortByNo: TAction;
SortDirInc: TAction;
SortDirDec: TAction;
TBOpen: TToolButton;
DataSetOpen: TAction;
mmOpen: TMenuItem;
mmSortByNum: TMenuItem;
mmSortByAut: TMenuItem;
mmSortByTit: TMenuItem;
mmSortByLan: TMenuItem;
mmSortByNo: TMenuItem;
N12: TMenuItem;
mmSortDirInc: TMenuItem;
mmSortDirDec: TMenuItem;
mmAbout: TMenuItem;
DataSetFind: TAction;
DataSetFilter: TAction;
N14: TMenuItem;
mmFind: TMenuItem;
TBFind: TToolButton;
TBSapce2: TToolButton;
DataSetFindNext: TAction;
TBSpace1: TToolButton;
TBFindNext: TToolButton;
mmFindNext: TMenuItem;
TBFilter: TToolButton;
mmFilter: TMenuItem;
DataSetAll: TAction;
TBAll: TToolButton;
mmAll: TMenuItem;
FileUser: TAction;
N18: TMenuItem;
mmUser: TMenuItem;
mmOptions: TMenuItem;
OptColor: TAction;
OptFont: TAction;
FileDataBasePath: TAction;
mmDataBasePath: TMenuItem;
ColorDialog1: TColorDialog;
FontDialog1: TFontDialog;
mmColor: TMenuItem;
mmFont: TMenuItem;
PanelMain: TPanel;
PanelMemo: TPanel;
DBMemo1: TDBMemo;
Panel1: TPanel;
PanelGrid: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Splitter1: TSplitter;
StatusBar1: TStatusBar;
Edit1: TEdit;
OptConfDel: TAction;
mmOptConfDel: TMenuItem;
N19: TMenuItem;
procedure FormCreate(Sender:
TObject);
procedure FormActivate(Sender:
TObject);
procedure FormDestroy(Sender:
TObject);
procedure SaveIniFiles;
procedure RestoreIniFiles;
procedure
ApplicationEvents1Hint(Sender: TObject);
procedure RadioGroup1Click(Sender:
TObject);
procedure
RadioGroup2Click(Sender: TObject);
procedure
DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column:
TColumn; State: TGridDrawState);
procedure
DBGrid1ColExit(Sender: TObject);
procedure DBGrid1KeyPress(Sender:
TObject; var Key: Char);
procedure Edit1Exit(Sender:
TObject);
procedure
DataSetInsertExecute(Sender: TObject);
procedure
DataSetDeleteExecute(Sender: TObject);
procedure
DataSetUpdateExecute(Sender: TObject);
procedure DataSetRefrashExecute(Sender:
TObject);
procedure
DataSetOpenExecute(Sender: TObject);
procedure
DataSetFindExecute(Sender: TObject);
procedure
DataSetFindNextExecute(Sender: TObject);
procedure
DataSetFilterExecute(Sender: TObject);
procedure
DataSetAllExecute(Sender: TObject);
procedure
FileDataBasePathExecute(Sender: TObject);
procedure
FileUserExecute(Sender: TObject);
procedure
OptColorExecute(Sender: TObject);
procedure
OptFontExecute(Sender: TObject);
procedure
OptConfDelExecute(Sender: TObject);
procedure
HelpAboutExecute(Sender: TObject);
private
EditField : Integer;
OpenCounter: Integer;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses DB, ShellAPI, IniFiles,
DBUnit,
Edit, About, Files, Delete,
Data, Find,
Filter, User, Path;
{$R *.dfm}
procedure
TMainForm.FormCreate(Sender: TObject);
begin
Root:=ExtractFilePath(Application.ExeName);
if not DirectoryExists(TmpDir)
then
MkDir(TmpDir)
else
DeleteFiles(MainForm.Handle,Concat(Root,TmpDir,'*.*'));
MkDir(BrowseDir);
OpenCounter:=0;
end;
procedure
TMainForm.FormActivate(Sender: TObject);
begin
RestoreIniFiles;
if not DataModule1.InitDBParams
then Close;
DataModule1.SetAccess;
DataSetInsert.Enabled:=DataModule1.fWriter;
DataSetDelete.Enabled:=DataModule1.fWriter;
DataSetUpdate.Enabled:=DataModule1.fWriter;
DataSetRefrashExecute(Sender);
end;
procedure
TMainForm.FormDestroy(Sender: TObject);
begin
DeleteFiles(MainForm.Handle,Concat(Root,TmpDir,'*.*'));
ChDir(Root);
RmDir(TmpDir);
SaveIniFiles;
end;
procedure TMainForm.SaveIniFiles;
var
F : TIniFile;
FN: ANSIString;
begin
FN:=Concat(Root,IniFile);
F:=TIniFile.Create(FN);
with F do
begin
WriteString('DataBase','Server',DataModule1.fServer);
WriteString('DataBase','File',DataModule1.fFile);
WriteString('DataBase','DefaultUser',DBDefaultUser);
WriteString('DataBase','DefaultPassword',DBDefaultPass);
WriteInteger('Window','State',Ord(WindowState));
WriteInteger('Window','Top',BoundsRect.Top);
WriteInteger('Window','Left',BoundsRect.Left);
WriteInteger('Window','Bottom',BoundsRect.Bottom);
WriteInteger('Window','Right',BoundsRect.Right);
WriteInteger('Window','Spliter',PanelMemo.Height);
WriteInteger('Memo','Top',PanelMemo.BoundsRect.Top);
WriteInteger('Memo','Bottom',PanelMemo.BoundsRect.Bottom);
WriteInteger('Grid','Author',DBGrid1.Columns.Items[0].Width);
WriteInteger('Grid','Title',DBGrid1.Columns.Items[1].Width);
WriteInteger('Grid','Language',DBGrid1.Columns.Items[2].Width);
WriteInteger('Grid','Archive',DBGrid1.Columns.Items[3].Width);
WriteInteger('Grid','File',DBGrid1.Columns.Items[4].Width);
WriteInteger('Options','Color',DBMemo1.Color);
WriteBool('Options','ConfDel',ConfirmDelete);
WriteInteger('Font','Charset',DBMemo1.Font.Charset);
WriteInteger('Font','Color',DBMemo1.Font.Color);
WriteInteger('Font','Height',DBMemo1.Font.Height);
WriteString('Font','Name',DBMemo1.Font.Name);
WriteInteger('Font','Pitch',Ord(DBMemo1.Font.Pitch));
WriteInteger('Font','Size',DBMemo1.Font.Size);
WriteBool('Font','Bold',fsBold
in DBMemo1.Font.Style);
WriteBool('Font','Italic',fsItalic
in DBMemo1.Font.Style);
WriteBool('Font','Underline',fsUnderline
in DBMemo1.Font.Style);
WriteBool('Font','StrikeOut',fsStrikeOut
in DBMemo1.Font.Style);
Free;
end;
end;
procedure
TMainForm.RestoreIniFiles;
var
F : TIniFile;
FN : ANSIString;
WinSt: Byte;
WinTop: Integer;
WinLeft: Integer;
WinBottom: Integer;
WinRight: Integer;
X : LongInt;
S : ShortString;
begin
FN:=Concat(Root,IniFile);
if FileExists(FN) then
begin
F:=TIniFile.Create(FN);
with DataModule1 do
begin
fServer:=F.ReadString('DataBase','Server',DBDefaultServer);
fFile:=F.ReadString('DataBase','File',DBDefaultFile);
end;
DBDefaultUser:=F.ReadString('DataBase','DefaultUser',DBDefaultUser);
DBDefaultPass:=F.ReadString('DataBase','
Default Password',DBD efault Pass);
WinSt:=F.ReadInteger('Window','State',DefaultWinState);
case WinSt of
0: WindowState:=wsNormal;
1: WindowState:=wsMinimized;
2: WindowState:=wsMaximized;
end;
WinTop:=F.ReadInteger('Window','Top',DefaultWinTop);
WinLeft:=F.ReadInteger('Window','Left',DefaultWinLeft);
WinBottom:=F.ReadInteger('Window','Bottom',DefaultWinBottom);
WinRight:=F.ReadInteger('Window','Right',DefaultWinRight);
SetBounds(WinLeft,WinTop,WinRight-WinLeft,WinBottom-WinTop);
PanelMemo.Height:=F.ReadInteger('Window','Spliter',30);
with DBGrid1.Columns do
begin
Items[0].Width:=F.ReadInteger('Grid','Author',DefaultGrid1);
Items[1].Width:=F.ReadInteger('Grid','Title',DefaultGrid2);
Items[2].Width:=F.ReadInteger('Grid','Language',DefaultGrid3);
Items[3].Width:=F.ReadInteger('Grid','Archive',DefaultGrid4);
Items[4].Width:=F.ReadInteger('Grid','File',DefaultGrid5);
end;
X:=F.ReadInteger('Options','Color',DefaultColor);
DBGrid1.Color:=X;
DBMemo1.Color:=X;
Edit1.Color:=X;
ConfirmDelete:=F.ReadBool('Options','ConfDel',ConfirmDelete);
X:=F.ReadInteger('Font','Charset',DefaultFontCharset);
DBGrid1.Font.Charset:=X;
DBMemo1.Font.Charset:=X;
Edit1.Font.Charset:=X;
X:=F.ReadInteger('Font','Color',DefaultFontColor);
DBGrid1.Font.Color:=X;
DBMemo1.Font.Color:=X;
Edit1.Font.Color:=X;
X:=F.ReadInteger('Font','Height',DefaultFontHeight);
DBGrid1.Font.Height:=X;
DBMemo1.Font.Height:=X;
Edit1.Font.Height:=X;
S:=F.ReadString('Font','Name',DefaultFontName);
DBGrid1.Font.Name:=S;
DBMemo1.Font.Name:=S;
Edit1.Font.Name:=S;
X:=F.ReadInteger('Font','Pitch',DefaultFontPitch);
case X of
0:
begin
DBGrid1.Font.Pitch:=fpDefault;
DBMemo1.Font.Pitch:=fpDefault;
Edit1.Font.Pitch:=fpDefault;
end;
1:
begin
DBGrid1.Font.Pitch:=fpFixed;
DBMemo1.Font.Pitch:=fpFixed;
Edit1.Font.Pitch:=fpFixed;
end;
2:
begin
DBGrid1.Font.Pitch:=fpVariable;
DBMemo1.Font.Pitch:=fpVariable;
Edit1.Font.Pitch:=fpVariable;
end;
end;
X:=F.ReadInteger('Font','Size',DefaultFontSize);
DBGrid1.Font.Size:=X;
DBMemo1.Font.Size:=X;
Edit1.Font.Size:=X;
if
F.ReadBool('Font','Bold',DefaultFontBold) then
begin
DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsBold];
DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsBold];
Edit1.Font.Style:=Edit1.Font.Style+[fsBold];
end;
if
F.ReadBool('Font','Italic',DefaultFontItalic) then
begin
DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsItalic];
DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsItalic];
Edit1.Font.Style:=Edit1.Font.Style+[fsItalic];
end;
if
F.ReadBool('Font','Underline',DefaultFontUnderline) then
begin
DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsUnderline];
DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsUnderline];
Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline];
end;
if
F.ReadBool('Font','StrikeOut',DefaultFontStrikeOut) then
begin
DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsStrikeOut];
DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsStrikeOut];
Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut];
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
|