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

select dovid_material

a1=dovid_material.cina_material

select zalyshok

append blank

repl zalyshok.dd with date()

replace zalyshok.kod_mat with dovid_material.kod_mat

thisform.grdZalyshok.refresh

screen.activeform.refresh

Код поля введення «Кількість матеріалу»:

LPARAMETERS nKeyCode, nShiftAltCtrl

if nKeyCode=13

thisform.grdZalyshok.column4.text1.value=thisform.txtKilk_material.

value*a1

thisform.grdZalyshok.column4.text1.refresh

thisform.grdZalyshok.refresh

endif

3. Форма f_prybutik:

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

thisform.combo1.readonly=.F.

thisform.txtKilk_material.readonly=.F.

thisform.grdPrybutok.refresh

_screen.activeform.refresh

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

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

delete

set delete on

thisform.refresh

endif

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

RELEASE thisform