Література
Агальцов В.П.; Базы Данных; Издательство: Мир, Год издания: 2002.
Базиян Менахем; Использование Visual FoxPro 6. Издательство: Вильяме. Год издания: 2003.
Бат Братовичь; Visual FoxPro для чайников полный курс; Издательство JavaMoped; Год випуска: 2005.
Валерий Мопедов; Visual FoxPro и с чем его едят; Издание: Бином-Пресс. Год издания: 2003.
Вейскас.Д, В26 Эффективная работа с Мicrosoft Access 2003 – Спб: ЗАО «Издательство Питер»,2003. – 976 с.:ил.
Гурвиц Г.; разроботка приложения с использованием Visual FoxPro 9; Издательство: ДВГУПС. Год издания: 2007.
Кауфельд.Дж, К45 FoxPro для «чайников». – К.: «Диалекика», 2009.- 264 с., ил.
Лебедев А.Н.; Visual FoxPro 9.0. Самоучитель; Издательство: Век+; год издания: 2005.
Мусина Т.В.; Visual FoxPro 8.0. Учебный курс; Издательство: Корона-принт; год випуска: 2004;
Селиджтаун.М, В26 «FoxPro 9.0 Практическое пособие» - М: изд. «Москва-Пресс»,2009.-296 с.:ил.; 5-е Издание.
Додаток 1 Керівництво користувача
Для роботи програми папку з базою потрібно скопіювати на диск D:\.
Завантажити файл proj1.pjx.
Завантажити меню проекту:
Рис.36
Завантажити головну форму з меню.
Вікриється головна форма проекту, з якою можна відкрити перегляд всіх путівок або оформити нове замовлення.
Якщо потрібно додати клієнта, то це можна виконати в таблиці або в формі перегляду путівок.
Для видалення путівок існує окрема форма vid_put.
Додаток 2 Лістинг програми
Проект має такі кнопки і відповідні їх коди:
Перший запис:
GO TOP
thisform.Refresh
Наступний запис:
IF RECNO()!=RECCOUNT()
SKIP 1
ELSE
MESSAGEBOX(" Останній запис")
endif
thisform.refresh
Попередній запис:
IF RECNO()!=1 THEN
skip-1
ELSE
MESSAGEBOX('Ви знаходитесь на першому записі')
ENDIF
thisform.refresh
Останній запис:
GO BOTTOM
thisform.Refresh
Додати клієнта:
GO BOTTOM
n=klient.kod_klienta
p=n+1
APPEND BLANK
REPLACE klient.kod_klienta WITH p
thisform.Refresh
Додати путівку:
DO FORM d:\turism\form1.scx
thisform.Release
Видалити клієнта:
DELETE
nAnswer =MESSAGEBOX("Ви дійсно хочете вилучити запис?",36,"Запит на вилучення")
DO CASE
CASE nAnswer = 6
pack
CASE nAnswer = 7
RECALL
ENDCASE
IF RECNO()=RECCOUNT()
SKIP -1
ELSE SKIP 1
ENDIF
Пошук за прізвищем:
thisformset.FORM2.visible= .T.
Вихід:
thisform.Release
Кнопка «Знайти» з другої підформи даної форми (при чому полі, за яким будемо шукати я задав змінну q):
a=RECNO()
LOCATE for priz = ALLTRIM(q)
IF priz!=ALLTRIM(q)
MESSAGEBOX("ПО ВАШЕМУ ЗАПРОСУ НЕТ ДАННЫХ", 0+64+0, "ПРЕДУПРЕЖДЕНИЕ")
go top
ENDIF
thisformset.form1.Refresh
thisform.release
Поле «Вартість путівки» підраховується за формулою:
thisform.text7.value=gotel.vartist * thisform.text8* thisform.text9
Thisform.Refresh
Кнопка «Здерегти замовлення» має такий код:
z=RECNO()
b=klient.kod_klienta
a=table2.kod_marshryty
d=thisform.text8.Value
f=thisform.text9.value
y=gotel.gotel
?b
SELECT putivki
GO bottom
APPEND BLANK
replace putivki.kod_marshr with a
replace putivki.kod_klienta with b
replace putivki.kraina with thisform.combo1.value
replace putivki.gotel WITH y
replace putivki.kil_t WITH d
replace putivki.trivalist WITH f
replace putivki.vartist WITH thisform.text7.value
thisform.Release
DO FORM d:\turism\pereg_put.scx