Читайте также:
|
|
publiclkod, lfio, lmest, lroz, lsmrt, lbio&&Объявлениеглобальныхпеременных
PUBLIC lflotm&& Флаг отмены действия ("Добавть" или "Изменить")
lflotm = "Изменить"
thisform.txtKod_avt.ReadOnly=.F. &&Доступна для ввода значение поля Kod_avt
thisform.txtFio.ReadOnly=.F. &&Доступна для ввода значение поля Fio
thisform.txtMest_roz.ReadOnly=.F. &&Доступна для ввода значение поля Mest_roz
thisform.txtData_roz.ReadOnly=.F. &&Доступна для ввода значение поля Data_roz
thisform.txtData_smrt.ReadOnly=.F. &&Доступна для ввода значение поля Data_smrt
thisform.txtBiograf.ReadOnly=.F. &&Доступна для ввода значение поля Biograf
thisform.txtKod_avt.setfocus&& Получение фокуса полем Kod_avt
thisform.command1.enabled=.F. &&He доступна "Начало"
thisform.command2.enabled=.F. && He доступна "Конец"
thisform.command3.enabled=.F. && He доступна "Вперёд"
thisform.command4.enabled=.F. && He доступна "Назад"
thisform.command10.enabled=.F. && He доступна "Выход"
thisform.command7.enabled=.F. && He доступна "Удалить"
thisform.command8.visible=.T. &&видимa кнопка "Применить"
thisform.command9.visible=.T. &&видимакнопка "Отменить"
thisform.command5.visible=.F. &&He видимакнопка "Добавить"
thisform.command6.visible=.F. &&He видимакнопка "Изменить"
&&глобальнымпеременнымlkod, lfio, lmest, lroz, lsmrt, lbio
&& присваивается новое значение, введенное в соответствующее поле
lkod=thisform.txtKod_avt.value
lfio=thisform.txtFio.value
lmest=thisform.txtMest_roz.value
lroz=thisform.txtData_roz.value
lsmrt=thisform.txtData_smrt.value
lbio=thisform.txtBiograf.value
Дата добавления: 2015-08-17; просмотров: 30 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Добавить | | | Отменить |