Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 39 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

39
DBDEMOS имеет два индекса (рис. 12). Первичный индекс (Primary), как при-
нято в таблицах Paradox, имени не имеет, построен по полю
CustNo. Вторич-
ный индекс
ByCompany создан по полю Company. Какие индексы определены в
таблице, указано в свойстве
IndexDefs компонента Table.
Рис. 12. Индексы и их свойства
Пусть для выбора индекса используется компонент RadioGroup. Нужное
значение можно задать с помощью свойства
IndexName:
Case RadioGroup1.ItemIndex of
0: Table1.IndexName:='';//Выбран первичный индекс
1: Table1.IndexName:='ByCompany';//Выбран вторичный индекс
end;
Либо воспользоваться свойством IndexFieldNames:
Case RadioGroup2.ItemIndex of
0: Table1.IndexFieldNames:='CustNo';
1: Table1.IndexFieldNames:='Company';
end; 
DBDEMOS имеет два индекса (рис. 12). Первичный индекс (Primary), как при-
нято в таблицах Paradox, имени не имеет, построен по полю CustNo. Вторич-
ный индекс ByCompany создан по полю Company. Какие индексы определены в
таблице, указано в свойстве IndexDefs компонента Table.




                        Рис. 12. Индексы и их свойства


       Пусть для выбора индекса используется компонент RadioGroup. Нужное
значение можно задать с помощью свойства IndexName:
Case RadioGroup1.ItemIndex of
 0: Table1.IndexName:='';//Выбран первичный индекс
 1: Table1.IndexName:='ByCompany';//Выбран вторичный индекс
end;
       Либо воспользоваться свойством IndexFieldNames:
Case RadioGroup2.ItemIndex of
 0: Table1.IndexFieldNames:='CustNo';
 1: Table1.IndexFieldNames:='Company';
end;




                                     39

Страницы