|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.05.2009, 16:13 | #11 |
Пользователь
Регистрация: 29.04.2009
Сообщений: 10
|
И вновь я глупый здесь,у меня все чудно работает,я рад и вдруг за 24 часа до сдачи за контрольным примером я обнаруживаю что он считает сумму,но он считает сумму пропусков по одному студенту,потом когда начинаешь считать по второму он сумму пропусков по первому студенту плюсует с суммой пропусков по второму студенту,ну а третий соответственно первый + второй и + третий ...Че делать?Я понимаю что достал,но выручайте пожалуйста!!
|
12.05.2009, 16:46 | #12 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
Последний раз редактировалось Stilet; 12.05.2009 в 16:48. |
|
12.05.2009, 17:56 | #13 | |
Пользователь
Регистрация: 29.04.2009
Сообщений: 10
|
Цитата:
procedure TForm5.Button1Click(Sender: TObject); var ed1,ed2,ed3:integer; begin ed1:=0; ed2:=0; ed3:=0; while not adotable3.eof do begin if adotable3.fieldbyname('prichina').a sstring='не уважительная' then ed1:=ed1+adotable3.fieldbyname('pro puskov').asinteger; if adotable3.fieldbyname('prichina').a sstring='уважительная' then ed2:=ed2+adotable3.fieldbyname('pro puskov').asinteger; if adotable3.fieldbyname('prichina').a sstring='по болезни' then ed3:=ed3+adotable3.fieldbyname('pro puskov').asinteger; adotable3.Next; end; Edit1.text:=inttostr(ed1); edit2.text:=inttostr(ed2); edit3.text:=inttostr(ed3); end; Последний раз редактировалось Alexander_20; 12.05.2009 в 18:39. |
|
12.05.2009, 19:47 | #14 |
Редкий обитатель
Форумчанин
Регистрация: 08.04.2009
Сообщений: 170
|
попрбуй до цикла написать
Код:
Мозг, хорошо устроенный, стоит больше, чем мозг, хорошо наполненный (Мишель Монтень)
|
13.05.2009, 03:34 | #15 |
Пользователь
Регистрация: 29.04.2009
Сообщений: 10
|
Пробовал, не получается(если через F7 идти)что он цикл проходит но сумма не наращивается...
У меня раньше работал еще вариант S@fer,но как я уже сказал,что он считается сумму по всем студентам,а не по одному....может еще есть варианты,пожалуйста,если не трудно Последний раз редактировалось Alexander_20; 13.05.2009 в 14:46. |
13.05.2009, 12:15 | #16 | |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Цитата:
Код:
|
|
13.05.2009, 12:49 | #17 |
Пользователь
Регистрация: 29.04.2009
Сообщений: 10
|
Отсутствие мозга и элементарных знаний...
т.е. описать какую-нибудь переменную k (string?) и чего ей потом присваивать тогда?Значение строки? И вообще тогда получается,что это переменная должна автоматически сравниваться с записью о студенте(фамилии),так? Последний раз редактировалось Alexander_20; 13.05.2009 в 14:53. |
13.05.2009, 21:28 | #18 | |
Регистрация: 07.05.2009
Сообщений: 6
|
Цитата:
|
|
14.05.2009, 08:04 | #19 | ||
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Цитата:
Цитата:
Код:
|
||
14.05.2009, 18:41 | #20 |
Пользователь
Регистрация: 29.04.2009
Сообщений: 10
|
S@fer и koma_grusha спасибо большое,все получилось,пошли оба варианта сдал и тот и тот вариант,препода устроило...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перенос данных из DBGrid в DBGrid | KingSize | БД в Delphi | 17 | 24.04.2009 09:30 |
Перенос данных из StringGrid-а в DBGrid | artemavd | БД в Delphi | 16 | 21.03.2009 08:26 |
DBGrid: Как сделать собственную сортировку данных? | AnTe | БД в Delphi | 17 | 26.02.2009 17:38 |
Расчет баз данных с выводом редактирования в DBGrid | Veiron | БД в Delphi | 1 | 22.12.2008 14:53 |
Вставка данных(Excel) из clipboard в DBGrid | mahsus | Общие вопросы Delphi | 1 | 07.10.2007 02:02 |