안녕하세요 김동원입니다.

질문의 뜻을 정확히 파악하지 못하겠네요..



Button1.Tag := 1;

Button2.Tag := 2;

Button3.Tag := 3;



ButtonClickEvent



case( TButton(Sender).Tag )of

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

2: begin

Edit2.Text := FormatDateTime('yyyy-mm', IncMonth(now,-2));

Edit3.Text := FormatDateTime('yyyy-mm', IncMonth(now,-1));

end;

3: begin

Edit2.Text := FormatDateTime('yyyy-mm', IncMonth(now,-4));

Edit3.Text := FormatDateTime('yyyy-mm', IncMonth(now,-3));

end;

end;





mickyblue wrote:

> 송구합니다.

> 이번거는

> 버튼세개 만들고 에디트 세개만들고 첫번째 버튼에 오늘날짜 출력하고 두번째 버튼에는

> 지난달과 지지난달 재고 날짜를 출력하기 위해 그러니까 이번달이 9월이니까

> 지난 두달(2000.7~2000.8)출력하고 버튼3은 (2000.5~2000.6)까지를 edit에 출력하려고 합니다.

>

DB가 뭐죠?