| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Базы данных [D6]

seter ©   (2002-10-24 11:10:00) 

Господа подскажите пожалуйста как правильно написать добавление и что здесь неправильно:
if rb1.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="1";
if rb2.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="2";
if rb3.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="3";
if rb4.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="4";
if rb5.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="5";
if rb6.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="6";

---

seter   (2002-10-24 12:02:00) [1]

спасибо большое SERGEY13

---

Sergey13   (2002-10-24 11:49:00) [2]

2seter (24.10.02 11:33)
>Я просто не знаю как сделать чтобы в остальных случаях не было нулей.
В твоем случае (через радиобатоны) надо было так
if rb1.Checked then ADOTable1["rb1"]:="1"
else if rb2.Checked then ADOTable1["rb1"]:="2"
else if rb3.Checked then ADOTable1["rb1"]:="3"
else if rb4.Checked then ADOTable1["rb1"]:="4"
else if rb5.Checked then ADOTable1["rb1"]:="5"
else if rb6.Checked then ADOTable1["rb1"]:="6"
else ADOTable1["rb1"]:="0";
Это хорошо описано в хелпе.
Читайте доки - они рулез. 8-)

---

seter   (2002-10-24 11:43:00) [3]

MegaBass а как нибудь по другому нельзя (у меня очень используются FlatGroupBox).

---

seter   (2002-10-24 11:35:00) [4]

MegaBass сейчас попробую заранее спасибо

---

MegaBass   (2002-10-24 11:34:00) [5]

sorry if ... < 0 then

---

MegaBass   (2002-10-24 11:33:00) [6]

легче бедет с TRadioGroup:

with RadioGroup1 do
if itemIndex > 0 then
ADOTable1.fields["rb1"] := 0
else
ADOTable1.fields["rb1"] := itemIndex + 1;


---

seter   (2002-10-24 11:33:00) [7]

Sergey13. использую RadioButton. Поймите меня правильно всетаки Delphi изучаю 1 месяц. Я просто не знаю как сделать чтобы в остальных случаях не было нулей. И к если не сложно подскажите как использовать RadioGroup?

---

Sergey13   (2002-10-24 11:26:00) [8]

1.Не понятно где тут добавление.
2.Попробуй почитать хелп на тему "if... else" или "case"
В твоем варианте только при rb6.Checked=true ADOTable1["rb1"]:="6" в остальных случаях всегда будет 0. Потом, rb 1..6 это что? RadioButton? Тогда может легче использовать RadioGroup?

---

Наверх