Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Добавить

Читайте также:
  1. Административное принуждение как вид государственного принуждения, его цели, характерные черты, и виды. ??? можно бы добавить
  2. Добавить горошек. Посолить, заправить майонезом, посыпать зеленью.
  3. Добавить свое объявление
  4. Добавить свое объявление
  5. Упаковку крабовых палочек измельчить. Добавить зелень петрушки и укропа, чеснок и майонез по вкусу. Начинка не должна быть жидкой. Добавить 100 г тертого сыра и перемешать.
  6. Шаг 3. Теперь сделаем фотографию зернистой. Помним, что на старых фото всегда было крупное зерно. Выбираемслой с фотографией, и переходим к меню Фильтр > Шум > Добавить шум.

Начало

go top

ifsubstr(kod_avt,2,1)<>”1”

skip

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

 

Конец

go bottom

if substr(kod_avt,2,1)<>””

skip-1 &&либо go bottom

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

 

Вперёд

if.not.eof() &&if!EOF()

SKIP

 

ENDIF

_screen.ActiveForm.Refresh()

thisform.method_avt

 

Назад

if.not.bof()

skip-1

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

 

Добавить

PUBLIC lflotm&& Флаг отмены действия ("Добавть" или "Изменить")

append blank

go bottom

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.command8.Visible =.T.

thisform.command9.Visible =.T.

thisform.method_avt&&Переходнаметодmethod_avt

_screen.ActiveForm.Refresh()

thisform.command6.click &&Вызовкодакнопки "Изменить"

lflotm = "Добавть"

 


Дата добавления: 2015-08-17; просмотров: 36 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
но Владыка Трона прощает» — как сказал Всевышний: «…(Аллах) прощает все остальные грехи(, которые меньше многобожия), кому пожелает»[246].| Изменить

mybiblioteka.su - 2015-2024 год. (0.007 сек.)