폼의 에디트 박스에는 오늘의 날짜가 문자열로 오고

테이블2의 날짜필드가(Outday) 에디트에 표시된 날짜보다 작으면

테이블1의 엔터필드를 '미등록'이라고 수정하고

아니면 등록이라고 수정하는 것을 만들려고 합니다.

그런데 잘 안되네요.

제 생각에는 날짜형인 것을 문자열로 바꾸어주고

조건문에서 크다, 작다로 비교하면 안된다는 것을 알지만

날짜의 비교는 도데체 어떻게 하는 것입니까?

즉 데이터필드의 날짜형인 데이터가 오늘의 날짜보다 이전이면

다른 테이블 전체를 수정해 주어야 하는데

방법을 알길이 없습니다.

어떤분이 쿼리를 사용하라고 하시는데

저는 쿼리를 전혀 사용할 줄 모릅니다.

데이터타입은 파라독스입니다.







procedure TForm1.Button1Click(Sender: TObject);

begin

if Form1.Table2.FieldByName('outday').value < edit1.text then

begin

Table1.edit;

Form1.Table1['Enter'].value := '미등록'; table1.post;

end

else

begin

Table1.edit;

Form1.Table1['Enter'].value := '등록'; table1.post;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := FormatDateTime('yyyy-mm-dd', Date);

end;