Страница 1 из 1
Интерфейс единичного выбора
Добавлено: 04 мар 2010, 14:36
Gameus_
Поделитесь примером плиз, поиском чет не нашел.
Интересует именно единичный выбор. Заранее спасибо.
Добавлено: 04 мар 2010, 14:46
edward_K
множ.
iGetKau.GetCodeKau(cgiPickMult or cgiNotClear, katkau.kodgroup,wNrec);
тогда вычиитывать через маркер
MarkerKauName := iGetKau.GetMarkerName(katkau.kodgroup );
одиночный
iGetKau.GetCodeKau(cgiNotClear, katkau.kodgroup,wNrec);
берете сразу из wNrec
Добавлено: 04 мар 2010, 14:53
Gameus_
мне самописный какой-нить нужен для примера
Добавлено: 04 мар 2010, 14:59
Nikos
Код: Выделить всё
interface GetPerson 'Сотрудники предприятия',cyan,EscClose, DoAccept;
view
var
crec : comp;
as select persons.*
from persons;
parameters
crec;
browse b1 (,,sci1EscIns);
table persons;
fields
PERSONS.TABNMB 'Табельный номер': [15], protect;
PERSONS.FIO 'ФИО' : [45], protect;
end;
Handleevent
cmInit:
{
if tsOk = GetFirst Persons where ((crec == Persons.nrec)){};
}
cmDefault:
{
crec := Persons.nrec;
}
end;
end.