![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Проблема в том, у меня есть БД которая связана с программой, всё работает, отображается. Я не могу связать Комбобоксы с БД, мне нужно
что бы при выборе параметра идентификатор отправлялся в БД. Главная таблица sp_auto и она связана внешними ключами с таблицами в которых характеристики. И какие процедуры нужны в InterBase для этой реализации? |
|
#2
|
|||
|
|||
|
Код:
var
SelStr,d1,d2:String;
begin
d1:=DateToStr(DateTimePicker2.Date-30); d2:=DateToStr(DateTimePicker2.Date);
if IBDFindKolPil.TestConnected=false then IBDFindKolPil.Connected:=true;
IBTFindDT.Active:=false; IBTFindDT.Active:=true;
SelStr:='select dt from ves16 where nvag='''+Trim(NVag_ComboBox.Text)+''' and '
+'DT between '''+d1+''' and '''+d2+''' ' ;
With IBQFindDT do begin
Close;
SQL.Clear;
SQL.Add(SelStr);
Open;
Last;
First;
end;
Label6.Caption:=IBQFindDT.FieldByName('DT').AsString;
DateTimePicker1.Date:=StrToDate(IBQFindDT.FieldByName('DT').AsString); |