В БД тип поля Дата/Время - как исключить ошибку ввода неправильной даты?

[Dux]

На форме есть компонент DBEdit, который связан со столбцом Date в таблице базы данных (тип данных в таблице установлен "Дата/Время"). Когда пользователь вводит в DBEdit дату, но, к примеру пишет 01.01.15 вместо 01/01/15 - появляется ошибка - неправильный формат. Как так сделать, чтобы независимо от того какой символ стоит "-","." или "/" между числами программа автоматически переводила в системный формат (как установлено в windows)?

Вот скриншот ошибки:


Как сделать, чтобы она не появлялась, а в ячейке DBEdit автоматически дата исправлялась системный формат, т.е. с разделителя "." на разделитель "/"?

[Аватар]

Ну я бы не использовал DBEdit для ввода даты. А если уж использовать, то у фиелда есть событие OnSetText, в нем и проверил/заменил или вообще отфутболил, если дата введена коряво

[Dux]

Сообщение от Аватар

Ну я бы не использовал DBEdit для ввода даты. А если уж использовать, то у фиелда есть событие OnSetText, в нем и проверил/заменил или вообще отфутболил, если дата введена коряво

Работаю с базой данных, что тогда использовать если не DBEdit? События OnSetText в DBEdit и DBGrid не нашел

[xxbesoxx]

Работаю с базой данных,

понятно

что тогда использовать если не DBEdit?

DateTimePicker есть на в кладке Win32. Интересно почему вы выбрали DBEdit ?

//Сохранить дата из DateTimePicker
 with ADoquery do
 begin
   insert
     FieldByName('Имя_поля').Asdatetime := DateTimePicker.date;
   post;
 end;

если почитат из таблици , тогда

  DateTimePicker.date:= ADoquery.FieldByName('Имя_поля').Asdatetime;

Это самый простой способ для понимание , зачем DBEdit

[Аватар]

События OnSetText в DBEdit и DBGrid не нашел

OnSetText у TField и потомков

[Dux]

Да нет, DateTimePicker не в тему. Его нельзя привязать к БД как DBEdit. У меня этих ячеек с датой планируется около сотни, так что нужно придумать как-то автоматическую обработку.

У меня на работе есть программа (тоже работает с базами данных), так там никаких заморочек - вводишь корявую дату (с любым разделителем) - и при переходе на следующую ячейку в предыдущей все автоматом исправляется. Т.е. это сделать можно, но как?

А по поводу OnSetText у TField - так и не понял, в каком компоненте искать эти свойства?

[иванлеон]

Сообщение от Dux

Да нет, DateTimePicker не в тему. Его нельзя привязать к БД как DBEdit. У меня этих ячеек с датой планируется около сотни, так что нужно придумать как-то автоматическую обработку.

У меня на работе есть программа (тоже работает с базами данных), так там никаких заморочек - вводишь корявую дату (с любым разделителем) - и при переходе на следующую ячейку в предыдущей все автоматом исправляется. Т.е. это сделать можно, но как?

А по поводу OnSetText у TField - так и не понял, в каком компоненте искать эти свойства?

А разве вот так не решается эта проблема?

procedure TForm1.dbedtdateKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9','.':;
else
 key := Chr(0);
end;   // до кучи запретить лишние символы (??????)
end;

procedure TForm1.dbedtdateChange(Sender: TObject);
var
  s:string;
begin

s:=Form1.dbedtdate.Text;

if pr(s) then begin     // проверка ввода полной даты и верной даты - робота со строкой copy, delete и т.п.

zamena(s);   // процедура замены на нужные разделители, тоже текст

Form1.dbedtdate.Text:=s;

end;

end;

[Аватар]

А по поводу OnSetText у TField - так и не понял, в каком компоненте искать эти свойства?

У любого датасета после открытия на выборку есть поля, обычно контейнер Fields, содержащий массив полей, имеющих общего предка TField. Для конкретного поля это может быть TIntegerField, TStringField и прочая лобуда. Событие TField.OnSetText отрабатывает при записи текста из DB-компонента ссылающегося на поле непосредственно в датасет. Вот пример небольшой

procedure TForm1.CDSWorkVesTraSetText(Sender: TField; const Text: String);
var xVes: Real;
begin
  xVes:=RoundTo(StrToFloatDef(Text,0),-3);
  if xVes<-0.0001 then ShowMessage('Ввод отрицательного веса запрещен')
  else if xVes>500.0001 then ShowMessage('Максимальное значение веса = 500')
  else TFloatField(Sender).AsFloat:=xVes;
end;

[SunnyCrash]

скачай EHlib и будет тебе счастье

[Dux]

Сообщение от Аватар

Ну я бы не использовал DBEdit для ввода даты.

Подскажите пожалуйста, как сделать так, чтобы по умолчанию в DateTimePicker - если пользователь дату еще не выбирал - это поле было пустым?