|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.02.2009, 11:22 | #1 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 39
|
Снова Арифметика в Базе данных access
Всем доброго времени суток У меня по нажатию кнопки база считает значение выделенных ЧекБоксом значечий из базы ... sum:=0; if CheckBox1.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[2].AsInteger; if CheckBox2.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[3].AsInteger; if CheckBox3.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[4].AsInteger; ShowMessage( IntToStr(sum) ); так до 30 . скажем результат чекбокса 1+чекбокса2+чекбокса3=18 А мне нужно что бы это значение sum потом делилось на количество выбранных чекбоксов ??? т.е. 18:3=6 и вот этот результат по нажатию выводился в мессадж ??? или чекбокс2+чекбокс3+чекбокс5+чекбокс1 =54делённое на количество выбранных чекбоксов т.е. 54:4=13.5 ... огромное спасибо всем кто откликнется !!!! |
07.02.2009, 11:30 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
заведи переменную счетчик и при выборе чекбокса увеличивай на 1 а потом дели на нее сумму т.е.
Код:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 07.02.2009 в 11:35. |
07.02.2009, 12:18 | #3 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 39
|
procedure TForm1.Button1Click(Sender: TObject);
begin sum:=0; if CheckBox1.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[2].AsInteger; i:=i+1;end; if CheckBox2.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[3].AsInteger; i:=i+1;end; if CheckBox3.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[4].AsInteger; i:=i+1;end; showmessage(floattostr(sum/i)); end; Большое спасибо , маленький нюансик ,я кнопку жму а он значеие всё меньше выдаёт 2+2+2=6/3 т.е. 2 потом жму кнопку 1 потом 0.5 ? |
07.02.2009, 12:30 | #4 |
Регистрация: 07.02.2009
Сообщений: 7
|
начало поменяй...
i:=0; sum:=0; if.... |
07.02.2009, 13:36 | #5 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Да вы что? Там же
Цитата:
Давайте уж примерно так: Код:
|
|
08.02.2009, 01:29 | #6 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 39
|
спс,большое очень помогли
Тогда у меня такой щё вопрос ,showmessage(floattostr(sum/i)); у меня выводиться . Вот только надо его поле внести что бы потом по значениям график построить ..Создавал в ассеsse 30 числовых полей где а1,а2,и.т.д значения потом там же делал поля короче с 60-ти полями меня access послал .. Решил др. таблицу сделать где и буду их складывать ???? есть комментарии как ещё можно точки под ДВгрид вывести ? |
08.02.2009, 02:33 | #7 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
в стринггрид выводи
вступлю в команду разработчиков ПО на Delphi
|
08.02.2009, 02:48 | #8 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 39
|
mihali4 Код замечательный, только кодга ставишь на чекбокс1+чекбокс2=поля где у меня Фамилия стоит +дата рождения ..приходиться первое 5-тым ставить
|
08.02.2009, 02:51 | #9 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 39
|
maladoy Можеш поподробнее инструкцию выдать .
|
08.02.2009, 13:08 | #10 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Вы же указали исходно: Цитата:
Последний раз редактировалось mihali4; 08.02.2009 в 13:10. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста сделать поиск по базе данных в форме! Access 2003 | LilijaSt | Microsoft Office Access | 19 | 25.12.2010 10:13 |
Access + ADO + Delphi = Поиск по базе | vicvtor | БД в Delphi | 35 | 10.02.2009 11:00 |
Поиск по базе данных | ERASERROR | БД в Delphi | 4 | 14.03.2008 16:34 |
Создать таблицу Access в существующей базе. | Nowichok | БД в Delphi | 6 | 10.02.2007 18:32 |