Q&A
- 그룹바이 도움요청합니다.
이렇게 코딩을하니 에러는 안나요
근데 제가 알고 싶은건
그룹바이로 금액을 누적했으면 여러그룹에 대한 sum값을 어떻게 받아오나요
그룹은 수입,지출 이렇게 2가지인데요
요코딩대로 한다면 수입에대한 합만나오더군요
고수님들 부탁합니다..
query2.close;
query2.SQL.Clear;
query2.sql.Add('select 구분,sum(금액)as total from gagebu.db');
query2.sql.Add('where 날짜 between :now1 and :now2');
query2.parambyname('now1').asdatetime:=DateTimePicker1.Date;
query2.parambyname('now2').asdatetime:=DateTimePicker3.Date;
if combobox3.text<>'수입,지출' then
begin
query2.sql.Add(' and 구분 like "%' + combobox3.text + '%"');
end;
if combobox4.text <> '' then
begin
query2.SQL.add(' order by ' + combobox4.text+ ' asc ');
end;
query2.SQL.add('group by 구분') ;
query2.open;
edit3.text := query2.fieldbyname('total').asstring;
edit4.text := query2.fieldbyname('total').asstring;
근데 제가 알고 싶은건
그룹바이로 금액을 누적했으면 여러그룹에 대한 sum값을 어떻게 받아오나요
그룹은 수입,지출 이렇게 2가지인데요
요코딩대로 한다면 수입에대한 합만나오더군요
고수님들 부탁합니다..
query2.close;
query2.SQL.Clear;
query2.sql.Add('select 구분,sum(금액)as total from gagebu.db');
query2.sql.Add('where 날짜 between :now1 and :now2');
query2.parambyname('now1').asdatetime:=DateTimePicker1.Date;
query2.parambyname('now2').asdatetime:=DateTimePicker3.Date;
if combobox3.text<>'수입,지출' then
begin
query2.sql.Add(' and 구분 like "%' + combobox3.text + '%"');
end;
if combobox4.text <> '' then
begin
query2.SQL.add(' order by ' + combobox4.text+ ' asc ');
end;
query2.SQL.add('group by 구분') ;
query2.open;
edit3.text := query2.fieldbyname('total').asstring;
edit4.text := query2.fieldbyname('total').asstring;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 돌멩이
- 2001.12.06 21:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 열심히
- •
- 2001.12.06 21:14
- 2 COMMENTS
- /
- 0 LIKES
-
BLUE•2001.12.08 02:11열심히 wrote: > Db에서요 내용을 읽어와서 메모컴포넌트에 넣으면요 > 검정색 네모 안에 동그라미가 있...
-
열심히•2001.12.06 21:19열심히 wrote: > Db에서요 내용을 읽어와서 메모컴포넌트에 넣으면요 > 검정색 네모 안에 동그라미가 있...
-
- 나두초보
- 2001.12.06 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 죠스고기
- •
- 2001.12.06 20:59
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.06 22:01안녕하세요. 최용일입니다. ExtractFilePath는 파라매터로 넘어온 파일의 경로를 리턴하는 함수입니다. ...
-
ClickTest•2001.12.06 21:32ShowMessage(ExtractFilePath(ParamStr(0))); 정확한지 모르겠네요... 테스트는 못해봤습니다.... 즐...
-
- BLUE
- •
- 2001.12.06 20:28
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.06 22:17안녕하세요. 최용일입니다. 탭쉬트삭제가 쉽게 된다면 굳이 스트링그리드의 이름을 알필요는 없을거 같...
-
BLUE•2001.12.07 02:45스트링 그리드를 새로 생성한 것의 DrawCellEvent를 적용시키기가 너무 어려워서 다시 질문을 드립니다. ...
-
최용일•2001.12.07 02:54이해할수 없는 코딩이네요... 쩝~~~ 동적으로 생성하나 디자인타임시에 생성하나 스트링그리드를 커스터...
-
BLUE•2001.12.07 03:19연결을 못해서 못하다니 정말 챙피하고 감사합니다.. tsg.OnDrawCell := TSGDrawCell; // TSGDrawC...
-
- 운풍
- •
- 2001.12.06 20:20
- 1 COMMENTS
- /
- 0 LIKES
-
Runo•2001.12.07 00:09저도 초보지만 조금 아는 내용이라서 답변드립니다. 혹시 Primary Key로 잡힌 필드의 데이터 형식이 char...
-
- 돌쇠
- 2001.12.06 20:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 열심히
- 2001.12.06 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김승식
- 2001.12.06 19:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지인
- 2001.12.06 20:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 천상천하
- 2001.12.06 19:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김하늘
- 2001.12.06 18:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.06 09:09
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2001.12.06 09:21초보 wrote: > Enter키나 Down키는 KeyDown 이벤트에서 > Perform(WM_NEXTDLGCTL,0,0) 처리하면 > Tab키...
-
초보•2001.12.06 21:10알려주셔서 고맙습니다. 복 많이 받으세요.
-
- 이호영
- •
- 2001.12.06 08:56
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.12.06 09:25이호영 wrote: > 델파이6 를 사용하여 ADO 를 사용한 예제를 연습하던중 아래와 같은 메시지를 > 만나게...
-
- 열심히
- •
- 2001.12.06 08:11
- 2 COMMENTS
- /
- 0 LIKES
-
김병식•2001.12.06 21:55==> I := 1; > while not query1.Eof do begin stringgr...
-
구창민•2001.12.06 09:31Indicates the total number of records associated with the dataset. property RecordCount: Longint;...
-
-
- 깡다구
- •
- 2001.12.06 07:23
- 1 COMMENTS
- /
- 0 LIKES
-
만취상태•2001.12.06 10:30하나의 디비에 두개의 테이블을 만들지 못하는 DBMS좀 알려 주세요. 함 써보게.ㅡㅡ;; 파라독스 사용...
-
- 나두초보
- •
- 2001.12.06 07:22
- 4 COMMENTS
- /
- 0 LIKES
-
강인규•2001.12.06 20:22저두 자세한 내부적인 처리방법은 잘 모릅니다만...-_-; ROUND는 우리가 산수시간에 배웠던 반올림과...
-
우이씨•2001.12.06 19:33> procedure TForm1.Button1Click(Sender: TObject); > begin > label1.Caption := INTTOSTR(ROUND(1...
-
구창민•2001.12.06 09:52나두초보 wrote: > procedure TForm1.Button1Click(Sender: TObject); > begin > label1.Caption :=...
-
이경문•2001.12.06 13:29구창민 wrote: > 나두초보 wrote: > > procedure TForm1.Button1Click(Sender: TObject); > > begin > ...
-
- 초보아씨
- •
- 2001.12.06 07:00
- 1 COMMENTS
- /
- 0 LIKES
이렇게 코딩을하니 에러는 안나요 근데 제가 알고 싶은건 그룹바이로 금액을 누적했으면 여러그룹에 대한 sum값을 어떻게 받아오나요 그룹은 수입,지출 이렇게 2가지인데요 요코딩대로 한다면 수입에대한 합만나오더군요 고수님들 부탁합...-
ClickTest•2001.12.06 18:00초보아씨 wrote: > 이렇게 코딩을하니 에러는 안나요 > 근데 제가 알고 싶은건 > 그룹바이로 금액을 누...
-
- 동동
- •
- 2001.12.06 06:51
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.12.06 21:43이렇게 해보세요. DATABASE 설정은 SERVNAME:EMPLOYER.GDB 전이렇게 하는데 잘되네요. 동...
> 이렇게 코딩을하니 에러는 안나요
> 근데 제가 알고 싶은건
> 그룹바이로 금액을 누적했으면 여러그룹에 대한 sum값을 어떻게 받아오나요
> 그룹은 수입,지출 이렇게 2가지인데요
> 요코딩대로 한다면 수입에대한 합만나오더군요
>
> 고수님들 부탁합니다..
>
>
>
>
> query2.close;
> query2.SQL.Clear;
> query2.sql.Add('select 구분,sum(금액)as total from gagebu.db');
>
> query2.sql.Add('where 날짜 between :now1 and :now2');
> query2.parambyname('now1').asdatetime:=DateTimePicker1.Date;
> query2.parambyname('now2').asdatetime:=DateTimePicker3.Date;
>
> if combobox3.text<>'수입,지출' then
> begin
> query2.sql.Add(' and 구분 like "%' + combobox3.text + '%"');
>
> end;
> if combobox4.text <> '' then
> begin
> query2.SQL.add(' order by ' + combobox4.text+ ' asc ');
> end;
>
> query2.SQL.add('group by 구분') ;
>
>
> query2.open;
> edit3.text := query2.fieldbyname('total').asstring;
> edit4.text := query2.fieldbyname('total').asstring;
만약 구분이 딱 2개만 있다 그럼 님의 쿼리 결과는 이렇게 되어 있을 겁니다...
(물론 콤보박스에서 수입만 선택하면 수입만 나오겠죠...)
수입 10000000
지출 9000000
위의 코딩은 무조건 첫번째 데이터만 불러 오죠...
while not query2.Eof do
begin
if Query2.FieldByName('구분').AsString = '수입' then
Edit1.Text := FloatToStr(Query2.FieldByName('total').AsFloat) // 수입합계
else if Query2.FieldByName('구분').AsString = '지출' then
Edit2.Text := FloatToStr(Query2.FieldByName('total').AsFloat); // 지출합계
Query2.Next;
end;
for 문을 이용하실 수도 있습니다...