mad wrote:

> 안녕하세요.

> 이틀째 입니다. 이문제로 고생하고 있는 것이 쩝~

> 제가 할려는 것은 테이블의 디비중 날짜필드의 값이 오늘날짜보다 이전이면

> 다른 테이블의 필드를 에디트해서 '등록'이라는 문자열을 삽입하고 저장하고

> 아니면 '미등록'이라는 문자열을 삽입해 주려고 하는데요.

>

> Table2의 Outday라는 필드(날짜 yyyy-mm-dd)가 오늘날짜보다 작으면(이전이면)

> Table1을 에디트하고 Enter라는 필드에다가 '미등록'이라는 문자열을 삽입한다.

> 작지 않으면 '등록'이라고 바꾼다.

> 이런 것을 만들려고 합니다.

> 그런데 문제는 변수선언이 잘못되었다고 에라가 나오는데

> 아무리 고쳐도 않돼요.

> 또 이 작업을 테이블내의 모든 레코드를 당일 날짜별로 '등록'과 '미등록'을

> 삽입해 주어야 하는데 어떻게 전체다 바꿀 수 있나요.

> 우선 아래의 소스를 보시고 판단해 주십시오.

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> date : TdateTime;

> begin

>

> Table2.open;

> if table2.FieldByName('Outday').Value < date then

> begin

> Table1.edit;

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

> end

> else

> begin

> Table1.edit;

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

> end;

> end;



안녕하세요.

날짜보다 작은것만 한다구요.

그럼.. 먼저 Query를 쓰던지 아님 필터(filter)를 이용해..

날짜보다 작은값목록을 구해

목록을 첨부터 끝까지 '미등록'으로 하고

큰값에 목록을 구해.. 첨부터 끝가지 '등록'으로 하면 될것 같네요.



2000.

필터를 찾아봤지만 책에는 날짜형과 문자형이 비교대상이 되지 않아요.

에러가 뜹니다.

이것을 보시고 생각 좀 해주세요. 물론 동작 안하는 것입니다.





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

테이블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;





혹시 필터나 쿼리를 사용하면 어떤 방식으로 사용하는 건지요.

날짜형은 아무리 해도 않되던데요.

위의 소스를 보시고 수정가능 하다면 답변을 주시고

않되는 것이라면 다른 방법은 없는지 부탁드립니다.

이제는 4일째군요. 쩝~



초보자가 웁니다.

'불러봐도~ 질문해도~ 답변없는 델파이여~'

이노래 아시나요????







강민주 wrote:

> mad wrote:

> > 안녕하세요.

> > 이틀째 입니다. 이문제로 고생하고 있는 것이 쩝~

> > 제가 할려는 것은 테이블의 디비중 날짜필드의 값이 오늘날짜보다 이전이면

> > 다른 테이블의 필드를 에디트해서 '등록'이라는 문자열을 삽입하고 저장하고

> > 아니면 '미등록'이라는 문자열을 삽입해 주려고 하는데요.

> >

> > Table2의 Outday라는 필드(날짜 yyyy-mm-dd)가 오늘날짜보다 작으면(이전이면)

> > Table1을 에디트하고 Enter라는 필드에다가 '미등록'이라는 문자열을 삽입한다.

> > 작지 않으면 '등록'이라고 바꾼다.

> > 이런 것을 만들려고 합니다.

> > 그런데 문제는 변수선언이 잘못되었다고 에라가 나오는데

> > 아무리 고쳐도 않돼요.

> > 또 이 작업을 테이블내의 모든 레코드를 당일 날짜별로 '등록'과 '미등록'을

> > 삽입해 주어야 하는데 어떻게 전체다 바꿀 수 있나요.

> > 우선 아래의 소스를 보시고 판단해 주십시오.

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > date : TdateTime;

> > begin

> >

> > Table2.open;

> > if table2.FieldByName('Outday').Value < date then

> > begin

> > Table1.edit;

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

> > end

> > else

> > begin

> > Table1.edit;

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

> > end;

> > end;

>

> 안녕하세요.

> 날짜보다 작은것만 한다구요.

> 그럼.. 먼저 Query를 쓰던지 아님 필터(filter)를 이용해..

> 날짜보다 작은값목록을 구해

> 목록을 첨부터 끝까지 '미등록'으로 하고

> 큰값에 목록을 구해.. 첨부터 끝가지 '등록'으로 하면 될것 같네요.

>

> 2000.

>

>