var

Child:TTreeNode;

FileName:string;

OutFileName:string;

begin

if (TreeNodeSelect<>nil) then begin

if (TreeNodeSelect.Count=1) then begin

Child:=TreeNodeSelect.getFirstChild;

OutFileName:=TreeNodeSelect.Text;

if (Child.Count=0) and (StrToIntDef(Child.Text, -100)>=0) then FileName:=Child.Text else exit;

end else exit;

pDataBase.CopyFile(ExtractFileDir(Application.ExeName)+'\Source\'+FileName, ExtractFileDir(Application.ExeName)+'\Source\Out\'+OutFileName);

ShellExecute(Handle, 'Open', PChar(ExtractFileDir(Application.ExeName)+'\Source\Out\'+OutFileName), nil, nil, sw_hide);

end else exit;

end;

2.5 Связь с базой данных

Данный справочник предназначен для хранения и предоставления необходимых УМКД, поэтому приложение работает на основе базы данных, составленной в MA Access. Связь базы с основным модулем программы представлена на рисунке 6.

Структуры таблиц использующихся в базе данных приведены в таблицах 1 -6.

Таблица 1 - Структура таблицы Факультет

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Название факультета

Таблица 2 - Структура таблицы Файлы

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Название загруженного файла

Таблица 3 - Структура таблицы Форма обучения

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Форма обучения

Таблица 4 - Структура таблицы Кафедра

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Название кафедры

Таблица 5 - Структура таблицы Курс

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Название факультета

Таблица 6 - Структура таблицы Предмет

Поле	Размер	Ключевое поле	Примечание
_id			Код порядка
_name	250	*	Название дисциплины



Рисунок 6. Связь основного модуля с базой данных

Каждая таблица была создана с помощью конструктора. В таблицах сдержится всего два поля, одно из них типа Счетчик, второе текстовое (рисунок 7).

Рисунок 7. Создание таблиц с помощью конструктора

База данных главным образом предназначена для учета имеющихся в наличии УМКД и в основном может быть использоваться сотрудниками УМО и кафедр (рисунок 8. Таблицы базы данных).

Информационная система составлена таким образом, что таблицы не связаны между собой логически, но в целом они дают довольно полное представление о работе программного продукта в конкретной предметной области.

Каждая таблица в базе данных имеет ряд ключевых полей, на основе которых определяется дальнейшее распределение данных в таблице.

Рисунок 8. Таблицы базы данных

В имеющейся базе хранится вся информация об имеющихся УМКД в таблице. Главная таблица разработана в MS Access. Схема запроса представлена на рисунке 9.

Рисунок 9. Схема запроса

Далее с помощью специальных компонентов среды программирования Delphi созданную базу данных необходимо подключить к проекту. Все компоненты отображения данных можно разделить на группы по нескольким критериям. Большинство компонентов предназначены для работы с отдельным полем, т. е. при перемещении по записям набора данных такие компоненты показывают текущие значения только одного поля. Для соединения с набором Компоненты TDBGrid и TDBCtriGrid обеспечивают просмотр наборов данных целиком или в произвольном сочетании полей. В них присутствует только свойство DataSource. Наиболее часто в практике программирования используются компоненты TDBGrid, TDBEdit И TDBNavigator (рисунок 10). [11]

Рисунок 10. Классификация компонентов отображения данных

Компонент TDBGrid является потомком Классов TDBCustomGrid И TCustomGrid.От класса TCustomGrid наследуются все функции отображения и управления работой двумерной структуры данных. Класс TDBCustomGrid обеспечивает визуализацию и редактирование полей из набора данных, причем TDBGrid только публикует свойства и методы класса DBCustomGrid, не добавляя собственных. В компоненте TDBGrid можно отображать произвольное подмножество полей используемого набора данных, но число записей ограничить нельзя - в компоненте всегда присутствуют все записи связанного набора данных. Требуемый набор полей можно составить при помощи специального Редактора столбцов, который открывается при двойном щелчке на компоненте, перенесенном на форму, или кнопкой свойства Columns в Инспекторе объектов. Поле набора данных связывается с конкрет ной колонкой при помощи свойства FieidName класса TCoiumn. При этом в колонку автоматически переносятся все необходимые параметры поля, в частности заголовок поля, настройки шрифтов, ширина поля. После ручного изменения параметров первоначальные значения восстанавливаются методами соответствующих объектов TCoiumn.

Наряду с традиционными инструментами доступа к данным Borland Database Engine и ODBC в приложениях Delphi можно применять технологию Microsoft ActiveX Data Objects (ADO), которая основана на возможностях СОМ, а именно интерфейсов OLE DB. Технология ADO завоевала популярность у разработчиков, благодаря универсальности - базовый набор интерфейсов OLE DB имеется в каждой современной операционной системе Microsoft. Поэтому для обеспечения доступа приложения к данным достаточно лишь правильно указать провайдер соединения ADO и затем переносить программу на любой компьютер, где имеется требуемая база данных и, конечно, установленная ADO. В Палитре компонентов Delphi есть страница ADO, содержащая набор компонентов, позволяющих создавать полноценные приложения БД, обращающиеся к данным через ADO.

Объект-команда инкапсулирует саму текстовую команду и механизм обработки и передачи команды. Объект команды выполняет следующие операции:

1. разбор текста команды;

2. связывание команды с источником данных;

3. оптимизацию команды;

4. передачу команды источнику данных.

Список установленных провайдеров доступен для выбора при установке соединения через компонент TADOConnection.

Каждый компонент, обращающийся к хранилищу данных ADO самостоятельно, задавая параметры соединения в свойстве connectionstring, открывает собственное соединение. Чем больше приложение содержит компонентов ADO, тем больше соединений может быть открыто одновременно. Поэтому целесообразно реализовать механизм соединения ADO через специальный компонент - TADOconnection. Этот компонент открывает соединение, также заданное свойством Connectionstring и предоставляет разработчику дополнительные средства управления соединением.

Компонент TADOconnection предназначен для управления соединением с объектами хранилища данных ADO. Он обеспечивает доступ к хранилищу данных компонентам ADO, инкапсулирующим набор данных. Применение этого компонента дает разработчику ряд преимуществ:

1. все компоненты доступа к данным ADO обращаются к хранилищу данных через одно соединение;

2. возможность напрямую задать объект провайдера соединения;

3. доступ к объекту соединения ADO;

4. возможность выполнять команды ADO;

5. выполнение транзакций;

6. расширенное управление соединением при помощи методов-обработчиков событий.

Этапы создания связи базы данных с Delphi:

1. Настройка соединения с сервером

a) С помощью команды File>New>DataModule создается модуль;

b) На созданный модуль необходимо поместить компонент - ADOConnection (рисунок 11) с закладки ADO палитры компонентов;

c) Дважды щёлкнув по свойству ConnectionString компонента ADOConnection и в открывшемся окне необходимо выбрать Использовать строку подключения (Use Сonnection String) и щелкните кнопку Build;

d) В появившемся окне на закладке Provider выберать драйвер "Microsoft Jet 4.0 OLE DB Provide;

e) После этого нажать кнопку Далее. На закладке Подключение ввести имя (если надо то и путь) базы данных в строку "Select or enter a database name". Если база данных будет располагаться в той же директории, что и запускной файл, то путь указывать не надо;

f) Помимо этого надо заполнить следующие поля:

- Имя пользователя (User name), можно оставить по умолчанию, если не заданно иное при создании базы в MS Access;

- Пароль (Password) - если база имеет пароль, то его необходимо указать;

- Пустой пароль (Blank password) - если пароль не нужен, то здесь желательно поставить галочку;

- Позволять сохранять пароль (Allow saving password). Если здесь поставить галочку, то пароль может быть сохранён.

g) После всего этого нажать на кнопку "Проверить соединение", и затем "ОК";

h) Свойство LoginPrompt (True, False) - отключение или включение пароля базы данных - установить в False;

i) Свойство Connected(True, False) соединение с базой данных - установить в True.

2. Получение доступ к созданной таблице в MS Access

a) Поместить на модуль DataModulе 1 компонент ADOTable с закладки ADO палитры компонентов;

b) Установить у этого компонента свойство Connection в ADOConnection1;

c) В свойстве TableName выбрать таблицу "Главная таблица";

d) Свойство Active(True, False) установить в True.



Рисунок 11. Главная форма проекта во время разработки

3. Отображение данных из таблицы

Для отображения данных из таблицы необходим компонент DataSource с закладки Data Access палитры компонентов.

a) Установить у этого компонента свойство DataSet равным ADOTable.

4. Отображение данных таблицы на форме

Поместить на форму компонент DBGrid. Это компонент-сетка, которая может отображать данные в виде таблицы. Связывание компонента сетки с компонентом отображения таблицы: для этого в свойстве DataSuorce компонента DBGrid нужно указать DataModule1.DataSource1.

Результатом проделанных шагов описанных выше, является форма, например "Предмет", а также и другие страницы соответствующие названия кнопок в меню (рисунки 12).



Рисунок 12. Форма для просмотра данных (Предмет)

Также для создания запросов на форму были помещен компонент ADOQuery (в данном программном продукте число компонентов ADOQuery соответствует числу таблиц в базе данных).

Рисунок 13. Форма для добавления данных

В проекте предусмотрены такие функции, как редактирование данных. Для этого на страницах имеются дополнительные кнопки:

1. Кнопка "Добавить" предназначена для добавления новых записей в таблицу;

2. Кнопка "Очисть" для удаления ненужных строк таблицы или записей;

3. Кнопка "Поиск" предусмотрена для поиска по необходимым параметрам записи.

Загрузка нового файлы осуществляется при нажатии на кнопку Файлы с помощью компонента OpenDialog.

На рисунке 14 представлен фильтр для компонента OpenDialog.

Рисунок 14. Фильтр для компонента Open Dialog

Как видно из рисунка, приложение может открывать файлы с разными расширениями.

Код на кнопку Добавить:

procedure TfMain.Files_sbAddClick(Sender: TObject);

label l1;

var

id_cbFakultet:integer;

id_cbKafedra:integer;

id_cbTeacher:integer;

id_cbPredmet:integer;

id_cbTypeFile:integer;

id_cbProfession:integer;

id_cbFormaObucheniya:integer;

id_cbKurs:integer;

id_cbFile:integer;

FileName:Longword;

begin

// Проверка

if (SetSQL(qMain,'SELECT Fakultet.[_id] FROM Fakultet WHERE (((Fakultet.[_name])="'+Files_cbFakultet.Text+'"));')) and not(qMain.Eof) then

id_cbFakultet:=qMain.fieldByName('_id').AsInteger else begin

Files_cbFakultet.Clear;

Information(Files_cbFakultet, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните факультет'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbFakultet.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT Kafedra.[_id] FROM Kafedra WHERE (((Kafedra.[_name])="'+Files_cbKafedra.Text+'"));')) and not(qMain.Eof) then

id_cbKafedra:=qMain.fieldByName('_id').AsInteger else begin

Files_cbKafedra.Clear;

Information(Files_cbKafedra, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните кафедру'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbKafedra.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT Teacher.[_id] FROM Teacher WHERE (((Teacher.[_name])="'+Files_cbTeacher.Text+'"));')) and not(qMain.Eof) then

id_cbTeacher:=qMain.fieldByName('_id').AsInteger else begin

Files_cbTeacher.Clear;

Information(Files_cbTeacher, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните преподователя'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbTeacher.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT Predmet.[_id] FROM Predmet WHERE (((Predmet.[_name])="'+Files_cbPredmet.Text+'"));')) and not(qMain.Eof) then

id_cbPredmet:=qMain.fieldByName('_id').AsInteger else begin

Files_cbPredmet.Clear;

Information(Files_cbPredmet, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните предмет'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbPredmet.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT TypeFile.[_id] FROM TypeFile WHERE (((TypeFile.[_name])="'+Files_cbTypeFile.Text+'"));')) and not(qMain.Eof) then

id_cbTypeFile:=qMain.fieldByName('_id').AsInteger else begin

Files_cbTypeFile.Clear;

Information(Files_cbTypeFile, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните тип файла'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbTypeFile.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT Profession.[_id] FROM Profession WHERE (((Profession.[_name])="'+Files_cbProfession.Text+'"));')) and not(qMain.Eof) then

id_cbProfession:=qMain.fieldByName('_id').AsInteger else begin

Files_cbProfession.Clear;

Information(Files_cbProfession, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните специальность'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbProfession.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT FormaObucheniya.[_id] FROM FormaObucheniya WHERE (((FormaObucheniya.[_name])="'+Files_cbFormaObucheniya.Text+'"));')) and not(qMain.Eof) then

id_cbFormaObucheniya:=qMain.fieldByName('_id').AsInteger else begin

Files_cbFormaObucheniya.Clear;

Information(Files_cbFormaObucheniya, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните форму обучения'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbFormaObucheniya.SetFocus;

exit;

end;

if (SetSQL(qMain,'SELECT Kurs.[_id] FROM Kurs WHERE (((Kurs.[_name])="'+Files_cbKurs.Text+'"));')) and not(qMain.Eof) then

id_cbKurs:=qMain.fieldByName('_id').AsInteger else begin

Files_cbKurs.Clear;

Information(Files_cbKurs, 'Files_cb');

MessageBox(fMain.Handle, pchar('Заполните курс'), pchar('Ошибка введенных данных'), MB_OK or MB_ICONERROR);

Files_cbKurs.SetFocus;

exit;

end;

// Загружаем файл

if (FileExists(Files_mFileName.Text)) and (SetSQL(qMain, 'SELECT Files.* FROM Files WHERE (((Files.[_id])=-1));')) and (qMain.Eof) then begin

FileName:=0;

while FileExists(ExtractFileDir(Application.ExeName)+'\Source\'+IntToStr(FileName)) do inc(FileName)

if not(FileExists(ExtractFileDir(Application.ExeName)+'\Source\'+IntToStr(FileName))) then pDataBase.CopyFile(Files_mFileName.Text, ExtractFileDir(Application.ExeName)+'\Source\'+IntToStr(FileName));

qMain.Edit;

qMain.FieldByName('_FileName').AsString:=ExtractFileName(Files_mFileName.Text);

qMain.FieldByName('_Type').AsInteger:=id_cbTypeFile;

qMain.FieldByName('_Source').AsString:=inttostr(FileName);

qMain.Post;

id_cbFile:=qMain.FieldByName('_id').AsInteger;

end else begin

MessageBox(fMain.Handle, pchar('Файл не найден.'+#13+'Укажите путь к файлу и попробуйте операцию снова.'), pchar('Ошибка загрузки файла'), MB_OK or MB_ICONERROR);

exit;

end;

// Все хорошо начинаем заполнять даные

if (SetSQL(qMain, 'SELECT Main.* FROM Main WHERE (((Main.[_Id])=-1));')) and (qMain.Eof) then begin

qMain.Edit;

qMain.FieldByName('_Fakultet').AsInteger :=id_cbFakultet;

qMain.FieldByName('_Kafedra').AsInteger :=id_cbKafedra;

qMain.FieldByName('_Teacher').AsInteger :=id_cbTeacher;

qMain.FieldByName('_Predmet').AsInteger :=id_cbPredmet;

qMain.FieldByName('_Kurs').AsInteger :=id_cbKurs;

qMain.FieldByName('_FormaObuchebiya').AsInteger :=id_cbFormaObucheniya;

qMain.FieldByName('_Profession').AsInteger :=id_cbProfession;

qMain.FieldByName('_File').AsInteger :=id_cbFile;

qMain.Post;

sbFilesClick(sbFiles);

end;

end;

Код на кнопку Очистить на вкладке Файлы:

begin

Files_cbFakultet.Clear;

Files_cbKafedra.Clear;

Files_cbTeacher.Clear;

Files_cbPredmet.Clear;

Files_cbKurs.Clear;

Files_cbFormaObucheniya.Clear;

Files_cbProfession.Clear;

Files_cbTypeFile.Clear;

Files_mFileName.Clear;

Information(Files_cbFakultet, 'Files_cb');

Information(Files_cbKafedra, 'Files_cb');

Information(Files_cbTeacher, 'Files_cb');

Information(Files_cbPredmet, 'Files_cb');

Information(Files_cbTypeFile, 'Files_cb');

Information(Files_cbProfession, 'Files_cb');

Information(Files_cbFormaObucheniya, 'Files_cb');

Information(Files_cbKurs, 'Files_cb');

end;

При поиске данных используется функция Lookup, которая возвращает значение полей найденной записи. Данная функция использует несколько параметров.

В качестве первого параметра KeyFields в метод передается строка, содержащая список ключевых полей, по которым осуществляется поиск. В качестве второго параметра передается KeyValues - массив ключевых значений. Ищется запись, в которой значения полей KeyFields совпадают с заданными в KeyValues . Третий параметр ResultFields - строка, перечисляющая имена полей, значения которых возвращаются. Имена полей в ResultFields разделяются точками с запятой. Метод возвращает значение или значения полей, перечисленных в ResultFields, в виде значения Variant или массива Variant .

Код на кнопку Очистить:

begin

Main_cbFakultet.Clear;

Main_cbKafedra.Clear;

Main_cbTeacher.Clear;

Main_cbPredmet.Clear;

Main_cbKurs.Clear;

Main_cbFormaObucheniya.Clear;

Main_cbProfession.Clear;

Information(Main_cbFakultet, 'Main_cb');

Information(Main_cbKafedra, 'Main_cb');

Information(Main_cbTeacher, 'Main_cb');

Information(Main_cbPredmet, 'Main_cb');

Information(Main_cbProfession, 'Main_cb');

Information(Main_cbFormaObucheniya, 'Main_cb');

Information(Main_cbKurs, 'Main_cb');

end;

Рисунок 15. Поиск необходимого документа

Для того чтобы найти интересующий текстовый документ, необходимо заполнить все поля и нажать кнопку Поиск. Далее в нижней части формы появится иерархическое дерево, в последнем элементе которого будет находиться искомый документ.

Код программы на кнопку Поиск:

var

SQL:string;

WHERE:string;

Rec:TRecord;

Add:TAdd;

begin

WHERE:=' WHERE (Main.[_id]>0) ';

if (Main_cbFakultet.Text<>'')then WHERE:=WHERE+'AND (Fakultet.[_name] like "%'+Main_cbFakultet.Text+'%") '+#32;

if (Main_cbKafedra.Text<>'')then WHERE:=WHERE+'AND (Kafedra.[_name] like "%'+Main_cbKafedra.Text+'%") '+#32;

if (Main_cbTeacher.Text<>'')then WHERE:=WHERE+'AND (Teacher.[_name] like "%'+Main_cbTeacher.Text+'%") '+#32;

if (Main_cbPredmet.Text<>'')then WHERE:=WHERE+'AND (Predmet.[_name] like "%'+Main_cbPredmet.Text+'%") '+#32;

if (Main_cbKurs.Text<>'')then WHERE:=WHERE+'AND (Kurs.[_name] like "%'+Main_cbKurs.Text+'%") '+#32;

if (Main_cbProfession.Text<>'')then WHERE:=WHERE+'AND (Profession.[_name] like "%'+Main_cbProfession.Text+'%") '+#32;

if(Main_cbFormaObucheniya.Text<>'')then WHERE:=WHERE+'AND (FormaObucheniya.[_name] like "%'+Main_cbFormaObucheniya.Text+'") '+#32;

SQL:='SELECT Fakultet.[_name] as _Fakultet, Kafedra.[_name] as _Kafedra, Teacher.[_name] as _Teacher, Predmet.[_name] as _Predmet, Kurs.[_name] as _Kurs, '+

'FormaObucheniya.[_name] as _FormaObucheniya, Profession.[_name] as _Profession, TypeFile.[_name] as _TypeFile, Files.[_FileName] as _FileName, Files.[_Source] as _Source'+#32;

SQL:=SQL+'FROM ((((((((Main INNER JOIN Fakultet ON Main.[_Fakultet] = Fakultet.[_id]) INNER JOIN Kafedra ON Main.[_Kafedra] = Kafedra.[_id]) INNER JOIN Teacher ON Main.[_Teacher] = Teacher.[_id]) '+

'INNER JOIN Predmet ON Main.[_Predmet] = Predmet.[_id]) INNER JOIN Kurs ON Main.[_Kurs] = Kurs.[_id]) INNER JOIN FormaObucheniya ON Main.[_FormaObuchebiya] = FormaObucheniya.[_id]) '+

'INNER JOIN Profession ON Main.[_Profession] = Profession.[_id]) INNER JOIN Files ON Main.[_File] = Files.[_id]) INNER JOIN TypeFile ON Files.[_Type] = TypeFile.[_id]'+#32;

SQL:=SQL+WHERE;

SQL:=SQL+'ORDER BY Main.[_Fakultet], Main.[_Kafedra], Main.[_FormaObuchebiya], Main.[_Kurs], Main.[_Profession], Main.[_Teacher], Main.[_Predmet], Files.[_Type];';

Main_tvList.Items.Clear;

Rec.Fakultet:='';Rec.Kafedra:='';Rec.Teacher:='';Rec.Predmet:='';Rec.Kurs:='';Rec.Profession:='';Rec.FormaObucheniya:='';Rec.TypeFile:='';

if (SetSQL(qMain, SQL)) then while not(qMain.Eof) do begin

if (Rec.Fakultet<>qMain.FieldByName('_Fakultet').AsString) then begin

Add.Fakultet_1:=Main_tvList.Items.AddFirst(nil, 'Факультет:: '+qMain.FieldByName('_Fakultet').AsString);

Rec.Kafedra:='';Rec.Teacher:='';Rec.Predmet:='';Rec.Kurs:='';Rec.Profession:='';Rec.FormaObucheniya:='';Rec.TypeFile:='';

end;

if (Rec.Kafedra<>qMain.FieldByName('_Kafedra').AsString) then begin

Add.Kafedra_2:=Main_tvList.Items.AddChild(Add.Fakultet_1, 'Кафедра:: '+qMain.FieldByName('_Kafedra').AsString);

Rec.Teacher:='';Rec.Predmet:='';Rec.Kurs:='';Rec.Profession:='';Rec.FormaObucheniya:='';Rec.TypeFile:='';

end;

if (Rec.FormaObucheniya<>qMain.FieldByName('_FormaObucheniya').AsString) then begin

Add.FormaObucheniya_3:=Main_tvList.Items.AddChild(Add.Kafedra_2, 'Форма обучения:: '+qMain.FieldByName('_FormaObucheniya').AsString);

Rec.Teacher:='';Rec.Predmet:='';Rec.Kurs:='';Rec.Profession:='';Rec.TypeFile:='';

end;

if (Rec.Kurs<>qMain.FieldByName('_Kurs').AsString) then begin

Add.Kurs_4:=Main_tvList.Items.AddChild(Add.FormaObucheniya_3, 'Курс:: '+qMain.FieldByName('_Kurs').AsString);

Rec.Teacher:='';Rec.Predmet:='';Rec.Profession:='';Rec.TypeFile:='';

end;

if (Rec.Profession<>qMain.FieldByName('_Profession').AsString) then begin

Add.Profession_5:=Main_tvList.Items.AddChild(Add.Kurs_4, 'Специальность:: '+qMain.FieldByName('_Profession').AsString);

Rec.Teacher:='';Rec.Predmet:='';Rec.TypeFile:='';

end;

if (Rec.Teacher<>qMain.FieldByName('_Teacher').AsString) then begin

Add.Teacher_6:=Main_tvList.Items.AddChild(Add.Profession_5, 'Преподователь:: '+qMain.FieldByName('_Teacher').AsString);

Rec.Predmet:='';Rec.TypeFile:='';

end;

if (Rec.Predmet<>qMain.FieldByName('_Predmet').AsString) then begin

Add.Predmet_7:=Main_tvList.Items.AddChild(Add.Teacher_6, 'Предмет:: '+qMain.FieldByName('_Predmet').AsString);

Rec.TypeFile:='';

end;

if (Rec.TypeFile<>qMain.FieldByName('_TypeFile').AsString) then begin

Add.TypeFile_8:=Main_tvList.Items.AddChild(Add.Predmet_7, 'Тип файла:: '+qMain.FieldByName('_TypeFile').AsString);

end;

Main_tvList.Items.AddChild(Main_tvList.Items.AddChild(Add.TypeFile_8, qMain.FieldByName('_FileName').AsString), qMain.FieldByName('_Source').AsString);

Rec.Fakultet:=qMain.FieldByName('_Fakultet').AsString;

Rec.Kafedra:=qMain.FieldByName('_Kafedra').AsString;

Rec.Teacher:=qMain.FieldByName('_Teacher').AsString;

Rec.Predmet:=qMain.FieldByName('_Predmet').AsString;

Rec.Kurs:=qMain.FieldByName('_Kurs').AsString;

Rec.Profession:=qMain.FieldByName('_Profession').AsString;

Rec.FormaObucheniya:=qMain.FieldByName('_FormaObucheniya').AsString;

Rec.TypeFile:=qMain.FieldByName('_TypeFile').AsString;

qMain.Next;

end;

3. Охрана труда

Охрана труда - это система законодательных актов, социально-экономических, организационных, технических, гигиенических и лечебно-профилактических мероприятий и средств, обеспечивающих безопасность, сохранение здоровья и работоспособности человека в процессе труда.

Полностью безопасных и безвредных производственных процессов не существует. Задача охраны труда - свести к минимальной вероятности поражения или заболевания работающего с одновременным обеспечением комфорта при максимальной производительности труда.

Выделяются 7 условий для того, чтобы деятельность на рабочем месте, оснащенном дисплеем, осуществлялась без жалоб и без усталости.[12]

Правильная установка рабочего стола:

1. при фиксированной высоте - лучшая высота - 72 см;

2. должен обеспечиваться необходимый простор для рук по высоте, ширине и глубине;

3. в области сиденья не должно быть ящиков стола.

Правильная установка рабочего стула:

1. высота должна регулироваться;

2. конструкция должна быть вращающейся;

3. правильная высота сиденья: площадь сиденья на 3 см ниже, чем подколенная впадина.

Правильная установка приборов: необходимо так установить яркость знаков и яркость фона дисплея, чтобы не существовало слишком большого различия по сравнению с яркостью окружающей обстановки, но чтобы знаки четко узнавались на расстоянии чтения. Не допускать:[12]

1. слишком большую яркость (вызывает мерцание);

2. слишком слабую яркость (сильная нагрузка на глаза);

3. слишком черную фоновую яркость дисплея (сильная нагрузка на глаза).

Правильное выполнение работ:

1. положение туловища прямое, ненапряженное;

2. положение головы прямое, свободное, удобное;

3. положение рук: согнуты чуть больше, чем под прямым углом;

4. положение ног: согнуты чуть больше, чем под прямым углом;

5. правильное расстояние для зрения, клавиатура и дисплей - примерно на одинаковом расстоянии для зрения: при постоянных работах - около 50 см, при случайных работах - до 70 см.

Правильное освещение:

1. освещение по возможности со стороны, слева;

2. по возможности - равномерное освещение всего рабочего пространства;

3. приборы по возможности устанавливать в местах, удаленных от окон;

4. выбирать непрямое освещение помещения или укрывать корпуса светильников;

5. поступающий через окна свет смягчать с помощью штор;

6. так организовать рабочее место, чтобы направление взгляда шло по возможности параллельно фронту окон.

Правильное применение вспомогательных средств: подлокотники использовать, если клавиатура выше 1.5 см; подставку для документов и опору для ног.

Правильный метод работы:

1. предусматривать по возможности перемену задач и нагрузок;

2. соблюдать перерывы в работе: 5 минут через 1 час работы на дисплее или 10 минут после 2-х часов работы на дисплее.

В создании благоприятных условий для повышения производительности и уменьшения напряжения значительную роль играют факторы, характеризующие состояние окружающей среды: микроклимат помещения, уровень шума и освещение.

Рекомендуемая величина относительной влажности - 65-70%. Рабочее место должно хорошо вентилироваться. В настоящее время с точки зрения шумовой нагрузки достигнут значительный прогресс. Уровень шума в зале (примерно 40 дб) не превышает уровень шума в КБ, независимо от количества используемой аппаратуры. По последним исследованиям - работа за видеотерминалом не представляет опасности с точки зрения рентгеновского излучения.

Высота рабочей поверхности рекомендуется в пределах 680-760 мм. Высота рабочей поверхности, на которую устанавливается клавиатура, должна быть 650 мм.

Большое значение придается характеристикам рабочего кресла. Так, рекомендуется высота сиденья над уровнем пола должна быть в пределах 420-550 мм. Поверхность сиденья рекомендуется делать мягкой, передний край закругленным, а угол наклона спинки рабочего кресла - регулируемым.

Необходимо предусматривать при проектировании возможность различного размещения документов: сбоку от видеотерминала, между монитором и клавиатурой и т.п. Кроме того, в случаях, когда видеотерминал имеет низкое качество изображения, например заметны мелькания, расстояние от глаз до экрана делают больше (около 700 мм), чем расстояние от глаза до документа (300-450 мм). Вообще при высоком качестве изображения на видеотерминале расстояние от глаз пользователя до экрана, документа и клавиатуры может быть равным.[13]

Положение экрана определяется:

1. расстоянием считывания (0.60 + 0.10 м);

2. углом считывания, направлением взгляда на 20 см ниже горизонтали к центру экрана, причем экран перпендикулярен этому направлению.

Должна предусматриваться возможность регулирования экрана:

1. по высоте + 3 см;

2. по наклону от 10 до 20 относительно вертикали;

3. в левом и правом направлениях.

Зрительный комфорт подчиняется двум основным требованиям:

1. четкости на экране, клавиатуре и в документах;

2. освещенности и равномерности яркости между окружающими условиями и различными участками рабочего места.

Большое значение также придается правильной рабочей позе пользователя. При неудобной рабочей позе могут появиться боли в мышцах, суставах и сухожилиях. Требования к рабочей позе пользователя видеотерминала следующие: шея не должна быть наклонена более чем на 20 (между осью "голова-шея" и осью туловища), плечи должны быть расслаблены, локти - находиться под углом 80 - 100, а предплечья и кисти рук - в горизонтальном положении.

Причина неправильной позы пользователей обусловлена следующими факторами: нет хорошей подставки для документов, клавиатура находится слишком высоко, а документы - слишком низко, некуда положить руки и кисти, недостаточно пространство для ног. В целях преодоления указанных недостатков даются общие рекомендации: лучше передвижная клавиатура, чем встроенная; должны быть предусмотрены специальные приспособления для регулирования высоты стола, клавиатуры, документов и экрана, а также подставка для рук.

Характеристики используемого рабочего места:[13]

1. высота рабочей поверхности стола 750 мм;

2. высота пространства для ног 650 мм;

3. высота сиденья над уровнем пола 450 мм;

4. поверхность сиденья мягкая с закругленным передним краем;

5. предусмотрена возможность размещения документов справа и слева;

6. расстояние от глаза до экрана 700 мм;

7. расстояние от глаза до клавиатуры 400 мм;

8. расстояние от глаза до документов 500 мм;

9. возможно регулирование экрана по высоте, по наклону, в левом и в правом направлениях.

Согласно ГОСТ 12.2.032-78 конструкция рабочего места и взаимное расположение всех его элементов должно соответствовать антропометрическим, физическим и психологическим требованиям. Большое значение имеет также характер работы. В частности, при организации рабочего места программиста должны быть соблюдены следующие основные условия:

1. оптимальное размещение оборудования, входящего в состав рабочего места;

2. достаточное рабочее пространство, позволяющее осуществлять все необходимые движения и перемещения;

3. необходимо естественное и искусственное освещение для выполнения поставленных задач;

4. уровень акустического шума не должен превышать допустимого значения.

Главными элементами рабочего места программиста являются письменный стол и кресло. Основным рабочим положением является положение сидя. Рабочее место для выполнения работ в положении сидя организуется в соответствии с ГОСТ 12.2.032-78.

Рабочая поза сидя вызывает минимальное утомление программиста. Рациональная планировка рабочего места предусматривает четкий порядок и постоянство размещения предметов, средств труда и документации. То, что требуется для выполнения работ чаще, расположено в зоне легкой досягаемости рабочего пространства.

Моторное поле - пространство рабочего места, в котором могут осуществляться двигательные действия человека.

Максимальная зона досягаемости рук - это часть моторного поля рабочего места, ограниченного дугами, описываемыми максимально вытянутыми руками при движении их в плечевом суставе.

Оптимальная зона - часть моторного поля рабочего места, ограниченного дугами, описываемыми предплечьями при движении в локтевых суставах с опорой в точке локтя и с относительно неподвижным плечом.

Рисунок 16. Зоны досягаемости рук в горизонтальной плоскости: а - зона максимальной досягаемости; б - зона досягаемости пальцев при вытянутой руке; в - зона легкой досягаемости ладони; г - оптимальное пространство для грубой ручной работы; д - оптимальное пространство для тонкой ручной работы.

На рисунке 16 изображено оптимальное размещение предметов труда и документации в зонах досягаемости рук:

Дисплеи размещается в зоне а (в центре);

Клавиатура - в зоне г/д;

Системный блок размещается в зоне б (слева);

Принтер находится в зоне а (справа);

Документация:

1. в зоне легкой досягаемости ладони - в (слева) - литература и документация, необходимая при работе;

2. в выдвижных ящиках стола - литература, неиспользуемая постоянно.

При проектировании письменного стола следует учитывать следующее:

1. высота стола должна быть выбрана с учетом возможности сидеть свободно, в удобной позе, при необходимости опираясь на подлокотники;

2. нижняя часть стола должна быть сконструирована так, чтобы программист мог удобно сидеть, не был вынужден поджимать ноги;

3. поверхность стола должна обладать свойствами, исключающими появление бликов в поле зрения программиста;

4. конструкция стола должна предусматривать наличие выдвижных ящиков (не менее 3 для хранения документации, листингов, канцелярских принадлежностей, личных вещей).

Параметры рабочего места выбираются в соответствии с антропометрическими характеристиками. При использовании этих данных в расчетах следует исходить из максимальных антропометрических характеристик (М+2).

При работе в положении сидя рекомендуются следующие параметры рабочего пространства:

1. ширина не менее 700 мм;

2. глубина не менее 400 мм;

3. высота рабочей поверхности стола над полом 700-750 мм.

Оптимальными размерами стола являются:

1. высота 710 мм;

2. длина стола 1300 мм;

3. ширина стола 650 мм.

Поверхность для письма должна иметь не менее 40 мм в глубину и не менее 600 мм в ширину.

Под рабочей поверхностью должно быть предусмотрено пространство для ног:

1. высота не менее 600 мм;

2. ширина не менее 500 мм;

3. глубина не менее 400 мм.

Важным элементом рабочего места программиста является кресло. Оно выполняется в соответствии с ГОСТ 21.889-76. При проектировании кресла исходят из того, что при любом рабочем положении программиста его поза должна быть физиологически правильно обоснованной, т.е. положение частей тела должно быть оптимальным. Для удовлетворения требований физиологии, вытекающих из анализа положения тела человека, в положении сидя, конструкция рабочего сидения должна удовлетворять следующим основным требованиям:

1. допускать возможность изменения положения тела, т.е. обеспечивать свободное перемещение корпуса и конечностей тела друг относительно друга;

2. допускать регулирование высоты в зависимости от роста работающего человека (в пределах от 400 до 550 мм);

3. иметь слегка вогнутую поверхность,

4. иметь небольшой наклон назад.

Исходя из вышесказанного, приведем параметры стола программиста:

1. высота стола 710 мм;

2. длина стола 1300 мм;

3. ширина стола 650 мм;

4. глубина стола 400 мм.

Поверхность для письма:

1. в глубину 40 мм;

2. в ширину 600 мм.

Важным моментом является также рациональное размещение на рабочем месте документации, канцелярских принадлежностей, что должно обеспечить работающему удобную рабочую позу, наиболее экономичные движения и минимальные траектории перемещения работающего и предмета труда на данном рабочем месте.

Создание благоприятных условий труда и правильное эстетическое оформление рабочих мест на производстве имеет большое значение, как для облегчения труда, так и для повышения его привлекательности, положительно влияющей на производительность труда. Окраска помещений и мебели должна способствовать созданию благоприятных условий для зрительного восприятия, хорошего настроения. В служебных помещениях, в которых выполняется однообразная умственная работа, требующая значительного нервного напряжения и большого сосредоточения, окраска должна быть спокойных тонов - малонасыщенные.

Выводы:

Программный продукт электронный справочник "УМКД кафедры" будет использоваться на кафедрах, поэтому необходимо соблюдать технику безопасности при работе. Оконные проемы в помещении оборудованы занавесками для исключения попадания прямых солнечных лучей и регулирования освещения рабочего места, что соответствует нормам по охране труда. Рабочее место представляет собой. рабочий стол с персональным компьютером (ПК). Рабочая поверхность стола имеет следующие параметры:

1. высота - 83 см;

2. размер крышки стола 60 см на 85 см.

3. рабочее место имеет достаточно пространство для ног. Имеется возможность вытянуть ноги в удобное положение, что соответствует нормам по охране труда.

Клавиатура располагается на столе возле монитора. От края обращенного к пользователю 15 см. экран от глаз находится на расстоянии 45 см. поверхность стула полумягкая, с нескользящим, неэлектризующимся покрытием, очистку от загрязнений возможно с применением усилий.

Параметры стула:

1. ширина сиденья 40 см,

2. высота сиденья над уровнем пола - 50 см,

3. глубина - 35 см.

Приведенные выше параметры стула соответствуют нормам по охране труда.

В помещении 1 раз в день проводится влажная уборка, что также соответствует нормам по охране труда.

Заключение

Главным результатом дипломного проекта является создание функционирующего приложения, которое выполняет определенный круг задач, работников учебного учреждения по ведению дел, связанных с хранением УМКД.

Электронный справочник разрабатывался в среде программирования Delphi 7, так как Delphi - это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi - строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal [11].

Использование интегрированной программной среды Delphi позволяет формировать программу, используя стандартные объекты и целые заготовки фрагментов программы, предоставляемые Delphi. Полученные результаты сразу отображаются на экран монитора. Все это позволило существенно сократить время написания и отладки программного обеспечения.

В соответствии с поставленными задачами, разработано функциональное программное обеспечение, включая базу данных, как вспомогательный элемент по хранению информации.

Решаемые задачи

1) обеспечение свободного доступа пользователей к распределенному документальному фонду

2) предоставления на его основе широкого комплекса информационных услуг

3) повышения оперативности и качества предоставления информации

4) реализации принципа всеобщей доступности информации независимо от ее местонахождения (в соответствии с критериями безопасности)

5) формирования базы данных путем сбора, автоматизированной обработки и хранения информации

6) организационно-технологического обеспечения поиска, анализа и обработки информации.

Основными достоинствами данного программного продукта являются:

1. уникальность;

2. инвариантность, т.е. возможность использования для различных кафедр;

3. простота в использовании;

4. удобный и понятный интерфейс;

5. возможность редактирования (добавление).

Дальнейшее усовершенствование программного продукта возможно, при этом можно добавить такие функции, как печать необходимого документа, а также можно предусмотреть сетевую версию данного программного продукта.

Список использованных источников

1. www.ioso.iip.net.

2. www.education.recom.ru научный, информационно-аналитичнский журнал

3. www.vbmaster.fhost.ru - сайт посвященный программированию.

4. www.textbook.vadimstepanov.ru/chapter2/glava2-2.html

5. www.ido.rudn.ru институт международных программ РУДН

6. П.В. Шумаков "Delphi 4 руководство разработчика баз данных",Москва, издательство "Нолидж",1999г.

7. Михаль Эбнер "Delphi 5, руководство разработчика",BHV, "Ирина", Киев, 2000г.

8. Петр Дарахвелидзе, Евгений Марков "Программирование в Delphi 7" С-П, БХВ-Петербург 2006г.

9. Архангельский "Delphi", Москва, 2006г.

10. Павловская Т.А. C/C++. Программирование на языке высокого уровня. - "Питер", 2005 г.

11. Майкл Штепнер, Теория построения баз данных. "Ирина", Киев 2000. - 545.

12. ГОСТ 12.2.032-78. ССБТ. Рабочее место при выполнении работ сидя. Общие эргономические требования.

13. ГОСТ 22269-76. Система "человек-машина". Рабочее место оператора. Взаимное расположение элементов рабочего места. Общие эргономические требования.

14. ГОСТ 25861-83. Машины вычислительные и системы обработки данных. Требования электрической и механической безопасности и методы испытаний.

15. Зеленоградский А.Я. Базы данных. Справочное пособие. "Издательство Бином", 2001.

16. А.Я. Архангельский Приемы программирования в Delphi.-М.:ЗАО "Издательство БИНОМ", 2003г.

17. В.В. Фаронов. Система программирования Delphi. - СПб.: БХВ-Петербург, 2003.

18. Сапронов В.В., Тихий П.В. Руководство по языкам программирования.-- М. Нолидж, 2000.

19. Хеслоп Б., Бадник Л. Delphi с самого начала. Санкт-Петербург: Питер, 1997г.

20. Баженова И.Ю. Язык программирования Delphi - М.: Диалог-МИФИ, 1997.

21. Фленов М. Библия программиста в среде Delphi. vr_online@cydsoft.com

22. Ремизов Н. Справочник Delphi - М.: Питер, 2000.

23. Гаевский А. Разработка программных приложений на Delphi 6 - М.: Киев, 2000.

24. Змитрович А.И. Базы данных. Учебное пособие для вузов. - Мн. - Университетское, 1991.

25. Сорокин А.В. Delphi. Разработка баз данных. - СПб.:Питербург,2005 - 477с.

26. Бекаревич Ю., Пушкина Н. Самоучитель Microsoft Access 2000. СПб.:БХВ -Санкт - Петербург, 1999

27. Михеева В., Харитонова И. Microsoft Access 2000. СПб.: БХВ -Санкт - Петербург, 2000

28. Web - сайт "Виртуальный клуб программистов "королевство Delphi" (http://delphi.vitpc.com) Статьи по программированию в Delphi. Форумы и конференции.

29. Норенков Ю.И., Михайловский О.В. Адаптивная автоматизированная обучающая система.//Конференция по искусственному интеллекту КИИ -94.Сб-к трудов. Тверь, 1994.

30. www.websib.ru портал среднего образования

31. www.leso.sibsutis.ru лаборатория электронных средств обучения СибГУТИ

Приложение А. Инструкция для пользователей

- База данных должна находиться, в том же каталоге что и exe-файл.

- Ресурсы (то есть файлы, а именно *.doc, *.txt, *.html) должны находиться в папке "Source", которая находится в том же каталоге, что и exe-файл, Папка создается автоматически если не будет найдена.

- Для нормальной работы программы на ПК драйвер "Microsoft.Jet.OLEDB.4.0" не обязательно, но желательно "Microsoft Office Access", "Microsoft Office Word".

- Пароль на базу не стоит

- Все компоненты, которые здесь использованы, являются стандартными, поэтому в Delphi7 данный проект можно свободно редактировать. (Delphi7 находится в папке "\Temp\Install\ Borland Delphi 7.rar")

- Полный проект находится в архиве "\Temp\Source\mdb.rar"

- Для запуска необходимо два раза щелкнуть на названии файла (если нажать крестик то получишь номер файла, под которым он лежит в папке "Source", перед запуском файл копируется в папку "Out" она является скрытой и системной, создается автоматически, а после завершении работы программы все данные, с нее включая саму папку, будут удалены).



- Для загрузки файлов существует два способа. Первый - необходимо войти в поле "Файл…" и нажать "Enter", если в поле есть данные они будут проверены если же нет, то откроется окно для указания необходимого файла. Второй - нажать на кнопку "Файл…", после чего появится окно, в котором необходимо выбрать файл. После нажатия кнопки "Добавить" файл копируется в папку "Source" и переименуется.



- В полях "Факультет", "Кафедра", "Преподаватель", "Предмет", "Специальность", "Курс", "Форма обучения", "Тип файлов" используется Grid-а, и к ней приводится определенные правила использования, если необходимо добавить поле, необходимо выйти в самую нижнюю строчку и нажать вниз появится пустое поле, после ввода УНИКАЛЬНОГО текста для уверенности занесения данных лучше всего сдвинуть ползунок вверх или вниз (нажав на клавиатуре соответствующие стрелочки), если не захочешь добавлять поле достаточно нажать "Esc" и строчка исчезнет. Для удаления строки, необходимо выделить нужную строку и нажать "CTRL"+"DELETE" после чего будет стандартный запрос - "Вы уверены?".

Размещено на Allbest.ru