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

Материал из ИбисоПедии
Перейти к: навигация, поиск
(→‎Алгоритм создания)
(→‎Алгоритм создания)
 
(не показано 20 промежуточных версий 2 участников)
Строка 1: Строка 1:
 
== Базовый класс TSFButtonEdit ==
 
== Базовый класс TSFButtonEdit ==
−
Изменяет только внешний вид кнопок, добавляет горячие клавиши.
+
* внешний вид кнопок редактировать, очистить
 +
* добавляет горячую клавишу F4.
 +
* на dblclick добавляет вызов редактора
  
 
== Контролы для стандартных элементов ==
 
== Контролы для стандартных элементов ==
Строка 8: Строка 10:
 
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
 
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
  
−
Ниже предоставлены примеры вызова:
+
Ниже предоставлены примеры вызова для основных сущностей:
  
−
{| cellspacing="0" border="1"
+
{| cellspacing="0" border="1"  class="sortable"
 
|Сущьность
 
|Сущьность
 
|Модуль
 
|Модуль
Строка 20: Строка 22:
 
|Адрес
 
|Адрес
 
|fADDRClass
 
|fADDRClass
−
|
+
|не нужна
 
|SetAsAddrModal(bbAddr3,'addr_id', True);
 
|SetAsAddrModal(bbAddr3,'addr_id', True);
 
|
 
|
Строка 26: Строка 28:
 
|-
 
|-
 
|Право
 
|Право
−
|fGetRigth
+
|fGetRigth,<br> fRigthWOT
−
|-
+
|fRigthWOT.OpenRight(<right_id>);
−
|SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
+
|fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
 +
|fGetRigth.Right_ShowGet
 +
|
 
|-
 
|-
 
|Страховой документ
 
|Страховой документ
−
|fGetIDOC
+
|fGetIDOC,<br> fIDOCWOT
−
|-
+
|fIDOCWOT.IDOC_Open
−
|SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>);
+
|fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>);
 +
|
 
|-
 
|-
 
|Страховая компания
 
|Страховая компания
−
|fGetCompanyInsur
+
|fGetCompanyInsur,<br>fCompanyInsurWOT
−
|-
+
|fCompanyInsurWOT.OpenCompanyInsur
 
|SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
 
|SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
 +
|
 +
|
 
|-
 
|-
−
|медицинская компания
+
|Медицинская компания
−
|fGetCompanyMed
+
|fGetCompanyMed,<br> fCompanyMedWOT
−
|-
+
|fCompanyMedWOT.CompanyMed_Open
−
|CompanyMed_ShowGet
+
|fGetCompanyMed.CompanyMed_ShowGet
 +
|
 +
|
 
|-
 
|-
 
|Место работы
 
|Место работы
−
|fGetCompanyWork
+
|fGetCompanyWork,<br>fCompanyWorkWOT
−
|-
+
|fCompanyWorkWOT.OpenCompanyWork
 
|SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
 
|SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
 +
|fGetCompanyWork.CompanyWork_ShowGet
 +
|
 
|-
 
|-
−
| Документ, удостоверяющий личность
+
|Документ, удостоверяющий личность
−
|fGetPDOC
+
|fGetPDOC,<br>fPDOCWOT
−
|-
+
|fPDOCWOT.PDOC_Open
−
|пока только функция .PDOC_ShowGet
+
|
 +
|fGetPDOC.PDOC_ShowGet
 
|-
 
|-
 
|Отчет
 
|Отчет
 
|fGetReport1
 
|fGetReport1
 
|Report1_ShowGet
 
|Report1_ShowGet
 +
|
 +
|
 
|-
 
|-
 
|Пользователь
 
|Пользователь
−
|fGetuser
+
|fGetuser,<br>fUserWOT
−
|-
+
|fUserWOT.UserEdit
 
|SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
 
|SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
 +
|
 +
|
 
|-
 
|-
 
| Доктор
 
| Доктор
 
|fGetuser
 
|fGetuser
−
|-
+
|
 
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlyDoctor]);
 
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlyDoctor]);
 +
|
 +
|
 
|-
 
|-
 
| Доктор для определенного отделения
 
| Доктор для определенного отделения
 
|fGetuser
 
|fGetuser
 +
|
 
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave,'e.dept_id=2' , [guoShowDept, quoOnlyDoctor]);
 
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave,'e.dept_id=2' , [guoShowDept, quoOnlyDoctor]);
 +
|
 +
|
 
|-
 
|-
 
|Медсестры
 
|Медсестры
−
| fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
+
|fGetuser
 +
|
 +
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
 +
|
 +
|
 
|-
 
|-
 
|МКБ-10
 
|МКБ-10
 
|fGetICD10
 
|fGetICD10
 
|  
 
|  
 +
|
 
|ICD10_ShowGet  
 
|ICD10_ShowGet  
 +
|
 
|-
 
|-
 
| Участок
 
| Участок
 
|GetDistrict
 
|GetDistrict
−
|-
+
|
 +
|
 +
|
 +
|
 
|-
 
|-
 
|Амбулаторный талон
 
|Амбулаторный талон
 
|fAmbTicketWOT
 
|fAmbTicketWOT
 
|AmbTicket_Open(ambticket_id);
 
|AmbTicket_Open(ambticket_id);
 +
|
 +
|
 +
|
 +
|-
 +
|Назначение
 +
|fNazWOT
 +
|Naz_Open
 +
|
 +
|Naz_ShowGetNew
 +
|
 +
|
 
|-
 
|-
 +
|Медицинский документ - история болезни
 +
|fMedDocWOT
 +
|OpenMedDoc
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|Протокол назначения
 +
|fProtocolHospWOT
 +
|OpenProtocolHosp
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|Титульная часть карты стационарного больного
 +
|fAdmissionPeopleWOT
 +
|AdmissionPeople_Open
 +
|
 +
|
 +
|
 +
|-
 +
|Листок нетрудоспособности
 +
|fSickLeaveWOT
 +
|OpenSickLeave
 +
|
 +
|
 +
|
 +
|-
 +
|Статкарта (стационарного больного)
 +
|fHospStatKartWOT
 +
|HospStatKart_Open
 +
|
 +
|
 +
|
 +
|-
 +
|-
 +
|Контактные данные человека
 +
|fPeopleContactWOT
 +
|PeopleContact_Open
 +
|
 +
|PeopleContact_ShowGetNew
 +
|
 +
|-
 +
|Человек
 +
|fPeopleWOT
 +
|OpenPeople
 +
|SetaAsIBISDBPeopleEdit
 +
|People_ShowGet
 +
|
 +
|-
 +
 
|}
 
|}
  

Текущая версия на 12:16, 12 марта 2015

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

  • внешний вид кнопок редактировать, очистить
  • добавляет горячую клавишу F4.
  • на dblclick добавляет вызов редактора

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

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

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

Ниже предоставлены примеры вызова для основных сущностей:

Сущьность Модуль Открытие ButtonEdit ShowGetNew Выбор
Адрес fADDRClass не нужна SetAsAddrModal(bbAddr3,'addr_id', True);
Право fGetRigth,
fRigthWOT 		fRigthWOT.OpenRight(<right_id>); fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) fGetRigth.Right_ShowGet
Страховой документ fGetIDOC,
fIDOCWOT 		fIDOCWOT.IDOC_Open fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>);
Страховая компания fGetCompanyInsur,
fCompanyInsurWOT 		fCompanyInsurWOT.OpenCompanyInsur SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
Медицинская компания fGetCompanyMed,
fCompanyMedWOT 		fCompanyMedWOT.CompanyMed_Open fGetCompanyMed.CompanyMed_ShowGet
Место работы fGetCompanyWork,
fCompanyWorkWOT 		fCompanyWorkWOT.OpenCompanyWork SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave); fGetCompanyWork.CompanyWork_ShowGet
Документ, удостоверяющий личность fGetPDOC,
fPDOCWOT 		fPDOCWOT.PDOC_Open fGetPDOC.PDOC_ShowGet
Отчет fGetReport1 Report1_ShowGet
Пользователь fGetuser,
fUserWOT 		fUserWOT.UserEdit SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
Доктор fGetuser SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlyDoctor]);
Доктор для определенного отделения fGetuser SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave,'e.dept_id=2' , [guoShowDept, quoOnlyDoctor]);
Медсестры fGetuser SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
МКБ-10 fGetICD10 ICD10_ShowGet
Участок GetDistrict
Амбулаторный талон fAmbTicketWOT AmbTicket_Open(ambticket_id);
Назначение fNazWOT Naz_Open Naz_ShowGetNew
Медицинский документ - история болезни fMedDocWOT OpenMedDoc
Протокол назначения fProtocolHospWOT OpenProtocolHosp
Титульная часть карты стационарного больного fAdmissionPeopleWOT AdmissionPeople_Open
Листок нетрудоспособности fSickLeaveWOT OpenSickLeave
Статкарта (стационарного больного) fHospStatKartWOT HospStatKart_Open
Контактные данные человека fPeopleContactWOT PeopleContact_Open PeopleContact_ShowGetNew
Человек fPeopleWOT OpenPeople SetaAsIBISDBPeopleEdit People_ShowGet
Источник — «http://mediawiki.oblteh/mediawiki/index.php?title=Контролы_ButtonEdit_в_MIS3&oldid=994»