товується для спрощення переміщення по таблиці.
Компонент ComboBox1 являє собою комбінований список даних, що зберігається в базі даних.
Компонент DBGrid1 відображає списки марок і моделей машин.
Компонент BitBtn1 при його натисканні показуються дані про фірму виробнику.
Компонент Image2 дозволяє увидить символ марки машини.
Компонент Groupbox1 об'єднує всі компоненти в певну групу.
Компонент SpeedButton1 при його натисканні відкриваються дані про модель машини.
Компонент Button кнопка для закриття форми.
3.6 Короткий опис кодів
Дані про фірму:
begin:= firms InfoFir + Table1. FieldByName ( Firm ). Value + .html laquo ;; (0, open raquo ;, PChar (vPathFIR), nil, nil, 0);
end;
Фільтрація за марками машин:
beginComboBox1 do begin
//Суть яка
//якщо вибраний нульовий пункт то зняти фільтрацію
if ItemIndex=0 then begin. Filtered:=false;// Вимкнути фільтр:= raquo ;;;
//якщо обраний перший пункт то встановити фільтрацію по фірмі ACURA
if ItemIndex=1 then begin. Filtered:=True;// Включити фільтр:= [Firm]= + Chr (39) + ACURA + Chr (39) ;. Filter:=vSetFtr;
;
ItemIndex=2 then begin. Filtered:=True;:= [Firm]= + Chr (39) + AUDI + Chr (39) ;. Filter:=vSetFtr ;;
ItemIndex=3 then begin. Filtered:=True;:= [Firm]= + Chr (39) + BMW + Chr (39) ;. Filter:=vSetFtr ;;
//І так далі ......
Пошук в базі:
ComboBox1. ItemIndex of
: if not Table1. Locate ( model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
: if not Table1. Locate ( Model raquo ;, AnsiUpperCase (Edit1. Text), [loCaseInsensitive,]) then ShowMessage ( Запис не знайдено );
//І так далі ....
Для закриття форми:
;;
Висновок
У рамках курсового проекту з дисципліни «Об'єктно-орієнтоване програмування» був розроблений програмний продукт прикладного рівня «Автосалон» при використанні сучасних засобів RAD систем - візуального середовища розробки Delphi 7.
У сучасних умовах керівникам підприємств, організацій доводитися мати справу з такою великою кількістю інформації, вона так швидко змінюється, що її часто стає просто неможливо обробляти «вручну». Крім того, на великих підприємствах з великими оборотами продукції існує необхідність обліку і контролю великого обсягу фінансової, виробничої, закупівельно-збутової, маркетингової інформації.
І для цього і створюються автоматизовані системи для збору, обробки та зберігання інформації. Такі інформаційні системи повинні полегшити процес роботи з інформацією, що циркулює на підприємстві.
У результаті виконаної розробки можна зробити наступні висновки: при розробці програмного забезпечення був пройдений повний цикл проектування програми від постановки завдання до введення вихідного результату на виконання і експлуатацію.
Розроблена програмна система дозволяє спрощення процедури пошуку необхідної машини для потенційних клієнтів, скорочення часу, який вони витрачають при виборі відповідного у всіх відносинах варіанту автомобіля.
І тому суть розробленого даного проекту полягає в тому, щоб надати максимальний обсяг інфо...
