Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

TDateTime type и Null   Найти похожие ветки 

← →
chir   (2005-01-13 17:34) [0]

Объект (похожий на DateTimePicker) возвращает дату типа TDateTime.
Как проверить ввел ли пользователь дату или нет? Происходит запись в базу, куда нельзя записывать пустую дату.

---

← →
Ega23 ©   (2005-01-13 17:44) [1]

Ставить значение по-умолчанию, например - сегодня.

---

← →
chir   (2005-01-13 17:47) [2]

ну думаю это не выход. пользователь может стереть дату и при обновлении таблицы у меня опять будет ошибка

---

← →
Ega23 ©   (2005-01-13 17:52) [3]


procedure TFProfs.btnOkClick(Sender: TObject);
var
ss:String;
ProfID:Integer;

begin

if not FoolProtection then Exit;

...... Update to dataBase
end;

function TFProfs.FoolProtection: Boolean;
var
ss:string;
Code:Integer;

begin

ss:=eProfNam.Text;
if not CheckOnQuotes(ss,Code) then
 begin
  if eProfNam.CanFocus then eProfNam.SetFocus;
//   PassMessage(Handle,"Символ "+eProfNam.Text[Code]+" является зарезервированым "+CRLF+
//                      " и не может быть использован",PasMess.capWarning,0);
  Exit;
 end;
eProfNam.Text:=ss;

ss:=eProfLab.Text;
if not CheckOnQuotes(ss,Code) then
 begin
  if eProfLab.CanFocus then eProfLab.SetFocus;
//   PassMessage(Handle,"Символ "+eProfLab.Text[Code]+" является зарезервированым "+CRLF+
//                      " и не может быть использован",PasMess.capWarning,0);
  Exit;
 end;
eProfLab.Text:=ss;

if eProfNam.Text="" then
 begin
  PassMessage(Handle,PasMess.wrnNamAbs,PasMess.capWarning,0);
  eProfNam.SetFocus;
  Result:=False;
  Exit;
 end;

........



В таком вот виде...

---

← →
Соловьев ©   (2005-01-13 17:55) [4]

взять из EhLib редактор даты

---

← →
Johnmen ©   (2005-01-13 17:58) [5]

>Объект (похожий на DateTimePicker) возвращает дату типа TDateTime.

Какое значение он зазвращает, если дата не указана?

---

← →
chir   (2005-01-13 18:10) [6]

> Johnmen
не знаю какое. если бы знал, сделал бы проверку... эх...

---

← →
sniknik ©   (2005-01-13 18:21) [7]

chir   (13.01.05 18:10) [6]
мне бы ваши проблемы... эх...

т.е. ввести пустое и посмотреть в отладчике что вернуло проблема?
и вообще если настолько неизвестный компонент, стоит ли его использовать?

---

← →
Соловьев ©   (2005-01-13 18:24) [8]

Происходит запись в базу, куда нельзя записывать пустую дату.

Можно еще ж ловить onPostError - там и проверяй, что за шибка.

---

← →
chir   (2005-01-13 18:39) [9]

С этим разобрался... надо было использовать не .Date и не .Text,
а .EditValue, который возвращал Null.

спасибо всем

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.042 c