상현이라는 초보입니다. wrote:

> 도와주세요.

> 예를 들어 버튼이 두개 있습니다.(button1,button2)

> 그리고 테이블에는 날짜필드,금액필드 두개가(00.01.01~00.05.05까지의 레코드) 있습니다.

> edit1에 예를 들어 00.05.01를, edit2에 00.05.05이란 날짜(아무런 날짜를 지정해도 됨)를 지정하고 버튼1을 누르므로써 테이블의 레코드를 디비그리드에 나타내려고 합니다.

> 나머지 버튼은 edit3엔 아무런 한 날짜를 지정하고 테이블의 레코드를 디비그리드에 나타내려고 합니다.

> 도대체 어떻게 해야합니까? (단 버튼들과 table과 edit1,2,3은 폼1에 있고 디비그리드와 또다른edit1이 폼2에있습니다. ** 그리고 같은 날짜의레코드가 둘이상일 수도 있습니다.)

>

> 그리고 만약 폼1의 버튼1을 클릭했다면 나타난 폼2의 디비그리드에서 00.05.01에서00.05.05까지의 금액합계을 폼2의 edit1.text에 나타내야합니다.

> 또 폼1의 버튼2를 클릭했을때는,그냥 지정한 한 날짜금액이 폼2의edit1.text에 나타내려면 어떻게 해야 합니까?

> (자세히 말하자면 버튼1을 클릭하면 폼2가 출력하는 동시에 edit1에 00.05.01~00.05.05의 금액 합계가 나와야되고 버튼2를 클릭했을 경우 지정한 한 날짜의 레코드의 금액합계을 구하는 것입니다. 전 도저히 알수 없어서 이렇게 몇글자 올립니다.

> 많은 고수님들 한번 보시고 꼭가르쳐 주십시요. 사실 저 어제부터 계속 컴퓨터 앞에만 있습니다. 밥도 먹지 않고 물도 마시지 않고 계속 컴퓨터앞에만 있어요..흐흐흐 불쌍한 저를 봐서 가르쳐주시와아요.

> 파이팅 고수님들!!!

>

>

>

>

>







안녕하세요.....

form1의 버튼을 누르면 form2에 DBgrid에 출력하고 그 합계를 표현하고 싶은 것 같은데

...

일단 폼2를 동적으로 생성하지 않는다고 가정하고 Query를 사용한다고 가정하면...



procedure TForm1.Button1Click(Sender: TObject);

begin

With Dm.query1 do // 데이타 모듈에 쿼리가 있으면.. 물론 form2의 DBgrid

//가 이 dm.guery1과 연결되어 있어야 겠지요..

begin

close;

sql.clear;

sql.add('Select * from where Dondate >= :dondate1 and Dondate <= :dondate');

//날짜 필드가 dondate라고 가정

paramByname('dondate1').asdatetime := StrToDate(edit1.text);

paramByname('dondate2').asdatetime := StrToDate(edit2.text);

open;

end;

form2.show;

뭐 간단하게 이렇게 하면 form2.dbgrid에 조회한 자료를 출력될것입니다..

합계는

With Dm.query1 do // 데이타 모듈에 쿼리가 있으면.. 물론 form2의 DBgrid

//가 이 dm.guery1과 연결되어 있어야 겠지요..

begin

close;

sql.clear;

sql.add('Select sum(don) sdon from where

sql.add('Dondate >= :dondate1 and Dondate <= :dondate');

//날짜 필드가 dondate라고 가정

paramByname('dondate1').asdatetime := StrToDate(edit1.text);

paramByname('dondate2').asdatetime := StrToDate(edit2.text);

open;



form2.edit3.text := inttostr(fieldbyname(sdon).asinteger);

end;

form2.show;



end;

요렇게 하면 되지 싶은데.. 간단하게... 다른 방법도 많겠죠....

그럼 설명이 미흡해서.. 죄송...