Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
6-28173
Andr e
2002-10-15 10:13
2002.12.09
ping HUB or Switch


14-28204
Supra
2002-11-11 18:14
2002.12.09
Программа для определения программы


1-28094
Comp
2002-11-25 20:05
2002.12.09
Почему файл остаётся пустым?


6-28188
guest_xxx
2002-10-07 09:36
2002.12.09
Шлюз?


14-28238
Anatoly Podgoretsky
2002-11-18 00:26
2002.12.09
Именинники 18 ноября