Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Юзеру хоцца вбивать поле

BCPP_Builder_Dev © (2002-09-23 12:05:00)
В поле типа TDBEdit, которов сассоцированно с даннымо типа "money" на сервере и с типом "Currency" в приложении.
Ессно если даже в Regional-e стоит ",", то меняю сие следующим кодом:

DateSeparator = "/"; // - то же хотят и с датой
DecimalSeparator = ".";

Но вот вопрос: почему после этого в поля типа "деньги" не дает вбивать ".", а "," дает, но ругается дескать "ис нот валид флоатинг поинт ..."???

sniknik (2002-09-23 14:12:00) [1]
и похоже представления самого SQL Server ты во внимание не принимаеш. Он вообше может быть на другой машине а DecimalSeparator "местная".

LordOfSilence (2002-09-23 14:03:00) [2]
> BCPP_Builder_Dev ©

TField->EditMask?

sniknik (2002-09-23 13:53:00) [3]
Осмелюсь предположить что подключение через BDE->ODBC->MSSQL?
если да то сделай ADO->OLE DB SQL Server.
т.к. и у BDE и у ODBC могут быть свои представления о "представлении дат".

BCPP_Builder_Dev (2002-09-23 13:10:00) [4]
Да я не про это.... :(((

повторюсь собственно:

"
В поле типа TDBEdit, которов сассоцированно с даннымо типа "money" на сервере и с типом "Currency" в приложении.
Ессно если даже в Regional-e стоит ",", то меняю сие следующим кодом:

DateSeparator = "/"; // - то же хотят и с датой
DecimalSeparator = ".";

Но вот вопрос: почему после этого в поля типа "деньги" не дает вбивать ".", а "," дает, но ругается дескать "ис нот валид флоатинг поинт ..."???
"

BCPP_Builder_Dev (2002-09-23 13:07:00) [5]
неужто нету реального выхода кроме как менять Regional???

3JIA9I CyKA (2002-09-23 13:07:00) [6]
Так не пашет?!

BQuery.FieldByName("DateFrom").AsDateTime := Date;

BCPP_Builder_Dev (2002-09-23 12:40:00) [7]
Пока единственное решение проблемы в изменении Locate на English - не считаю это правильным. Хоцца сделать это в пределах работы программы...
Как что сделать грамотно и где?

MainForm->OnCreate???

BCPP_Builder_Dev (2002-09-23 12:39:00) [8]
Да нет просто Билдет почему-то ругается на функцию Date();
а Now(); возвращает дату и время, а если время в базу пихать не нужно, то сей способ самое оно и есть...

3JIA9I CyKA (2002-09-23 12:37:00) [9]
>>BQuery->FieldByName("DateFrom")->AsDateTime =
>>StrToDate(DateToStr(Now()));

ВЫ ЧТО ОПУХЛИ?!!!!!!!

BCPP_Builder_Dev (2002-09-23 12:34:00) [10]
Да все ясно, но почему-то после кода:

DateSeparator = "/";
DecimalSeparator = ".";

BQuery->Append();
BQuery->FieldByName("DateFrom")->AsDateTime =
StrToDate(DateToStr(Now()));

В базу проха путается запихать не "23/09/2002", а "23.09.2002"
иными словами возвращается дата с некорректными разделителями...

3JIA9I CyKA (2002-09-23 12:30:00) [11]
Блин! Ещё никому (у кого такая трабла) не смог помочь. Не могу добиться возникновения подобной проблемы! Где же ту опыту набраться.

Cranium (2002-09-23 12:24:00) [12]
Можно просто изменить значение в DecimalSeparator на ".", то же можно проделать и с датой вот смотри полный список

var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;
var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;
var TListSeparator: Char;

BCPP_Builder_Dev (2002-09-23 12:24:00) [13]
В смысле убрать галку "Use regional Settings"? Убрал.
А сервер после этого рестартить надо?
Потому как не помогло вроде как....

3JIA9I CyKA (2002-09-23 12:11:00) [14]
Ку?

Client Network Utility/Use regional settings

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »