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= "ДТО"'

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

	RecordCount в Delphi7 ? 20.12.2012, 19:53. Показов 9566. Ответов 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 4889 / 2823 / 865 Регистрация: 04.10.2012 Сообщений: 10,268
	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

Опции темы