АРМ менеджера в автосалоне "A-Motors"

 

      Таблица 2.4 Регистрация - avto_in.dbf

 

     Таблица 2.5 Комплектность - komplect.dbf

 

     Таблица 2.6 Продажа - avto_out.dbf

 

      Таблица 2.7 Марки автомобилей - marka.dbf

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

     Таблица 2.8

     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». Название отчётов формируется из параметров: место в программе откуда был произведён отчёт и текущая дата.

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

• Файл
• Выход
• Справочники
• Менеджеры
• Владельцы
• Марки
• Проданные автомобили
• Операции
• Зарегистрировать автомобиль
• Редактировать данные
• Продать автомобиль
• Поиск
• Вид
• Размер шрифта
• Большой
• Средний
• Маленький
• Цвет шрифта
• Помощь
• Справка
• О программе