Цитата:
Сообщение от starcon
...Что нужно добавить?
|
Добавьте лучше кверю и при загрузке или после изменений выполните напр.
Код:
...
with AdoQuery1 do
begin
Close;
SQL.Text:= 'SELECT COUNT(*) FROM имя_таблицы WHERE Sort=''Киприч''';
Open;
Label1.Caption:= 'Всего Кипричей: ' + Fields[0].AsString;
end;
...