Реферат Автоматизація товарообігу і послуг косметичної компанії &Avon&

; + Edit1.Text + );

Query1.Open;

{Підраховуємо загальну суму}

Query2.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); 2.Open;

end;

//Виробляємо висновок звіту

procedure TForm5.Button2Click (Sender: TObject) ;. ExecuteReport ( report2 ) ;;

//Виробляємо вивантаження даних в ExeleTForm5.Button3Click (Sender: TObject) ;, Workbook, Range, Cell1, Cell2, ArrayData: Variant ;, BeginRow, j: integer ;, ColCount: Integer ;: String ;:=1;:=2;:=Form5.Query1.RecordCount;:=Form5.Query1.FieldDefs.Count;:=CreateOleObject ( Excel.Application ) ;. Application.EnableEvents:=False;:=ExcelApp.WorkBooks.Add (SFile); j:=1 to Form5.Query1.Fields.Count do.Workbooks [1] .WorkSheets [1] .Cells [1, j] .Value:=Form5.Query1.Fields [j -1] .FieldName ;;:=VarArrayCreate ([1, RowCount, 1, ColCount], varVariant) ;. Query1.DisableControls; .Query1.First; Not Form5.Query1.Eof Doj:=1 to Form5.Query1.FieldDefs. Count do [Form5.Query1.RecNo, J]:=Form5.Query1.FieldbyName (Form5.Query1.FieldDefs.Items [j - 1] .DisplayName) .Value ;;. Query1.Next ;;. Query1.EnableControls ;: =WorkBook.WorkSheets [1] .Cells [BeginRow, BeginCol];:=WorkBook.WorkSheets [1] .Cells [BeginRow + RowCount - 1, BeginCol + ColCount - 1];:=WorkBook.WorkSheets [1] .Range [ Cell1, Cell2] ;. Value:=ArrayData; .Visible:=True ;;

//Фільтрація даннихTForm7.RadioGroup1Click (Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( Select * FROM assortiment.db ); RadioGroup1.ItemIndex of

{Виводимо всі наявні дані}

0: begin.Close; .SQL.Clear; .SQL.Add ( Select * FROM assortiment.db ) ;;

{Робимо фільтрацію за типом товару}

1: Query1.SQL.Add ( Where Type_Product= + Edit1.Text + );

{Робимо фільтрацію по діапазону, за ціною}

2: Query1.SQL.Add ( Where Price between + Edit2.Text + and + Edit3.Text + ) ;;

Query1.Open;

end;

//Обчислення залишився товару

procedure TForm8.Button1Click (Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( UPDATE assortiment.db ) ;. SQL.Add ( SET Amount= + Query1.Fields [3] .AsString + ); .SQL.Add ( Where Kod_Tovar= + Query1.Fields [0] .AsString + );

Query2.Open ;;

Додаток 2

Основні процедури, функції і оператори, використовувані при розробці програми «Avon»

DBEdit.DataField - поле бази даних, для відображення якого використовується компонент. Query.SQL - записаний на мові SQL-запит до бази даних. Query.SQL.Add - додавання SQL-запиту. Query.Active - виведення вмісту SQL-запиту. Table1.Locate (Table1.Locate ( Familiya , Edit1.Text, [LoCaseInsensitive, LoPartialKey]) - пошук запису, що задовольняє критерію пошуку. Table1.Lookup ( Kod_Tovar , Edit1.Text, Kod_Tovar; Name_Tovar ) - пошук записів і виведення даних в окремому вікні Table1.Filter - задає фільтр для даних. Table1.Filtered - властивість, що визначає, чи будуть профільтровані дані Table1.IndexName - визначає поле, по якому будуть відсортовані дані таблиці RVProject.ExecuteReport ( Report ) - виконання звіту. Query1.SQL.Add ( WHERE (A.Kod_Tovar=Z.Kod_Tovar) and Z.Code_Client= + Table2.Fields [0] .AsString + and Z.Date_Custom= + Edit1.Text + ) - вибирає тільки той товар, який відповідає веденной даті.