Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2015, 18:56   #21
Shingis
Пользователь
 
Регистрация: 09.04.2009
Сообщений: 27
По умолчанию

ShowMessage('In work1,work2,work3 '+IntToStr(allRecord)+' records.');
А что такое здесь --records.

))))) а все понял

Есть таблица data1- (поле-ФИО, Курс, Пол, Дата_поступление, Год_выпуска, Льготы)
Из этой таблицы надо запросить количество студентов по Льготам (есть 6 видов льготы) с такого то курса(1 курса и со всего курса и выпущенные) с полам (Муж и Жен).
И эти количества надо вставить в таблицу data2 -(Поле-Наименование_льготы, Муж_1курса, жен_1курса, Муж_общ, Жен_общ, Муж_Выпущен, Жен_Выпущен)

Пожалуйста дайте ответ....
Один профи из форума дал вот такой но че не идет
Код:
var oper_date:TDateTime;
begin
  oper_date:=Trunc(DateTimePicker1.Date);
  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='SELECT Льготы,Пол,'+
                      '    SUM(IIF(Year(Дата_поступления)=Year(:operdate1),1,0)) AS Count1,'+
                      '    SUM(IIF(Дата_выпуска is null,1,0)) AS Count2,'+
                      '    SUM(IIF(Year(Дата_выпуска)=Year(:operdate2),1,0)) AS Count3'+
                      '  FROM DNK'+
                      '  WHERE Льготы IN ("Численность лиц, приравненных'
+' по льготам и гарантиям к участникам войны и инвалидам '
+' войны","Численность инвалидов 1 и 2 групп старше 18 лет") '
AND Пол IN  ("Муж","Жен")'+
                      '  GROUP BY Льготы,Пол';
  ADOQuery1.Parameters.ParamByName('operdate1').Value :=oper_date;
  ADOQuery1.Parameters.ParamByName('operdate2').Value :=oper_date;
  try
    ADOQuery1.Active:=True;
  except
   MessageDlg('Не могу показать ))', mtError, [mbOK], 0);
  end;

end;

end.

Последний раз редактировалось Stilet; 31.03.2015 в 19:31.
Shingis вне форума Ответить с цитированием
Старый 31.03.2015, 19:33   #22
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Льготы IN ("Численность лиц, приравненных'
+' по льготам и гарантиям к участникам войны и инвалидам '
+' войны","Численность инвалидов 1 и 2 групп старше 18 лет") '
Позволь совет на будущее: Вот такие вот группы льгот нужно держать справочником, а связывать с таблицами по коду. Неудачная это идея так характеризировать запись.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.03.2015, 20:36   #23
Shingis
Пользователь
 
Регистрация: 09.04.2009
Сообщений: 27
По умолчанию

Stilet спасибо за совет! Но дай хоть какое то понятие ---что и где как справочник делать,
и как связывать по коду? Хоть маленький пример по другим таблицам хотя бы (((

А с этим ни как не получится? которые наверху написан
Shingis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как посчитать количество файлов в каталоге? помогите плиз older Общие вопросы Delphi 5 23.05.2008 14:22
Паскаль. найти все числа кратные трем и посчитать их количество __k1ll3r__ Помощь студентам 6 02.04.2008 16:37
Фрактал. Посчитать количество треугольников. Marsik Помощь студентам 2 22.11.2007 08:19
Delphy и Access.вводя инфу во вторичный файл Access, она отражалась в первом ADOTable Lev БД в Delphi 0 11.11.2007 12:14
Количество записей в FastReport4 Askat БД в Delphi 1 02.07.2007 23:37