SELECT 할때는 QUERY 컴포넌트를 사용 했습니다..
저장시 소스를 보내 드립니다. 제가 생각 하기엔 저장프로시저가 실행 된 후로는
그 날짜에 해당 하는 데이터가 LOCK이 걸린것도 같은데 델파이에서 저장프로시저 사용한 소스 입니다. 참고로 보내 드립니다. 감사합니다.
혹시 ExecProc 문장 이후에 해야 되는게 있는지 궁금 하네요...
with StoredProc1.Params do
begin
ParamByName('UNT_CD').asstring := psUnt_cd;
ParamByName('MAC_CD').asstring := psMac_cd;
ParamByName('TRD_DATE').asstring := psYMD;
ParamByName('TRD_TYPE').asstring := psTrd_type;
ParamByName('TRD_TIME').asstring := psTIME;
ParamByName('PDT_LINE').asInteger := psItem;
ParamByName('WEEK_DAY').asstring := inttostr(DayOfWeek(now));
ParamByName('ITM_CD').asstring := psItmInf[psItem].itm_cd;
ParamByName('ITM_SIZE').asstring := psItmInf[psItem].itm_size;
ParamByName('QTY').asInteger := 1;
ParamByName('UNIT_COST').asInteger := psItmInf[psItem].unit_cost;
ParamByName('AMT').asInteger := psItmInf[psItem].unit_cost;
ParamByName('IN_CASH').asInteger := strtoint(Floattostr(psIn_Money));
ParamByName('OUT_CASH').asInteger := psSd_Money * 1000;
ParamByName('AS_DATE').asstring := '';
ParamByName('AS_SEQ').asstring := '';
ParamByName('AS_NAME').asstring := '';
ParamByName('AS_TEL').asstring := '';
ParamByName('AS_ID').asstring := '';
ParamByName('AS_PASS').asstring := '';
end;
StoredProc1.ExecProc;
박지훈.임프 님이 쓰신 글 :
: 클라이언트에서 select를 위해 어떤 컴포넌트를 쓰셨나요?
:
:
: 질문이 님이 쓰신 글 :
: : 델파이와 파이어버드 1.5를 사용하고 있는데요
: : 저장프로시저를 사용하여 클라이언트를 가볍게 했는데
: : 클라이언트에서 VIEW, SELECT PROCEDURE가 않되네요?(계속 모래시계만 나오네요!! ㅜㅜㅜㅜ)
: : 그리고 서버에서는 VIEW, SELECT PROCEDURE 너무 잘 됩니다..
: : 정말 미치겠네요...
: : 다른 옵션이 있는지 전문가의 답변을 기다립니다.
|