Дипломная работа: АРМ мененджер автосалона "А-моторс"
Обозначение | Назначение | Примечание |
1 | 2 | 3 |
vladelec.dbf | Информация о владельцах | |
sotrud.dbf | Информация о менеджерах | |
avto.dbf | Информация об автомобилях | |
avto_in.dbf | Регистрация автомобиля | |
komplect.dbf | Комплектация автомобиля |
Продолжение таблицы 2.9
1 | 2 | 3 |
avto_out.dbf | Проданные автомобили | |
Marka.bdf | Справочник марок автомобилей |
2.4 Проект базы данных, используемой в задаче
2.5 Разработка алгоритмов обработки данных
2.5.1 Алгоритм работы главной формы приложения
Схема 3.1
2.5.2 Алгоритм работы форм приложения
Схема 3.2
2.5 Таблица идентификаторов
Таблица 2.10
Идентификатор | Смысловое содержание | Тип | Разрядность |
Main.path | Путь к папке программы | string | |
Add.pic1 | Путь к первому изображению | String |
Продолжение таблицы 2.10
Add.pic2 | Путь ко второму изображению | string | |
Del. AppProgID | Идентификатор приложения Microsoft Excel | string | |
Del.App | Указатель на приложение Microsoft Excel | Variant | |
Del.Ke | Указатель на рабочую книгу Microsoft Excel | Variant | |
Del.Abc | Указатель на лист Microsoft Excel | Variant | |
Del.Result | Предназначена для проверки удачной активизации приложения Mcirosoft Excel | HResult | |
Del.i | Счетчик цикла | integer |
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 Выход
· Справочники
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12