Q&A
- Query1CalcFields 에서 계산된 내역 합계구할때
Query1 sql : select su,amt from aaa
Query1 에서 추가된 필드명 : damt
Query1 이 가지고 있는 기본 필드 su, amt
damt 필드는 amt 필드의 값이 0보다 클때에는 amt 값이 들어가고
그렇지 않을때에는 (su * amt) 값이 들어값니다.
Query1의 결과값들은 dbgrid에 나타납니다...
그렇게 해서 damt의 값을 구하고 구한 값들의 합을 리포트가 아닌 Medit 로 값을 받아
폼에 나타낼려고 합니다.
조언 부탁드립니다...
<!--CodeS-->
procedure Tfexam1.Query1CalcFields(DataSet: TDataSet);
begin
if Query1.FieldByName('amt').AsFloat >= 0 then
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat;
end
else
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat
* Query1.FieldByName('su').AsFloat;
end;
end;
<!--CodeE-->
Query1 에서 추가된 필드명 : damt
Query1 이 가지고 있는 기본 필드 su, amt
damt 필드는 amt 필드의 값이 0보다 클때에는 amt 값이 들어가고
그렇지 않을때에는 (su * amt) 값이 들어값니다.
Query1의 결과값들은 dbgrid에 나타납니다...
그렇게 해서 damt의 값을 구하고 구한 값들의 합을 리포트가 아닌 Medit 로 값을 받아
폼에 나타낼려고 합니다.
조언 부탁드립니다...
<!--CodeS-->
procedure Tfexam1.Query1CalcFields(DataSet: TDataSet);
begin
if Query1.FieldByName('amt').AsFloat >= 0 then
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat;
end
else
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat
* Query1.FieldByName('su').AsFloat;
end;
end;
<!--CodeE-->
4
COMMENTS
-
-
죄송한데요...
변수선언은 어디에서 해야 됩니까??
계속 엉뚱한 값만 불러오고 있습니다...^^!
-
procedure 와 begin 사이에 하시면됩니다
ex)
procedure Tfexam1.Query1CalcFields(DataSet: TDataSet);
var 변수선언..^^
begin
-
지역변수가 아니라 전역변수로 잡으셔야할것같은데요...??
(NOTICE) You must be logged in to comment on this post.
-
- zstyle
- •
- 2005.03.22 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.22 19:46안녕하세요. 최용일입니다. 그냥 COM에서 사용하는 매크로입니다. 리턴값이 HRESULT라는... STDMETHO...
-
- 김명찬
- 2005.03.22 02:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영식
- •
- 2005.03.22 00:32
- 8 COMMENTS
- /
- 0 LIKES
-
타락천사•2005.03.22 18:50
-
라벤더•2005.03.22 00:39 -
이중철•2005.03.22 01:14
-
라벤더•2005.03.22 01:19
-
최용일•2005.03.22 01:49
-
김영식•2005.03.22 05:47
-
이중철•2005.03.22 02:17
- • • •
-
- 송선용
- 2005.03.21 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 아마존
- •
- 2005.03.21 22:33
- •
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.21 22:58안녕하세요. 최용일입니다. 함수 원형은 그대로 유지를 하셔야 합니다. DLL도 일종의 규약이니까요... ...
-
아마존•2005.03.21 23:09네.. 답변 감사합니다. array of를 쓰면 안되는 것이군요.. 제가 array of를 쓴 이유는 배열 변수들...
-
최용일•2005.03.22 00:12안녕하세요. 최용일입니다. 상수일지라도 데이터형이 있을테니까 그 형에 따라서 헤더를 적어주시면 될...
-
- 아폴론
- •
- 2005.03.21 20:01
- 2 COMMENTS
- /
- 0 LIKES
-
까불다벌받은일본•2005.03.21 20:17DeleteChildren 란 것이 있군여...이걸 잘 활용하면 될듯....
-
아폴론•2005.03.21 21:29&nbs...
-
- 까불다벌받은일본
- •
- 2005.03.21 19:16
- 2 COMMENTS
- /
- 0 LIKES
-
까불다벌받은일본•2005.03.21 22:131번은 우연히 다른데서 찾았어요... <!--CodeS--> CharPos := Editor.Care...
-
최용일•2005.03.21 22:50안녕하세요. 최용일입니다. 1번은 uses절에 RichEdit유닛을 추가하셔도 됩니다. 2번은 Paragraph를 ...
-
- 임강택
- •
- 2005.03.21 19:15
- 1 COMMENTS
- /
- 0 LIKES
-
배종윤•2005.04.04 19:33가능합니다.^^ 대신 델파이 안에 있지는 않습니다. 따로 Delphi용 크리스탈리포트를 구하시면 사용 가능...
-
- 조현태
- •
- 2005.03.21 07:42
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2005.03.21 19:48조건적으로는 가능합니다. 님께서 어떤 Database를 사용하실 건지 모르지만 일반적으로 Realtime Me...
-
- 박태선
- 2005.03.21 00:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 박재학
- •
- 2005.03.20 10:00
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.21 05:35안녕하세요. 최용일입니다. 폼을 최소화시켰다면... 다시 보여줄때는 SW_SHOW대신에 SW_RESTORE나 SW_SH...
-
- 바람
- •
- 2005.03.19 17:12
- 2 COMMENTS
- /
- 0 LIKES
-
바람•2005.03.21 01:50에고고 쉽게 해결했네요.. 아직 포인터를 몰라서요..^^ <!--CodeS--> var &...
-
이중철•2005.03.21 19:35본인이 해결한 사항을 자답으로 올리신분이 더 많아지기를 기대하면 다시한번 감사합니다.
-
- 최영식
- •
- 2005.03.19 10:38
- 1 COMMENTS
- /
- 0 LIKES
-
토픽•2005.08.11 02:45제가 고민했다고 해결 했던 문제입니다.. 이곳에 검색하다보면 답변이 있을것 같은데.. 일단 알려드...
-
- 김도완
- 2005.03.19 08:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 세균맨
- •
- 2005.03.19 05:49
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2005.03.19 18:45샘플 첨부하니 참고해서 보세요..
-
세균맨•2005.03.20 17:53감사합니다...많이 도움이 되었네요.. 수고하세요
-
- episode
- 2005.03.19 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- kivalan
- 2005.03.19 03:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 뮤
- •
- 2005.03.19 02:44
- 4 COMMENTS
- /
- 0 LIKES
-
아폴론•2005.03.30 00:34inddd := '홍길동'; inddd := inddd+''',''홍길순'; inddd := inddd+''',''이순신';
-
nilriri™•2005.03.19 03:05파라미터에 넘겨주신 대로라면.. 오라클에 최종적으로 넘겨지는 쿼리 문장은 한건일때 &n...
-
뮤•2005.03.19 03:22우선 답변 대단히 감사합니다 그런데 제가처한 상황이 좀..... 원격의 두 서버에 서로다른 db이거든요-...
-
무심코•2005.03.19 02:59name in ('홍길동','홍길순',.....) 이렇게 되어야 하는데.... 님이 하신대로 하면 name in ('홍길...
-
- 엠피쓰리
- •
- 2005.03.19 01:42
- 4 COMMENTS
- /
- 0 LIKES
Query1 sql : select su,amt from aaa Query1 에서 추가된 필드명 : damt Query1 이 가지고 있는 기본 필드 su, amt damt 필드는 amt 필드의 값이 0보다 클때에는 amt 값이 들어가고 그렇지 않을때에는 (su * amt) 값이 들어값니다. Query...-
이상봉•2005.03.19 02:43방법이 여러가지가 있을것같은데요..... 1. 먼저 쿼리를 돌리고 나서 While 문으로 Query1.First; 부터 ...
-
엠피쓰리•2005.03.19 03:38죄송한데요... 변수선언은 어디에서 해야 됩니까?? 계속 엉뚱한 값만 불러오고 있습니다...^^!
-
장덕곤•2005.03.19 06:27procedure 와 begin 사이에 하시면됩니다 ex) procedure Tfexam1.Query1CalcFields(DataSet: TDataSet)...
-
이상봉•2005.03.19 17:34지역변수가 아니라 전역변수로 잡으셔야할것같은데요...??
-
- 방기남
- •
- 2005.03.18 22:27
- 2 COMMENTS
- /
- 0 LIKES
-
이광수•2005.03.18 22:33제가 생각하기에는 어려울것 같습니다. /etc/oratab ?? 파일명이 잘기억나지 않는데요. 설정이 문제가...
-
방기남•2005.03.19 00:47답변 감사드립니다. 이전에 8i에서 Export 한 dmp 파일을 9i로 Import 하려니까 언어설정이 틀리다고 실...
방법이 여러가지가 있을것같은데요.....
1. 먼저 쿼리를 돌리고 나서 While 문으로 Query1.First; 부터 순차적으로 돌리면서 값을 더해주는방법.
2. 그냥단순히 쿼리문으로 Sum을 해서 구하는방법.(함수로 만들어 사용하면 좋겠죠!)
3. Query1CalcFields에서 값을 구하는방법
문의하신것으로 간단하게 적습니다....
<!--CodeS-->
// 먼저 변수선언
1. var
TmpRecNum : Real;
2. //초기화값선언
TmpRecNum:=0;
3. procedure Tfexam1.Query1CalcFields(DataSet: TDataSet);
if Query1.FieldByName('amt').AsFloat >= 0 then
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat;
end
else
begin
Query1.FieldByName('damt').AsFloat := Query1.FieldByName('amt').AsFloat
* Query1.FieldByName('su').AsFloat;
end;
TmpRecNum:=TmpRecNum+Query1.FieldByName('damt').AsFloat;
4. procedure Tfexam1.Query1AfterOpen(DataSet: TDataSet);
begin
Edit1.Text:=FormatFloat('#,##0.#0',TmpRecNum);
end;
<!--CodeE-->