Главная страница
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.014 c
14-28205
Вадим
2002-11-16 22:43
2002.12.09
Я не сильный и не слабый, я как все :((


14-28214
vok
2002-11-10 04:16
2002.12.09
Помогите с интегралами - крайне необходимо


8-28141
QAZZZ
2002-08-25 02:18
2002.12.09
ASM


3-27848
Dimedrol
2002-11-20 15:47
2002.12.09
FormatDateTime в DBGrid-е ?


1-28022
Mark_kms
2002-11-27 15:07
2002.12.09
Grid & Excel