Проверка на ввод данных

← →
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]

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

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