Люди добрые! Помогите, пожалуйста! Разбирался с этой программой: 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.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
SET TALK OFF
SET DATE GERMAN
set century on
set deleted on
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы
ON KEY LABEL F6 ACTIVATE WIND e1 && Выэов окна первого этажа
ON KEY LABEL F7 ACTIVATE WIND e2 && Вызов окна второго этажа
ON KEY LABEL F8 ACTIVATE WIND e3 && Вызов окна третьего этажа
ON KEY LABEL F9 ACTIVATE WIND e4 && Вызов окна четвёртого этажа
DEFINE WINDOW gost FROM 0 , 0 TO 8 , 79 ;
TITLE 'F10 Список гостей Сегодня '+dtoc(date()) && Окно - список гостей
DEFINE WINDOW e1 FROM 5 , 00 TO 14 , 29 ;
TITLE 'F6 Этаж 1' COLOR n/gb && Окно первого этажа
DEFINE WINDOW e2 FROM 15 , 00 TO 24 , 29 ;
TITLE 'F7 Этаж 2' COLOR n/gb && Окно второго этажа
DEFINE WINDOW e3 FROM 5 , 49 TO 14 , 78 ;
TITLE 'F8 Этаж 3' COLOR n/gb && Окно третьего этажа
DEFINE WINDOW e4 FROM 15 , 49 TO 24 , 78 ;
TITLE 'F9 Этаж 4' COLOR n/gb && Окно четвёртого этажа
USE guests.dbf
* Тег mesto создан командой: index on mes tag mesto
*set order to mes
go top
r=RECNO()
browse;
fiel t=iif(r=recno(),'>',' ') :h=' ', ;
d=iif(date()>opl and !empty(fam),iif(empty(otb) or otb>date(),'Долг','Отбыл'),;
iif(date()>=pri and date()<otb and !empty(fam),iif(empty(otb) or otb<date(),'Долг','присут.'),;
iif(date()<pri and !empty(fam),iif(empty(otb) or pri>date(),'Долг','ожид.'),;
iif(date()=pri and !empty(fam),iif(empty(otb) or pri=date(),'Долг','прибыл'),' ')))) :h='Долг': 7 , ;
mes :h='Место': 5 ,;
fam :h='ФИО': 20 , ;
pol :h='Пол': 3 ;
:w=(pol='М' or pol='Ж') and pl(left(mes, 3 ),pol) ;
:e='Только М или Ж', ;
pas :h='ь паспорта': 10 , ;
pri :h='Дата прибытия': 13 , ;
otb :h='Дата отбытия': 12 , ;
opl :h='Оплачено до': 11 , ;
num :h='ь гостя': 7 ;
color scheme 10 window gost nowait when ttt() noed noap nodel
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--|'
@ 6 , 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--|'
@ 6 , 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')
ACTIVATE WINDOW e3 && Открытие окна третьего этажа
@ 0 , 0 SAY '----------------------------'
@ 1 , 0 SAY '|1 3|1 |1 2|1 |'
@ 2 , 0 SAY '|2 4|2 | |2 |'
@ 3 , 0 SAY '|-301----302----303---304--|'
@ 4 , 0 SAY '| |'
@ 5 , 0 SAY '|-305----306-- --307--|'
@ 6 , 0 SAY '|1 |1 | |1 |'
@ 7 , 0 SAY '----------------------------'
@ 1 , 1 GET n FUNCTION '*I' SIZE 1 , 1 DEFAULT 1 VALI ms('3011')
@ 2 , 1 GET n FUNCTION '*I' SIZE 1 , 1 DEFAULT 1 VALI ms('3012')
ACTIVATE WINDOW e4 && Открытие окна третьего этажа
@ 0 , 0 SAY '----------------------------'
@ 1 , 0 SAY '|1 3|1 |1 2|1 |'
@ 2 , 0 SAY '|2 4|2 | |2 |'
@ 3 , 0 SAY '|-401----402----403---404--|'
@ 4 , 0 SAY '| |'
@ 5 , 0 SAY '|-405----406-- --407--|'
@ 6 , 0 SAY '|1 |1 | |1 |'
@ 7 , 0 SAY '----------------------------'
@ 1 , 1 GET n FUNCTION '*I' SIZE 1 , 1 DEFAULT 1 VALI ms('4011')
@ 2 , 1 GET n FUNCTION '*I' SIZE 1 , 1 DEFAULT 1 VALI ms('4012')
READ CYCLE
DEACTIVATE WINDOW gost,e1,e2,e3,e4,F10
RELEASE WINDOWS gost,e1,e2,e3,e4,F10
ON KEY
return
FUNCTION ttt &&-----------ФУНКЦИЯ обновления курсора
r=RECNO()
SHOW WINDOW F10 REFRESH
RETURN
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о
&& человеке, занимающем место, где находится курсор в плане этажа
PARAMETERS m
if found(m) *SEEK(m) && Поиск в BROWSE-окне выбранного на плане места
r=RECNO()
else
wait window "Not found!!!" timeout 2
endif
SHOW WINDOW F10 REFRESH
RETURN
FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина)
PARAMETERS m,p
nr=RECNO() && Запоминается номер текущей записи
&& Поиск непустого места в той же комнате, где проживает
&& человек с другим значением поля POL
go top
locate for left(mes, 3 )==m AND !EMPTY(pol) AND pol#p
IF found() && Если поиск удачный, выдается предупреждение
WAIT 'В комнате живет '+IIF(pol$'МM','Мужчина','Женщина');
WINDOW NOWAIT
select guests
GO nr && Возврат к исходной записи
return .f.
ENDIF
RETURN .t.
и вот, что меня поставило в тупик. В этих строках: 1.
2.
3.
d=iif(date()>opl and !empty(fam),iif(empty(otb) or otb>date(),'Долг','Отбыл'),;
iif(date()>=pri and date()<otb and !empty(fam),iif(empty(otb) or otb<date(),'Долг','присут.'),;
iif(date()<pri and !empty(fam),iif(empty(otb) or pri>date(),'Долг','ожид.'),;
iif(date()=pri and !empty(fam),iif(empty(otb) or pri=date(),'Долг','прибыл'),' ')))) :h='Долг': 7 , ;
я сделал так, чтобы в столбце "Долг" (кстати, надо бы его переименовать...) было состояние гостя ("Ожид.", "Прибыл", "Присут." или "Отбыл"). Но там, где должно быть "Ожид.", написано "Долг". А в остальном всё как надо. Скажите, пожалуйста, что нужно дописать в эту функцию: 1.
2.
3.
4.
5.
6.
7.
8.
9.
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о
&& человеке, занимающем место, где находится курсор в плане этажа
PARAMETERS m
if found(m) *SEEK(m) && Поиск в BROWSE-окне выбранного на плане места
r=RECNO()
else
wait window "Not found!!!" timeout 2
endif
SHOW WINDOW F10 REFRESH
RETURN
, чтобы выводилось кто там живёт. У меня почему-то там где живёт женщина, выводится "В комнате живёт Мужчина", а там где мужчина - женщина. Скажите, пожалуйста, что нужно поменять в этой функции: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина)
PARAMETERS m,p
nr=RECNO() && Запоминается номер текущей записи
&& Поиск непустого места в той же комнате, где проживает
&& человек с другим значением поля POL
go top
locate for left(mes, 3 )==m AND !EMPTY(pol) AND pol#p
IF found() && Если поиск удачный, выдается предупреждение
WAIT 'В комнате живет '+IIF(pol$'МM','Мужчина','Женщина');
WINDOW NOWAIT
select guests
GO nr && Возврат к исходной записи
return .f.
ENDIF
RETURN .t.
И последнее. Скажите, пожалуйста, как сделать так, чтобы при добавлении гостя в соответствующее место выделялось, а при удалении - освобождалось. В примере Попова это вроде бы должно было делаться, т.е. выделение в browse-окне гостя, который проживает в этой комнате, но ни я, ни мой препод не смогли разобраться. Поэтому, кто разобрался в примере Попова про гостиницу, просьба помочь мне. Заранее большое спасибо. |
