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

← →
M0RFEY © (2010-01-11 00:21) [0]

Здравствуйте, написал курсовой почти до конца и столкнулся с проблемой.
У меня имеется 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

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

← →
Anatoly Podgoretsky © (2010-01-11 00:56) [1]

> M0RFEY (11.01.2010 00:21:00) [0]

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

← →
Германн © (2010-01-11 01:37) [2]

И опять пресловутый RecordCount!

← →
KilkennyCat © (2010-01-11 01:49) [3]

нет, опять пресловутый DBGrid

← →
sniknik © (2010-01-11 02:06) [4]

не, самое главное тут как всегда, валят на других...
> не судите строго, как объясняли, так и написал=)

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

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

← →
Германн © (2010-01-11 02:18) [5]

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

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

← →
oldman © (2010-01-11 08:59) [6]

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

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

← →
M0RFEY © (2010-01-12 00:30) [7]

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

← →
Игорь Шевченко © (2010-01-12 01:04) [8]

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

Возмездно

← →
Германн © (2010-01-12 01:34) [9]

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

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

← →
KilkennyCat © (2010-01-12 02:09) [10]

плохому тем более

=) я понимаю что вам смешно, но вы сами видите где я учусь, мне бы этот долбанный курсовой доделать..... что не кто не может помочь, тока флудить мастера? ну плиз помогите........

нам не смешно.
Мы издеваемся потому, что:
во-первых, вопрос настолько неинтересный насколько тупой,
во-вторых, ответ дан,
в-третьих, проблема возникла из-за лени,
в-четвертых, тебе ж не подсказка нужна, тебе проще готовый код дать, а здесь люди прекрасно знают сколько стоит сделать за другого курсовик-диплом-контрольную и т.д.

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

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

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