Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

Не подчкажите как организовать просмотр записей таблицы   Найти похожие ветки 

← →
Kurt   (2002-11-20 12:00) [0]

Не подскажите как организовать просмотр записей таблицы в стиле просмотра как в Комбобоксе? (результат запроса записи с одним полем).
Заранее благодарен!

---

← →
Шурик Ш ©   (2002-11-20 12:03) [1]

На форму кладешь Table, DataSource и DBComboBox.

---

← →
Kurt   (2002-11-20 12:14) [2]

и перемещение по комбобокусу будет как перемещение по этому набору данных?

---

← →
Victor_Cr ©   (2002-11-20 12:27) [3]

2 Kurt (20.11.02 12:14)

Не-а. Перемещение по комбобоксу будет просто перемещение по комбобоку. А вот на событие ончендж у него надо будет вешать обработчик перемещающийся по набору.

Я например делал когда-то так:

procedure TLimitPower.FormShow(Sender: TObject);
var
BM: Integer;
begin
qDate.Prepare; //запрос считывающий с таблицы только названия периода
qDate.Active := True;
BM := 0;
while not qDate.Eof do
begin
cbxPeriod.Items.Append(qDateNM.AsString);
if Trunc(qDateSTART.AsDateTime) <> Trunc(DateNow) then
Inc(BM);
qDate.Next;
end;
qDate.Active := False;
qDate.UnPrepare;
cbxPeriod.ItemIndex := BM-1;
cbxPeriodChange(Sender);
end;

procedure TLimitPower.cbxPeriodChange(Sender: TObject);
var
DateNow: TDateTime;
D,M,Y : Word;
begin
qDate.Active := False;
qDate.SQL.Clear;
qDate.SQL.Append("select ID, NM, START from PERIOD"); //вот собственно
qDate.SQL.Append("where NM = """+cbxPeriod.Text+""""); // и само позиционирование
qDate.Active := True;
end;


Вообщем делается так:
1. Все значения в самом начале вводятся в комбобокс(обычный).
2. После этого "позиционирование" осуществляется изменением SQL запроса, так чтоб он возвращал только выбраную запись(единственную). Вот и все...

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c