2.3 Спецификации набора данных

Таблица 2.9

Продолжение таблицы 2.9

2.4 Проект базы данных, используемой в задаче

2.5 Разработка алгоритмов обработки данных

2.5.1 Алгоритм работы главной формы приложения

Схема 3.1

2.5.2 Алгоритм работы форм приложения

Схема 3.2

2.5 Таблица идентификаторов

Таблица 2.10

Продолжение таблицы 2.10

2.6 Разработка SQL-запросов к базе данных

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

procedure TFSearch.LMDButton1Click(Sender: TObject);

begin

  Query1.Close;

  Query1.SQL.Clear;

  try

    Query1.Sql.Add('select a.kod_avto, m.marka, a.model, a.cvet, a.tip_kuz, a.cena, a.v, k.korobka,k.privod ');

  Query1.SQL.Add('from avto a, komplect k, marka m ');

  Query1.SQL.Add('where ');

  if checkBox9.Checked then Query1.SQL.Add('a.marka = '+ Inttostr(DBLookupComboBox1.keyvalue)+' and');

  if checkBox10.Checked then Query1.SQL.Add('a.tip_kuz="'+ComboBox1.Text+

'" and ');

  if checkBox11.Checked then Query1.SQL.Add('a.v<='+Edit1.Text+' and ');

  if checkBox12.Checked then Query1.SQL.Add('a.cena<='+Edit2.Text+' and ');

  if checkBox4.Checked then Query1.SQL.Add('k.elect_pak = '+

BoolToStr(CheckBox17.Checked)+' and ');

  if checkBox5.Checked then Query1.SQL.Add('k.kondic = '+

BoolToStr(CheckBox16.Checked)+' and ');

  if checkBox6.Checked then Query1.SQL.Add('k.music = '+ BoolToStr(CheckBox15.Checked)+' and ');

  if checkBox7.Checked then Query1.SQL.Add('k.gur = '+ BoolToStr(CheckBox14.Checked)+' and ');

  if checkBox8.Checked then Query1.SQL.Add('k.abs = '+ BoolToStr(CheckBox13.Checked)+' and ');

  if checkBox1.Checked then Query1.SQL.Add('k.koleso = "'+ComboBox2.Text+
'" and ');

  if checkBox2.Checked then Query1.SQL.Add('k.korobka = "'+ComboBox3.Text+
'" and ');

  if checkBox3.Checked then Query1.SQL.Add('k.privod = "'+ComboBox4.Text+
'" and ');

  Query1.SQL.Add('a.marka=m.id_marka and a.kod_avto=k.kod_avto');

     Query1.Open;

  except

    MessageDlg('Введены не все данные',mtWarning,[mbOk],0);

  end;

end;

 2.7 Разработка форм приложения, меню, отчетов

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

Для написания данной программы я использовал как стандартный набор компонентов палитры Delphi 7, так и дополнительные (RXLib, GlobusLib, LmdTools v6.12.00 Professional For Delphi 7). 

В программе реализованы такие функции как отчёт, он же экспорт в Excel. Данные которые отображаются в таблице БД по инициативе пользователя могут быть помещены в отчёт. Все отчёты созданные программой хранятся во вложенном каталоге «Reports». Название отчётов формируется из параметров: место в программе откуда был произведён отчёт и текущая дата.

Меню, спроектированное на главной форме можно представить следующим образом:

·                                                                                                                                                                     Файл

o                                                                                                                                            Выход

·                                                                                                                                                                     Справочники

o                                                                                                                                            Менеджеры

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18