19 lines
764 B
ObjectPascal
19 lines
764 B
ObjectPascal
|
// Модуль Controls - визуализация запросов к базе данных
|
|||
|
|
uses GraphWPF,Controls,ABCDatabases;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Window.Title := 'Модуль Controls - визуализация запросов к базе данных';
|
|||
|
|
LeftPanel(150,Colors.Orange);
|
|||
|
|
var l := SetMainControl.AsListView;
|
|||
|
|
|
|||
|
|
var страны := ЗаполнитьМассивСтран;
|
|||
|
|
l.Fill(страны);
|
|||
|
|
|
|||
|
|
Button('Все').Click := procedure -> l.Fill(страны);
|
|||
|
|
|
|||
|
|
Button('Азия').Click := procedure ->
|
|||
|
|
l.Fill(страны.Where(страна -> страна.Континент='Азия'));
|
|||
|
|
|
|||
|
|
Button('Сорт по населению').Click := procedure ->
|
|||
|
|
l.Fill(страны.OrderByDescending(s -> s.Население));
|
|||
|
|
end.
|