Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Научите / 6 сообщений из 6, страница 1 из 1
01.04.2009, 16:50
    #35906331
Sid Sidov
Sid Sidov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
А научите пожалуйста делать полосы загрузки(точно пока не знаю как они называются). То есть делаю запрос, записей много, потом еще и в Excel экспортирую вот хотелось бы что бы в это время такая приблуда была!!! Покрасивше же!!! Спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2009, 17:15
    #35906413
PaulWist
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
ProgressBar
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2009, 20:44
    #35906843
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
Возможно SET TALK
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2009, 23:00
    #35906980
alextashk
alextashk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
Самое красивое, но самое медленное
копирование по записи за раз и отображение данного процесса на красивой формочке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2009, 11:02
    #35907558
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
Sid SidovА научите пожалуйста делать полосы загрузки(точно пока не знаю как они называются). То есть делаю запрос, записей много, потом еще и в Excel экспортирую вот хотелось бы что бы в это время такая приблуда была!!! Покрасивше же!!! Спасибо!!!
WAIT WINDOW будет достаточно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2009, 11:54
    #35907809
LUCIAN
LUCIAN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Научите
Sid Sidov,

Код: 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.
SELE CEXC
kstr=reccount()
SET PROC TO KLASS
oThermRef = CREATEOBJECT("thermometer","Формирование Excel-таблицы ")
oThermRef.Show()
oThermRef.Update( 0 ,"ОБРАБОТАНО ЗАПИСЕЙ 0")
prcs= 0 
OBRBZ= 0 
SCAN
	PRIT=IIF(LEFT(FIO, 5 )=="Итого",.T.,.F.)
	TOLSC=IIF(PRIT,xlThin,xlHairline)	
	With oSheet
	   .Rows(ALLT(STR(NROW))+':'+ALLT(STR(NROW))).RowHeight= 16 
		IF NOT PRIT
			FOR J= 1  TO  5 	
*****...................

*****.........
	nRow = nRow +  1 
	OBRBZ=OBRBZ+ 1 
	PRC=INT(OBRBZ* 100 /KSTR)
	IF PRC # PRCS
		PRCS=PRC
		oThermRef.Update(PRC,"Обработано записей:"+STR(OBRBZ, 6 )+" Всего:"+str(kstr, 6 ))
	ENDIF	
endscan
oThermRef.RELEASE()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Научите / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 461ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1586600]:
 0ms
get settings:
 12ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 318ms
total:  461ms
x
x
Закрыть


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