Разработка БД средствами СУБД выглядит следующим образом:

Рисунок 7 - Структура таблицы TMath (Математики)

Рисунок 8 - Структура таблицы TOpen (Труды математиков)

Рисунок 9 - Структура таблицы TStrana (Страны)

Рисунок 10 - Структура таблицы TAge (Эпоха)

Рисунок 11 - Структура таблицы TAge (Эпоха)

2.3 Проектирование спец. СУБД

2.3.1 Проектирование ядра СУБД

Проектирование ядра СУБД осуществляется посредством системы разработки программного обеспечения - ИСР Delphi 7.

Разрабатывая электронную энциклопедию, следует ограничить права пользователя на редактирование, добавление и удаление данных. Для этого будет использована форма входа в приложение, предоставляющая выбор режима использования (пользователь или администратор) энциклопедии «Великие математики» (Рисунок 12).

Рисунок 12 - Форма FmLogin (Вход)

Для выбора пользователем одной из нескольких взаимоисключающих альтернатив был выбран компонент RadioGroup палитры компонентов Standart. Определить, какую из кнопок выбрал пользователь, можно по свойству ItemIndex, которое показывает индекс выбранной кнопки. Индексы, как всегда в Delphi, начинаются с 0. По умолчанию ItemIndex = -1, что означает отсутствие выбранной кнопки.

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

Как уже было отмечено, для пользователя права ограничатся только просмотром информации. Для этого была заведена специальная переменная «admin» типа boolean, принимающая значения false (ложь) при выборе пользовательского режима. Эта переменная будет использована в дальнейшем на главной форме самой энциклопедии (Рисунок 13).

Рисунок 13 - Форма FmMain (Главная форма энциклопедии)

Главная форма энциклопедии запускается независимо от выбора режима. На этой форме использован компонент TQuery, расположенный на палитре компонентов BDE. Компонент TQuery позволяет использовать операторы SQL для того, чтобы определять или создавать наборы данных, которые можно отобразить на экране.

В приложении использованы следующие свойства компонента TQuery:

1. Active - указывает, открыт (true) или закрыт (false) данный запрос;

2. SQL - чтобы ввести SQL запрос. Свойство SQL - вероятно, самая важная часть TQuery.

3. RequestLive - определяет возможность модификации данных, Если RequestLive имеет значение false, результат запроса возвращается в состоянии read-only.

В данном приложении свойство RequestLive всех компонентов TQuery имеет значение false.

В качестве компонента визуализации используем компонент DBGrid со страницы Data Control. Это визуальный компонент, в котором будут отображаться данные. Компонент TDataSource палитры компонентов Data Access управляет взаимодействием между компонентом DBGrid и компонентом Query .

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

Q1.SQL.Clear; //Очищаем свойство SQL

q1.SQL.Add ('select Math, FIO from TMath'); // Добавляем запрос

Q1.Close; Q1.Open; // Активируем Query

DBGrid1.Columns[0].FieldName:='FIO'; // Вывод в DBGrid

butt:=1; // фиксируем нажатие имено 1 кнопки раздела

Label4.Caption:='ФИО математика'; // Указываем поле для поиска

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

При двойном щелчке по DBGrid используется переменная «admin» формы FmLogin, реализуя разграничения прав пользователя и администратора. Всю реализацию данного подхода можно посмотреть в приложении работы.

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

В пользовательском режиме при двойном щелчке по DBGrid активируется форма просмотра великих математиков FmMath (Рисунок 14).

Рисунок 14 - Форма FmMath (Просмотр великих математиков)

Форма FMath содержит два компонента TQuery. Компонент TQuery - QMath используется для отбора данных о математиках, а компонент QOpen - трудов математиков. При щелчке по DBGrid1, который используется для визуализации списка математиков, данные формы меняется следующим образом:

nz:=QMath.Fields[0].Value; // фиксируем выбранного математика

QOpen.SQL.Clear; //очищаем запрос для вывода трудов математика

QOpen.SQL.Add('Select TOpen.*, TRazdel.NRazdel'); //выбираем поля

QOpen.SQL.Add('from TOpen, TRazdel'); //указываем таблицы

QOpen.SQL.Add(' where TOpen.Razdel=TRazdel.Razdel'); //связываем таблицы TRazdel и TOpen

QOpen.SQL.Add(' and TOpen.Math='+IntToStr(nz));

//Добавляем запрос на вывод трудов именно выбранного математика

QOpen.Open; QOpen.Open; // активируем запрос для вывода трудов математика

if FileExists(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt') then

// Проверяем, существуют ли текстовые данные о выбранном математике

FmMath.Memo1.Lines.LoadFromFile(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt'); // загружаем текстовые данные в Memo1

if FileExists(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg') then

// Проверяем, существует ли графический файл для выбранного математика

FmMath.Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+

IntToStr(nz)+'.jpg'); // загружаем графическое изображение в Image1

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

2.3.2 Проектирование входных форм

В данной работе входные формы используются при выборе режима администратора. При проектировании входных форм, была создана одна основная форма для манипуляции с основными данными (Рисунок 14), а также небольшие формы под справочники.

Рисунок 15 - Форма манипуляции с данными энциклопедии (FmAdmin)

Для связи с данными из таблиц используем компоненты TQuery и TTable, расположенные на палитре компонентов BDE.

Компонент TQuery формы манипуляции с данными энциклопедии «Великие математики» FmAdmin необходим только для визуализации данных из нескольких таблиц. Сами операции с данными будут производиться компонентом TTable, свойство TableName которого определяет имя таблицы базы данных. Осуществление манипуляции данными с помощью кнопок формы FmAdmin можно посмотреть в приложении работы.

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

Рисунок 16 - Форма справочника «Разделы» (FmRazdel)

Каждая форма справочника использует только одну таблицу, поэтому был использован компонент TTable и операции с данными происходят напрямую, в отличие от форм, где есть необходимость использовать компонент TQuery для отображения данных из нескольких таблиц. На форме справочников также использовано свойство TableName компонента TTable - для подключения таблицы. Компонент DataSource служит для связи между компонентом TTable и компонентами палитры DataControls DBGrid и DBNavigator.

DBNavigator палитры компонентов Data Controls служит для манипуляции с данными из таблиц справочников.

Компонент DBNavigator предоставляет пользователю возможность манипулировать набором данных. Навигатор содержит кнопки для перехода на первую, последнюю, предыдущую и следующую записи, вставки, удаления и редактирования записи, отмены и сохранения изменений, а также обновления данных. Этот компонент практически полностью автоматизирован, поэтому все, что необходимо сделать -- это поместить его на форму и связать с DataSource.

Свойство ConfirmDelete компонента DBNavigator установлено в True и вызывает отображение диалоговой панели при каждом нажатии на кнопку Delete.

2.3.3 Проектирование запросов

Одной из важнейших функций любой Информационной Системы является поиск данных в большом массиве информации, которой и является База Данных. Поиск представляет собой переход к записи на основании заданного условия. Для поиска в Базе Данных служат несколько методов. Для поиска данных по неиндексированным полям Базы Данных служат два метода Locate и LookUp. Для использования этих методов нужно указать поле, по которому будет произведен поиск данных, значение условия поиска и список возможных параметров. Здесь также существует возможность поиска сразу по нескольким полям. Для этого нужно перечислить поля через точку с запятой.

В качестве параметров служат следующие параметры:

1) loCaseInsensitive - Регистр букв не учитывается.

2) loPartialKey - Частичное совпадение значения поиска.

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

Для осуществления поиска в приложении используем функцию Locate компонентов TTable и TQuery. Locate - Этот универсальный метод поиска устанавливает текущую запись как первую строку, удовлетворяющую набору критериев поиска. Поиск главной формы энциклопедии зависит от выбранного раздела, который фиксировался переменной butt:

if Edit1.Text< >'' then

BEGIN

case butt of

1: q1.Locate('FIO', Edit1.Text,[loCaseInsensitive, loPartialKey]);

2: q1.Locate('NOpen', Edit1.Text,[loCaseInsensitive, loPartialKey]);

3: q1.Locate('NStrana', Edit1.Text,[loCaseInsensitive, loPartialKey]);

4: q1.Locate('NAge', Edit1.Text,[loCaseInsensitive, loPartialKey]);

end;

END ELSE

ShowMessage(' Введите критерий поиска! ');

Поиск формы FmMath (Просмотр математиков) осуществляется только по полю ФИО математика таблицы TMath(Математики):

if Edit1.Text< >'' then

BEGIN

qmath.Locate('FIO', Edit1.Text,[loCaseInsensitive, loPartialKey]);

nz:=QMath.Fields[0].Value;

QO; // процедура обновления данных для трудов математиков QOpen

QOpen.SQL.Add(' where TOpen.Math='+IntToStr(nz));

QOpen.Open;

if FileExists(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt') then

FmMath.Memo1.Lines.LoadFromFile(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt');

if FileExists(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg') then

FmMath.Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg');

END ELSE

ShowMessage(' Введите критерий поиска! ');

Процедуру обновления набора данных QO для компонента QOpen (TQuery) можно посмотреть в приложении работы.

3. ТЕСТИРОВАНИЕ ПРОГРАММНОГО ПРОДУКТА

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

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

4. ИНСТРУКЦИЯ ПО ЭКСПЛУАТАЦИИ И УСТАНОВКЕ

Электронная энциклопедия «Великие математики» осуществляется в два этапа:

1. Скопировать папку с программой в любую удобную папку или область на жёстком диске компьютера;

2. Открытие Файла Mathem.exe в папке с программой.

Эксплуатация: После запуска программы появится форма выбора режима использования энциклопедии (Рисунок 17).

Рисунок 17 - Форма входа в приложение (FmLogin)

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

В зависимости от выбранного раздела пользователю будет представлено наименование поля для осуществления поиска:

1) «Великие математики» - ФИО математика;

2) «Труды математиков» - Наименование труда;

3) «Страны математиков» - Название страны;

4) «Исторические эпохи» - Наименование эпохи.

Рисунок 18 - Главная форма «Великие математики»

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

Не зависимо от того осуществлял пользователь поиск или нет, можно перейти на следующую форму просмотра информации двойным щелчком по необходимой записи (Рисунок 19).

Набор информации на форме просмотра математиков будет зависеть от выбранного раздела и записи на главной форме энциклопедии:

1) «Великие математики» - откроется форма, содержащая набор данных обо всех имеющихся в приложении математиках. На форме просмотра первоначально будут располагаться данные о выбранном математике;

2) «Труды математиков» - как и в предыдущем случае, откроется форма, содержащая набор данных обо всех имеющихся в приложении математиках. На форме просмотра первоначально будут располагаться данные о математике создавшей выбранный труд;

3) «Страны математиков» - откроется форма просмотра математиков, проживавших в выбранной стране;

4) «Исторические эпохи» - откроется форма просмотра данных о математиках, проживавших в выбранную историческую эпоху.

Рисунок 19 - Форма просмотра математиков (FmMath)

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

Пользователь также может увеличить изображение портрета математика (Рисунок 20) нажав на портрет (также и закрыть).

Рисунок 20 - Просмотр портрета математика

При выборе режима администрирования необходимо будет ввести пароль (Рисунок 21).

Рисунок 21 - Вход в приложение в режиме администратора

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

При переходе по записям разделов «Великие математики» и «Труды математиков» откроется главная форма манипуляции данными математиков и их трудов (Рисунок 22).

Рисунок 22 - Форма манипуляции данными математиков и трудов

На этой форме можно осуществить:

1) Добавление новых записей и редактирование имеющихся записей математиков и трудов (Рисунок 23);

Рисунок 23 - Добавление/редактирование записей формы FmMath

2) Добавление и редактирование биографических сведений по математикам (Рисунок 24);

Рисунок 24 - Добавление/редактирование биографии математика

3) Поиск по ФИО математика (Также как и в предыдущих случаях - по части слова и без учета регистра);

4) Загрузку и сохранение графических изображений портретов математиков файлов формата «.jpg» (Рисунок 25);

Рисунок 25 - Загрузка изображения портрета математика

5) Удаление данных;

6) Переход к манипуляции данными справочников «Эпоха», «Разделы» и «Страна» (Рисунок 26).

Рисунок 26 - Справочник стран

При переходе по записям разделов «Страны математиков» и «Исторические эпохи» главной формы энциклопедии в режиме администратора также откроются соответствующие справочники. На рисунке 27 представлен справочник «Исторические эпохи»:

Рисунок 27 - Справочник «Исторические эпохи»

5. ЗАКЛЮЧЕНИЕ

В результате выполнения курсового проекта был произведен системный анализ, рассмотрен принцип составления ERD - анализа для проектирования базы данных. Также был разработана электронная энциклопедия «Великие математики» в среде разработки Borland Delphi 7, которая представляет собой интегрированную систему, ядро которой составляет база данных (БД).

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

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

Цель курсовой работы была достигнута.

6. СПИСОК ИСТОЧНИКОВ

1. Архангельский А.Я. Программирование в Delphi 7. - М.: ЗАО «Издательство БИНОМ», 2005. - 200с.

2. Бобровский А.Н. Delphi 7. Учебный курс. - Санкт-Петербург: ЗАО «Питербук» , 2006 год, - 639 стр.

3. Большой Энциклопедический Словарь» [Электронный ресурс]. - Электрон. дан. - [М.].: ЛАНИ, СПИИРАН, группа ExOS Copyright © 2004 - 2009. - Режим доступа: http://www.vslovar.ru/

4. Галерея «Великие математики» [Электронный ресурс]. - Электрон. дан. - [Ноябрьск].: Персональный сайт учителя математики Зайцевой И.А., Copyright © 2006 -2011. - Режим доступа: http://www.zaitseva-irina.ru/

5. Глушаков С.В., Клевцов А.Л. Delphi 7. Эффективное руководство. - М.: Хранитель, 2008. - 640с.

6. Гофман, Хамоненко Delphi 7. Наиболее полное руководство. - Санкт-Петербург: БХВ-Петербург, 2008. - 1216с.

7. Егоров Е.В. Работа с базами данных в Delphi 7 - М.: АСТ Москва, 2008. - 450с.

8. Кандзюба С.П., Громов В.Н. Delphi 7. Базы данных и приложения. Лекции и упражнения. - Киев: ДинСофт, 2008. - 576с.

9. Кузнецов С.Д. Базы данных. Модели и языки. - Бином, 2008.

10. Культин Н.Е. Программирование в Turbo Pascal 7.0 и Delphi , 2009.

11. Марков Евгений, Дарахвелидзе Петр Программирование в Delphi 7. - Санкт-Петербург: БХВ-Петербург, 2009. - 780с.

12. Одинцов И. Профессиональное программирование. Системный подход. - Санкт-Петербург: ЗАО «Питербук», 2005. - 150с.

13. Орлов С.А. Технология разработки программного обеспечения. Разработка сложных программных систем. - Санкт-Петербург: БХВ-Петербург, 2007. - 570с.

14. Осипов Д.В. Delphi. Профессиональное программирование. - М.: Символ-Плюс, 2006. - 120с.

15. Основы современных баз данных [Электронный ресурс]. - Электрон. дан. - [М.].: Сервер Информационных Технологий, Copyright © 2005 - 2011. - Режим доступа: http://citforum.ru/

16. Петров В.Н. Информационные системы. - Санкт-Петербург: Питер, 2007. - 168с.

17. Поган А.М., Царенко Ю.А. Программирование в Delphi. - М: «ЭКСМО», 2006. - 309с.

18. Рубенкинг Н., Программирование в Delphi 7. - Киев: ДинСофт, 2005. - 280с.

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

20. Фаронов В.В. Delphi 7. Учебный курс. - Санкт-Петербург: Питер, 2008. - 672с.

21. Чиртик А., Борисок В., Корвель Ю. Delphi. Трюки и эффекты. - Санкт-Петербург: Питер, 2007. - 400c.

7. ПРИЛОЖЕНИЕ

Форма входа в приложение (FmLogin)

unit uGalery;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TFmLogin = class(TForm)

Panel1: TPanel;

RG1: TRadioGroup;

Image1: TImage;

BitBtn1: TBitBtn;

Panel2: TPanel;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure RG1Click(Sender: TObject);

procedure Edit1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

admin:boolean;

end;

var

FmLogin: TFmLogin;

implementation

uses uMain;

{$R *.dfm}

procedure TFmLogin.BitBtn1Click(Sender: TObject);

begin

CASE RG1.ItemIndex of

0: begin admin:=false; FmMain.ShowModal; end;

1: begin

if Edit1.Text='den' then begin admin:=true; FmMain.ShowModal; end

else Label2.Caption:='Пароль неверный';

Edit1.Text:='';

end;

END;//CASE

end;

procedure TFmLogin.RG1Click(Sender: TObject);

begin

CASE RG1.ItemIndex of

0: begin Panel2.Visible:=false; end;

1: begin Panel2.Visible:=true; end;

END;//CASE

end;

procedure TFmLogin.Edit1Click(Sender: TObject);

begin

Label2.Caption:='';

end;

end.

Главная форма энциклопедии “Великие математики» (FmMain)

unit uMain;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables;

type

TFmMain = class(TForm)

Panel2: TPanel;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

DataSource1: TDataSource;

Label2: TLabel;

DBGrid1: TDBGrid;

Q1: TQuery;

Panel5: TPanel;

Label4: TLabel;

Button6: TButton;

Button7: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

butt:short;

math,age,open,strana:short;

dir:string;

end;

var

FmMain: TFmMain;

implementation

uses uGalery, uMath, uAdmin, uStrana, uAge;

{$R *.dfm}

procedure TFmMain.Button1Click(Sender: TObject);

begin

Q1.SQL.Clear;

q1.SQL.Add('select Math, FIO from TMath');

Q1.Close; Q1.Open;

DBGrid1.Columns[0].FieldName:='FIO';

butt:=1;

Label4.Caption:='ФИО математика';

end;

procedure TFmMain.Button2Click(Sender: TObject);

begin

Q1.SQL.Clear;

q1.SQL.Add('select Open, NOpen from TOpen');

Q1.Close; Q1.Open;

DBGrid1.Columns[0].FieldName:='NOpen';

butt:=2;

Label4.Caption:='Открытие математика';

end;

procedure TFmMain.Button3Click(Sender: TObject);

begin

Q1.SQL.Clear;

q1.SQL.Add('select Strana, NStrana from TStrana');

Q1.Close; Q1.Open;

DBGrid1.Columns[0].FieldName:='NStrana';

butt:=3;

Label4.Caption:='Страна проживания';

end;

procedure TFmMain.Button4Click(Sender: TObject);

begin

Q1.SQL.Clear;

q1.SQL.Add('select Age, NAge, Period from TAge');

Q1.Close; Q1.Open;

DBGrid1.Columns[0].FieldName:='NAge';

DBGrid1.Columns[1].FieldName:='Period';

butt:=4;

Label4.Caption:='Историческая эпоха';

end;

procedure TFmMain.Button7Click(Sender: TObject);

begin

FmLogin.Close;

end;

procedure TFmMain.DBGrid1DblClick(Sender: TObject);

begin

if FmLogin.admin=false then

BEGIN

case butt of

1: begin

Math:=q1.Fields[0].Value;

FmMath.QM;

FmMath.QMath.Open;

FmMath.QMath.Locate('Math', IntToStr(Math),[]);

end;

2: begin

Open:=q1.Fields[0].Value;

FmMath.QM; FmMath.QO; FmMath.QMath.Open;

FmMath.QOpen.Locate('Open', IntToStr(Open),[]);

Math:=FmMath.QOpen.Fields[3].Value;

FmMath.QMath.Locate('Math', IntToStr(Math),[]);

end;

3: begin

Strana:=q1.Fields[0].Value;

FmMath.QM;

FmMath.QMath.SQL.Add(' and TMath.Strana='+IntToStr(Strana));

FmMath.QMath.Open;

Math:=FmMath.QMath.Fields[0].Value;

end;

4: begin

Age:=q1.Fields[0].Value;

FmMath.QM;

FmMath.QMath.SQL.Add(' and TMath.Age='+IntToStr(Age));

FmMath.QMath.Open;

Math:=FmMath.QMath.Fields[0].Value;

end;

end;

FmMath.QO;

FmMath.QOpen.SQL.Add(' and TOpen.Math='+IntTostr(Math));

FmMath.QOpen.Open;

if FileExists(dir+'/Text/'+IntToStr(Math)+'.txt') then

FmMath.Memo1.Lines.LoadFromFile(dir+'/Text/'+IntToStr(Math)+'.txt');

if FileExists(dir+'/Image/Math/'+IntToStr(Math)+'.jpg') then

FmMath.Image1.Picture.LoadFromFile(dir+'/Image/Math/'+IntToStr(Math)+'.jpg');

FmMath.ShowModal;

END

ELSE

BEGIN

case butt of

1: begin

Math:=q1.Fields[0].Value;

FmAdMin.QMat;

FmAdMin.QMath.Locate('Math', IntToStr(Math),[]);

FmAdmin.nom:=IntToStr(math);

FmAdmin.QOp;

if FileExists(dir+'/Image/Math/'+FmAdmin.nom+'.jpg') then

FmAdmin.Image1.Picture.LoadFromFile(dir+'/Image/Math/'+FmAdmin.nom+'.jpg');

FmAdmin.ShowModal;

end;

2: begin

Open:=q1.Fields[0].Value;

FmAdMin.QMat;

FmAdmin.TOpen.Locate('Open', IntToStr(Open),[]);

Math:=FmAdmin.TOpen.Fields[3].Value;

FmAdmin.QMath.Locate('Math', IntToStr(Math),[]);

FmAdmin.nom:=IntToStr(math); FmAdmin.QOp;

if FileExists(dir+'/Image/Math/'+FmAdmin.nom+'.jpg') then

FmAdmin.Image1.Picture.LoadFromFile(dir+'/Image/Math/'+FmAdmin.nom+'.jpg');

FmAdmin.ShowModal;

end;

3: begin

Strana:=q1.Fields[0].Value;

FmStrana.Table1.Locate('Strana', IntToStr(Strana),[]);

FmStrana.ShowModal;

end;

4: begin

Age:=q1.Fields[0].Value;

FmAge.Table1.Locate('Age', IntToStr(Age),[]);

FmAge.ShowModal;

end;

end;

END;

end;

procedure TFmMain.FormActivate(Sender: TObject);

begin

dir:=GetCurrentDir;

Q1.SQL.Clear;

q1.SQL.Add('select Math, FIO from TMath');

Q1.Close; Q1.Open;

DBGrid1.Columns[0].FieldName:='FIO';

butt:=1;

Label4.Caption:='ФИО математика';

end;

procedure TFmMain.Button6Click(Sender: TObject);

begin

if Edit1.Text<>'' then

BEGIN

case butt of

1: q1.Locate('FIO', Edit1.Text,[loCaseInsensitive, loPartialKey]);

2: q1.Locate('NOpen', Edit1.Text,[loCaseInsensitive, loPartialKey]);

3: q1.Locate('NStrana', Edit1.Text,[loCaseInsensitive, loPartialKey]);

4: q1.Locate('NAge', Edit1.Text,[loCaseInsensitive, loPartialKey]);

end;

END ELSE

ShowMessage(' Укажите критерий поиска! ');

end;

end.

Форма «Просмотр великих математиков» (FmMath)

unit uMath;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables;

type

TFmMath = class(TForm)

DBGrid1: TDBGrid;

Memo1: TMemo;

DBGrid2: TDBGrid;

QMath: TQuery;

QOpen: TQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

Panel1: TPanel;

DBText1: TDBText;

Label3: TLabel;

DBText3: TDBText;

DBText2: TDBText;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Image1: TImage;

Panel5: TPanel;

Button6: TButton;

Button7: TButton;

Edit1: TEdit;

Label4: TLabel;

Label2: TLabel;

DBText4: TDBText;

DBText5: TDBText;

Label1: TLabel;

procedure QM;

procedure QO;

procedure Image1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure Button7Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

nz:short;

public

{ Public declarations }

end;

var

FmMath: TFmMath;

implementation

uses uMain, uPort, uGalery;

{$R *.dfm}

procedure TFmMath.QM;

begin

QMath.SQL.Clear;

QMath.SQL.Add('Select TMath.*, TAge.*, TStrana.*');

QMath.SQL.Add(' from TMath, TAge, TStrana');

QMath.SQL.Add(' where TMath.Age=TAge.Age');

QMath.SQL.Add(' and TMath.Strana=TStrana.Strana');

QMath.Open;

end;

procedure TFmMath.QO;

begin

QOpen.SQL.Clear;

QOpen.SQL.Add('Select TOpen.*, TRazdel.NRazdel');

QOpen.SQL.Add('from TOpen, TRazdel');

QOpen.SQL.Add('where TOpen.Razdel=Trazdel.Razdel');

QOpen.Open;

end;

procedure TFmMath.Image1Click(Sender: TObject);

begin

if FileExists(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg') then

FmPort.Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg');

FmPort.ShowModal;

end;

procedure TFmMath.FormActivate(Sender: TObject);

begin

nz:=FmMain.math;

end;

procedure TFmMath.DBGrid1CellClick(Column: TColumn);

begin

nz:=QMath.Fields[0].Value;

QO;

QOpen.SQL.Add(' and TOpen.Math='+IntToStr(nz)); QOpen.Open;

if FileExists(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt') then

FmMath.Memo1.Lines.LoadFromFile(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt');

if FileExists(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg') then

FmMath.Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg');

end;

procedure TFmMath.Button7Click(Sender: TObject);

begin

FmLogin.Close;

end;

procedure TFmMath.Button6Click(Sender: TObject);

begin

if Edit1.Text<>'' then

BEGIN

qmath.Locate('FIO', Edit1.Text,[loCaseInsensitive, loPartialKey]);

nz:=QMath.Fields[0].Value;

QO;

QOpen.SQL.Add(' and TOpen.Math='+IntToStr(nz)); QOpen.Open;

if FileExists(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt') then

FmMath.Memo1.Lines.LoadFromFile(FmMain.dir+'/Text/'+IntToStr(nz)+'.txt');

if FileExists(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg') then

FmMath.Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+IntToStr(nz)+'.jpg');

END ELSE

ShowMessage(' Введите критерий поиска! ');

end;

end.

Форма работы с данными энциклопедии «Великие математики» (FmAdmin)

unit uAdmin;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls,

ExtDlgs, Mask;

type

TFmAdmin = class(TForm)

TMath: TTable;

QMath: TQuery;

DataSource1: TDataSource;

TOpen: TTable;

QOpen: TQuery;

DataSource2: TDataSource;

Panel1: TPanel;

DBGrid1: TDBGrid;

Panel2: TPanel;

Button3: TButton;

Button2: TButton;

Panel3: TPanel;

Button4: TButton;

Button5: TButton;

Panel4: TPanel;

Edit0: TEdit;

Edit1: TEdit;

Edit4: TEdit;

Edit5: TEdit;

DBLAge: TDBLookupComboBox;

DBLStrana: TDBLookupComboBox;

TAge: TTable;

TStrana: TTable;

DataSourceAge: TDataSource;

DataSourceStrana: TDataSource;

Panel5: TPanel;

DBGrid2: TDBGrid;

Panel6: TPanel;

Button6: TButton;

Button7: TButton;

Panel7: TPanel;

Button8: TButton;

Button9: TButton;

Panel8: TPanel;

Edit6: TEdit;

Edit7: TEdit;

Panel9: TPanel;

Label4: TLabel;

Button10: TButton;

Button12: TButton;

Edit9: TEdit;

OpenPictureDialog1: TOpenPictureDialog;

Panel10: TPanel;

Edit8: TMaskEdit;

Panel11: TPanel;

Edit2: TMaskEdit;

Panel12: TPanel;

Edit3: TMaskEdit;

Button1: TButton;

Label2: TLabel;

Panel13: TPanel;

Button13: TButton;

Button14: TButton;

Image1: TImage;

Label1: TLabel;

Panel14: TPanel;

Button15: TButton;

Button11: TButton;

Label3: TLabel;

Edit10: TEdit;

TRazdel: TTable;

DataSourceRazdel: TDataSource;

Button16: TButton;

DBLRazdel: TDBLookupComboBox;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure DBLAgeClick(Sender: TObject);

procedure DBLStranaClick(Sender: TObject);

procedure Edit5Click(Sender: TObject);

procedure Edit4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure QOp;

procedure Button9Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure DBGrid2DblClick(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure QMat;

procedure Button14Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure DBLRazdelClick(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Edit10Click(Sender: TObject);

private

{ Private declarations }

age, strana,razdel:short;

r,g:short;

nz:short;

public

{ Public declarations }

nom:string[4];

end;

var

FmAdmin: TFmAdmin;

implementation

uses uBio, uMain, uGalery, uStrana, uAge, uRazdel;

{$R *.dfm}

procedure TFmAdmin.QMat;

begin

QMath.SQL.Clear;

QMath.SQL.Add('Select TMath.*, TAge.NAge, TStrana.NStrana');

QMath.SQL.Add(' from TMath, TAge, TStrana ');

QMath.SQL.Add(' where TMath.Age=TAge.Age');

QMath.SQL.Add(' and TMath.Strana=TStrana.Strana');

QMath.Open;

end;

procedure TFmAdmin.QOp;

begin

QOpen.SQL.Clear;

QOpen.SQL.Add('Select TOpen.*, TRazdel.NRazdel from TOpen, TRazdel');

QOpen.SQL.Add(' where TOpen.Razdel=Trazdel.Razdel and TOpen.Math='+nom);

QOpen.Open;

end;

procedure TFmAdmin.FormActivate(Sender: TObject);

begin

nom:=IntToStr(QMath.Fields[0].Value);

QOp;

end;

procedure TFmAdmin.Button1Click(Sender: TObject);

begin

nom:=IntToStr(QMath.Fields[0].Value);

if FileExists(FmMain.dir+'/Text/'+nom+'.txt') then

FmBio.Memo1.Lines.LoadFromFile(FmMain.dir+'/text/'+nom+'.txt');

FmBio.ShowModal;

end;

procedure TFmAdmin.DBLAgeClick(Sender: TObject);

begin

age:=TAge.Fields[0].Value;

Edit4.Text:= TAge.Fields[1].Value;

DBLAge.Visible:=False;

end;

procedure TFmAdmin.DBLStranaClick(Sender: TObject);

begin

strana:=TStrana.Fields[0].Value;

Edit5.Text:= TStrana.Fields[1].Value;

DBLStrana.Visible:=False;

end;

procedure TFmAdmin.Edit5Click(Sender: TObject);

begin

DBLStrana.Visible:=true;

end;

procedure TFmAdmin.Edit4Click(Sender: TObject);

begin

DBLAge.Visible:=true;

end;

procedure TFmAdmin.Button3Click(Sender: TObject);

begin

TMath.FindKey([StrToInt(nom)]);

TMath.Delete;

qMath.Close; qMath.Open;

Image1.Picture:=nil;

nom:=IntTostr(qmath.Fields[0].Value);

QOp;

end;

procedure TFmAdmin.Button4Click(Sender: TObject);

begin

Panel4.Visible:=false;

DBLAge.Visible:=false;

DBLStrana.Visible:=false;

Panel3.Visible:=false;

end;

procedure TFmAdmin.Button2Click(Sender: TObject);

begin

TMath.Last;

if TMath.Fields[0].IsNull then nom:='1'

else nom:=IntToStr(TMath.Fields[0].Value+1);

Edit0.Text:=nom;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

age:=0;

strana:=0;

Panel4.Visible:=true;

Panel3.Visible:=true;

R:=1;

end;

procedure TFmAdmin.Button5Click(Sender: TObject);

begin

IF (age<>0) and (strana<>0) and (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') THEN

BEGIN

If R=1 then

Begin

Image1.Picture:=nil;

TMath.Append;

TMath.Fields[0].Value:=StrToInt(nom);

TMath.Fields[1].Value:=Edit1.Text;

TMath.Fields[2].Value:=Edit2.Text;

TMath.Fields[3].Value:=Edit3.Text;

TMath.Fields[4].Value:=strana;

TMath.Fields[5].Value:=age;

TMath.Next;

end

else

Begin

TMath.FindKey([StrToInt(nom)]);

TMath.Edit;

TMath.Fields[1].Value:=Edit1.Text;

TMath.Fields[2].Value:=Edit2.Text;

TMath.Fields[3].Value:=Edit3.Text;

TMath.Fields[4].Value:=strana;

TMath.Fields[5].Value:=age;

TMath.Post;

end;

QMath.Close; QMath.Open; QMath.Last;

Panel4.Visible:=false;

DBLAge.Visible:=false;

DBLStrana.Visible:=false;

Panel3.Visible:=false;

QOp;

END

ELSE

SHOWMESSAGE(' Введите все данные ');

end;

procedure TFmAdmin.DBGrid1DblClick(Sender: TObject);

begin

R:=2;

nom:=IntToStr(qmath.Fields[0].Value);

edit0.Text:=nom;

edit1.Text:=qmath.Fields[1].Value;;

edit2.Text:=qmath.Fields[2].Value;

edit3.Text:=qmath.Fields[3].Value;

edit4.Text:=qmath.Fields[6].Value;

edit5.Text:=qmath.Fields[7].Value;

age:=qmath.Fields[5].Value;

strana:=qmath.Fields[4].Value;

Panel4.Visible:=true;

Panel3.Visible:=true;

end;

procedure TFmAdmin.DBGrid1CellClick(Column: TColumn);

begin

nom:=IntTostr(qmath.Fields[0].Value);

QOp;

if FileExists(FmMain.dir+'/Image/Math/'+nom+'.jpg') then

Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+nom+'.jpg')

else Image1.Picture:=nil;

end;

procedure TFmAdmin.Button9Click(Sender: TObject);

begin

TOpen.Last;

if TOpen.Fields[0].IsNull then nz:=1

else nz:=TOpen.Fields[0].Value+1;

Edit6.Text:=IntToStr(nz);

Edit7.Text:='';

Edit8.Text:='';

Edit10.Text:='';

G:=1;

razdel:=0;

Panel7.Visible:=false;

Panel6.Visible:=true; Panel8.Visible:=true;

DBLRazdel.Visible:=false;

end;

procedure TFmAdmin.Button8Click(Sender: TObject);

begin

TOpen.FindKey([nz]);

TOpen.Delete;

qopen.Close; qopen.Open;

DBLRazdel.Visible:=false;

end;

procedure TFmAdmin.Button7Click(Sender: TObject);

begin

IF (Edit7.Text<>'') and (Edit8.Text<>'') and (razdel<>0) THEN

BEGIN

If G=1 then

Begin

TOpen.Append;

TOpen.Fields[0].Value:=nz;

TOpen.Fields[1].Value:=Edit7.Text;

TOpen.Fields[2].Value:=Edit8.Text;

TOpen.Fields[3].Value:=StrToInt(nom);

TOpen.Fields[4].Value:=razdel;

TOpen.Next;

end

else

Begin

TOpen.FindKey([nz]);

TOpen.Edit;

TOpen.Fields[0].Value:=nz;

TOpen.Fields[1].Value:=Edit7.Text;

TOpen.Fields[2].Value:=Edit8.Text;

TOpen.Fields[3].Value:=StrToInt(nom);

TOpen.Fields[4].Value:=razdel;

TOpen.Post;

end;

QOpen.Close; QOpen.Open; QOpen.Last;

Panel8.Visible:=false;

Panel6.Visible:=false;

DBLRazdel.Visible:=false;

Panel7.Visible:=true;

END

ELSE

SHOWMESSAGE(' Введите все данные ');

end;

procedure TFmAdmin.Button6Click(Sender: TObject);

begin

Panel8.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=true;

DBLRazdel.Visible:=false;

end;

procedure TFmAdmin.DBGrid2DblClick(Sender: TObject);

begin

G:=2;

if QOpen.Fields[0].IsNull then ShowMessage('Добавьте запись о трудах математика ')

else begin

nz:=qopen.Fields[0].Value;

edit6.Text:=IntToStr(nz);

edit7.Text:=qopen.Fields[1].Value;;

edit8.Text:=qopen.Fields[2].Value;

edit10.Text:=qopen.Fields[5].Value;

Panel8.Visible:=true;

Panel6.Visible:=true;

Panel7.Visible:=false;

end;

end;

procedure TFmAdmin.Button12Click(Sender: TObject);

begin

FmLogin.Close;

end;

procedure TFmAdmin.Button10Click(Sender: TObject);

begin

if Edit9.Text<>'' then

BEGIN

qmath.Locate('FIO', Edit9.Text,[loCaseInsensitive, loPartialKey]);

nom:=IntToStr(QMath.Fields[0].Value);

QOp;

if FileExists(FmMain.dir+'/Image/Math/'+nom+'.jpg') then

Image1.Picture.LoadFromFile(FmMain.dir+'/Image/Math/'+nom+'.jpg')

else Image1.Picture:=nil;

END ELSE

ShowMessage(' Введите критерий поиска! ');

end;

procedure TFmAdmin.Button13Click(Sender: TObject);

begin

if(OpenPictureDialog1.Execute) then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);