Q&A

  • oracle 의 substitutio
먼저 지금 재가하구 있는일은 인사급여.. 포탕을 하구 있는데..

저의 사수가 만든것은.. 거의 텔파이자체에서 계산기 형식을 이용하여

급여를 계산합니다..



그런데 저는.. 이렇게 해볼려구 하는데..



텔파이에서 어떻게 써야하는지 모르겠네요,,



여러 고수님들 부탁드립니다.........



//--------------------------------------------

일단 쿼리입니다



SELECT :AVC

FROM

(SELECT 10 P01, 20 P02, 30 P03, 40 P04,

FROM BASICSALARY A,

MONTHWORK B

WHERE A.SAUPCODE = B.SAUPCODE

AND A.EMPLOYEECODE = B.EMPLOYEECODE)



파람 자체를 :AVC 에

(P01+P02) 이렇게 넣어줍니다...

그러면 결과값이 30 이 나옵니다...



오라클자체의 파람 스타일은 'substitutio' 로 해서여..



그런데.. 델파이로 가지고 와서 할려니..



파람 스타일을 모르겠습니다..ㅜ.ㅜ



Query1에 쿼리문을 넣고.. Query1 자체 파람의 모든 테이터 타입을 해 봤는데두..

안됩니다....



텔파이에서 어떻게 하면.. 이것을 쓸수 있나여..,...



with Query do begin

Sql.Text := ' SELECT :AVC '+#13+

' FROM ' +#13+

' (SELECT 10 P01, 20 P02, 30 P03, 40 P04 '+#13+

' FROM BASICSALARY A, '+#13+

' MONTHWORK B '+#13+

' WHERE A.SAUPCODE = B.SAUPCODE '+#13+

' AND A.EMPLOYEECODE = B.EMPLOYEECODE) ';

ParamByName('AVC').?????? := Edit1.Text :

open;

end;





소스는 대략이렇습니다... 여기서 ???? 에 해당하는것 좀 부탁드립니다...





















1  COMMENTS
  • Profile
    공성환 2001.06.29 06:43
    ParamByName('AVC').AsInteger := StrToIntDef(Edit1.Text,0) :

    이렇게 하면 될까? 델파이 안한지 5개월이 지나서 ...^





    손홍식 wrote:

    > 먼저 지금 재가하구 있는일은 인사급여.. 포탕을 하구 있는데..

    > 저의 사수가 만든것은.. 거의 텔파이자체에서 계산기 형식을 이용하여

    > 급여를 계산합니다..

    >

    > 그런데 저는.. 이렇게 해볼려구 하는데..

    >

    > 텔파이에서 어떻게 써야하는지 모르겠네요,,

    >

    > 여러 고수님들 부탁드립니다.........

    >

    > //--------------------------------------------

    > 일단 쿼리입니다

    >

    > SELECT :AVC

    > FROM

    > (SELECT 10 P01, 20 P02, 30 P03, 40 P04,

    > FROM BASICSALARY A,

    > MONTHWORK B

    > WHERE A.SAUPCODE = B.SAUPCODE

    > AND A.EMPLOYEECODE = B.EMPLOYEECODE)

    >

    > 파람 자체를 :AVC 에

    > (P01+P02) 이렇게 넣어줍니다...

    > 그러면 결과값이 30 이 나옵니다...

    >

    > 오라클자체의 파람 스타일은 'substitutio' 로 해서여..

    >

    > 그런데.. 델파이로 가지고 와서 할려니..

    >

    > 파람 스타일을 모르겠습니다..ㅜ.ㅜ

    >

    > Query1에 쿼리문을 넣고.. Query1 자체 파람의 모든 테이터 타입을 해 봤는데두..

    > 안됩니다....

    >

    > 텔파이에서 어떻게 하면.. 이것을 쓸수 있나여..,...

    >

    > with Query do begin

    > Sql.Text := ' SELECT :AVC '+#13+

    > ' FROM ' +#13+

    > ' (SELECT 10 P01, 20 P02, 30 P03, 40 P04 '+#13+

    > ' FROM BASICSALARY A, '+#13+

    > ' MONTHWORK B '+#13+

    > ' WHERE A.SAUPCODE = B.SAUPCODE '+#13+

    > ' AND A.EMPLOYEECODE = B.EMPLOYEECODE) ';

    > ParamByName('AVC').?????? := Edit1.Text :

    > open;

    > end;

    >

    >

    > 소스는 대략이렇습니다... 여기서 ???? 에 해당하는것 좀 부탁드립니다...

    >

    >

    >

    >

    >

    >

    >

    >

    >

    >