Как правильно сделать Связь таблиц в Apollo ?

← →
bav (2003-10-12 12:41) [0]

На FoxPro 2.5 (под DOS) написана программа.

используются два файла .dbf :
sotrudn.dbf - Список сотрудников - с полями :
N - целое 10 символов - номер по-порядку
Name - символьное 25 симв - ФИО сотрудника
Prof - целое 5 симв - код професии
Adr - символьное 30 симв - адрес сотрудника

profess.dbf - Список профессий - с полями :
Prof - целое 5 симв - код професии
nazvpr - символьное 20 симв - название професии

создан индекс для Profess по полю Prof - в файле Profess.cdx

При запуске программы выводится таблица - список сотрудников,
причем вместо кода профессии выводится название.
При нажатии Enter в поле Profession - появляется окно выбора професии,
где клавишами курсора можно выбрать другую профессию и при нажатии Enter -
в таблице Сотрудников она сразу поменяется.

КАК ТО-ЖЕ САМОЕ СДЕЛАТЬ В DELPHI ИСПОЛЬЗУЯ БИБЛИОТЕКУ
APOLLO фирмы Vista Software ???

bav9@karelia.ru

*-----------------------------------------
*Программа на FoxPro 2.5 (под DOS)

use sotrudn.dbf in 1
use profess.dbf in 2 index profess
select 1
set relation to prof into 2
define window w1 from 1,0 to 10,79
define window w2 from 12,0 to 20,30
activate window w1
browse fields ;
n:r:h="number", ;
fio:h="Name", ;
profess.nazvpr=profess.nazvpr:r:v=rt1():f:h="Profession", ;
adr:h="Adress":15 ;
in w1
deactivate window w1
use in 1
use in 2
cancel

* при нажатии Enter в поле Profession таблицы Сотрудники
procedure rt1
if not lastkey()=13
return .t.
endif
activate window w2
select 2
browse fields ;
prof:r:v=rt2():f:h="number", ;
nazvpr:r:v=rt2():f:h="Profession" ;
in w2
deactivate window w2
return .t.

* при выборе професии в дополнительном окне
procedure rt2
if not lastkey()=13
return .t.
endif
scatter memvar
nom=m.prof
select 1
scatter memvar
m.prof=nom
gather memvar
deactivate window w2
return .t.

← →
Term © (2003-10-12 13:20) [1]

а в чём необходимость использовать именно эту библиотеку, сделай стандартными средствами, чем тебе БДЕ плох

← →
bav (2003-10-12 15:51) [2]

Нужна компактность. 2-3 дискеты с BDE - лишний довесок, а Apollo требует всего 2 dll ~350 кб.
ПОМОГИТЕ ПОЖАЛУЙСТА !!!

Как правильно сделать Связь таблиц в Apollo ? Найти похожие ветки