|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
DBCheckBox в DBCtrlGrid
Есть DBCtrlGrid (прицеплена к запросу)10Х7 в ней только DBCheckBox (прицеплен к полю Занято)получается что-то на подобие двумерного массива.
Хотелось бы узнать возможно ли чтобы какая то одна строчка из состоящая DBCheckBox из в CtrlGrid была недаступна Запрос вот: Код:
Active:=false ; SQL.Clear; SQL.Add('SELECT Т_Расписание_по_часам.Код_расписания_по_часам, Т_Расписание_по_часам.Код_расписания, Т_Расписание_по_часам.Время_с, Т_Расписание_по_часам.Занято, Т_Врач.Фамилия_врача,Т_Расписание.Вид_дня '); SQL.Add('FROM Т_Врач , Т_Расписание ,Т_Расписание_по_часам '); SQL.Add('WHERE Т_Расписание.Код_расписания = Т_Расписание_по_часам.Код_расписания and Т_Врач.Код_врача = Т_Расписание.Код_врача') ; SQL.Add('and Фамилия_врача="'+DBLookupComboBox1.Text+'"'); sql.Add('and Т_Расписание_по_часам.Время_с>=DateValue('''+DateToStr(datf1)+''')'); sql.Add('and Т_Расписание_по_часам.Время_с<DateValue('''+DateToStr(datf2)+''')'); Active:=true; |
#2
|
|||
|
|||
Пыталась как-то так(знаю что неверно и глупо)
Код:
datamodule2.ADOQRasisChas.First; for i:=0 to datamodule2.ADOQRasisChas.RecordCount-1 do begin if datamodule2.ADOQRasisChas.FieldByName('Вид_дня').AsString='Выходной' then begin DBCheckBox2.Enabled:=false; showmessage('Врач в этот день не работает'); end else DBCheckBox2.Enabled:=true; datamodule2.ADOQRasisChas.Next; end; |
#3
|
|||
|
|||
Может кто подскажет как запомнить номер записи по щелчку на сомвовох
|