Скачать: CL | DM;

Проверка на ввод данных   Найти похожие ветки 

← →
Shnidke   (2003-08-18 00:28) [0]

Уважаемые мастера, помогите пожалуйста решить следующую задачу:
При загрузке базы данных нужно сделать так чтобы происходила проверка на ввод данных. И если допустим вчера не было ввода то выдавалось соответствующее сообщение.

---

← →
Марат   (2003-08-18 06:41) [1]

Я бы при вводе данных создал переменную, показывающую текущую дату, а на следующий день проверил бы ее -1день.

---

← →
Anatoly Podgoretsky ©   (2003-08-18 07:21) [2]

select max(fld) from table

---

← →
paul_k ©   (2003-08-18 09:15) [3]

2 варианта.
1. в инишку (или какую нить таблицу) сливать дату последнего ввода
2. хранить в таблице поля типа createdate и modifydate, куда писать соответственно дату создания и изменения записи. ПРи проверке отрабатывать соответствующие селекты см выше

---

← →
Shnidke   (2003-08-19 00:37) [4]

Все дело в том, что я только начинаю программировать на DELPHI и если можно подскажите пожалуйста как занести в переменную текущую дату. Ну а сравнить дату последнего ввода и текущей я надеюсь смогу.
Спасибо!

---

← →
Sirus ©   (2003-08-19 09:00) [5]

Есть функция Date
Она возвращает текущую дату... А присвоить:
var Date1: TDate;
....
Date1:=Date;

---

← →
Shnidke   (2003-08-20 00:15) [6]

При таком варианте сравнения почему то всегда выдается сообщение что был пропущен ввод данных, даже если число больше текущего.
procedure TMainForm.FormShow(Sender: TObject);
var D,D1: tDate;
begin
datamodule2.MainTable.Last;
D:=DataModule2.MainTable.fieldByName("Date").AsDateTime;
D1:=(date);
if D < D1 then begin MessageDlg("Был пропущен ввод данных",mterror,[mbok],0);end;
end;
end.
Помогите разобраться.
Спасибо.

---

← →
shnidke   (2003-08-23 12:55) [7]

Спасибо всем ! Я уже разобрался.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c