| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Kurt ©   (2002-11-20 12:00:00) 

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

---

Victor_Cr   (2002-11-20 12:27:00) [1]

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 запроса, так чтоб он возвращал только выбраную запись(единственную). Вот и все...

---

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

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

---

Шурик Ш   (2002-11-20 12:03:00) [3]

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

---

Наверх