Реферат Програма обліку утримання із заробітної плати

крита таблиця "otgruzka.dbf":

USE otgruzka EXCLUSIVE

Кнопка "Додати":

BLANK.txtnomd.SetFocus ()

thisform.Refresh ()

Кнопка "Видалення": MESSAGEBOX ('Ви дійсно хочете видалити запис?', 4 +32 +256, 'Видалити') = 6

SELECT otgruzkaDELETED () thisform

. grid1.RecordSource = null

. grid1.RecordSource = 'otgruzka'

. refreshthisform.grid1

. column1.width = 121

. column2.width = 97

. column3.width = 92

. column4.width = 154

. column5.width = 123

. column6.width = 107THISFORM

. grid1.RecordSource = null

. grid1.RecordSource = 'otgruzka'

. refresh

_screen. activeform. REFRESH ()

Кнопка "Пошук": EMPTY (Thisform.Text1.Value) =. F.

* SELECT 1INDEXESFILE 'otgruzka.idx' on nomd TO 'otgruzka.idx' SEEK (Thisform.Text1.Value). Text1.Value = 0.Refresh ()

ELSE ('Запис отримує запит (Перевірте регістри символів ...)!', 0, 'Увага!')

thisform.Text1.Value = 0

ENDIF

ENDIF

Кнопки: "Перша", "Наступна", "Попередній", "Остання", "Вихід" ідентичні з кнопками форми "Відомості про покупця".

Форма "Прихід"

В 

Для даної форми ексклюзивно відкрита таблиця "prixod.dbf":

USE prixod EXCLUSIVE

Кнопка "Додати":

BLANK.ndokreg.SetFocus ()

thisform.Refresh ()

Кнопка "Видалення":

MESSAGEBOX ('Ви дійсно хочете видалити запис?', 4 +32 +256, 'Видалити') = 6

SELECT prixodDELETED () thisform

. grid1.RecordSource = null

. grid1.RecordSource = 'prixod'

. refreshthisform.grid1

. column1.width = 121

. column2.width = 125

. column3.width = 100

. column4.width = 154

. column5.width = 145

. column6.width = 92

. column7.width = 100THISFORM

. grid1.RecordSource = null

. grid1.RecordSource = 'prixod'

. refresh

_screen. activeform. REFRESH ()

Кнопка "Пошук": EM...