0: Begin

Table1.Filter:=FilterString;

Table1.Filtered:=True;

end;

1: Begin …

4. Возможность каскадного удаления данных

Удаление продукта осуществляется следующим образом:

procedure TForm1.Button17Click(Sender: TObject);

begin

table10.Delete; //удаляем информацию из Поставщика

table9.Delete; //удаляем информацию из Поставки

table14.Delete; //удаляем информацию из Продукта

end;

5. Возможность формирования SQL-запросов для получения интересующей информации:

1. Вывести все названия продуктов код и кол-во которые используются в блюде…

procedure TForm13.RadioButton1Enter(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.SQL.Add('Select T66.NAZ_PRODUK, T66.KOD_PRODUK, T5.KOL_VO '+

'From T66 as a, T5 as b, T4 as c '+

'Where (a.KOD_PRODUK=b.KOD_PRODUK)'+

'AND (b.NOM_BLUDA=c.NOM_BLUDA) '+

'AND (c.NAZVANIE='''+edit1.text+''') ');

Query1.Open;

end;

2. Вывести всех поставщиков, которые поставляют … и закупщик …

procedure TForm13.RadioButton2Enter(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.SQL.Add ('SELECT T100.NAZ_POS_KA '+

'from T66 as a, T9 as b, T100 as c '+

'where '+

' (b.KOD_PRODUK=a.KOD_PRODUK) '+

' and (c.KOD_POSTAV=b.KOD_POSTAV) '+

'and (exists (select * from T100 as c '+

'where (b.KOD_PRODUK=a.KOD_PRODUK) and (c.KOD_POSTAV=b.KOD_POSTAV) '+

' and (a.NAZ_PRODUK like '''+edit2.text+''') '+

' and (b.ZAKUPSHIK like '''+edit3.text+'''))) ');

Query1.Open;

end;

3. Вывести все блюда, в которых используется…

procedure TForm13.RadioButton3Enter(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.SQL.Add ('Select T4.NAZVANIE '+

'From T4 as a, T5 as b, T66 as c '+

'Where (a.NOM_BLUDA=b.NOM_BLUDA) AND '+

'(b.KOD_PRODUK=c.KOD_PRODUK) AND '+

'(c.NAZ_PRODUK=(select T66.NAZ_PRODUK '+

' from T66 as c '+

'WHERE c.NAZ_PRODUK='''+edit4.text+''')) ');

Query1.Open;

end;

4. Вывести названия блюд, которые готовит…

procedure TForm13.RadioButton4Enter(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.SQL.Add ('select T4.NAZVANIE '+

'From T4 as a '+

'Where (a.NOM_BLUDA in '+

'(select a.NOM_BLUDA from T4 as a, T2 as b, T3333333 as c '+

' where '+

'(a.NOM_BLUDA=c.NOM_BLUDA ) '+

'AND (c.NOM_KUHNi=b.NOM_KUHNI) '+

'AND (b.POVAR LIKE '''+edit5.text+'''))) ');

Query1.Open;

end;

5. Изменить цену порции блюда с номером на

procedure TForm13.RadioButton5Enter(Sender: TObject);

begin

Query1.close;

Query1.SQL.Clear;

Query1.SQL.Add('update T3333333 A set A.ZENA_PORZI='''+edit6.text+''' '+

' where A.NOM_BLUDA='''+edit7.text+''' ');

Query1.ExecSQL;

Query1.SQL.Clear;

Query1.SQL.Add('select * from T3333333 A');

Query1.Open;

end;

6. Вывести дату представления, номер программы и название, за которые ответственен

procedure TForm13.RadioButton6Enter(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.SQL.Add (' SELECT T1.DATA, T7.NOM_PROGRA, T7.NAZVANIE '+

'FROM T1 as a, T7 as b '+

'WHERE (a.NOM_PROGRA=b.NOM_PROGRA) '+

'AND(b.RUKOVODIT LIKE '''+edit8.text+''') ');

Query1.Open;

end;