Контролы ButtonEdit в MIS3 — различия между версиями

Версия 09:15, 4 июня 2014

Базовый класс TSFButtonEdit

Изменяет только внешний вид кнопок, добавляет горячие клавиши.

Контролы для стандартных элементов

• Право: fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
• Страховой документ: fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id'));
• Страховая компания: fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
• медицинская компания
• Место работы: fGetCompanyWork.SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
• Документ, удостоверяющий личность
• Отчет
• Пользователь
• Доктора
• Доктора для определенного отделения
• МКБ-10

Алгоритм создания

1. Пишем запрос в котором будет key_field и val_field
2. Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
3. На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );