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

Материал из ИбисоПедии
Перейти к: навигация, поиск
(→‎Контролы для стандартных элементов)
(→‎Алгоритм создания)
 
(не показано 36 промежуточных версий 2 участников)
Строка 1: Строка 1:
 
== Базовый класс TSFButtonEdit ==
 
== Базовый класс TSFButtonEdit ==
−
Изменяет только внешний вид кнопок, добавляет горячие клавиши.
+
* внешний вид кнопок редактировать, очистить
 +
* добавляет горячую клавишу F4.
 +
* на dblclick добавляет вызов редактора
  
 
== Контролы для стандартных элементов ==
 
== Контролы для стандартных элементов ==
 +
=== Алгоритм создания ===
 +
# Пишем запрос в котором будет key_field и val_field
 +
# Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
 +
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
 +
 +
Ниже предоставлены примеры вызова для основных сущностей:
  
−
{| cellspacing="0" border="1"
+
{| cellspacing="0" border="1" class="sortable"
 +
|Сущьность
 +
|Модуль
 +
|Открытие
 +
|ButtonEdit
 +
|ShowGetNew
 +
|Выбор
 +
|-
 +
|Адрес
 +
|fADDRClass
 +
|не нужна
 +
|SetAsAddrModal(bbAddr3,'addr_id', True);
 +
|
 +
|
 +
|-
 
|Право
 
|Право
 +
|fGetRigth,<br> fRigthWOT
 +
|fRigthWOT.OpenRight(<right_id>);
 
|fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
 
|fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
 +
|fGetRigth.Right_ShowGet
 +
|
 
|-
 
|-
 
|Страховой документ
 
|Страховой документ
−
|fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id'));
+
|fGetIDOC,<br> fIDOCWOT
 +
|fIDOCWOT.IDOC_Open
 +
|fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>);
 +
|
 
|-
 
|-
 
|Страховая компания
 
|Страховая компания
−
|fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
+
|fGetCompanyInsur,<br>fCompanyInsurWOT
 +
|fCompanyInsurWOT.OpenCompanyInsur
 +
|SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
 +
|
 +
|
 
|-
 
|-
−
|медицинская компания
+
|Медицинская компания
−
| fGetCompanyMed.CompanyMed_ShowGet
+
|fGetCompanyMed,<br> fCompanyMedWOT
 +
|fCompanyMedWOT.CompanyMed_Open
 +
|fGetCompanyMed.CompanyMed_ShowGet
 +
|
 +
|
 
|-
 
|-
 
|Место работы
 
|Место работы
−
|fGetCompanyWork.SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
+
|fGetCompanyWork,<br>fCompanyWorkWOT
 +
|fCompanyWorkWOT.OpenCompanyWork
 +
|SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
 +
|fGetCompanyWork.CompanyWork_ShowGet
 +
|
 
|-
 
|-
−
| Документ, удостоверяющий личность
+
|Документ, удостоверяющий личность
−
| пока только функция fGetPDOC.PDOC_ShowGet
+
|fGetPDOC,<br>fPDOCWOT
 +
|fPDOCWOT.PDOC_Open
 +
|
 +
|fGetPDOC.PDOC_ShowGet
 
|-
 
|-
−
| Отчет
+
|Отчет
−
| пока только функция fGetReport1.Report1_ShowGet
+
|fGetReport1
 +
|Report1_ShowGet
 +
|
 +
|
 
|-
 
|-
 
|Пользователь
 
|Пользователь
−
| fGetuser.SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
+
|fGetuser,<br>fUserWOT
 +
|fUserWOT.UserEdit
 +
|SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
 +
|
 +
|
 
|-
 
|-
 
| Доктор
 
| Доктор
−
| fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, '', [guoShowDept, quoOnlyDoctor]);
+
|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
 
|МКБ-10
−
| есть только функция fGetICD10.ICD10_ShowGet  
+
|fGetICD10
 +
|
 +
|
 +
|ICD10_ShowGet  
 +
|
 
|-
 
|-
 
| Участок
 
| Участок
 
|GetDistrict
 
|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
 +
|
 +
|-
 +
 
|}
 
|}
  
−
=== Алгоритм создания ===
 
−
# Пишем запрос в котором будет key_field и val_field
 
−
# Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
 
−
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
 
  
 
[[Категория: Руководство программиста MIS3]]
 
[[Категория: Руководство программиста MIS3]]
 +
[[Категория: Советы и рекомендации программирования MIS3 ]]

Текущая версия на 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»