한국 델파이 개발자 모임 - 제겐 어려운 질문인데여..

제겐 어려운 질문인데여..

쿼리컴포넌트를 썼습니다.

그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들어서 DB그리드에 뿌리구요. 오픈한후에...

기존에 있는 4개의 필드중 2개씩 연산을 해서 가상의 필드에 넣으려고 합니다.

필드에 넣으려면 에디트 상태가 되어야 하니까 그렇게 만들고 연산후 넣으려고 하니까 에디트 상태가 아니라는데 어떻게 해야할지...

이게 안되면 다음 그 수많은 작업들이 한개도 안되거든요...

답 부탁드립니다...

이해를 돕기 위해 간단한 소스를 보내드립니다.

꼭 알려주셔야 되요...알았져?

//====================================================================

with 쿼리컴포넌트 do begin

close;

sql.clear;

sql.add('SELECT BON 측점본번, L_DIST 구간거리, ');

sql.add('C_FLOOD 계획홍수량, C_EL 계획홍수위, ');

sql.Add('''AA'' 여유고기준'); //----가상필드

sql.add('FROM HYD_PLAN');

open;

edit;

while not EOF do begin

c_Flood := FieldByName('계획홍수량').AsFloat;

if c_Flood <200 then

FieldByName('여유고기준').AsFloat := 0.6

else if (200 <= c_Flood) and (c_Flood < 500) then

FieldByName('여유고기준').AsFloat := 0.8

else if (500 <= c_Flood) and (c_Flood < 2000) then

FieldByName('여유고기준').AsFloat := 1.0

else if (2000 <= c_Flood) and (c_Flood < 5000) then

FieldByName('여유고기준').AsFloat := 1.2

else if (5000 <= c_Flood) and (c_Flood < 10000) then

FieldByName('여유고기준').AsFloat := 1.5

else

FieldByName('여유고기준').AsFloat := 2.0;

next;

end;

end;

//===============================================================

이렇게 하는거 아닌가여?

부탁드립니다.

그럼 수고하세요...

이 게시물을

3 COMMENTS

aparadin • 2001.08.31 09:30

우비소녀 wrote:

> 쿼리컴포넌트를 썼습니다.

> 그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들어서 DB그리드에 뿌리구요. 오픈한후에...

> 기존에 있는 4개의 필드중 2개씩 연산을 해서 가상의 필드에 넣으려고 합니다.

> 필드에 넣으려면 에디트 상태가 되어야 하니까 그렇게 만들고 연산후 넣으려고 하니까 에디트 상태가 아니라는데 어떻게 해야할지...

> 이게 안되면 다음 그 수많은 작업들이 한개도 안되거든요...

> 답 부탁드립니다...

> 이해를 돕기 위해 간단한 소스를 보내드립니다.

> 꼭 알려주셔야 되요...알았져?

> //====================================================================

> with 쿼리컴포넌트 do begin

> close;

> sql.clear;

> sql.add('SELECT BON 측점본번, L_DIST 구간거리, ');

> sql.add('C_FLOOD 계획홍수량, C_EL 계획홍수위, ');

> sql.Add('''AA'' 여유고기준'); //----가상필드

> sql.add('FROM HYD_PLAN');

> open;

> edit;

> while not EOF do begin

> c_Flood := FieldByName('계획홍수량').AsFloat;

> if c_Flood <200 then

> FieldByName('여유고기준').AsFloat := 0.6

> else if (200 <= c_Flood) and (c_Flood < 500) then

> FieldByName('여유고기준').AsFloat := 0.8

> else if (500 <= c_Flood) and (c_Flood < 2000) then

> FieldByName('여유고기준').AsFloat := 1.0

> else if (2000 <= c_Flood) and (c_Flood < 5000) then

> FieldByName('여유고기준').AsFloat := 1.2

> else if (5000 <= c_Flood) and (c_Flood < 10000) then

> FieldByName('여유고기준').AsFloat := 1.5

> else

> FieldByName('여유고기준').AsFloat := 2.0;

> next;

> end;

> end;

> //===============================================================

> 이렇게 하는거 아닌가여?

> 부탁드립니다.

> 그럼 수고하세요...

==================================================================================

계획홍수량으로 여우고기준을 정하는군요..그렇다면.

CalcField를 사용하세요

내일까지 해결이 안되면 소스를 보내주시던가 아니면 메일주시면

대충예제같은걸 만들어보내드리져 그럼

Calc필드에대한걸 검색해서 읽어보세요 의외로 간단합니다.
- 0
- 0
- 삭제
- 수정
- 댓글
stoney • 2001.08.30 03:10

가상의 필드라면 테이블에는 없고 쿼리시에 가상으로 만들어 내는 필드라는 소린가요??

그러면 쿼리 콤포넌트에서 Calculate Field 두개를 만드시고 OnCalcFields라는 이벤트에서 다음 코딩을 옮겨주면 되는데요..

Claulate Field가 '여유고기준'이라면.

procedure TForm1.Query1CalcFields(DataSet: TDataSet);

var

c_Flood: real;

begin

c_Flood := FieldByName('계획홍수량').AsFloat;

if c_Flood <200 then

FieldByName('여유고기준').AsFloat := 0.6

else if (200 <= c_Flood) and (c_Flood < 500) then

FieldByName('여유고기준').AsFloat := 0.8

else if (500 <= c_Flood) and (c_Flood < 2000) then

FieldByName('여유고기준').AsFloat := 1.0

else if (2000 <= c_Flood) and (c_Flood < 5000) then

FieldByName('여유고기준').AsFloat := 1.2

else if (5000 <= c_Flood) and (c_Flood < 10000) then

FieldByName('여유고기준').AsFloat := 1.5

else

FieldByName('여유고기준').AsFloat := 2.0;

end;

우비소녀 wrote:

> 쿼리컴포넌트를 썼습니다.

> 그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들어서 DB그리드에 뿌리구요. 오픈한후에...

> 기존에 있는 4개의 필드중 2개씩 연산을 해서 가상의 필드에 넣으려고 합니다.

> 필드에 넣으려면 에디트 상태가 되어야 하니까 그렇게 만들고 연산후 넣으려고 하니까 에디트 상태가 아니라는데 어떻게 해야할지...

> 이게 안되면 다음 그 수많은 작업들이 한개도 안되거든요...

> 답 부탁드립니다...

> 이해를 돕기 위해 간단한 소스를 보내드립니다.

> 꼭 알려주셔야 되요...알았져?

> //====================================================================

> with 쿼리컴포넌트 do begin

> close;

> sql.clear;

> sql.add('SELECT BON 측점본번, L_DIST 구간거리, ');

> sql.add('C_FLOOD 계획홍수량, C_EL 계획홍수위, ');

> sql.Add('''AA'' 여유고기준'); //----가상필드

> sql.add('FROM HYD_PLAN');

> open;

>

> edit;

> while not EOF do begin

> c_Flood := FieldByName('계획홍수량').AsFloat;

> if c_Flood <200 then

> FieldByName('여유고기준').AsFloat := 0.6

> else if (200 <= c_Flood) and (c_Flood < 500) then

> FieldByName('여유고기준').AsFloat := 0.8

> else if (500 <= c_Flood) and (c_Flood < 2000) then

> FieldByName('여유고기준').AsFloat := 1.0

> else if (2000 <= c_Flood) and (c_Flood < 5000) then

> FieldByName('여유고기준').AsFloat := 1.2

> else if (5000 <= c_Flood) and (c_Flood < 10000) then

> FieldByName('여유고기준').AsFloat := 1.5

> else

> FieldByName('여유고기준').AsFloat := 2.0;

> next;

> end;

> end;

> //===============================================================

> 이렇게 하는거 아닌가여?

> 부탁드립니다.

> 그럼 수고하세요...
- 0
- 0
- 삭제
- 수정
- 댓글
초보의비애 • 2001.08.30 02:29

Edit를 While문안에 포함시키면 될거 같은데염.

While 쿼리컴포넌트 do begin

Edit;

.

.

.

Post;

next

end;

우비소녀 wrote:

> 쿼리컴포넌트를 썼습니다.

> 그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들어서 DB그리드에 뿌리구요. 오픈한후에...

> 기존에 있는 4개의 필드중 2개씩 연산을 해서 가상의 필드에 넣으려고 합니다.

> 필드에 넣으려면 에디트 상태가 되어야 하니까 그렇게 만들고 연산후 넣으려고 하니까 에디트 상태가 아니라는데 어떻게 해야할지...

> 이게 안되면 다음 그 수많은 작업들이 한개도 안되거든요...

> 답 부탁드립니다...

> 이해를 돕기 위해 간단한 소스를 보내드립니다.

> 꼭 알려주셔야 되요...알았져?

> //====================================================================

> with 쿼리컴포넌트 do begin

> close;

> sql.clear;

> sql.add('SELECT BON 측점본번, L_DIST 구간거리, ');

> sql.add('C_FLOOD 계획홍수량, C_EL 계획홍수위, ');

> sql.Add('''AA'' 여유고기준'); //----가상필드

> sql.add('FROM HYD_PLAN');

> open;

>

> edit;

> while not EOF do begin

> c_Flood := FieldByName('계획홍수량').AsFloat;

> if c_Flood <200 then

> FieldByName('여유고기준').AsFloat := 0.6

> else if (200 <= c_Flood) and (c_Flood < 500) then

> FieldByName('여유고기준').AsFloat := 0.8

> else if (500 <= c_Flood) and (c_Flood < 2000) then

> FieldByName('여유고기준').AsFloat := 1.0

> else if (2000 <= c_Flood) and (c_Flood < 5000) then

> FieldByName('여유고기준').AsFloat := 1.2

> else if (5000 <= c_Flood) and (c_Flood < 10000) then

> FieldByName('여유고기준').AsFloat := 1.5

> else

> FieldByName('여유고기준').AsFloat := 2.0;

> next;

> end;

> end;

> //===============================================================

> 이렇게 하는거 아닌가여?

> 부탁드립니다.

> 그럼 수고하세요...
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- kakarous
- 2001.08.30 04:03
- 0 COMMENTS
- /
- 0 LIKES
퀵리포트 초보입니다 qrlabel관련......
- 휴~~
- 2001.08.30 03:42
- 0 COMMENTS
- /
- 0 LIKES
축소/확대 인쇄하기..
- 초보공주...
- •
- 2001.08.30 03:21
- 2 COMMENTS
- /
- 0 LIKES
특정셀을 Edit 하고 시포요....
- 홍성락
  
  •
  
  2001.08.30 04:15
  
  초보공주... wrote: > 안녕하세요.. > 제가 하려는 수작은 다름이 아니오라.... > StringGrid를 상속받...
- 초보공주...
  
  •
  
  2001.08.30 04:36
  
  답변 감사합니다... 그런데 테스트 해봤는데 ... 안된던걸요.... 이상하다?? 글구요... MouseDown 이벤...
- 유민호
- 2001.08.30 02:52
- 0 COMMENTS
- /
- 0 LIKES
RS6000 + DB2 + Delphi6
- 화림
- 2001.08.30 02:36
- 0 COMMENTS
- /
- 0 LIKES
프로시저의 파라미터를 어떻게 넣어야 하는 것인지..
- 나나나
- 2001.08.30 01:56
- 0 COMMENTS
- /
- 0 LIKES
xml을 스트링으로 받아서 그리드에 올리려고 합니다..
- 초보자..
- 2001.08.30 01:41
- 0 COMMENTS
- /
- 0 LIKES
동적SQL과 정적SQL의 차이.
- chobo of chobo
- •
- 2001.08.30 01:32
- 1 COMMENTS
- /
- 0 LIKES
combobox에서 아이템 추가시 특정 itemindex 부여 하기
- 홍성락
  
  •
  
  2001.08.30 01:44
  
  chobo of chobo wrote: > 콤보박스의 리스트가 아래와 같습니다. > a --> itemindex = 0 > b --> it...
- 김병표
- 2001.08.30 01:29
- 0 COMMENTS
- /
- 0 LIKES
리소스 파일 로드 문제..
- 우비소녀
- •
- 2001.08.30 01:24
- 3 COMMENTS
- /
- 0 LIKES
제겐 어려운 질문인데여..

쿼리컴포넌트를 썼습니다. 그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들어서 DB그리드에 뿌리구요. 오픈한후에... 기존에 있는 4개의 필드중 2개씩 연산을 해서 가상의 필드에 넣으려고 합니다. 필드에 넣으려면 에디트 상태가 ...
- aparadin
  
  •
  
  2001.08.31 09:30
  
  우비소녀 wrote: > 쿼리컴포넌트를 썼습니다. > 그리고 4개의 필드가 있고 가상의 2개의 필드를 더 만들...
- stoney
  
  •
  
  2001.08.30 03:10
  
  가상의 필드라면 테이블에는 없고 쿼리시에 가상으로 만들어 내는 필드라는 소린가요?? 그러면 쿼리 콤...
- 초보의비애
  
  •
  
  2001.08.30 02:29
  
  Edit를 While문안에 포함시키면 될거 같은데염. While 쿼리컴포넌트 do begin Edit; . . ...
- 델초짜
- 2001.08.30 01:20
- 0 COMMENTS
- /
- 0 LIKES
index does not exist 에러가 난경우...
- 어린왕자
- 2001.08.30 01:14
- 0 COMMENTS
- /
- 0 LIKES
이런 컴포넌트 없나요? (Listview + Treeview)
- 오병주
- 2001.08.30 00:50
- 0 COMMENTS
- /
- 0 LIKES
이미지 출력?????
- 양충규
- 2001.08.30 00:26
- 0 COMMENTS
- /
- 0 LIKES
control 을 마우스로 resize 하고 싶은데..
- 산돈
- 2001.08.30 00:10
- 0 COMMENTS
- /
- 0 LIKES
52803번 질문: DBGrid의 Scroll...
- 배순곤
- 2001.08.30 00:05
- 0 COMMENTS
- /
- 0 LIKES
PlannerCalendar 를 써보신분...답변부탁드립니다..
- 최병희
- 2001.08.29 23:51
- 0 COMMENTS
- /
- 0 LIKES
Form에서 다른 exe실행화일을 winexe로 실행할경우
- 지누기
- 2001.08.29 23:24
- 0 COMMENTS
- /
- 0 LIKES
Client/Server통신시 문제 T.T
- 델파이촙
- 2001.08.29 23:07
- 0 COMMENTS
- /
- 0 LIKES
동적 메뉴 생성 어떻게 하나요??
- 나그네
- 2001.08.29 23:04
- 0 COMMENTS
- /
- 0 LIKES
jnumedit 등록시..

우비소녀
2001/08/30 01:24
Views319

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1610 1611 1612 1613 1614 1615 1616 1617 1618 1619

Last Page→