Ура!!!! Сам сообразил! Просто поменял строку и всё! Yes!!! Ещё маленько и курсовая будет готова! Теперь проблема такая. В этой программе: 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.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
parameters progr
clea
clea all
set prin off
set cons on
set talk off
set conf on
set safe off
set esca off
set century on
set date to german
set bell to 300 , 1
set clock off && включение часов
close all && зыкрытие всех баз данных
set cursor off && выключение курсора
set talk off && отмена выдачи протокола
set deleted on
clear && очистка экрана
define window p1 from 10 , 39 to 12 , 41
define window m from 16 , 14 to 18 , 67 doubl float color scheme 7
activate window p1
store 12 to i,i1
store 40 to j,j1
&& цикл разворачивания окна
do while i# 0 .or.j# 0 .or.i1# 24 .or.j1# 79
f= 0
i=iif(i> 0 ,i- 1 , 0 )
j=iif(j> 0 ,j- 2 , 0 )
i1=iif(i1< 24 ,i1+ 1 , 24 )
j1=iif(j1< 79 ,j1+ 2 , 79 )
zoom window p1 norm at i,j to i1,j1
enddo
text && вывод на экран заставки, начало text
ЯЯЯЯЯ
Я ЯЯЯЯЯ ЯЯЯЯ ЯЯЯЯЯ Я Я Я Я Я Я Я Я ЯЯ
Я Я Я Я Я Я ЯЯ Я Я Я ЯЯ Я Я Я Я
Я Я Я Я Я Я Я Я ЯЯЯЯЯЯ Я Я Я Я Я ЯЯЯЯЯЯ
Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я
Я ЯЯЯЯЯ ЯЯЯЯ Я ЯЯЯ Я Я Я ЯЯЯ Я ЯЯЯЯЯЯЯ Я Я
Я
Данные о посетителях.
endtext && завершение вывода, endtext
save screen to jonny && сохраняем экран в переменную jonny
activate wind m
@ 0 , 5 say'Для пpодолжения pаботы нажмите любую клавишу.'
read
clear windows && убирает из памяти все окна
set cursor on && включение курсора
SET COLOR TO gr
*set defa to c:\
do menugl
proc menugl
*--- помощь, если есть файл помощи ---*
if file('HELP.PRG').or.file('HELP.TXT')
on key labe F1 do HELP.TXT
endif
*set defa to KURS
set clock on
set color to w,w/b, r/w && установка цвета - белый на синем,
set color to 1 / 2 ,b/g+,gr+/rb+
&& а для часов красный на белом
SET CLOCK TO 0 , 71
defi wind EWIND from 0 , 0 to 4 , 79 color gr+/r,gr+/r,gr+/r
set hours to 24 && установка 24 часового исчисления
k=td1( 20 ,date())
@ 10 , 1 say' ЯЯЯЯЯ '
@ 11 , 1 say' Я ЯЯЯЯЯ ЯЯЯЯ ЯЯЯЯЯ Я Я Я Я Я Я Я Я ЯЯ '
@ 12 , 1 say' Я Я Я Я Я Я ЯЯ Я Я Я ЯЯ Я Я Я Я'
@ 13 , 1 say' Я Я Я Я Я Я Я Я ЯЯЯЯЯЯ Я Я Я Я Я ЯЯЯЯЯЯ'
@ 14 , 1 say' Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я Я'
@ 15 , 1 say' Я ЯЯЯЯЯ ЯЯЯЯ Я ЯЯЯ Я Я Я ЯЯЯ Я ЯЯЯЯЯЯЯ Я Я'
@ 16 , 1 say' Я '
define menu mainmenu in screen color gr/bg,r/bg,gr/bg,gr/bg,gr+/w,rb/w,gr+/bg
set defa to c:\kurs
define pad gosti of mainmenu prompt'\<Список гостей' at 5 , 7 ;
message 'Ввод, просмотр и редакторование данных по количеству гостей в гостинице.'
define pad etaji of mainmenu prompt'\<Этажи' at 5 , 25 ;
message 'Просмотр этажей гостиницы'
define pad pom of mainmenu prompt'\<Помощь' at 5 , 55 ;
message 'Помощь в работе с программой'
define pad vih of mainmenu prompt'\<Выход' at 5 , 64 ;
message 'Выход из программы'
on selection pad gosti of mainmenu do guests.prg
on selection pad etaji of mainmenu do floor.prg
on selection pad pom of mainmenu do help.txt
on selection pad vih of mainmenu activate window w5
acti wind EWIND
@ 0 , 15 say 'Курсовая работа студента 1 курса гр.9ПИЭ-51'
@ 2 , 27 say'Сегодня: '+k
acti menu mainmenu
************************************************
function td1
para m,k
dn=alltrim(STR(day(k)))
g=alltrim(STR(year(k)))
ms=month(k)
dime s( 12 )
s( 1 )='ЯHВАРЯ'
s( 2 )='ФЕВРАЛЯ'
s( 3 )='МАРТА'
s( 4 )='АПРЕЛЯ'
s( 5 )='МАЯ'
s( 6 )='ИЮHЯ'
s( 7 )='ИЮЛЯ'
s( 8 )='АВГУСТА'
s( 9 )='СЕHТЯБРЯ'
s( 10 )='ОКТЯБРЯ'
s( 11 )='HОЯБРЯ'
s( 12 )='ДЕКАБРЯ'
sd=padr((dn+s(ms)+' '+g),m)
return sd
**** Процедура выхода ****
**** процедура выхода в FOXPRO *****
proc end
define window vf from 7 , 13 to 15 , 58 title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+
ACTI WIND vf in w5
A= 0
B= 0
@ 1 , 2 SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?'
@ 4 , 11 GET A FUNC '* ДА'
@ 4 , 29 GET B FUNC '* НЕТ'
READ
IF A= 1
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU
**** процедура выхода в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from 7 , 13 to 15 , 58 title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+
ACTI WIND vnc in w5
A= 0
b= 0
@ 1 , 2 SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?'
@ 4 , 11 GET A FUNC '* ДА'
@ 4 , 29 GET B FUNC '* НЕТ'
READ
IF A= 1
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU
return sd
Не работают функции выхода в FoxPro и Windows, которые я взял из этой программы: 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.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
set safety off
CLEA
CLOSE ALL
set date germ
set clock on
defi wind w5 from 1 , 0 to 30 , 73 doub shad title ' "М Е Н Ю" ';
footer'Учёт компьютерной техники'
acti wind W5
do zast
defi menu m SHADOW
defi pad n1 of m prom ' БД ' at 1 , 3 COLOR scheme 4
defi pad n2 of m prom 'Просмотр ведомостей'at 1 , 15 COLOR scheme 4
defi pad n4 of m prom 'Сервис'at 1 , 40 COLOR scheme 4
defi pad n5 of m prom ' Выход 'at 1 , 55 COLOR scheme 4
on sele pad n1 of m acti popup a1
on sele pad n2 of m acti popup a2
on sele pad n4 of m acti popup a4
on pad n5 of m acti popup a5
**** A1 ****
defi popup a1 from 2 , 3 SHADOW COLOR scheme 4
defi bar 1 of a1 prom'Ввод д нных '
defi bar 2 of a1 prom'Просмотр'
on bar 1 of a1 acti popup c1
on bar 2 of a1 acti popup c2
defi popup c1 from 3 , 17 SHADOW COLOR scheme 4
defi bar 1 of c1 prom'Поступление ПК'color ,,,, 4 */ 9 , 4 */ 9
defi bar 2 of c1 prom'Друг я оргтехник 'color ,,,, 4 */ 9 , 4 */ 9
on sele bar 1 of c1 do C:\FOXPRO\agu\vvod.PRG
on sele bar 2 of c1 do C:\FOXPRO\agu\drosv.PRG
defi popup c2 from 4 , 17 SHADOW COLOR scheme 4
defi bar 1 of c2 prom'Оргтехник 'color ,,,, 4 */ 9 , 4 */ 9
defi bar 2 of c2 prom'Х р ктеристик компов'color ,,,, 4 */ 9 , 4 */ 9
defi bar 3 of c2 prom'Д нные для мортиз ции'color ,,,, 4 */ 9 , 4 */ 9
defi bar 4 of c2 prom'Д нные о монитор х'color ,,,, 4 */ 9 , 4 */ 9
defi bar 5 of c2 prom'Амортиз ция з прошл.мес.'color ,,,, 4 */ 9 , 4 */ 9
defi bar 6 of c2 prom'Амортиз ция з отчетн.мес.'color ,,,, 4 */ 9 , 4 */ 9
on sele bar 1 of C2 do dros
on sele bar 2 of c2 do har
on sele bar 3 of c2 do b
on sele bar 4 of c2 do mon
on sele bar 5 of c2 do bd3
on sele bar 6 of c2 do bd4
**** A2 ****
defi popup a2 from 2 , 15 SHADOW COLOR scheme 4
defi bar 1 of A2 prom'Ведомость о н личии ПК по р бочим мест м'color ,,,, 4 */ 9 , 4 */ 9
defi bar 2 of A2 prom'Переход'message 'Перед формиров нием вед-ти мортиз ции ОБЯЗАТЕЛЬНО выполни эту ком нду!'
defi bar 3 of A2 prom'Н числение мортиз ции н комп.техн.'message 'Ты не з был ктивизиров ть ком нду ПЕРЕХОД?'
defi bar 4 of A2 prom'Ведомость о н личии мониторов'color ,,,, 4 */ 9 , 4 */ 9
defi bar 5 of A2 prom'Ведомость о н личии комп.техники'color ,,,, 4 */ 9 , 4 */ 9
on sele bar 1 of A2 do C:\FOXPRO\agu\VED.PRG
on sele bar 2 of A2 do C:\FOXPRO\agu\perehod.PRG
on sele bar 3 of A2 do C:\FOXPRO\agu\am.PRG
on sele bar 4 of A2 do C:\FOXPRO\agu\monitor.PRG
on sele bar 5 of A2 do C:\FOXPRO\agu\dros1.PRG
**** А4 ****
defi popup a4 from 2 , 40 SHADOW COLOR scheme 4
defi bar 1 of a4 prom 'Печ ть'
defi bar 2 of a4 prom 'Созд ние резервной копии '
defi bar 3 of a4 prom 'Поиск'
on bar 1 of a4 acti popup b1
on bar 2 of a4 acti popup b2
on sele bar 3 of a4 do PO
***b1
defi popup b1 from 3 , 40 SHADOW COLOR scheme 4
defi bar 1 of b1 prom'Ведомость о н личии ПК по р бочим мест м'color ,,,, 4 */ 9 , 4 */ 9
defi bar 2 of b1 prom'Н числение мортиз ции н комп.техн.'color ,,,, 4 */ 9 , 4 */ 9
defi bar 3 of b1 prom'Ведомость о н личии мониторов'color ,,,, 4 */ 9 , 4 */ 9
defi bar 4 of b1 prom'Ведомость о н личии комп.техники'color ,,,, 4 */ 9 , 4 */ 9
on sele bar 1 of b1 do pech1
on sele bar 2 of b1 do p2
on sele bar 3 of b1 do p3
on sele bar 4 of b1 do p4
***b2
defi popup b2 from 4 , 40 SHADOW COLOR scheme 4
defi bar 1 of B2 prom 'Созд ть'
defi bar 2 of B2 prom 'Восст новить '
on sele bar 1 of b2 do sozd
on sele bar 2 of b2 do vost
**** A5 ****
defi popup a5 from 2 , 55 SHADOW COLOR scheme 4
defi bar 1 of a5 prom 'FoxPro'color ,,,, 4 */ 9 , 4 */ 9
defi bar 2 of a5 prom 'Windows'color ,,,, 4 */ 9 , 4 */ 9
on sele bar 1 of a5 do CANCEL
on sele bar 2 of a5 do quit
acti wind w5
acti menu m
***Процедуры просмотр БД
proc mon
use C:\FOXPRO\agu\mon.dbf
BROW FIEL INVM:H='Инв.ь монитор ',naim:H='М рк ',invn:H='Инв.ь сист.блок ',RABM:H='Р бочее место',thar:h='Тех.х р-ки';
TITLE'Д нные о монитор х'
pack
return
proc dros
use C:\FOXPRO\agu\dros.dbf
BROW FIEL invn:H='Инвент.ь',vid:h='Вид оргтехн-ки',naim:h='Н именов ние',rabm:h='Р боч.место';
TITLE'Другие ОС'
pack
return
proc har
use C:\FOXPRO\agu\har.dbf
BROW FIEL invn:H='Инвент.ь',video:H='Видеок рт ',cpu:H='Процессор',;
mathe:H='М тери-я пл т ',hdd:H='Жест.диск',fdd:H='Floppy disk',;
ram:H='ОЗУ',cd:H='cd-привод',setkar:H='Сетев я к рт ',;
npk:H='ь ПК',rabm:H='Р боч. место';
TITLE'Х р ктеристик компов'
pack
retu
proc b
use C:\FOXPRO\agu\b.dbf
BROW FIEL invn:H='Инвент.ь',ps:H='Первон ч ль.ст-сть',;
dve:H='Д т ввод в эксплу-ию',spi:H='Срок полез.исп-ия';
TITLE'Д нные для мортиз ции'
pack
retu
proc bd3
use C:\FOXPRO\agu\bd3.dbf
BROW FIEL n:H='Аморт.з прошл.мес.',amm1:H='Аморт.з мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер';
TITLE'Амортиз ция з прошлый месяц'
pack
retu
proc bd4
use C:\FOXPRO\agu\bd4.dbf
BROW FIEL n:H='Аморт.з прошл.мес.',amm1:H='Аморт.з мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер';
TITLE'Амортиз ция з отчетный месяц'
pack
retu
****процедур копиров ния****
proc SOZD
define window E from 10 , 15 to 15 , 60 title '"КОПИРОВАНИЕ"';
shad color 4 / 1 , 8 / 3 , 3 / 5
ACTI WIND E
A= 0
b= 0
@ 1 , 10 GET A FUNC '* СОХРАНИТЬ НА ДИСКЕТЕ'
@ 2 , 10 GET B FUNC '* СОХРАНИТЬ НА ДИСКЕ С'
READ
IF A= 1
clos data
do nd
do ZAST
COPY FILE DROS.dbf TO a:\DROS.dbf
COPY FILE HAR.dbf TO a:\HAR.dbf
COPY FILE B.dbf TO a:\B.dbf
COPY FILE MON.dbf TO a:\MON.dbf
COPY FILE BD3.dbf TO a:\BD3.dbf
COPY FILE BD4.dbf TO a:\BD4.dbf
ENDIF
if b= 1
clos data
do nd
do ZAST
set default to c:\foxpro\AGU
COPY FILE DROS.dbf TO c:\DROS.dbf
COPY FILE HAR.dbf TO c:\HAR.dbf
COPY FILE B.dbf TO c:\B.dbf
COPY FILE MON.dbf TO c:\MON.dbf
COPY FILE BD3.dbf TO c:\BD3.dbf
COPY FILE BD4.dbf TO c:\BD4.dbf
endif
DEAC WIND E
do zast
retu
***Процедур восст новления р.к.
PROCEDURE vost
hide menu M
hide popup b2
hide popup a4
DEFINE WINDOW w FROM 10 , 14 ;
TO 13 , 64 SHADOW DOUBLE COLOR SCHEME 5
ACTIVATE WINDOW w SAME
@ 1 , 15 SAY "и н жмите Enter." ;
SIZE 1 , 16 , 0
@ 0 , 2 SAY "Вст вте дискету c резерв. копией в дискoвод А:" ;
SIZE 1 , 43 , 0
READ CYCLE
RELEASE WINDOW all
use
DELETE FILE DROS.dbf
DELETE FILE HAR.dbf
DELETE FILE B.dbf
DELETE FILE MON.dbf
DELETE FILE BD3.dbf
DELETE FILE BD4.dbf
COPY FILE a:\DROS.dbf TO c:\foxpro\AGU\DROS.dbf
COPY FILE a:\HAR.dbf TO c:\foxpro\AGU\HAR.dbf
COPY FILE a:\B.dbf TO c:\foxpro\AGU\B.dbf
COPY FILE a:\MON.dbf TO c:\foxpro\AGU\MON.dbf
COPY FILE a:\BD3.dbf TO c:\foxpro\AGU\BD3.dbf
COPY FILE a:\BD4.dbf TO c:\foxpro\AGU\BD4.dbf
show menu M
show popup b2
show popup a4
DEAC WIND w
retur
**** процедур фон меню ****
PROC zast
@ 5 , 1 say' '
@ 6 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 7 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 8 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 9 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 10 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 11 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 12 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 13 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 14 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 15 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 16 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 17 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 18 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 19 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 20 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 21 , 1 say' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'
@ 22 , 1 say' '
?' '
?' СЕГОДHЯ: '+dtoc(date())+''
RETU
**** процедур выход в FOXPRO *****
proc cancel
define window vf from 7 , 13 to 15 , 58 title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+
ACTI WIND vf in w5
A= 0
B= 0
@ 1 , 2 SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?'
@ 4 , 11 GET A FUNC '* ДА'
@ 4 , 29 GET B FUNC '* НЕТ'
READ
IF A= 1
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU
**** Процедур поиск ****
PROC PO
define window find from 1 , 1 to 23 , 60 title ;
'
...поиск...' double
acti wind find
store SPACE( 15 ) to U
@ 17 , 10 say'ESC-Выход'
@ 1 , 9 say'Инв.ь,процессор или р бочее место:' get U picture ('xxxxxxxxxxxxxxx')
@ 4 , 12 say' Где иск ть?'
read
k= 0
@ 5 , 5 prompt 'БД Х р ктеристик компов'
@ 7 , 5 prompt 'БД Д нные о ПК'
@ 9 , 5 prompt 'БД Мониторы '
@ 11 , 5 prompt 'БД Амортиз ция з прошлый месяц'
@ 13 , 5 prompt 'БД Амортиз ция з отчетный месяц'
@ 15 , 5 prompt ' Отмен '
menu to k
do case
case k= 1
use C:\FOXPRO\agu\har.dbf
brow title 'Х р ктеристик компов';
field invn:h='Инв.ь',;
video:H='Видеок рт ',;
cpu:H='Процессор',;
hdd:H='Ж.диск',;
ram:H='ОЗУ',;
npk:H='ь ПК',;
rabm:H='Р б.место' FOR cpu=U .OR. U=invn.OR.u=rabm
case k= 2
use C:\FOXPRO\agu\b.dbf
brow title 'Д нные о ПК';
field invn:H='Инвент.ь',;
ps:H='Первон ч.ст-сть',;
dve:H='Д т ввод в экс-ию',;
spi:H='Срок полез.исп.' FOR U=invn
case k= 3
use C:\FOXPRO\agu\mon.dbf
brow title 'Мониторы';
field INVM:H='Инв.ь монитор ',;
naim:H='Н именов ние',;
invn:H='Инв.ь сист.блок ',;
RABM:H='Р бочее место',;
thar:h='Тех.х р-ки' FOR U=invn.OR.u=rabm
case k= 4
use C:\FOXPRO\agu\bd3.dbf
brow title 'Амортиз ция з прошлый месяц' FIEL n:H='Аморт.з прошл.мес.',amm1:H='Аморт.з мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер' FOR U=invn
case k= 5
use C:\FOXPRO\agu\bd4.dbf
brow title 'Амортиз ция з отчетный месяц';
fields n:H='Аморт.з прошл.мес.',;
amm1:H='Аморт.з мес.',;
am1:H='Аморт.включ я отчетн.мес.',;
invn:H='Инвент.номер' FOR U=invn
case k= 6
deacti wind find
endcase
do wixod
retu
proc wixod
define window w1 from 7 , 25 to 12 , 55 ;
double color scheme 9
acti wind w1
k= 0
@ 1 , 2 say' Продолжить поиск? '
@ 3 , 2 prompt' Нет '
@ 3 , 20 prompt' Д '
menu to k
do case
case k= 1
hide wind w1
deacti wind w1
do po
case k= 2
deacti wind w1
deacti wind find
close data
endcase
retu
**** процедур выход в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from 7 , 13 to 15 , 58 title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+
ACTI WIND vnc
A= 0
b= 0
@ 1 , 2 SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?'
@ 4 , 11 GET A FUNC '* ДА'
@ 4 , 29 GET B FUNC '* НЕТ'
READ
IF A= 1
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU
******
proc nd
close all
set talk off
clear
DEFI WINDOW W1 FROM 9 , 13 TO 13 , 64 title"КОПИРОВАНИЕ"DOUBLE SHADOW COLOR 0 / 5 , 1 / 2 , 3 / 4
acti wind w1 in w5
i= 1
I1= 0
@ 1 , 0 SAY ' 'color N/n
do while i< 49
@ 1 ,i say '' color b+/n
@ 1 , 0 get i1 pict '999'+'%'
=inkey( 0 . 0001 )
i=i+ 1
I1=I1+ 2 . 16
enddo
deac wind w1
clear
**** процедур печ ти ****
PROCEDURE pech1
type C:\FOXPRO\AGU\VED.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p2
type C:\FOXPRO\AGU\AM.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p3
type C:\FOXPRO\AGU\MONITOR.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p4
type C:\FOXPRO\AGU\DROS1.TXT to print
CLEAR
CLOSE ALL
retur
Блин. Не получилось кодировку нормальную сделать... Вот. Там написаны две процедуры выхода в FoxPRO и в Windows, а где они используются и как у себя их разместить я не понял. |
