Создание базы данных для предметной области "Нотариальная контора"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
вления.
При нажатии на клавишу Добавить происходит добавление данных. В этой процедуре сначала проверяется, все ли поля для добавления заполнены. Если заполнены не все поля, появляется сообщение Заполните все поля. Если все поля заполнены, происходит его добавление. Код процедуры добавления для таблицы Клиенты представлен ниже:
procedure TForm2.Button1Click(Sender: TObject);(Edit1.Text=) or (Edit2.Text=) or (Edit3.Text=) or (Edit4.Text=) then ShowMessage(Заполните все поля!) else.ADOQuery1.SQL.Add(INSERT INTO Клиенты ( Название, Вид_деятельности, Адрес, Телефон ) VALUES );.ADOQuery1.SQL.Add((+Edit1.Text+);.ADOQuery1.SQL.Add(,+Edit2.Text+);.ADOQuery1.SQL.Add(,+Edit3.Text+);.ADOQuery1.SQL.Add(,+Edit4.Text+);.ADOQuery1.SQL.Add(););.ADOQuery1.ExecSQL;.ADODataSet2.Active:=false;.ADODataSet2.Active:=true;.ADODataSet1.Active:=false;.ADODataSet1.Active:=true;.ADOQuery1.SQL.Clear;
form2.Close();;;
Результат добавления в таблицу Клиенты представлен на рисунке 2.6- Добавление данных.
Рисунок 2.6- Добавление данных
2.3.2Полный код процедуры добавления представлен в приложении А
2.3.3Удаление данных
Для удаления данных необходимо выбрать соответствующую таблицу и строку, требующую удаления, нажать кнопку Удалить на форме.
Разберем удаление данных на примере таблицы Клиенты. Откроем таблицу и выберем строку, требующую удаления. При нажатии на кнопку Удалить происходит процедура удаления. Код процедуры удаления представлен ниже:
thenbutton1.Enabled=falsethen.SQL.Add(DELETEcascadeFROMwhere_=);.SQL.Add(DBGrid1.SelectedField.AsString);.ExecSQL;.Active:=false;.Active:=true;.ADODataSet1.Active:=false;.ADODataSet1.Active:=true;.SQL.Clear;5.Enabled:=false;">procedure TForm1.Button5Click(Sender: TObject);DBGrid1.SelectedField.AsString<> thenbutton1.Enabled=false then.SQL.Add(DELETE cascade FROM Клиенты where Код_клиента=);.SQL.Add(DBGrid1.SelectedField.AsString);.ExecSQL;.Active:=false;.Active:=true;.ADODataSet1.Active:=false;.ADODataSet1.Active:=true;.SQL.Clear;5.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;combobox1.ItemIndex=1 then ADOdataset1.CommandText:=ADOdataset1.CommandText+ DESC;.Active:=true;;
procedure TForm1.ComboBox1Change(Sender: TObject);.Active:=false;.CommandText:=select Сделки.Код_сделки, Клиенты.Название, Клиенты.Вид_деятельности, Клиенты.Адрес, Клиенты.Телефон, Услуги.Название, Услуги.Описание, Сделки.Комиссионные, Сделки.Описание, Сделки.Сумма ;.CommandText:=ADOdataset1.CommandText+from Сделки, Услуги, Клиенты WHERE (Сделки.Код_услуги=Услуги.Код_услуги)AND(Сделки.Код_клиента=Клиенты.Код_клиента) ORDER BY ;.CommandText:=ADOdataset1.CommandText+cbb1.Text;combobox1.ItemIndex=1 then ADOdataset1.CommandText:=ADOdataset1.CommandText+ DESC;1.Active:=true;
end;
Разберем процедуру сортировки на примере. Выберем параметры сортировки. Выберем поле Клиенты.Название, по убыванию. Отсортированная таблица представлена на рисунке 2.9 - Отсортированная таблица.
Рисунок 2.9- Отсортированная таблица
2.4Внешний вид программы
При запуске программы появляется форма, представленная на рисунке 2.10- Программа.
Рисунок 2.10- Программа
В появившейся форме необходимо выбрать таблицу, с которой предполагается работать. Сделать это нужно следующим образом: нажать на кнопочку с соответствующим названием таблицы. После выбора появится выбранная таблица. Нажимая на кнопки Добавить или Удалить, можно производить эти действия с таблицей. Выберем, например, таблицу Сделки. Результат представлен на рисунке 2.11 - Таблица Сделки. Полный код программы представлен в приложении А.
Рисунок 2.11 - Таблица Сделки
Заключение
Данная программа может использоваться для отслеживания сделок нотариальной конторы. Программа позволяет любому пользователю с легкостью создавать большие объемы информации, добавлять, удалять данные, сортировать. Использование такой программы в современном мире значительно облегчает деятельность человека.
Список используемых источников
1.Карпова Т.С. Базы данных: модели, разработка. - СПб.: Питер, 2001.-304 с.
2.Дейт К. Введение в системы баз данных: Пер. с англ. - М.: Наука, 1980.-464 с.
.Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000. - 416с.
.Горев А., Макащарипов С., Владимиров Ю. Microsoft SQL. Server 6.5 для профессионалов. - СПб.: Питер, 1998. - 270 с.
.Тиори Т., Фрай Дж. Проектирование структур баз данных: В 2-х кн. Пер. с англ. - М.: Мир, 1985. - 287 с.
.Роберт Дж. Мюллер. Базы данных и UML. Пер. с англ. - издательство Лори, 2002. - 420 с.
7..">Материалы сайта Мурманского государственного техническо?/p>