Кількість балів 25. Використовуючи фільтрацію відібрати дані із списку за наступними
критеріями:
1. Зробити вибірку по продажу автомобілів марки BMW.
2. Вибірку автомобілів, які були продані продавцем Дацко у
листопаді 2010 р.
А. в
D E
G
1
Облік проданих фірмою автомобілів
2
не
Назва Ціна $ Кількість Вартість Продавець Дата
3 запису
4
1 BMW
995 mm 4380 000 Дацко 14.11.10
5 2 Opel
$100 00
5 500 000 Діденко 25.11.10
6
3 Fiat
390 00 45360 0 Верес
17 12 10
7 4 BMW
S95
3 285 00 Дацко 18.12 10
8 5 Opel
$100 000
5 500 000 Горій 18.12.10
6 Fiat
590 000 3 $270 000 Дацко 25.12 10
10 B|Daewoo0
S80 00 10 000 000 Горій 17.12.10
11 9|Daew00
S00 00
6 S400 000 Діденко 14.11.10
12 10 Lexus LS $104 00
2 5200 000 Верес 25.12 10
13 11 Toyota Sequoia $88 00
$264 000 Діденко 14.11.10
Результати відбору та область критеріїв для використання
розширеного фільтру подати у вигляді таблиці.

procedure TfrmMain.FindFilesOnDisk(Dir : string);

var SR    : TSearchRec;

   Err   : integer;

   i, j  : integer;

   st    : string;

begin

 if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';

 Err := FindFirst(Dir + '*.*', faAnyFile, SR);

 while Err = 0 do

   begin

     j := 0;

     st := AnsiUpperCase(SR.Name);

     if lbDirs.Items.Count > 0 then //Если в списке есть каталоги

       //Проверить, нет ли среди них

       for i := 0 to lbDirs.Items.Count - 1 do            

         if lbDirs.Items[i] = st then  //найденного

           begin

             j := 1;

             break;

           end;      //if lbDirs.Items[i] = st then

     if j = 0 then

       begin

         if (SR.Name <> '.') and

            (SR.Name <> '..') and

            ((SR.Attr and faDirectory) <> 0) then

           begin

             inc(NumDir);

             DirList.Add(Dir + st);

             frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);

             pbFind.Position := NumDir;

             Application.ProcessMessages;

             FindFilesOnDisk(Dir + SR.Name);

           end;    //if (SR.Name <> '.') and

       end;        //if j = 0 then

     Err := FindNext(SR);

   end;

end;

Объяснение:

Реляционная база данных, созданная в соответствии с проектом канонической модели данных предметной области, состоит из нормализованных таблиц, связанных одно-многозначными отношениями. В такой базе данных обеспечивается отсутствие дублирования описательных данных, их однократный ввод, поддержание целостности данных средствами системы. Связи между таблицами позволяют выполнить объединение данных различных таблиц, необходимое для решения большинства задач ввода, просмотра и корректировки данных, получения информации по запросам и вывода отчетов.

Объяснение:

подписайся(^_^)