бд + расчет в %

[Dev1]

Всем добрый день!
есть такое задание!
Разработать и написать программу для получения статистических данных о клиентах. Данные о клиентах:
1)Учетный номер клиента
2)возраст
3)пол(женский, мужской)
4)Семейное положение (одинок, в браке, разведен)


Программа должна выдавать на экран результаты следующих вычислений:
А)% клиентов в возрасте до 21 года;
Б)% клиентов в возрасте от 21 года и старше;
В)% мужчин;
Г)% женщин;
Д)% в браке;
Е)% одиноких;
Ж)% разведенных;

я сделал базу в акцессе..в Делфи.. все готово... но нужно только посчитать! подскажите как это сделать... и при помощи чего?
база в делфи при помощи:
ADOtable
ADOconnection
DataSource1
DBGrid1

очень нужна подсказка...

[Dark_Spirit]

если мне не изменяет память, подсчитать можно используя простую математическую формулу:
(<клиентов в возрасте до 21 года>/<общее колличество клиентов>)*100
а если серьёзно: на форму можно бросить adoquery и для каждого из условий написать запрос.
Вариант А)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_с_возврастом><21';
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант Б)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_с_возврастом> > 21';
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант В)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_пол>='+quotedstr('м');
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант Г)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_пол>='+quotedstr('ж');
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант Д)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_семейное_положение>=1';
// для примера пускай 1 - это клиенты в браке, 2 - одинокие, 3 - разведённые
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант Е)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_семейное_положение>=2';
// для примера пускай 1 - это клиенты в браке, 2 - одинокие, 3 - разведённые
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

Вариант Ж)

 adoquery1.sql.text:='select <поле_учёнтый_номер_клиента> from <таблица_с_клиентами> where <поле_семейное_положение>=3';
// для примера пускай 1 - это клиенты в браке, 2 - одинокие, 3 - разведённые
 adoquery1.open;
 if not(adoquery1.isempty)
   then a:=(adoquery1.recordcount/<количество_клиентов>)*100;
 adoquery1.active:=false;

[Dev1]

оо..спасиба... а вот еще... где и как лучше это вывести на экран? ))