46634 (607889), страница 3

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

Текст из файла (страница 3)

а) Наличия на компьютере BDE Administrator-a.

б) Папка, где хранятся таблицы баз дынных, не должна переименовываться.

3.2 Создание таблиц базы данных с помощью утилиты

DATABASE DESKTOP

Т аблица 1: Автомобили имеет следующий вид

Т аблица 3: Счет-фактура

Таблица 4: Торговый чек

Примечание: Таблица “Автомобили” и “Счет-фактура” связаны связью 1:M (один-ко-многим), следовательно, прежде чем удалять поле из таблицы “Счет-фактура”, сначала следует удалить соответствующее поле в таблице “Aвтомобили”. Таблица “Торговый чек” и ”Покупатель” также связаны связью 1:M, следовательно, прежде чем удалять поле из таблицы “Торговый чек”, сначала следует удалить соответствующее поле в таблице “Покупатель”, для сохранения ссылочной целостности.

3.3 Организация пользовательского интерфейса

3.3.1 Создание меню, реализующего основные функции информационной системы

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

После успешной идентификации пользователя загружается следующая форма:

При помощи этой формы можно корректировать цену автомобилей с

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

Данная форма является формой-заставкой.

После успешной загрузки этой формы появляется главная форма.

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

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

3.3.2 Проектирование форм для работы с базой данных

Рассмотрим одну из форм (меню у всех форм практически одинаковы) автомобили. Она имеет вид:

Рассмотрим все меню по порядку:

Меню - здесь осуществляется выход из программы. По сочетанию клавиш Alt+F4 или непосредственно нажатием.

Текст процедуры:

If MessageDlg('Подтверждение?',MtConfirmation,[mbYes,mbNo,mbCancel],

0)=mrYes then

Form1.Close;

Form4.Table1.FlushBuffers;

Form5.Table1.FlushBuffers;

Form6.Table1.FlushBuffers;

Form7.Table1.FlushBuffers;

Формы – здесь осуществляется навигация по формам.

Текст процедуры:

form5.visible:=false;

form3.visible:=true;

Примечание: Для остальных форм текст такой же только изменяется номер форм.

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

Организация формы ввода нового автомобиля осуществляется следующим образом:

form11.visible:=true;

form11.Edit3.clear;

form11.Edit4.clear;

form11.Edit5.clear;

form11.Edit6.clear;

form11.Edit7.clear;

Внешний вид этой формы:

Марка автомобиля и цена добавляются автоматически.

Процедура кнопки добавить:

form5.Table1.insert;

form5.Table1.edit;

form5.Table1Color.Asstring:=edit4.text;

form5.Table1Kol_vo_door.Asstring:=edit5.text;

form5.Table1Engine_power.Asstring:=edit6.text;

form5.Table1Type_Salon.Asstring:=edit7.text;

form5.table1.post;

Form5.Table1.FlushBuffers;

form11.visible:=false;

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

Form5.Table1.FlushBuffers;

Form5.Visible:=false;

Form24.visible:=true;

Form24.Table1.Refresh;

Form24.DBGrid3.Visible:=false;

Ф орма поиска выглядит так:

Процедура кнопки “Поиск”:

procedure TForm24.Button1Click(Sender: TObject);

Label s,d;

begin

if (Form24.Edit1.text='')or (Form24.Edit2.text='') or (Form24.Edit3.text='')

then

BEGIN

Showmessage('Значения не введены, возможен неправильный поиск!');

goto s;

END;

with Form24.table1 do

begin

locate('Name_Modeli',edit1.text,[]);

locate('Predlag_Zena',edit2.text,[]);

locate('Color',edit3.text,[]);

if (locate('Name_Modeli',edit1.text,[])=false) and

(locate('Predlag_Zena',edit2.text,[])=false) and

(locate('Color',edit3.text,[])=false)

then

begin

Showmessage('Такого автомобиля нет!');

Form24.Edit1.clear;

Form24.table1.first;

s: Form24.DBGrid3.Visible:=false;

end

else

d: Form24.DBGrid3.Visible:=True;

end;

Form24.Table1.Refresh;

Form24.Query1.active:=true;

end;

Пример поиска автомобиля:

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

Следующий компонент меню – это поиск и замена данных об автомобиле.

Организация формы поиска:

form13.visible:=true;

form13.edit1.clear;form13.edit2.clear;form13.edit3.clear;

form13.edit4.clear;form13.edit5.clear;form13.edit6.clear;

form13.edit7.clear;

form13.edit10.clear;form13.edit11.clear;form13.edit12.clear;

form13.edit13.clear;form13.edit14.clear;form13.edit15.clear;

В нешний вид формы

Процедура кнопки найти:

with Form5.table1 do

if (Locate('Kod_Modeli',Edit1.text,[])=true) then

begin

SpeedButton3.Enabled:=true;

Form13.Edit2.text:=Form5.table1Name_Modeli.AsString;

Form13.Edit3.text:=Form5.table1Color.AsString;

Form13.Edit4.text:=Form5.table1Predlag_Zena.AsString;

Form13.Edit5.text:=Form5.table1Kol_vo_Door.AsString;

Form13.Edit6.text:=Form5.table1Engine_Power.AsString;

Form13.Edit7.text:=Form5.table1Type_Salon.AsString;

Form13.Label11.Visible:=true;

Form13.Label12.Visible:=false;

end

else

begin

Form13.Label12.Visible:=true;

SpeedButton3.Enabled:=false;

Form13.Label11.Visible:=false;

Form13.Edit2.Clear;

Form13.Edit3.Clear;

Form13.Edit4.Clear;

Form13.Edit5.Clear;

Form13.Edit6.Clear;

Form13.Edit7.Clear;

end;

Организация формы фильтрации:

Form5.Visible:=false;

Form26.visible:=true;

form4.timer2.enabled:=false;

Внешний вид формы:

Процедура кнопки применить для столбца Цена (для других столбцов аналогично, только меняется название столбца):

if (radiogroup1.ItemIndex=0) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena<'+(Edit1.Text);

Filtered:=true;

end;

begin

if (radiogroup1.ItemIndex=1) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena>'+(Edit1.Text);

Filtered:=true;

end;

end;

begin

if (radiogroup1.ItemIndex=2) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena<='+(Edit1.Text);

Filtered:=true;

end;

end;

if (radiogroup1.ItemIndex=3) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena>='+(Edit1.Text);

Filtered:=true;

end;

if (radiogroup1.ItemIndex=4) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena='+(Edit1.Text);

Filtered:=true;

end;

Следующий пункт меню – это Графики.

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

Form5.Table1.FlushBuffers;

Form5.Visible:=false;

Form25.Visible:=true;

Форма графики, может показывать два графика. Рассмотрим внешний вид этих графиков:

Первый: Цены на автомобили.

Процедура кнопки показа первого графика:

Form5.Visible:=false;

Form25.Caption:='Цены на автомобили';

Form25.DBChart1.Visible:=true;

Form25.DBChart2.Visible:=false;

В торой: Сезонность цен.

Процедура кнопки показа второго графика:

Form5.Visible:=false;

Form25.Caption:='Сезонность цен на автомобили';

Form25.DBChart1.Visible:=false;

Form25.DBChart2.Visible:=true;

Следующий пункт меню – это Очистка базы.

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

Процедура меню “Очистка всей базы”

Form5.Table1.Edit;

repeat

Form5.Table1.delete;

until (Form5.table1.eof=true);

Form6.Table1.active:=true;

Form6.Table1.Edit;

repeat

Form6.Table1.delete;

until (Form6.table1.eof=true);

Form7.Table1.active:=true;

Form7.Table1.Edit;

repeat

Form7.Table1.delete;

until (Form7.table1.eof=true);

Form4.Table1.active:=true;

Form4.Table1.Edit;

repeat

Form4.Table1.delete;

until (Form4.table1.eof=true);

Заключение

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

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

Список используемой литературы

1. Дарахвелидзе П. М. Программирование в Delphi 5 – М: 2001. – 500с., ил

2. Базы данных: Модели, разработка, реализация / Т.С. Карпова. - СПб.: Питер, 2001. – 304 с.: ил.

3. Грабер М. Введение в SQL: Пер. с англ. - М.: “ЛОРИ”, 2001.- 6412., ил.

Характеристики

Список файлов курсовой работы