Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.45 MB
Время: 0.008 c
3-45721
VikOss
2002-10-24 10:32
2002.11.14
Редактирование базы


14-46058
Almaz
2002-10-24 23:33
2002.11.14
Встреча мастаков в Санкт-Петербурге


8-46002
Извращенец
2002-07-26 22:29
2002.11.14
Привет. Текст Канвасом


1-45845
Guest2
2002-11-05 12:56
2002.11.14
Как автоматически проматывать ScroolBar?


3-45675
Max Zyuzin
2002-10-28 09:09
2002.11.14
IBExpert





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский