안녕하십니까? 전봉수 입니다.
DB 이미지 테이블 필드 생성을 DBD32.EXE로는 생성이 가능한데요
코팅으로는 어떻게 생성하여야 하는지요 메모 필드는 BOLB로하면
되는데요 아래 소스는 제가 평소에 생성하여 사용하는 D테이블
생성기 입니다. 점선위에 일반 필드는 제대로 생성되는데 점선
안에있는 이미지 필드는 방법이 틀린것인지 생성이 안됩니다.
운영체제 WinXP 델파이 6.0 DB는 파라독스를 사용하고있습니다.
고수님들 꼭좀 부탁 드립니다.
// 업무일지 결재등록 테이블
procedure TFmsThForm.MukyltbClick(Sender: TObject);
VAR
Q1: TQUERY;
begin
// PRIMARY INDEX FILE 및 관련 INDEX FILE 삭제하기
IF FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.PX') THEN
BEGIN
DELETEFILE(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.PX');
DELETEFILE(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.XGO');
DELETEFILE(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.YGO');
END;
// Mukyl TABLE CREATE 하기
Q1:=TQUERY.CREATE(SELF);
Q1.DATABASENAME:=ALIASNAME;
Q1.SQL.CLEAR;
Q1.SQL.ADD('CREATE TABLE "Mukyl.DB" ');
Q1.SQL.ADD(' ( ');
Q1.SQL.ADD(' Icode VARCHAR(8), '); // 결재코드
Q1.SQL.ADD(' Idate VARCHAR(10), '); // 작성일자
Q1.SQL.ADD(' Scode VARCHAR(7), '); // 신고코드
Q1.SQL.ADD(' Hcode VARCHAR(7), '); // 처리코드
------------------------------------------------------
Q1.SQL.ADD(' Idimg Graphic(), '); // 검토
Q1.SQL.ADD(' Isimg Graphic(), '); // 승인
Q1.SQL.ADD(' Kdimg Graphic(), '); // 담당
Q1.SQL.ADD(' Ksimg Graphic(), '); // 팀장
------------------------------------------------------
Q1.SQL.ADD(' PRIMARY KEY(Icode,Idate) ');
Q1.SQL.ADD(' ) ');
TRY
Q1.ExecSQL;
EXCEPT
APPLICATION.MESSAGEBOX('업무일지 결재 테이블 생성도중 에러발생!!!',
'알림',MB_OK+MB_ICONINFORMATION);
Q1.Close;
Q1.Free;
EXIT;
END;
Q1.Close;
// INDEX FILE CREATE 하기
Q1.SQL.CLEAR;
Q1.SQL.ADD('CREATE INDEX MukylX1 ON "Mukyl.DB"(Icode,Idate)');
TRY
Q1.ExecSQL;
EXCEPT
DELETEFILE(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.DB');
DELETEFILE(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\Mukyl.PX');
APPLICATION.MESSAGEBOX('업무일지 결재 테이블 인덱스 생성도중 에러발생!!!',
'알림',MB_OK+MB_ICONINFORMATION);
Q1.Close;
Q1.Free;
EXIT;
END;
Q1.Close;
Q1.FREE;
Mukyltb.ENABLED:=FALSE;
ALLtb.ENABLED :=FALSE;
end;