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

pack

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

public a1

select dovid_material

a1=dovid_material.cina_material

select Prybutok

append blank

repl Prybutok.dd with date()

replace Prybutok.kod_mat with dovid_material.kod_mat

thisform.grdPrybutok.refresh

_screen.activeform.refresh

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

LPARAMETERS nKeyCode, nShiftAltCtrl

if nKeyCode=13

thisform.grdPrybutok.column4.text1.value=thisform.txtKilk_material.

value*a1

thisform.grdPrybutok.column4.text1.refresh

thisform.grdPrybutok.refresh

endif

4. Форма f_vydatok:

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

thisform.combo1.readonly=.F.

thisform.txtKilk_material.readonly=.F.

thisform.grdvydatok.refresh

_screen.activeform.refresh

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

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

delete

set delete on

thisform.refresh