안녕하십니까? 전봉수 입니다.
아래는 제가 많이(이것밖에모름)사용하는 퀴리문 입니다.
결재도장 5개 각각 이미지를 넣기위하여 DB에 이미지를 저장하고 프린트할때
코드를 키로하여 저장된 이미지를 불러서 프린트하여야 하는데요
//친 부분을 제외하면 자장,수정이 잘 됩니다.
//친 부분을 활성화하여 이미지를 저장,수정하는 루턴을
//----------------------------- 부분에 넣어서 소스를 완성해야 하는데
몇개월째 질답란을 모두 검색하였으나 아직까지 완성을 못하고 있습니다.

운영체제 Win_Xp Delphi6.0 엔터프리즈 사용DB는 파라독스 입니다.
아래 소스보시고 프로그램을 완성시켜 주시면 정말로 고맙겠습니다.
정말 사례라도 하고픈 심정입니다. 그냥 지나치지 마시고 꼭좀 부탁드립니다.  

// 자료저장
procedure TMupmuForm.sp_SaveClick(Sender: TObject);
VAR
  Q1    : TQUERY;
  sSQL  : STRING;
  Ms: TMemoryStream; // 메모리 스트림 선언
  Jpg: TJPEGImage;   // Jpeg 이미지 선언
begin
  // 모드에따른 SQL 구문생성
  CASE MODETYPE OF
    mAPPEND:                    // 추가 모드시
      BEGIN
        sSQL:='INSERT INTO Mukyl (Icode,Idate,Scode); //,Hcode,IdImg,IkImg,IsImg,KdImg,KsImg)'+
              'VALUES('+ //(:IdImg,:IkImg,:IsImg,:KdImg,:KsImg)' +
               FORMAT('''%s''', [TRIM(ED_Icode.Text)])+
               FORMAT(',''%s''',[TRIM(ED_PIMdate.Text)])+
               FORMAT(',''%s''',[TRIM(ED_Scode.Text)])+
               FORMAT(',''%s''',[TRIM(ED_Hcode.Text)])+
              ')';
              //---------------------------------------
      End;

    mUPDATE:                     // 수정모드
      BEGIN
        sSQL:='UPDATE Mukyl SET'+
               FORMAT(' Idate =''%s''',[TRIM(ED_PIMdate.Text)])+
               FORMAT(',Scode =''%s''',[TRIM(ED_Scode.TEXT)])+
               FORMAT(',Hcode =''%s''',[TRIM(ED_Hcode.TEXT)])+
               FORMAT(' Where Icode =''%s''',[TRIM(ED_Icode.TEXT)]);
              //---------------------------------------
      END;
  END;
  // 동적 QUERY
  Q1:=TQUERY.CREATE(SELF);
  Q1.DATABASENAME:=ALIASNAME;
  Q1.SQL.CLEAR;
  TRY
    Q1.SQL.ADD(sSQL);
    Q1.EXECSQL;        // 자료반영
  EXCEPT
    Q1.CLOSE;
    Q1.FREE;
    CASE MODETYPE OF
      mAPPEND:
        APPLICATION.MessageBox('결재 시스템 추가도중 ERROR 발생!!!','오류',
                                MB_OK+MB_ICONINFORMATION);
      mUPDATE:
        APPLICATION.MessageBox('결재 시스템 테이블 수정도중 ERROR 발생!!!','오류',
                                MB_OK+MB_ICONINFORMATION);
      END;
    EXIT;
  END;
  Q1.CLOSE;
  Q1.FREE;
  QR_Mukyl.CLOSE;   // 등록된 자료 REFRESH
  QR_Mukyl.OPEN;
  CHECKNUM(SENDER);
End;