Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подсчет значений ячеек в таблице DBGrid.

M0RFEY © (2010-01-11 00:21:00)
Здравствуйте, написал курсовой почти до конца и столкнулся с проблемой.
У меня имеется 2 DBase таблицы, во 2й таблице 1й столбец ФИО, в нем имеются записи Фамилий студентов, со 2го по 24й столбец идут наименования рабочих дней недели (01.01, 02.01, 03.01 и т.д.), на пересечении столбцов и строк в ячейках записаны значения P и A - (Присутствовал) и (Отсутствовал) соответственно. Задача состоит в том, чтобы вывести процент посещения на отдельную страница, предварительно подсчитав кол-во А и Р. Я написал код, который должен по нажатию пункта в MainMenu на 1й Форме выводить кол-во отсутствующих (А) в Лейбл2. В ходе написания тела понял что прога фигня и надо что-то менять ))

Мой вариант программы (не судите строго, как объясняли, так и написал=) )

procedure TForm1.N21Click(Sender: TObject);
var
i, all, counter:Integer;
absent:Integer;
abs:string;
begin
absent:=0;
abs:='a';
DataModule2.tbl2.first;
for i:=1 to DataModule2.tbl2.RecordCount do
begin
if DataModule2.tbl2.FieldByName('FieldName')=abs then
absent:=absent+1;
all:=all+1;
counter:=counter+1;
if counter=24 then
begin
counter:=0;
DataModule2.tbl2.next;
end;
end;
form7.show;
form7.lbl2.Caption:=inttostr(absent);
end;

end.

Мне как и Delphi =) не нравится строка

if DataModule2.tbl2.FieldByName('FieldName')=abs then

Я уже запутался) Как мне посчитать кол-во записей А в ячейках? Пожалуйста добрые люди помогите доделать курсовой ))))))))))))))))))

MonoLife (2010-01-12 06:35:00) [1]

> M0RFEY © (11.01.10 00:21)
> Мне как и Delphi =) не нравится строка
> if DataModule2.tbl2.FieldByName('FieldName')=abs then

Ты хоть понял, почему не нравится тебе и Delphi эта строка?
Ты внимательно читаешь, что тебе пишут, например в [4]?

KilkennyCat (2010-01-12 05:54:00) [2]
нам не смешно.
Мы издеваемся потому, что:
во-первых, вопрос настолько неинтересный насколько тупой,
во-вторых, ответ дан,
в-третьих, проблема возникла из-за лени,
в-четвертых, тебе ж не подсказка нужна, тебе проще готовый код дать, а здесь люди прекрасно знают сколько стоит сделать за другого курсовик-диплом-контрольную и т.д.

M0RFEY (2010-01-12 04:53:00) [3]
=) я понимаю что вам смешно, но вы сами видите где я учусь, мне бы этот долбанный курсовой доделать..... что не кто не может помочь, тока флудить мастера? ну плиз помогите........

Германн (2010-01-12 02:14:00) [4]

> KilkennyCat © (12.01.10 02:09) [10]
>
> плохому тем более

:)

KilkennyCat (2010-01-12 02:09:00) [5]
плохому тем более

Германн (2010-01-12 01:34:00) [6]

> M0RFEY © (12.01.10 00:30) [7]
>
> Ну во-первых, нам реально так объяснили, дали тупо на доске
> тело программы

Так тупо могли дать только в кулинарном техникуме. Так что забей.
Хорошему кулинару программирование не нужно.

Игорь Шевченко (2010-01-12 01:04:00) [7]

> В-третьих нам реально нечего не объясняли.
> Так что помогите плиз.

Возмездно

M0RFEY (2010-01-12 00:30:00) [8]
Ну во-первых, нам реально так объяснили, дали тупо на доске тело программы... и сказали: Все пишите курсовой. Когда все написали в делфи оно не у кого не работало не работало ))))
Во-вторых я понимаю, что можно посчитать 0 и 1, я имею ввиду как правильно сделать, чтобы оно ходило в цикле по ячейкам в строчку и при ее конце переходило на новую строку.
В-третьих нам реально нечего не объясняли.
Так что помогите плиз.

oldman (2010-01-11 08:59:00) [9]

> на пересечении столбцов и строк в ячейках записаны значения
> P и A - (Присутствовал) и (Отсутствовал) соответственно.
>

Ну кто мешает "А" и "Р" заменить на 0 и 1?
Тогда сумма ячеек и даст процент.

Германн (2010-01-11 02:18:00) [10]

> ну вот не верю, чтобы не объясняли, что у объектов есть
> методы...
>

Ну это не подлежит обсуждению!
Почти всегда!

sniknik (2010-01-11 02:06:00) [11]
не, самое главное тут как всегда, валят на других...
> не судите строго, как объясняли, так и написал=)

ну вот не верю, чтобы не объясняли, что у объектов есть методы...

> и надо что-то менять ))
точно. меняй.

KilkennyCat (2010-01-11 01:49:00) [12]
нет, опять пресловутый DBGrid

Германн (2010-01-11 01:37:00) [13]
И опять пресловутый RecordCount!

Anatoly Podgoretsky (2010-01-11 00:56:00) [14]
> M0RFEY (11.01.2010 00:21:00) [0]

А причем тут первая таблица

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »