|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2006, 13:47 | #1 |
Регистрация: 20.12.2006
Сообщений: 4
|
Help! Немогу написать код для посчета и вывода результатов.
Немогу написать код для посчета и вывода результатов.
Нужно выбрать из БД (стандартным драйвером), допустим RRR, с поля ( statys) выбирать строки с одинаковыми полями(цифрами) подсчитать количество и результат вывести на Форму. |
22.12.2006, 06:34 | #2 |
Регистрация: 20.12.2006
Сообщений: 4
|
подобный код такой
var i, N, M: Integer; begin N:=0 M :=DataModule2.Table1.RecordCount; DataModule2.Table1.First; for i := 1 to M do begin if DataModule2.Table1.FieldByName('SOC STATUS').Asboolean then ins(N); DataModule2.Table1.Next; end; Unit3.Form3.Label1.Caption:=IntToSt r(N); end. как переделать ? Есть кто небудь кто помочь может ? |
22.12.2006, 13:29 | #3 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,534
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Немогу зарегиться на regmefast.org | Altera | Свободное общение | 2 | 28.07.2008 13:33 |
Немогу решить задачу | Санячос | Общие вопросы Delphi | 2 | 11.06.2008 15:35 |
Печать Qreport результатов Query - проблема | nataly_ukr | БД в Delphi | 2 | 05.11.2007 10:12 |
Немогу установить GLSCENE !!!! | UnD)eaD)Snake | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 18.07.2007 14:06 |
Вывод результатов в другой Grid | Barbara | БД в Delphi | 7 | 20.02.2007 15:14 |