Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизБазы данных Найти похожие ветки
← →
seter (2002-10-24 11:10) [0]Господа подскажите пожалуйста как правильно написать добавление и что здесь неправильно:
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";
← →
Sergey13 (2002-10-24 11:26) [1]1.Не понятно где тут добавление.
2.Попробуй почитать хелп на тему "if... else" или "case"
В твоем варианте только при rb6.Checked=true ADOTable1["rb1"]:="6" в остальных случаях всегда будет 0. Потом, rb 1..6 это что? RadioButton? Тогда может легче использовать RadioGroup?
← →
MegaBass (2002-10-24 11:33) [2]легче бедет с TRadioGroup:
with RadioGroup1 do
if itemIndex > 0 then
ADOTable1.fields["rb1"] := 0
else
ADOTable1.fields["rb1"] := itemIndex + 1;
← →
seter (2002-10-24 11:33) [3]Sergey13. использую RadioButton. Поймите меня правильно всетаки Delphi изучаю 1 месяц. Я просто не знаю как сделать чтобы в остальных случаях не было нулей. И к если не сложно подскажите как использовать RadioGroup?
← →
MegaBass (2002-10-24 11:34) [4]sorry if ... < 0 then
← →
seter (2002-10-24 11:35) [5]MegaBass сейчас попробую заранее спасибо
← →
seter (2002-10-24 11:43) [6]MegaBass а как нибудь по другому нельзя (у меня очень используются FlatGroupBox).
← →
Sergey13 (2002-10-24 11:49) [7]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 12:02) [8]спасибо большое SERGEY13
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c