Q&A
- 특정 필드의 레코드 합계 또는 레코드 수 구하기...
안녕하세요 고수님들...
정말 질문 안할려고 같은 검색을 수십차례 하면서 보아왔는데.. 저의 한계를 느끼면서
고수님들께 폐를 끼치게 되었읍니다. 부디 용서하시고 좀 보아 주십시요...
콤포넌트 : Query, DBGrid, UpDateSQL, 기타 등등.
DataBase : paradox7
Table 구조
관리번호 / 장비명 / 납품일 / 구입가격 / 감가년한 / 잔존가액(CalField 계산)
1-1 / Modem / 2000-6-7 / 8000 / 8 / 7000
1-2 / PC / 2000-7-7 / 8000 / 8 / 7500
1-3 / Printer/ 2001-1-1 / 4000 / 8 / 4000
. / . / . / . / . / .
. / . / . / . / . / .
합계 / 3(총수량)/ . / 20000 / . / 18500
(바로위 작업을 해야합니다.)
합계 부분은 특정 필드의 레코드 갯수나 가격의 합을 구하는 것입니다.
이를 DBGrid의 마지막 레코드에 삽입하면 가장 좋은데...
만약 어려우면 eidt쪽에 출력해도 상관은 없읍니다.
잔존가액은 프로그램을 실행시키면 자동 계산 되고 구입연도나 가격을 변화 시키면
자동으로 계산 됩니다.
가능하면 합계나 갯수 부분을 위의 레코드가 삽입되거나 삭제 될때도 자동으로
계산이 되어지도록 하면 금상첨화가 되겠읍니다.
이렇게 할려면 어느 프로시져에 어떻게 코딩을 해야 하는지 좀 자세히 일러주시면
그 은혜 평생 잊지 않겠나이다.
읽어주셔서 감사하고 항상 행복하세요...
참고로 CalField 자동 계산 Procedure
// 잔존가액(CalField) 감가상각 계산 (정액법)
procedure TFront.Query2CalcFields(DataSet: TDataSet);
var CurDate, CurDateO, N_O : TDateTime; // 금일, 납품일, 금일-납품일
Year, Month, Day, YearO,MonthO, DayO : Word;
begin
// 현재날짜
CurDate := now;
DecodeDate(CurDate, Year,Month,Day);
// 납품일
CurDateO := Query2.FieldByName('DateOffer').value;
DecodeDate(CurDateO, YearO,MonthO,DayO);
// 현재년 - 납품년
N_O := Year-YearO;
// 현제년-납품년과 감가상각 년한 과의 비교
if N_O <= Query2.FieldByName('EquipValue').Asinteger then
begin
// 상반기(6월30일 이전) 구입품의 감가상각 계산식
if MonthO <= 6 then
begin
with Query2 do begin
FieldByName('Cal').value :=
FieldByName('Price').value *
(FieldByName('EquipValue').value - N_O)/
FieldByName('EquipValue').value;
end;
end
// 하반기(7월1일 이후) 구입품의 감가상각 계산식
else begin
with Query2 do begin
FieldByName('Cal').value :=
FieldByName('Price').value *
(FieldByName('EquipValue').value - N_O + 0.5) /
FieldByName('EquipValue').value;
end;
end;
end
// 감가상각년한이 지난 후 잔존가액은 0원( 마이너스 가격출력 금지)
else begin
Query2.FieldByName('Cal').value := 0;
end;
end;
정말 질문 안할려고 같은 검색을 수십차례 하면서 보아왔는데.. 저의 한계를 느끼면서
고수님들께 폐를 끼치게 되었읍니다. 부디 용서하시고 좀 보아 주십시요...
콤포넌트 : Query, DBGrid, UpDateSQL, 기타 등등.
DataBase : paradox7
Table 구조
관리번호 / 장비명 / 납품일 / 구입가격 / 감가년한 / 잔존가액(CalField 계산)
1-1 / Modem / 2000-6-7 / 8000 / 8 / 7000
1-2 / PC / 2000-7-7 / 8000 / 8 / 7500
1-3 / Printer/ 2001-1-1 / 4000 / 8 / 4000
. / . / . / . / . / .
. / . / . / . / . / .
합계 / 3(총수량)/ . / 20000 / . / 18500
(바로위 작업을 해야합니다.)
합계 부분은 특정 필드의 레코드 갯수나 가격의 합을 구하는 것입니다.
이를 DBGrid의 마지막 레코드에 삽입하면 가장 좋은데...
만약 어려우면 eidt쪽에 출력해도 상관은 없읍니다.
잔존가액은 프로그램을 실행시키면 자동 계산 되고 구입연도나 가격을 변화 시키면
자동으로 계산 됩니다.
가능하면 합계나 갯수 부분을 위의 레코드가 삽입되거나 삭제 될때도 자동으로
계산이 되어지도록 하면 금상첨화가 되겠읍니다.
이렇게 할려면 어느 프로시져에 어떻게 코딩을 해야 하는지 좀 자세히 일러주시면
그 은혜 평생 잊지 않겠나이다.
읽어주셔서 감사하고 항상 행복하세요...
참고로 CalField 자동 계산 Procedure
// 잔존가액(CalField) 감가상각 계산 (정액법)
procedure TFront.Query2CalcFields(DataSet: TDataSet);
var CurDate, CurDateO, N_O : TDateTime; // 금일, 납품일, 금일-납품일
Year, Month, Day, YearO,MonthO, DayO : Word;
begin
// 현재날짜
CurDate := now;
DecodeDate(CurDate, Year,Month,Day);
// 납품일
CurDateO := Query2.FieldByName('DateOffer').value;
DecodeDate(CurDateO, YearO,MonthO,DayO);
// 현재년 - 납품년
N_O := Year-YearO;
// 현제년-납품년과 감가상각 년한 과의 비교
if N_O <= Query2.FieldByName('EquipValue').Asinteger then
begin
// 상반기(6월30일 이전) 구입품의 감가상각 계산식
if MonthO <= 6 then
begin
with Query2 do begin
FieldByName('Cal').value :=
FieldByName('Price').value *
(FieldByName('EquipValue').value - N_O)/
FieldByName('EquipValue').value;
end;
end
// 하반기(7월1일 이후) 구입품의 감가상각 계산식
else begin
with Query2 do begin
FieldByName('Cal').value :=
FieldByName('Price').value *
(FieldByName('EquipValue').value - N_O + 0.5) /
FieldByName('EquipValue').value;
end;
end;
end
// 감가상각년한이 지난 후 잔존가액은 0원( 마이너스 가격출력 금지)
else begin
Query2.FieldByName('Cal').value := 0;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 홍진혁
- •
- 2001.05.12 16:04
- 1 COMMENTS
- /
- 0 LIKES
-
도지성•2001.05.12 20:17홍진혁 wrote: > 델파이를 사용하는 홍진혁입니다. > > 다름아니고, A 포인터에서 B 포인터로 C 바이트...
-
- 몬나니
- •
- 2001.05.12 12:19
- 3 COMMENTS
- /
- 0 LIKES
-
화랑•2001.05.14 20:55몬나니 wrote: > > 델파이로 ASP를 넣어 웹페이지를 개발하고 있습니다. > 그런데 컴파일을 하면 dll화...
-
몬나니•2001.05.15 22:21답변 감사드립니다. 지금 개발환경은 윈도우98에서 퍼스널웹서버를 깔고 작업하고 있습니다. 아직 NT에서...
-
화랑•2001.05.16 01:54죄송합니다.. 98에선 COM을 개발해 보질 않아서.. 2000이상에서는 COM+을 지원하기 때문에.. COM+에 올...
-
- Justy Ueki Tylor
- •
- 2001.05.12 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:47답변이 될련지는 모르겠습니다만, 소스가 저장된 프로젝트 디렉토리명에 한글이 사용되면 원인 모를 에러...
-
- 아기코알라
- •
- 2001.05.12 08:05
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 고수님들... 정말 질문 안할려고 같은 검색을 수십차례 하면서 보아왔는데.. 저의 한계를 느끼면서 고수님들께 폐를 끼치게 되었읍니다. 부디 용서하시고 좀 보아 주십시요... 콤포넌트 : Query, DBGrid, UpDateSQL, 기타 등등...-
블랙봉•2001.05.12 08:37아기코알라 wrote: > 안녕하세요 고수님들... > > 정말 질문 안할려고 같은 검색을 수십차례 하면서 보...
-
- 철
- •
- 2001.05.12 07:57
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:51서버와 TCP/IP통신을 하여 처리하는게 어떨지... 서버에서 실행될 통신서버도 개발해야 겠죠 철 wrote:...
-
- 최진영
- 2001.05.12 06:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보...
- 2001.05.12 06:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.05.12 05:39
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:40짱아 wrote: > 두개의 테이블을 조인하여 새로운 테이블을 만들어 필요한 데이타들만 insert하도록 했는 ...
-
- 초보
- •
- 2001.05.12 04:43
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.12 08:39초보 wrote: > String Grid나 DBGrid에 combobox를 넣을 수 있나요?........... > > 아니면 뭔가 비슷...
-
- hlpark
- 2001.05.12 03:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 퉤니
- 2001.05.12 03:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델피언
- •
- 2001.05.12 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
김진호•2001.05.13 05:05초보델피언 wrote: > 통신을 하다 보니까 > SendBuf라는 메소드가 있는데 그안에 있는 인자중에서 > Buf...
-
- 어린왕자
- •
- 2001.05.12 02:00
- 1 COMMENTS
- /
- 0 LIKES
-
강구•2001.05.12 07:45해당 ListView에서 항목을 선택 한뒤 .. procedure TForm1.Button1Click(Sender: TObject); Var Lis...
-
- 인만이
- •
- 2001.05.12 01:50
- 2 COMMENTS
- /
- 0 LIKES
-
연기훈•2001.05.12 01:53인만이 wrote: > 왕초보입니다.. > 버튼A와 버튼B를 두개를 만들고요.. > 버튼A를 눌렀을때 버튼B를 누...
-
명탁•2001.05.12 02:21연기훈 wrote: > 인만이 wrote: > > 왕초보입니다.. > > 버튼A와 버튼B를 두개를 만들고요.. > > 버튼A...
-
- 이곤섭
- 2001.05.12 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 나지영
- •
- 2001.05.12 01:42
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2001.05.12 02:01TFontDialog(Sender).Font.Name; 하면 되네요... 쩜만 한번 더 찍어봤어도..됐을텐데....^^;
-
- 졸다졸다
- •
- 2001.05.12 01:37
- 2 COMMENTS
- /
- 0 LIKES
-
임형호•2001.05.12 02:05//제가 가지고 있는 자료인데요. 참조하세요.(예전에 모아두었던것 중에 하난데...어느님껀지는 모르겠네요...
-
졸다졸다•2001.05.12 02:25먼저 답변감사합니다 그대로 옮겨 코딩을 해도 똑같이 invaild parameter 이란 에러메세지가 나옵니다 ...
-
- 초보
- •
- 2001.05.12 00:56
- 4 COMMENTS
- /
- 0 LIKES
-
초보•2001.05.15 02:11초보 wrote: 답변해 주신 님들께 감사드립니다. 혜룡님의 사용법은 충분히 이해하고 적용 했는데.... ...
-
최혜룡•2001.05.12 12:57아래 코드를 보니깐 제가 이전에 올린것이군요 취소하고자 할때 사용되는 정지버튼의 OnClick 이벤트처...
-
델동이•2001.05.12 01:19StopFlag 가 false로 초기화 된 상태에서 while문 내에서 true로 바뀌는 시점이 없는것 같은데요 무한루...
-
이희정•2001.05.12 01:13초보 wrote: > > 델가족 여러분 안녕 하세요 > While 문으로 루프를 돌리다가 필요실 중단하고 빠져나...
-
- 박종수
- •
- 2001.05.12 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
마당쇠•2001.05.12 02:15박종수 wrote: > 모양 한번 그려볼게요 > > 년월 이름 점수1 점수2 점수3 > ...
-
- 진짜초보
- 2001.05.12 00:24
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요 고수님들...
>
> 정말 질문 안할려고 같은 검색을 수십차례 하면서 보아왔는데.. 저의 한계를 느끼면서
> 고수님들께 폐를 끼치게 되었읍니다. 부디 용서하시고 좀 보아 주십시요...
>
> 콤포넌트 : Query, DBGrid, UpDateSQL, 기타 등등.
> DataBase : paradox7
>
> Table 구조
>
> 관리번호 / 장비명 / 납품일 / 구입가격 / 감가년한 / 잔존가액(CalField 계산)
> 1-1 / Modem / 2000-6-7 / 8000 / 8 / 7000
> 1-2 / PC / 2000-7-7 / 8000 / 8 / 7500
> 1-3 / Printer/ 2001-1-1 / 4000 / 8 / 4000
> . / . / . / . / . / .
> . / . / . / . / . / .
>
> 합계 / 3(총수량)/ . / 20000 / . / 18500
> (바로위 작업을 해야합니다.)
>
> 합계 부분은 특정 필드의 레코드 갯수나 가격의 합을 구하는 것입니다.
>
> 이를 DBGrid의 마지막 레코드에 삽입하면 가장 좋은데...
> 만약 어려우면 eidt쪽에 출력해도 상관은 없읍니다.
>
> 잔존가액은 프로그램을 실행시키면 자동 계산 되고 구입연도나 가격을 변화 시키면
> 자동으로 계산 됩니다.
>
> 가능하면 합계나 갯수 부분을 위의 레코드가 삽입되거나 삭제 될때도 자동으로
> 계산이 되어지도록 하면 금상첨화가 되겠읍니다.
>
> 이렇게 할려면 어느 프로시져에 어떻게 코딩을 해야 하는지 좀 자세히 일러주시면
> 그 은혜 평생 잊지 않겠나이다.
>
> 읽어주셔서 감사하고 항상 행복하세요...
>
> 참고로 CalField 자동 계산 Procedure
>
> // 잔존가액(CalField) 감가상각 계산 (정액법)
> procedure TFront.Query2CalcFields(DataSet: TDataSet);
> var CurDate, CurDateO, N_O : TDateTime; // 금일, 납품일, 금일-납품일
> Year, Month, Day, YearO,MonthO, DayO : Word;
> begin
> // 현재날짜
> CurDate := now;
> DecodeDate(CurDate, Year,Month,Day);
> // 납품일
> CurDateO := Query2.FieldByName('DateOffer').value;
> DecodeDate(CurDateO, YearO,MonthO,DayO);
> // 현재년 - 납품년
> N_O := Year-YearO;
>
> // 현제년-납품년과 감가상각 년한 과의 비교
> if N_O <= Query2.FieldByName('EquipValue').Asinteger then
> begin
> // 상반기(6월30일 이전) 구입품의 감가상각 계산식
> if MonthO <= 6 then
> begin
> with Query2 do begin
> FieldByName('Cal').value :=
> FieldByName('Price').value *
> (FieldByName('EquipValue').value - N_O)/
> FieldByName('EquipValue').value;
> end;
> end
> // 하반기(7월1일 이후) 구입품의 감가상각 계산식
> else begin
> with Query2 do begin
> FieldByName('Cal').value :=
> FieldByName('Price').value *
> (FieldByName('EquipValue').value - N_O + 0.5) /
> FieldByName('EquipValue').value;
> end;
> end;
> end
> // 감가상각년한이 지난 후 잔존가액은 0원( 마이너스 가격출력 금지)
> else begin
> Query2.FieldByName('Cal').value := 0;
> end;
>
> end;
>
글쎄요. 일단 합계를 그리드에 나타나도록 하는 건 모르겠구요.
에디트박스에 나타내는 것인데....
1. AfterOpen에서 모든 레코드를 돌면서 합계를 구함. 루프를 돌리기가 좀 그렇다면 초기 합계는 Query를 이용해서 구할 수도 있구요.
2. 변경, 추가시 : AfterScroll에서 합계를 구해야하는 필드에 대한 현재의 값을 저장
3. 변경, 추가시 : 합계를 구해야 하는 필드의 OnChange 이벤트에서 이전 값과 현재 값의 차이를 합계에 적용
4. 삭제시 : BeforeDelete 이벤트에서 현재 값을 합계에서 빼줌.
이런 식으로 하면 될 것 같네요.