scx" POPUP друк MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF друк PROMPT "Рахунок-фактура" BAR 2 OF друк PROMPT "Книга продаж" BAR 3 OF друк PROMPT "Відомість" SELECTION BAR 1 OF друк DO sfakturSELECTION BAR 2 OF друк DO knigaSELECTION BAR 3 OF друк DO oborotPOPUP просмотрдо MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF просмотрдо PROMPT "Рахунок-фактура" BAR 2 OF просмотрдо PROMPT "Книга продаж"
DEFINE BAR 3 OF просмотрдо PROMPT "Оборотно-сальдова відомість"
ON SELECTION BAR 1 OF просмотрдо DO sfaktrSELECTION BAR 2 OF просмотрдо DO knigSELECTION BAR 3 OF просмотрдо DO obortPOPUP вихід MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF вихід PROMPT "У WINDOWS" SELECTION BAR 1 OF вихід QUIT
В
В
2.3.2 Алгоритм та тексти програм введення даних
Для введення даних у проекті використовуються форми. У цих формах можна додавати записи, редагувати їх, і видаляти. А також переміщатися по базі даних. p align="justify"> Форма "Відомості про покупця"
В
Для даної форми ексклюзивно відкрита таблиця "pok.dbf":
USE pok EXCLUSIVE
Кнопки форми:
Кнопка "Додати":
BLANK.txtinn.SetFocus ()
thisform.Refresh
Кнопка "Видалення":
MESSAGEBOX ('Ви дійсно хочете видалити запис?', 4 +32 +256, 'Видалити') = 6
SELECT pokDELETED () thisform
. grid1.RecordSource = null
. grid1.RecordSource = 'pok'
. 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 = 'pok'
. refresh
_screen. activeform. REFRESH ()
Кнопка "Перша":! BOF () top
_screen. activeform. REFRESH () p align="justify"> Кнопка "Наступна": EOF () bottom
_screen.activeform.refresh
Кнопка "Попередній":! BOF ()
_screen.ActiveForm.refresh ()
Кнопка "Остання":! EOF () bottom
_screen.ActiveForm.refresh ()
Кнопка "Вихід":
IF MESSAGEBOX ("закрити", 4 +32 +256, "вихід") = 6
thisform.Release (). Refresh
Форма "Відвантаження"
В
Для даної форми ексклюзивно від...