powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Научите
6 сообщений из 6, страница 1 из 1
Научите
    #35906331
Sid Sidov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А научите пожалуйста делать полосы загрузки(точно пока не знаю как они называются). То есть делаю запрос, записей много, потом еще и в Excel экспортирую вот хотелось бы что бы в это время такая приблуда была!!! Покрасивше же!!! Спасибо!!!
...
Рейтинг: 0 / 0
Научите
    #35906413
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ProgressBar
...
Рейтинг: 0 / 0
Научите
    #35906843
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возможно SET TALK
...
Рейтинг: 0 / 0
Научите
    #35906980
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Самое красивое, но самое медленное
копирование по записи за раз и отображение данного процесса на красивой формочке.
...
Рейтинг: 0 / 0
Научите
    #35907558
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sid SidovА научите пожалуйста делать полосы загрузки(точно пока не знаю как они называются). То есть делаю запрос, записей много, потом еще и в Excel экспортирую вот хотелось бы что бы в это время такая приблуда была!!! Покрасивше же!!! Спасибо!!!
WAIT WINDOW будет достаточно
...
Рейтинг: 0 / 0
Научите
    #35907809
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
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Научите
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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