ожна було додавати поля в таблицю, на форму ставимо компонент DBNavigator1 (Data Controls). Пов'язуємо даний компонент з таблицею, для цього у властивості DataSource, вибираємо DataSource1.
Відображення розрахунку підсумків пов'язано з властивістю SQL компоненту Query. Для розрахунку підсумку формуємо динамічний запит:
procedure TForm5.Button1Click (Sender: TObject);
begin.SQL.Clear; .SQL.Add ( SELECT A.Kod_Tovar, A.Name_Tovar, A.Price, Z.Amount_Custom ) ;. SQL.Add ( From assortiment as A, zakaz as Z ) ;. SQL.Add ( WHERE (A.Kod_Tovar=Z.Kod_Tovar) and Z.Code_Client= + Table2.Fields [0] .AsString + and Z.Date_Custom= laquo ; + Edit1.Text + ) ;. Open; .SQL.Clear; .SQL.Add ( SELECT SUM (A.Price * Z.Amount_Custom) ) ;. SQL.Add ( FROM assortiment as A, zakaz as Z ) ;. SQL.Add ( WHERE (A.Kod_Tovar=Z.Kod_Tovar) and Z.Code_Client= + Table2.Fields [0] .AsString);
Query2.Open ;;
2.3.2 Реалізація фільтрації і пошуку
Для скорочення часу знаходження потрібного товару, на формі «Асортимент» використовуємо пошук. Пошук товару, здійснюємо через Locate і Lookup. Для цього, створюємо DBRadioGroup1, клацаючи по ньому два рази, прописуємо наступний код:
procedure TForm2.DBRadioGroup1Click (Sender: TObject) ;: Variant ;: string; Table1 doDBRadioGroup1.ItemIndex of
: beginnot Table1.Locate ( Kod_Tovar , Edit1.Text, [loCaseInsensitive, loPartialKey]) then
ShowMessage ( Запис не знайдено ) ;;
1: begin:=Table1.Lookup ( Kod_Tovar , Edit1.Text, Kod_Tovar; Name_Tovar ); VarIsNull (Res) then (, не знайдено ):=string ( Res [0]) + + String (Res [1]); (s) ;;;;
end ;;
Для того щоб здійснити фільтрацію, на формі «Подати замовлення» створюємо RadioGroup1 (Standard), клацаємо по компоненту два рази і прописуємо наступний код:
procedure TForm7.RadioGroup1Click (Sender: TObject);
begin
{Для початку, очищаємо табличку}
Query1.SQL.Clear;
{Вибираємо всі поля з таблиці assortiment.db}
Query1.SQL.Add ( Select * FROM assortiment.db ); RadioGroup1.ItemIndex of
{Якщо буде натиснута 1 строчка, тоді просто виводимо всі поля з таблиці assortiment.db}
0: begin.Close; .SQL.Clear; .SQL.Add ( Select * FROM assortiment.db ) ;;
{Якщо буде натиснута другий рядок, то фільтруємо дані таблички, по полю Type_Product, фільтрація проводитися по тексту, який введено в Edit1}
1: Query1.SQL.Add ( Where Type_Product= + Edit1.Text + );
{Якщо ж буде натиснута третій рядок, то ми виробляємо фільтрацію по діапазону, діапазон буде вводитися в Edit2 і Edit3}
2: Query1.SQL.Add ( Where Price between + Edit2.Text + and + Edit3.Text + );
end;
{Тепер відкриваємо таблицю} .Open ;;.
2.3.3 Створення звітів
Щоб надати звіт головному бухгалтеру фірми Mr.Doors необхідно перенести дані на більш адаптовану середу. На наш погляд, універсальною середовищем для підрахунку даних є Rave Designer. Розмістимо на потрібній нам формі компонент RvProject і RvDataSetCjnnection категорії Rave, і в обробнику події ProjectFile запишемо шлях: C: Ychet 1 Project1.rav
На кнопку «Виконати звіт» в обробнику події OnClick записали наступний код:
procedure TForm5.Button2Click (Sender: TObject) ;. ExecuteReport ( report2 ) ;;
Висновок
На ринку торгівлі косметичної продукції існує велика конкуренція. Для того щоб компанія розвивалася і охоплювала більший ринок, необхіднощоб основна діяльність підприємства була автоматизована.
Була розроблена і автоматизовано роботу дистриб'юторів компанії «Avon».
При розробці програмного продукту був пройдений повний цикл проектування програми від постановки завдання до тестування програмного продукту.
Даний програмний продукт відповідає на поставлені цілі: реалізований введення, редагування і видалення даних, пошук і фільтрація даних. Крім того, розроблена форма, яка допомагає отримати основну інформацію про стан поставок і замовлень, забезпеченості фірмою товарів, здійсненні програми «Звіт».
Недоліком є ??те, що дані оновлювати і заносити доводитися вручну.
Список використаної літератури
