Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И снова ГРИД. Передача даты. / 10 сообщений из 10, страница 1 из 1
28.07.2006, 12:36
    #33884880
Scorpio_md
Scorpio_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
Подскажите кто нибудь. Буру данные с оракловского сервера, толкаю их в курсор, затем курсор в грид. Вопрос, там есть поле даты, как мне сделать так, чтобы отображалась в гриде только дата без времени, а то как то некрасиво получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 12:46
    #33884922
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
поищи поиском
было уже

есть несколько решений

самый простой
ширину колонки выставить до размера, чтобы
видна была только дата
и дергаться
затем с методами вен и валид
текстбокса в колонке (менять вальюе)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 13:11
    #33885017
гена_2006
гена_2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
Scorpio_mdПодскажите кто нибудь. Буру данные с оракловского сервера, толкаю их в курсор, затем курсор в грид. Вопрос, там есть поле даты, как мне сделать так, чтобы отображалась в гриде только дата без времени, а то как то некрасиво получается.

Это делается вот так

Код: 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.
cSP = "SELECT Code_p, N_PUTEV, TIMEOUT FROM fin.tfv_pass" + ;
		" WHERE CODE_SAN = " + THISFORM.nsanator + " AND " + ; 
		"TIMEOUT >= TO_DATE('" + THISFORM.dChosendata + "', 'dd/mm/yyyy')" + ;
		" AND " + "TIMEOUT <= TO_DATE('" + THISFORM.nchosenprimaryid + "', 'dd/mm/yyyy') ORDER BY N_PUTEV"

k = SQLExec(gnConnHandle, cSP, 'PList')

	with ThisForm.PLGrid1
		.ColumnCount =  2 
		.RecordSourceType =  1 
		.RecordSource = "Plist"
	
		.Column1.ControlSource = "Plist.n_putev"
		.Column1.ReadOnly = .T.
		.Column1.Header1.Caption = "Номер"

		.Column2.ControlSource = "TTOD(Plist.Timeout)"
		.Column2.ReadOnly = .T.	
		.Column2.Header1.Caption = "Дата"
	
	ENDWITH

	ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 13:28
    #33885071
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
да,
если бы еще грид затем позволил
редактировать "TTOD(Plist.Timeout)"

то, а так ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 14:34
    #33885368
Гена_2006
Гена_2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
раз уж так...

я же не навязываю, я делюсь тем как делаю...
В гриде НИЧЕГО не редактирую!!!!
Слтал на грид в нужную строку
нажал кнопку - редактировать
вызвалась форма редактирования (читал, что Вы не любите ду форм )

DO FORM ... WITH TTOD(Plist.Timeout)

на форме TTOD(Plist.Timeout) передалось в текстбокс с дата тайп = Date

кнопка сохранить:

Код: 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.
InDay = DTOC(Thisform.Dat1.Value)

cSP = "{call MySchema.MyStoredProcedure(1, '0', ?InDay)}"  

InDay = DTOC(Thisform.Dat1.Value)
-------------------------------------
CREATE OR REPLACE PROCEDURE MyStoredProcedure
(nToDo IN NUMBER, cRecordid IN VARCHAR2, StartDay IN VARCHAR2
)
IS

BEGIN


.................................

IF nToDo =  2  THEN

	UPDATE MyTable
	SET 
.......................
		dStartDate = TO_DATE(StartDay, 'dd/mm/yyyy'),
	WHERE Code = cRecordid ;
END IF ;
..................

COMMIT ;
END ;
/

странно?
непривычно???

Тем не менее на 100% работает и никаких проблем....

да, конечно я переворотами дат в стригн и обратно я сознаюсь перемутил, надо было быстро сделать и я подсмотрел, что наш столичный разработчик почему-то постоянно использует TO_DATE(...., 'dd/mm/yyyy'), ну и подумал "зачем изобретать велосипед..."

Если не нравится такой метод, что ж у каждого есть свой
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 14:42
    #33885404
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
Гена, я ж тебя не ругаю
сам через это прошел

вот когда апдейтить нужно, тады вот проблемы,
а так конечно

Владимир Журавлев показывал когда-то как рулить через курсорсхему,
но там свои проблемы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 14:47
    #33885432
Scorpio_md
Scorpio_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
А теперь еще такой вопрос. Как мне выбрав запись по нажатию на клавишу ENTER, произошло событие:

if nKeyCode=23
ThisForm.celi_vizita_.SetFocus
thisform.grid1.SetFocus
ENDIF

Пробовал в GRID.KEYPRESS, она только по полям бегает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2006, 15:11
    #33885528
Гена_2006
Гена_2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
alex11100Гена, я ж тебя не ругаю
сам через это прошел

вот когда апдейтить нужно, тады вот проблемы,
а так конечно

Владимир Журавлев показывал когда-то как рулить через курсорсхему,
но там свои проблемы


да я нормально воспринял твои слова
не было и намека на ругань... нормальное общение....

Апдейтит в указанном случае вроде нормально... глюков не наблюдал... если дата как строка передалась в ХП - остальное фыоксе по боку...

а курсор-схема может и круче, но что-то лень вникать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2006, 15:42
    #33892365
Недоходящий
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
2 alex11100

Что за курсорсхема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2006, 15:55
    #33892422
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
И снова ГРИД. Передача даты.
у КА ест свойство - курсорсхема

field type, field2 type, ....


CursorAdapter.CursorSchema = ;
"col1 I, col2 Character(25), col3 M, col4 Currency, col5 n(12,3)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И снова ГРИД. Передача даты. / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 431ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1591085]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 139ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 211ms
total:  431ms
x
x
Закрыть


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