Создание базы данных для предметной области "Нотариальная контора"

Рисунок 2.4- Схема данных

2.3 Разработка клиентского  приложения

Для создания клиентского приложения необходимо сначала связать базу данных с формой Borland Delphi. Для этого  используется элемент ADOConnection. В свойствах  добавленного ADOConnection зададим поставщика данных Microsoft Jet 4.0 OLE DB Provider, как наиболее подходящего для работы с БД MS Access, и укажем путь к созданной  базе данных Курсовая.mdb. Также выставим свойство LoginPrompt в False, чтобы программа  при открытии не запрашивала пароль доступа к БД. У компонента ADOTable необходимо в свойстве Connection указать  созданный компонент ADOConnection, а у  компонента DataSource в свойстве DataSet указать ADOTable. В свойствах DataSource компонента DBGrid указать DataSource1.

2.3.1 Добавление данных

Для добавления данных необходимо выбрать  соответствующую таблицу и нажать кнопку «Добавить» на форме.

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

Разберем добавление данных на примере  таблицы «Клиенты».

При выборе таблицы «Клиенты» и  нажатии на кнопку «Добавить» появляется форма для добавления. Заполним эту  форму. Заполненная форма представлена на рисунке 2.5- Форма для добавления.

Рисунок 2.5- Форма для добавления.

При нажатии на клавишу Добавить происходит добавление данных. В этой процедуре сначала проверяется, все ли поля для добавления заполнены. Если заполнены не все поля, появляется сообщение «Заполните все поля». Если все поля заполнены, происходит его добавление. Код процедуры  добавления для таблицы «Клиенты»  представлен ниже:

procedure TForm2.Button1Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then ShowMessage('Заполните все поля!') else

begin

form1.ADOQuery1.SQL.Add('INSERT INTO Клиенты ( Название, Вид_деятельности, Адрес, Телефон  ) VALUES ');

form1.ADOQuery1.SQL.Add('('''+Edit1.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit2.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit3.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit4.Text+'''');

form1.ADOQuery1.SQL.Add(');');

form1.ADOQuery1.ExecSQL;

form1.ADODataSet2.Active:=false;

form1.ADODataSet2.Active:=true;

form4.ADODataSet1.Active:=false;

form4.ADODataSet1.Active:=true;

form1.ADOQuery1.SQL.Clear;

form2.Close();

end;

end;

Результат добавления в таблицу  «Клиенты» представлен на рисунке 2.6- Добавление данных.

Рисунок 2.6- Добавление данных

2.3.2 Полный код процедуры  добавления представлен в приложении  А

2.3.3 Удаление данных

Для удаления данных необходимо выбрать  соответствующую таблицу и строку, требующую удаления, нажать кнопку «Удалить» на форме.

Разберем удаление данных на примере  таблицы «Клиенты». Откроем таблицу  и выберем строку, требующую удаления. При нажатии на кнопку Удалить  происходит процедура удаления. Код  процедуры удаления представлен  ниже:

procedure TForm1.Button5Click(Sender: TObject);

begin

if DBGrid1.SelectedField.AsString<>'' then

begin

if button1.Enabled=false then

begin

ADOQuery1.SQL.Add('DELETE cascade FROM Клиенты where Код_клиента=');

ADOQuery1.SQL.Add(DBGrid1.SelectedField.AsString);

ADOQuery1.ExecSQL;

ADODataSet2.Active:=false;

ADODataSet2.Active:=true;

Form4.ADODataSet1.Active:=false;

Form4.ADODataSet1.Active:=true;

ADOQuery1.SQL.Clear;

Button5.Enabled:=false;

end;

Таблица «Клиенты» до удаления записи и после представлена соответственно на рисунке 2.7- Таблица «Клиенты»  и на рисунке 2.8- Удаление записи.

Рисунок 2.7- Таблица «Клиенты»

Рисунок 2.8- Удаление записи

2.3.3 Сортировка данных

Для сортировки данных необходимо выбрать  просмотр.

В просмотре нужно выбрать по какому полю сортировать и по какому признаку, то есть по убыванию или возрастанию.

Процедура сортировки происходит с  помощью свойства элемента ADODataSet1. Свойство называется ADODataSet1.Sort. Ниже представлен  код процедуры сортировки:

procedure TForm1.cbb1Change(Sender: TObject);

begin

ADOdataset1.Active:=false;

ADOdataset1.CommandText:='select Сделки.Код_сделки, Клиенты.Название, Клиенты.Вид_деятельности, Клиенты.Адрес, Клиенты.Телефон,  Услуги.Название, Услуги.Описание, Сделки.Комиссионные, Сделки.Описание, Сделки.Сумма ';

ADOdataset1.CommandText:=ADOdataset1.CommandText+'from Сделки, Услуги, Клиенты WHERE (Сделки.Код_услуги=Услуги.Код_услуги)AND(Сделки.Код_клиента=Клиенты.Код_клиента) ORDER BY ';

ADOdataset1.CommandText:=ADOdataset1.CommandText+cbb1.Text;

If combobox1.ItemIndex=1 then ADOdataset1.CommandText:=ADOdataset1.CommandText+' DESC';

ADOdataset1.Active:=true;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

ADOdataset1.Active:=false;

ADOdataset1.CommandText:='select Сделки.Код_сделки, Клиенты.Название, Клиенты.Вид_деятельности, Клиенты.Адрес, Клиенты.Телефон,  Услуги.Название, Услуги.Описание, Сделки.Комиссионные, Сделки.Описание, Сделки.Сумма ';

ADOdataset1.CommandText:=ADOdataset1.CommandText+'from Сделки, Услуги, Клиенты WHERE (Сделки.Код_услуги=Услуги.Код_услуги)AND(Сделки.Код_клиента=Клиенты.Код_клиента) ORDER BY ';

ADOdataset1.CommandText:=ADOdataset1.CommandText+cbb1.Text;

If combobox1.ItemIndex=1 then ADOdataset1.CommandText:=ADOdataset1.CommandText+' DESC';

ADOdataset1.Active:=true;

end;

Разберем процедуру сортировки на примере. Выберем параметры сортировки. Выберем поле «Клиенты.Название», по убыванию. Отсортированная таблица  представлена на рисунке 2.9 - Отсортированная  таблица.

Рисунок 2.9- Отсортированная таблица

2.4 Внешний вид программы

При запуске программы появляется форма, представленная на рисунке 2.10- Программа.

Рисунок 2.10- Программа

В появившейся форме необходимо выбрать таблицу, с которой предполагается работать. Сделать это нужно следующим  образом: нажать на кнопочку с соответствующим  названием таблицы. После выбора появится выбранная таблица. Нажимая  на кнопки Добавить или Удалить, можно  производить эти действия с таблицей. Выберем, например, таблицу «Сделки». Результат представлен на рисунке 2.11 - Таблица «Сделки». Полный код программы представлен в приложении А.

Рисунок 2.11 - Таблица «Сделки»

 

Заключение

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

 

Список используемых источников

1. Карпова Т.С. Базы  данных: модели, разработка. - СПб.: Питер, 2001._304 с.

2. Дейт К. Введение  в системы баз данных: Пер. с  англ. - М.: Наука, 1980.-464 с.

3. Хомоненко А.Д., Цыганков  В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных  заведений / Под ред. проф. А.Д.  Хомоненко. - СПб.: КОРОНА принт, 2000. - 416с.

4. Горев А., Макащарипов  С., Владимиров Ю. Microsoft SQL. Server 6.5 для  профессионалов. - СПб.: Питер, 1998. - 270 с.

5. Тиори Т., Фрай Дж. Проектирование  структур баз данных: В 2-х кн. Пер. с англ. - М.: Мир, 1985. - 287 с.

6. Роберт Дж. Мюллер. Базы  данных и UML. Пер. с англ. - издательство  «Лори», 2002. - 420 с.

7. Материалы сайта Мурманского  государственного технического  университета, [Электронный ресурс] - www.mstu.edu.ru.

8. Материалы сайта «Интернет  университет информационных технологий», [Электронный ресурс] - www.intuit.ru.

9. Хомоненко А. «Delphi 7, программирование, BHV» СПб, 2003 г., 1216 с.

10. Райордан Р. Основы  реляционных баз данных: Пер. с  англ. - М.: Издательско-торговый дом  «Русская Редакция», 2001. - 384 с.

 

Приложение А

Процедуры добавления данных

procedure TForm2.Button1Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then ShowMessage('Заполните все поля!') else

begin

form1.ADOQuery1.SQL.Add('INSERT INTO Клиенты ( Название, Вид_деятельности, Адрес, Телефон ) VALUES ');

form1.ADOQuery1.SQL.Add('('''+Edit1.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit2.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit3.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit4.Text+'''');

form1.ADOQuery1.SQL.Add(');');

form1.ADOQuery1.ExecSQL;

form1.ADODataSet2.Active:=false;

form1.ADODataSet2.Active:=true;

form4.ADODataSet1.Active:=false;

form4.ADODataSet1.Active:=true;

form1.ADOQuery1.SQL.Clear;

form2.Close();

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit2.Text='') then ShowMessage('Заполните все поля!') else

begin

form1.ADOQuery1.SQL.Add ('INSERT INTO Услуги ( Название, Описание ) VALUES');

form1.ADOQuery1.SQL.Add('('''+Edit1.Text+'''');

form1.ADOQuery1.SQL.Add(','''+Edit2.Text+'''');

form1.ADOQuery1.SQL.Add(');');

form1.ADOQuery1.ExecSQL;

form1.ADODataSet2.Active:=false;

form1.ADODataSet2.Active:=true;