Курсовая работа: Автоматизована інформаційна система надходження матеріалів

append blank

repl kod_mat with n+1

thisform.edit1.setfocus

_screen.activeform.refresh

Код кнопки «Видалити запис»:

if messagebox («Удалить запись?», 4+16+256) = 6

delete

set delete on

thisform.refresh

ndif

Код кнопки «Закрити»:

RELEASE thisform

use dovid_material

pack

2. Форма f _ zalyshok

Код кнопки «Додати запис»:

thisform.combo1.readonly=.F.

thisform.txtKilk_material.readonly=.F.

thisform.grdZalyshok.refresh

screen.activeform.refresh

Код кнопки «Видалити запис»:

if messagebox («Удалить запись?», 4+16+256) = 6

delete

set delete on

thisform.refresh

endif

Код кнопки «Закрити»:

pack

RELEASE thisform

Код списку «Матеріал»: