Реферат: База данных предприятия
Министерство образования Российской Федерации.
Сибирский межрегиональный колледж строительства ипредпринимательства.
Курсовой проект
По дисциплине:
«Технология разработки программных продуктов»
Студента заочного отделения
Группы ПОВТ 63-02
Ахматова Константина Ивановича
г. Иркутск
2008 г.
Содержание
Введение.
1. ТЕХНИЧЕСКОЕЗАДАНИЕ. ГОСТ 19.201-78
2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА.ГОСТ 19.404-79
3. ТЕКСТ ПРОГРАММЫ. ГОСТ19.401-78
4. ОПИСАНИЕ ПРОГРАММЫ.ГОСТ 19.402-78
5. ПРОГРАММА И МЕТОДИКАИСПЫТАНИЙ. ГОСТ 19.301-79
6. ОПИСАНИЕ ПРИМЕНЕНИЯ.ГОСТ 19.502-78
7. РУКОВОДСТВА СИСТЕМНОГОПРОГРАММИСТА ГОСТ 19.503-79.
8. РУКОВОДСТВО ОПЕРАТОРА.ГОСТ 19.505-79
Список использованной литературы
Введение
Целью курсового проектаявляется:
· Разработкасистемы управления базами данных и удобного быстрого доступа к информации.
· Разработкапрограммного продукта с использованием объектно-ориентированной методологии;
· Разработкапрограммной и эксплуатационной документации в соответствии с ГОСТ-19 ЕСПД.
· Для достиженияцели необходимо было изучить основные понятия баз данных.
· Наименованияпрограммы-База данных предприятий.
1. ТЕХНИЧЕСКОЕЗАДАНИЕ.
ГОСТ 19.201-78
1.1 Наименование программы
База данных для службыбыта (справочник потребителя). Программный продукт создан с применением языкапрограммирования Delphi в средекомпилятора Borland Delphi 7.0.
База данных позволяет:
получить информацию опредприятиях города;
подготовить отчет опредприятиях города.
1.2 Цель разработки
Разработать базу данныхдля службы быта.
Эта база должна содержатьследующую информацию:
· название предприятия;
· разряд;
· адрес;
· телефоны;
· специализацию;
· переченьоказываемых услуг;
· часы и дниработы.
Тема разработки: базаданных для службы быта.
1.3 Назначение разработки
Данная программаприменима в деятельности Службы быта, справочного бюро.
получить информацию опредприятиях города;
подготовить отчет опредприятиях города.
1.4 Порядок контроля и приемки
Программный продукттестировался на работоспособность на компьютере с необходимым, установленнымпрограммным обеспечением (Borland Delphi 7.0.).
Для полноценной работыбазы данных необходимо наличие всех компонентов данного программного продукта:модули и таблицы с данными.
2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА.
ГОСТ 19.404-79
Настоящий стандартустанавливает требования к содержанию и оформлению программного документа«Пояснительная записка», определённого ГОСТ 19.101-77, входящего в составдокументации на стадиях разработки эскизного и технического проекта программы.
2.1 Введение
Программное обеспечение –«База данных для службы быта»
2.2Основание разработки дляразработки:
Программа разрабатываетсядля курсового проекта по предмету «Технология Разработки Программного Продукта»Сибирский Государственный Межрегиональный колледж строительства ипредпринимательства, начало разработки 07.10.2008
Тема разработки Базаданных для службы быта
2.3 Назначения и область применения
Данная программаприменима в деятельности Службы быта, справочного бюро.
получить информацию опредприятиях города;
подготовить отчет опредприятиях города.
2.4 Технические характеристики
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0. Крометого необходимо наличие Microsoft ActiveX Data Objects (ADO) – машина базданных Borland. Представляет собой набор DLL –библиотек, обеспечивающих низкоуровневыйдоступ к локальным и клиент-северным БД. Должна устанавливаться на каждомкомпьютере, который использует приложения для работы с БД, написанные дляDelphi.
3. ТЕКСТ ПРОГРАММЫ.
ГОСТ 19.401-78
3.1 Код основного модуля программы Unit1
unit Unit1; форма «справочник потребителя»
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Grids, DBGrids, StdCtrls, Menus, ToolWin, ComCtrls, comobj,
Buttons,ExtCtrls;
type
TForm1 =class(TForm)
DBGrid1:TDBGrid;
MainMenu1:TMainMenu;
N1:TMenuItem;
N2:TMenuItem;
N3:TMenuItem;
N4:TMenuItem;
N5:TMenuItem;
N6:TMenuItem;
N7:TMenuItem;
N8:TMenuItem;
N9:TMenuItem;
N10:TMenuItem;
N11:TMenuItem;
Label1:TLabel;
FindEdit:TEdit;
Label2:TLabel;
Edit1: TEdit;
Label3:TLabel;
FindTelephoneEdit:TEdit;
Button1:TButton;
ToolBar1:TToolBar;
Excel1:TMenuItem;
N12:TMenuItem;
N13:TMenuItem;
Panel1:TPanel;
SpeedButton1:TSpeedButton;
SpeedButton2:TSpeedButton;
SpeedButton3:TSpeedButton;
SpeedButton4:TSpeedButton;
SpeedButton5:TSpeedButton;
procedureN5Click(Sender: TObject);
procedureN6Click(Sender: TObject);
procedureN7Click(Sender: TObject);
procedureN8Click(Sender: TObject);
procedureN9Click(Sender: TObject);
procedureN10Click(Sender: TObject);
procedureFindEditChange(Sender: TObject);
procedureButton1Click(Sender: TObject);
procedureExcel1Click(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
procedureSpeedButton2Click(Sender: TObject);
procedureSpeedButton3Click(Sender: TObject);
procedureN13Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureN12Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Form1:TForm1;
implementation
usesDataModuleUnit, TownBookUnit, EditFormunit, FindResultUnit,
AboutFormUnit;
{$R *.dfm}
procedureTForm1.N5Click(Sender: TObject);
begin
TownBookForm.ShowModal;
end;
procedureTForm1.N6Click(Sender: TObject);
begin
DataModule2.BookTable.Insert;
EditRecordForm.ShowModal;
end;
procedureTForm1.N7Click(Sender: TObject);
begin
EditRecordForm.ShowModal;
end;
procedureTForm1.N8Click(Sender: TObject);
begin
IfApplication.MessageBox(PChar('Вы действительно хотитеудалить'
+DataModule2.BookTableDSDesigner.AsString),'Внимание!!!' ,
MB_OKCANCEL)=id_OKthen
DataModule2.BookTable.Delete;
end;
procedureTForm1.N9Click(Sender: TObject);
begin
DataModule2.BookTable.IndexFieldNames:='[Название предприятия]';
end;
procedureTForm1.N10Click(Sender: TObject);
begin
DataModule2.BookTable.IndexFieldNames:='Город';
end;
procedureTForm1.FindEditChange(Sender: TObject);
begin
If Length(FindEdit.Text)>0 then
DataModule2.BookTable.Filtered:=true
else
DataModule2.BookTable.Filtered:=false;
DataModule2.BookTable.Filter:='[Название предприятия]>'''+FindEdit.Text+'''';
end;
procedureTForm1.Button1Click(Sender: TObject);
begin
DataModule2.FindQuery.Active:=false;
DataModule2.FindQuery.Parameters.ParamByName('Telephone').Value:=
FindTelephoneEdit.Text;
DataModule2.FindQuery.Active:=true;
FindResultForm.ShowModal;
end;
procedureTForm1.Excel1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Служба быта';
Sheet.Cells[2,1]:='Названиепредприятия';
Sheet.Cells[2,2]:='Разряд';
Sheet.Cells[2,3]:='Город';
Sheet.Cells[2,4]:='Адрес';
Sheet.Cells[2,5]:='Телефоны';
Sheet.Cells[2,6]:='Специализация';
Sheet.Cells[2,7]:='Переченьоказаваемых услуг';
Sheet.Cells[2,8]:='Формасобственности';
Sheet.Cells[2,9]:='Часыи дни работы';
index:=3;
DataModule2.BookTable.First;
for i:=0 toDataModule2.BookTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.BookTable.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule2.BookTable.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule2.BookTable.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule2.BookTable.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:=DataModule2.BookTable.Fields.Fields[5].AsString;
Sheet.Cells[index,6]:=DataModule2.BookTable.Fields.Fields[6].AsString;
Sheet.Cells[index,7]:=DataModule2.BookTable.Fields.Fields[7].AsString;
Sheet.Cells[index,8]:=DataModule2.BookTable.Fields.Fields[8].AsString;
Sheet.Cells[index,9]:=DataModule2.BookTable.Fields.Fields[9].AsString;
Inc(index);
DataModule2.BookTable.Next;
end;
end;
procedureTForm1.SpeedButton1Click(Sender: TObject);
begin
DataModule2.BookTable.Insert;
EditRecordForm.ShowModal;
end;
procedureTForm1.SpeedButton2Click(Sender: TObject);
begin
EditRecordForm.ShowModal;
end;
procedureTForm1.SpeedButton3Click(Sender: TObject);
begin
IfApplication.MessageBox(PChar('Вы действительно хотитеудалить'
+DataModule2.BookTableDSDesigner.AsString),'Внимание!!!' ,
MB_OKCANCEL)=id_OKthen
DataModule2.BookTable.Delete;
end;
procedureTForm1.N13Click(Sender: TObject);
begin
AboutForm.ShowModal;
end;
procedureTForm1.SpeedButton4Click(Sender: TObject);
begin
AboutForm.ShowModal;
end;
procedureTForm1.N12Click(Sender: TObject);
begin
Close;
end;
procedureTForm1.SpeedButton5Click(Sender: TObject);
begin
Close;
end;
end.
3.2 Кодмодуляunit DataModuleUnit
unitDataModuleUnit;
interface
uses
SysUtils,Classes, DB, ADODB;
type
TDataModule2= class(TDataModule)
ADOConnection1:TADOConnection;
BookTable:TADOTable;
DataSource1:TDataSource;
BookTableDSDesigner:TAutoIncField;
BookTableDSDesigner2:TWideStringField;
BookTableDSDesigner3:TWideStringField;
BookTableDSDesigner4:TWideStringField;
BookTableDSDesigner5:TWideStringField;
BookTableDSDesigner6:TWideStringField;
BookTableDSDesigner7:TWideStringField;
BookTableDSDesigner8:TWideStringField;
BookTableDSDesigner9:TWideStringField;
BookTableDSDesigner10:TDateTimeField;
BookTableDSDesigner11:TBooleanField;
TownSourse:TDataSource;
TownTable:TADOTable;
TownTableKey1:TAutoIncField;
TownTableDSDesigner:TWideStringField;
BookTableDSDesigner12:TWideStringField;
FindQuery:TADOQuery;
FindSource:TDataSource;
FindQueryDSDesigner:TAutoIncField;
FindQueryDSDesigner2:TWideStringField;
FindQueryDSDesigner3:TWideStringField;
FindQueryDSDesigner4:TWideStringField;
FindQueryDSDesigner5:TWideStringField;
FindQueryDSDesigner6:TWideStringField;
FindQueryDSDesigner7:TWideStringField;
FindQueryDSDesigner8:TWideStringField;
FindQueryDSDesigner9:TWideStringField;
FindQueryDSDesigner10:TWideStringField;
FindQueryDSDesigner11:TDateTimeField;
FindQueryDSDesigner12:TBooleanField;
procedureBookTableFilterRecord(DataSet: TDataSet;
var Accept:Boolean);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
DataModule2:TDataModule2;
implementation
uses Unit1;
{$R *.dfm}
procedureTDataModule2.BookTableFilterRecord(DataSet: TDataSet;
var Accept:Boolean);
begin
Accept:=false;
Ifcopy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=
Form1.FindEdit.Textthen
Accept:=true;
end;
end.
3.3. КодмодуляTownBookUnit
unit TownBookUnit; форма «города»
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Grids, DBGrids, StdCtrls;
type
TTownBookForm= class(TForm)
DBGrid1:TDBGrid;
OK: TButton;
Button1:TButton;
Button2:TButton;
Button3:TButton;
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureOKClick(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
TownBookForm:TTownBookForm;
implementation
usesDataModuleUnit;
{$R *.dfm}
procedureTTownBookForm.Button1Click(Sender: TObject);
begin
DataModule2.TownTable.Insert;
DBGrid1.SetFocus;
end;
procedureTTownBookForm.Button2Click(Sender: TObject);
begin
ifDataModule2.TownTable.Modified then
DataModule2.TownTable.Post;
end;
procedureTTownBookForm.Button3Click(Sender: TObject);
begin
DataModule2.TownTable.Delete;
end;
procedureTTownBookForm.OKClick(Sender: TObject);
begin
TownBookForm.Close;
end;
end.
3.4 кодмодуляEditFormunit
unit EditFormunit;форма «редактирование данных»
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, DBCtrls, Mask;
type
TEditRecordForm= class(TForm)
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
Label4:TLabel;
Label5:TLabel;
DBEdit1:TDBEdit;
DBEdit2:TDBEdit;
DBEdit3:TDBEdit;
DBEdit4:TDBEdit;
DBEdit5:TDBEdit;
DBCheckBox1:TDBCheckBox;
DBLookupComboBox1:TDBLookupComboBox;
Label6:TLabel;
Button1:TButton;
Button2:TButton;
Label7:TLabel;
Label8:TLabel;
DBEdit6:TDBEdit;
DBEdit7: TDBEdit;
DBEdit8:TDBEdit;
Label9:TLabel;
Label10:TLabel;
DBEdit9:TDBEdit;
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
EditRecordForm:TEditRecordForm;
implementation
usesDataModuleUnit;
{$R *.dfm}
procedureTEditRecordForm.Button1Click(Sender: TObject);
begin
ifDataModule2.BookTable.Modified then
DataModule2.BookTable.Post;
Close;
end;
procedureTEditRecordForm.Button2Click(Sender: TObject);
begin
DataModule2.BookTable.Cancel;
Close;
end;
end.
3.5 кодмодуляFindResultUnit.
unit FindResultUnit; форма «результат поиска»
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Grids, DBGrids;
type
TFindResultForm= class(TForm)
DBGrid1:TDBGrid;
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
FindResultForm:TFindResultForm;
implementation
usesDataModuleUnit, EditFormunit, TownBookUnit, Unit1;
{$R *.dfm}
end.
3.6. КодмодуляAboutFormUnit
unit AboutFormUnit; форма «о программе»
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, ExtCtrls;
type
TAboutForm =class(TForm)
Panel1:TPanel;
Label1:TLabel;
Label2:TLabel;
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
AboutForm:TAboutForm;
implementation
{$R *.dfm}
end.
4. ОПИСАНИЕ ПРОГРАММЫ.
ГОСТ 19.402-78
4.1 Общие требования
База данных для службыбыта (справочник потребителя).
Программный продуктсоздан с применением языка программирования Delphi в среде компилятора Borland Delphi 7.0.
4.2 Описание логической структуры
Для реализации прикладнойчасти системы была выбрана среда разработки Borland Delphi 7.0. Доступ к БДосуществляется через Microsoft ActiveX Data Objects (ADO).
Также были использованыследующие компоненты:
· TADOConnection;
· TDATASourse;
· TADOQueri;
4.3 Функциональное назначение
Даная программа применимадля коммерческой деятельности (справочная по предприятиям, информационноебюро).
Основная форма программысодержит полную информацию о предприятии (название, разряд, адрес, телефоны,специализация, перечень услуг, часы и дни работы). Форма редактирование данных,на этой форме идет добавление новой записи, либо редактирование существующей.
4.4 Используемые технические средства
ОС Windows(98,МЕ,2000,XP), и выше, клавиатура мышь.
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0. Крометого необходимо наличие Microsoft ActiveX Data Objects (ADO) – машина базданных Borland. Представляет собой набор DLL –библиотек, обеспечивающихнизкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливатьсяна каждом компьютере, который использует приложения для работы с БД, написанныедля Delphi.
Запуск программуосуществляется при открытии файла S_P.EXE.
4.5 Входные данные
Информация вводимая склавиатуры.
4.6 Выходные данные
Информации выводимая наэкран.
4.7 Структура БД
/>
Пояснение к схеме:
Таблицы:
· Служба быта — содержит полную информацию по предприятиям;
· Справочник городов– содержит список городов.
Поля (таблица службабыта):
· Код номера
· Название предприятия;
· Разряд;
· Город;
· Адрес;
· Телефоны
· Специализация
· Переченьоказываемых услуг
· Формасобственности
· Часы и дни работы
· Дата
· Мобильник
Поля (таблица справочникгородов):
· Key
· Название города
5. ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ.
ГОСТ 19.301-79
5.1 Объект испытаний
База данных для службыбыта.
5.2 Область применения
Даная программа применимадля коммерческой деятельности (справочная по предприятиям, информационноебюро).
5.3 Цель испытаний
Проверитьработоспособность программы.
5.4 Технически требования
ОС Windows(98,МЕ,2000,XP), и выше, клавиатура мышь.
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0. Крометого необходимо наличие Microsoft ActiveX Data Objects (ADO) – машина баз данныхBorland. Представляет собой набор DLL –библиотек, обеспечивающих низкоуровневыйдоступ к локальным и клиент-северным БД. Должна устанавливаться на каждомкомпьютере, который использует приложения для работы с БД, написанные дляDelphi.
5.5 Методы испытания
Программный продукттестировался на работоспособность на компьютере с необходимым, установленнымпрограммным обеспечением (Borland Delphi 7.0.).
Для полноценной работыбазы данных необходимо наличие всех компонентов данного программного продукта:модули и таблицы с данными.
6. ОПИСАНИЕ ПРИМЕНЕНИЯ
ГОСТ 19.502-78
Настоящий стандарт устанавливаетсостав и требования к содержанию программного документа «Описание применения»,определённого ГОСТ 19.101-77.
Стандарт полностью соответствует СТСЭВ 2093-80.
Структуру и оформление документаустанавливают в соответствии с ГОСТ 19.105-78.
6.1 Наименование
База данных для службыбыта.
6.2 Назначение программы
Даная программа применимадля коммерческой деятельности (справочная по предприятиям, информационноебюро).
6.3 Условия применения
ОС Windows(98,МЕ,2000,XP). Процессор Pentium1, Atlon6 ивыше, клавиатура мышь.
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0. Крометого необходимо наличие Microsoft ActiveX Data Objects (ADO) – машина базданных Borland. Представляет собой набор DLL –библиотек, обеспечивающихнизкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливатьсяна каждом компьютере, который использует приложения для работы с БД, написанныедля Delphi.
Запуск программуосуществляется при открытии файла S_P.EXE.
6.4 Входные данные
Информация вводимая склавиатуры.
6.5 Выходные данные
Информации выводимая наэкран.
7. РУКОВОДСТВА СИСТЕМНОГОПРОГРАММИСТА.
ГОСТ 19.503-79
7.1 Наименование программы
“База данных дляинформационного бюро”.
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0.
7.2. Структура БД
/>
7.3 Настройка программы
Необходимо наличиепрограмы Borland Delphi 7.0 или выше, кроме того необходимо наличие BDE иMicrosoft ActiveX Data Objects (ADO) – машина баз данных Borland. Представляетсобой набор DLL –библиотек, обеспечивающих низкоуровневый доступ к локальным иклиент-северным БД. Должна устанавливаться на каждом компьютере, которыйиспользует приложения для работы с БД, написанные для Delphi.
Для полноценной работыбазы данных необходимо наличие всех компонентов данного программного продукта:модули и таблицы с данными.
7.4 Выполнение программы
Запуск программуосуществляется при открытии файла S_P.EXE.
Появляется главное окнопрограммы.
Основная форма программысодержит полную информацию о предприятии (название, разряд, адрес, телефоны,специализация, перечень услуг, часы и дни работы).
Форма редактированиеданных, на этой форме идет добавление новой записи, либо редактированиесуществующей.
Форма результат поиска,на этой форме выводиться результат поиска.
7.5 Проверка программы
Программный продукттестировался на работоспособность на компьютере с необходимым, установленнымпрограммным обеспечением (Borland Delphi 7.0.).
Для полноценной работыбазы данных необходимо наличие всех компонентов данного программного продукта:модули и таблицы с данными.
8. РУКОВОДСТВО ОПЕРАТОРА.
ГОСТ 19.505-79
8.1 Наименование программы
“База данных дляинформационного бюро”.
Программа написана наязыке программирования Delphi в среде компилятора Borland Delphi 7.0.
8.2 Назначение программы
Даная программа применимадля коммерческой деятельности (справочная по предприятиям, информационноебюро).
8.3 Условия выполнения программы
ОС Windows(98, МЕ,2000,XP). Процессор Pentium1, Atlon6 и выше, клавиатура мышь.
8.4 Выполнение программы.
Запуск программуосуществляется при открытии файла S_P.EXE.Основная форма программы содержитполную информацию о предприятии (название, разряд, адрес, телефоны,специализация, перечень услуг, часы и дни работы). Форма редактирование данных,на этой форме идет добавление новой записи, либо редактирование существующей.