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

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

RELEASE thisform

use vydatok

pack

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

public a1

select dovid_material

a1=dovid_material.cina_material

select vydatok

append blank

repl vydatok.dd with date()

replace vydatok.kod_mat with dovid_material.kod_mat

thisform.grdvydatok.refresh

_screen.activeform.refresh

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

LPARAMETERS nKeyCode, nShiftAltCtrl

if nKeyCode=13

thisform.grdvydatok.column4.text1.value=thisform.txtKilk_material.

value*a1

thisform.grdvydatok.column4.text1.refresh

thisform.grdvydatok.refresh

endif

5 . Форма osv :

Код кнопки «Розрахувати Відомість надходжень»:

do zag_pr.qpr

report form zag_pr to print preview

Код кнопки «Розрахувати Відомість вибуття»:

do zag_vyd.qpr

report form zag_vyd to print preview

Код кнопки «Розрахувати відомість»: