Контролы ButtonEdit в MIS3 — различия между версиями
Материал из ИбисоПедии
Zhukov (обсуждение | вклад) (→Контролы для стандартных элементов) |
Zhukov (обсуждение | вклад) (→Контролы для стандартных элементов) |
||
| Строка 3: | Строка 3: | ||
== Контролы для стандартных элементов == | == Контролы для стандартных элементов == | ||
| + | |||
| + | |||
* Право: fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ); | * Право: fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ); | ||
* Страховой документ: fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id')); | * Страховой документ: fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id')); | ||
| Строка 10: | Строка 12: | ||
* Документ, удостоверяющий личность | * Документ, удостоверяющий личность | ||
* Отчет | * Отчет | ||
| − | * Пользователь | + | * Пользователь fGetuser.SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave); |
* Доктора | * Доктора | ||
* Доктора для определенного отделения | * Доктора для определенного отделения | ||
Версия 15:40, 5 июня 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);
- Документ, удостоверяющий личность
- Отчет
- Пользователь fGetuser.SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
- Доктора
- Доктора для определенного отделения
- МКБ-10
Алгоритм создания
- Пишем запрос в котором будет key_field и val_field
- Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
- На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
