Автоматизация работы фирмы по продаже автомобилей (стр. 4 из 4)
 |
Внешний вид формы
Процедура кнопки найти:
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., ил.