ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
5 сообщений из 5, страница 1 из 1
Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
    #33785194
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Привет всем! Я знаю, что создал эту тему не там, где положено, но всё же может быть кто-нибудь из Вас сможет мне помочь. Проблема у меня такая. Делаю курсовую по FoxPro 2.6 на основе примера про гостиницу из книги А. А. Попова "Создание приложений для FoxPro 2.5/2.6 в DOS и Windows", который рассматривается со страницы 453. Книгу я скачал из инета, но там оказалось очень много синтаксических ошибок из-за ошибок сканера. Потом соовсем недавно удалось взять эту книгу в читальном зале политеха под залог. Дописав недостающие моменты и исправив ошибки сканера, у меня появилась синтаксическая ошибка на несколько строк. А теперь подробнее. Задание и требования к курсовой:

Требования к курсовым работам
Независимо от конкретной проблемы, можно выделить некоторые формальные требования, на которых защищается квалификация разработчика.
1.Устойчивость программы. Программа не должна терять работоспособности ни при каких, даже некорректных действиях пользователя. Всякие действия, грозящие потерей информации, выполняются только после повторного подтверждения. Вводимая информация там, где это возможно, подвергается логическому контролю.
2.Обеспечение целостности баз данных. При любых действиях пользователя базы не должны терять целостности (некорректность индексов, потеря ссылок в связях после удаления – добавления записей и т.д.).
3.Функциональная полнота. Должны быть реализованы все потребности пользователя.
4.Терминологическая среда и интерфейс. В диалоговых средствах используются только термины, понятные пользователю, и не используются термины разработчика («запись», «индексация» и т.д.). Появление служебных англоязычных сообщений СУБД недопустимо. Язык диалога – с соблюдением норм вежливости, цветовая гамма – по общепринятым рекомендациям.
5.Использование клавиатуры. На любом этапе нажатие любой клавиши (особенно функциональных) должно игнорироваться или вызывать предусмотренные действия (описанные в средствах помощи). Привязка действий к клавишам должна быть общепринятой: F1 – помощь; Enter – согласие, завершение ввода; Esc – отказ, возврат к предыдущему узлу ветви алгоритма (с восстановлением экранной формы); Tab – переход к следующему полю, окну и т.д.; Shift-Tab – возврат к предыдущему полю и т.д.
6.Средства помощи. В любой момент по нажатии клавиши F1 должен выдаваться текст помощи.
7.Входные и выходные документы. Экранные формы для ввода и корректировки должны быть максимально «похожими» на привычные пользователю документы; результаты работы не только отображаются на экране, но и выводятся в текстовой файл в привычной форме с возможностью корректировки и распечатки.
8.Средства документации. Программы снабжаются документацией в виде отчета (требования к оформлению отчета см. в файле Report_kurs.doc).
Программный продукт должен обеспечивать выполнение следующих операций над базами.
1.Должно быть несколько связанных баз данных с использованием (по необходимости) связей «один к одному», «один ко многим».
2.Для облегчения просмотра и поиска используется упорядоченность с помощью индексации или (в крайнем случаи) сортировки.
3.Вся информация поддается просмотру и редактированию.
Информация, поддающаяся стандартизации, хранится в отдельных базах-справочниках, также поддающихся корректировке (с соблюдением целостности).

Задание

Администратор гостиницы. Список номеров: класс, число мест. Список гостей: паспортные данные, даты приезда и отъезда, номер. Поселение гостей: выбор подходящего номера (при наличии свободных мест), регистрация, оформление квитанции. Отъезд: выбор всех постояльцев, отъезжающих сегодня, освобождение места или оформление задержки с выпиской дополнительной квитанции. Возможность досрочного отъезда с перерасчетом. Поиск гостя по произвольному признаку.

А вот пример из книги, который я доводил до ума:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
SET TALK OFF 
SET DATE GERMAN 
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F1 ACTIVATE WIND el && Вьиэов окна первого этажа 
ON KEY LABEL F2 ACTIVATE WIND e2 && Вызов окна второго этажа 
USE gost INDEX gost 
r=RECNO() 
DEFINE WINDOW gost FROM  0 , 0  TO  8 , 62 ; 
       TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  10 , 16  TO  19 , 42 ; 
       TITLE 'Fl Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 4  TO  18 , 30 ; 
       TITLE 'F2 Этаж 2' COLOR n/gb && Окно второго этажа 
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
     r=IIF(r=RECNO(),'>',' ') :h='',;
     mes :h='Место' :p='9999',;
     fam :h='Фамилия' : 14 ,;
     pol :h='Пол';
         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
         :e='Только М или Ж',;
     pri :h='Прибытие',;
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1 && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
         .................
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
         .................
READ CYCLE 
DEACTIVATE WINDOW el,e2,F10 
RELEASE WINDOWS el,e2,F10 
ON KEY 

FUNCTION ttt &&-----------ФУЯКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN
Сложность заключается в том, что окно первого этажа не открывается и я не пойму как осуществлять поиск гостя. Пожалуйста, помогите довести приер до ума, а заодно и сделать курсовую, т.к. времени осталось очень мало и к тому же в среду у меня экзамен по матеше. В архиве имеются дополнительные файлы к программе.
...
Рейтинг: 0 / 0
11.06.2006, 08:20
| Ответить | Цитировать | Написать  
Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
    #33785195
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Ой! Кажется не удалось присоединить архив. Кто-нибудь знает как это делается?
...
Рейтинг: 0 / 0
11.06.2006, 08:22
| Ответить | Цитировать | Написать  
Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
    #33785388
road_run
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
road_run
Гость
parenyokОй! Кажется не удалось присоединить архив. Кто-нибудь знает как это делается?
Предлагаю опубликовать данный вопрос в форуме по программированию на c#, Visual Basic и специально создать форум по программированию на Assembler Sparc и там так же его опубликовать
...
Рейтинг: 0 / 0
11.06.2006, 14:36
| Ответить | Цитировать | Написать  
Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
    #33785398
гостььььь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гостььььь
Гость
а не пробовал на форум по фоксу написать? там скорее помогут.
...
Рейтинг: 0 / 0
11.06.2006, 14:54
| Ответить | Цитировать | Написать  
Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
    #33786003
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Пробовал. И за одно решил на этот форум написать, т.к. здесь мне помогли доделать лабы. И я подумал, что может быть некоторые из них знают Фокс. Ну, пожалуйста, кто-нибудь помогите...
...
Рейтинг: 0 / 0
12.06.2006, 12:47
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / Кто шарит в FoxPro 2.6 DOS? Помогите, пожалуйста! Срочно надо!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&gotonew=1&tid=2031043]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 9ms
get first new msg:
 5ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 240ms
total:  492ms
созд. / загр.: 492ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]