Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2018, 09:22   #1
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию radiobutton и бд

доброго утра! на форме 2 radiobutton. при вызове этой формы должно быть условие: если в бд в определенном поле значение 0, то активен radiobutton1,
если в бд в этом поле 1, то активен radiobutton2. сделала так, не получается.
Код:
//основной или вспомогательный материал
MatForm.ADOQuery1.Close;
if MatForm.ADOQuery1.SQL.Text='select obm, pm from unr where obm='+MatForm.MatQuery.Fields[0].AsString+' and pm=1' then begin
MatForm.ADOQuery1.Open;
RedactorMatForm.WspomogRadioButton.Checked:=true;
RedactorMatForm.OsnRadioButton.Checked:=false;
end else
MatForm.ADOQuery1.Close;
if MatForm.ADOQuery1.SQL.Text='select obm, pm from unr where obm='+MatForm.MatQuery.Fields[0].AsString+' and pm=0' then begin
MatForm.ADOQuery1.Open;
RedactorMatForm.WspomogRadioButton.Checked:=false;
RedactorMatForm.OsnRadioButton.Checked:=true;
end;
Etsareva вне форума Ответить с цитированием
Старый 14.11.2018, 09:30   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
MatForm.ADOQuery1.Close;
MatForm.ADOQuery1.SQL.Text:='select obm, pm from unr where obm='+MatForm.MatQuery.Fields[0].AsString;
MatForm.ADOQuery1.Open;
RedactorMatForm.WspomogRadioButton.Checked:=MatForm.ADOQuery1.FieldByName('pm').AsInteger=1;
RedactorMatForm.OsnRadioButton.Checked:=not RedactorMatForm.WspomogRadioButton.Checked;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 14.11.2018, 09:34   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
если в бд в определенном поле значение
Код:
ADOQuery1.SQL.Text:='select mytestfield from mytesttable';
ADOQuery1.Open;
f:=ADOQuery1.FindField('mytestfield');
Цитата:
значение 0, то активен radiobutton1,
если в бд в этом поле 1, то активен radiobutton2
case f.AsInteger of
0: RadioButtton1.Checked:=true;// то активен radiobutton1,
1: RadioButtton2.Checked:=true;// то активен radiobutton2,
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 14.11.2018, 09:38   #4
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Аватар большое спасибо!
Etsareva вне форума Ответить с цитированием
Старый 14.11.2018, 09:54   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
MatForm.ADOQuery1.Close;
MatForm.ADOQuery1.SQL.Text='select pm from unr where obm='+MatForm.MatQuery.Fields[0].AsString;
MatForm.ADOQuery1.Open;
if  MatForm.ADOQuery1.IsEmpty then ShowMessage('Вообще нет нужной записи в таблице unr!!')
else begin
	if MatForm.ADOQuery1.FieldByName('pm').AsInteger = 0 then begin
		RedactorMatForm.WspomogRadioButton.Checked:=true;
		RedactorMatForm.OsnRadioButton.Checked:=false;
	end
	else  // значит в поле pm НЕ НОЛЬ
	begin
		RedactorMatForm.WspomogRadioButton.Checked:=false;
		RedactorMatForm.OsnRadioButton.Checked:=true;
	end;
end;
MatForm.ADOQuery1.Close;
вместо if можно написать так:
Код:
else begin
	RedactorMatForm.WspomogRadioButton.Checked:=MatForm.ADOQuery1.FieldByName('pm').AsInteger = 0;
	RedactorMatForm.OsnRadioButton.Checked:=Not (MatForm.ADOQuery1.FieldByName('pm').AsInteger = 0);
end;
упс. опоздал...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
RadioButton rumyancev-vala Общие вопросы Delphi 11 04.07.2012 08:38
RadioButton Євгеній Бєлік Помощь студентам 2 13.11.2011 14:02
RadioButton 29_kapaT Компоненты Delphi 1 10.05.2010 03:30
radiobutton Bon'ka Компоненты Delphi 4 16.05.2009 21:56
RadioButton Pavelok Общие вопросы Delphi 3 14.05.2009 14:05