안명호님 답변 감사합니다.
답변주신 코팅은 저도 검색하면서 보았는데요 그 다음에 어떻게 조건을 만들어 테이블이 있으면 메뉴가 False가
되고 테이블이 없으면 메뉴가 True로 되겠끔하는지 방법을 몰라서 질문을 드린것입니다.
아래에 제가 만든 조건문이 있는데 그런식으로 여러 테이블을 점검하여 메뉴를 활성 비활성으로 하려는것입니다.
죄송하지만 조건문을 어떻게 만들어야하는지 가르쳐 주시면 고맙겠습니다.
 

안명호.ASURADA 님이 쓰신 글 :
: 검색해 보니 아래와 같은 정보가 나오네요..
:
: Question: How to check whether a table exists or not?
:
: Answer: SELECT RDB$RELATION_NAME FROM RDB$RELATIONS /* all tables will be shown */
:    WHERE RDB$RELATION_NAME = 'your_TABLE' /* particular table is checked*/
:
: 출처:http://www.devrace.com/en/fibplus/articles/2325.php
:
: 전봉수 님이 쓰신 글 :
: : 안녕하십니까?  전봉수입니다.
: : Firebird 를 사용하고 있습니다. FDB내에 Table를  배포시 연습 데이타를 넣어서 구입하신분들이 연습후
: : 연습 Table는 IBExpert 를 기동하여 지우고  지워진 Table은 은 메뉴에서 동적으로 생성하도록 하였는데요
: : 생성되지 않은 메뉴의 ENABLED는 True 되어야하고 생성된 메뉴의 ENABLED는  False  되어야하는데
: : 어떤방법으로 하여야할지 몰라서 고수님들에게 도움을 청합나다.
: :
: : 운영체제 Win_xp 델파이 7.0 Firebird 2.1 입니다.
: :
: :
: : 아래는 제가한번 어설프게 구현한 방법인데 않되는군요
: : procedure TEQUIP_F.FormShow(Sender: TObject);
: : begin
: :   IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_PART') THEN
: :     begin
: :        Part_Table.ENABLED := FALSE;
: :      end
: :   else
: :     Part_Table.ENABLED := True;
: :
: :     IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_JOB_TY') THEN
: :       begin
: :         Job_Table.ENABLED := FALSE;
: :       end
: :   else
: :     Job_Table.ENABLED := True;
: :
: :     IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_EQM_STD') THEN
: :       begin
: :         Std_Table.ENABLED := FALSE;
: :       end
: :     else
: :       Std_Table.ENABLED := True;
: : end;