RecordCount в Delphi7 ?

@fetka · Регистрация: 30.11.2012

Студворк — интернет-сервис помощи студентам

Ранше я написал VB6 такого кода смотрите на рис....
Как в Delphi 7 можно сделать этого смотрите на рисунка 2 ?

@zremas · 20.12.2012, 20:15

как говоришь, так и делай где надо:

Delphi
1
     ....MyDataSet.RecordCount;

@fetka · 20.12.2012, 20:37 **[ТС]**

нет я хочу поле Тип дипломов считал отдельно в Lable1 и Label2

Delphi
1
2
3
4
begin
  table1.First;
  for i:=1 to table1.RecordCount do
  begin

....
.....
как та дальше не могу разбеатся кто нибудь знает народ ????

@zremas · 20.12.2012, 22:00

нифига не понятно ЧТО ХОЧЕТСЯ ПОКАЗЫВАТЬ!!!
на рисунке поле вообще текстовое

@droider · 21.12.2012, 09:57

SQL запрос

SQL
1
SELECT COUNT (*) WHERE dip_t="ДТА";

(или ДТО)

Добавлено через 3 минуты
zremas, ТС нужно вывести количество определенного типа дипломов по указанному полю.

@zremas · 21.12.2012, 22:21

Просьба выложить тут запакованный вариант базы или набора таблиц.
Иначе трудно разговаривать.
Если это Access - то зазиповать
если набор DB-шек то зазиповать
если SQL SERVER база и она очень секретная или большая ( не нужен backup) , то экспортировать в Excel нужные таблицы.

Вообще, при формировании того датасета для грида можно сразу посчитать и показывать значение в виде доп колонок ДТА и ДТО, если эти критерии постоянные.

@fetka · 26.12.2012, 21:30 **[ТС]**

Delphi
1
2
3
4
5
6
For i:=0 to Table1.RecordCount-1 do
begin
Table1.First;
Table1.Fields.Fields[dip_t].Text:='ДТА';
Table1.Fields.Fields[dip_t].Text:='ДТO';
end;

c таким методам у мя не получается чета хм ????

@droider · 26.12.2012, 22:21

fetka, я же написал -ЗАПРОСОМ! Или так сложно вписать этот запрос в свою программу?

Добавлено через 55 секунд
fetka, с таким методом у тебя и не должно ничего получиться

@fetka · 30.12.2012, 21:29 **[ТС]**

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from tab where dip_t=:s1 and dip_t=:s2');
ADOQuery1.Parameters.ParamByName('s1').V alue := edit1.Text; // ДТА
ADOQuery1.Parameters.ParamByName('s2').V alue := edit2.Text; // ДТO
ADOQuery1.Active :=true;
ShowMessage(ADOQuery1.Fields[0].AsString); ?
Опят не работает почему ???

@droider · 30.12.2012, 22:52

fetka, если Вам заранее известны типы дипломов, то зачем применять запросы с параметром? Можно проще.
Для наглядности я использовал два ADOQuery. Для подсчета первого и второго типа. Переименовал
DTACountQuery - для подсчета кол-ва ДТА,
DTOCountQuery- для подсчета кол-ва ДТО.
Далее

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
x, y:integer; //объявляю переменные
begin
//1-й расчет
DTACountQuery.SQL.Text:='Select count(*) from tab where dip_t= "ДТА"'//считаем кол-во первого типа дипломов
DTACountQuery.Open;
x:=DTACountQuery.Fields[0].AsInteger; //возвращаемый результат - число. Заносим в переменную
DTACountQuery.Close;
// 2-й расчет
DTOCountQuery.SQL.Text:='Select count(*) from tab where dip_t= "ДТО"'//считаем кол-во второго типа дипломов
DTOCountQuery.Open;
y:=DTOCountQuery.Fields[0].AsInteger; //заносим число в переменную
DTОCountQuery.Close;
 
//выводим результаты, например, на две отдельные метки
Label1.Caption :='Количество ДТА= '+inttostr(x);
Label2.Caption :='Количество ДТО= '+inttostr(y);
end;

P.S. Можете выводить результат как Вам удобно.

Добавлено через 11 минут
В конце строк

Delphi
1
DTACountQuery.SQL.Text:='Select count(*) from tab where dip_t= "ДТА"'

и

Delphi
1
DTOCountQuery.SQL.Text:='Select count(*) from tab where dip_t= "ДТО"'

поставьте еще ;

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@fetka 0 / 0 / 0 Регистрация: 30.11.2012 Сообщений: 10

	RecordCount в Delphi7 ? 20.12.2012, 19:53. Показов 9488. Ответов 9 Метки нет (Все метки) Ранше я написал VB6 такого кода смотрите на рис.... Как в Delphi 7 можно сделать этого смотрите на рисунка 2 ? Миниатюры 0

@zremas 71 / 71 / 7 Регистрация: 19.07.2011 Сообщений: 357
	20.12.2012, 22:00
	нифига не понятно ЧТО ХОЧЕТСЯ ПОКАЗЫВАТЬ!!! на рисунке поле вообще текстовое 0

@zremas 71 / 71 / 7 Регистрация: 19.07.2011 Сообщений: 357
	21.12.2012, 22:21
	Просьба выложить тут запакованный вариант базы или набора таблиц. Иначе трудно разговаривать. Если это Access - то зазиповать если набор DB-шек то зазиповать если SQL SERVER база и она очень секретная или большая ( не нужен backup) , то экспортировать в Excel нужные таблицы. Вообще, при формировании того датасета для грида можно сразу посчитать и показывать значение в виде доп колонок ДТА и ДТО, если эти критерии постоянные. 0

@droider 4883 / 2819 / 863 Регистрация: 04.10.2012 Сообщений: 10,257
	26.12.2012, 22:21
	fetka, я же написал -ЗАПРОСОМ! Или так сложно вписать этот запрос в свою программу? Добавлено через 55 секунд fetka, с таким методом у тебя и не должно ничего получиться 0

@fetka 0 / 0 / 0 Регистрация: 30.11.2012 Сообщений: 10
	30.12.2012, 21:29 [ТС]
	ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select count(*) from tab where dip_t=:s1 and dip_t=:s2'); ADOQuery1.Parameters.ParamByName('s1').V alue := edit1.Text; // ДТА ADOQuery1.Parameters.ParamByName('s2').V alue := edit2.Text; // ДТO ADOQuery1.Active :=true; ShowMessage(ADOQuery1.Fields[0].AsString); ? Опят не работает почему ??? 0