안녕하세요?



프로그램 내에서 테이블을 생성하려고 합니다.

TTable을 상속하여 파라독스형식의 테이블을

필드와 인덱스 추가하여 생성하였습니다



그런데 문제는



그외의 설정에 대해서는 어떤 방법을 써야할지 알수없군요.

설정이란 기본값(delfault value), 최대값(max value),

최소값(min value), Referential integrity 등등



Query를 이용하는 방법 말고 아래의 코딩처럼 테이블을

생성하는 방법 중

참조할 수 있는 모든 종류(소스, 책, 도움말등등)의 도움을 구합니다.



감사합니다.

^^;







아래는 제가 구현한 내용입니다.

=================================================

간단한 방법 1

=================================================

try

vTable := TTable.Create(application);

with vTable do

begin

DatabaseName:='';

TableName:='cust';

TableType:=ttparadox;

with fielddefs do

begin

clear;

add('custid',ftWord,0,true);

add('custname',ftstring,50,true);

.

.....

end;



with IndexDefs do

begin

clear;

add('primarykey', 'custid',[ixPrimary]);

add('custname', 'custname', [ixDescending]);

end;

try

CreateTable;

/////////////////

//실행할 내용.....

/////////////////



except

on E:Exception do showmessage('오류:'+E.Message);

end;

end;

finally

vTable.Destroy;

end;





===============================================================

혹은 다음과 같은 방법2도

===============================================================

try

vTable := TTable.Create(Application);

with vTable do

begin

Active := false;

DatabaseName :='';

TableType :=ttparadox;

TableName :='cust';

with FieldDefs do

begin

Clear;



with AddFieldDef do

begin

Name := 'custid';

datatype := ftWord;

Required := true;

end;

with AddFieldDef do

begin

Name := 'custname';

datatype := ftString;

size :=50;

end;

end; //with FieldDefs do



with IndexDefs do

begin

Clear;

with AddIndexDef do

begin

Name := '';

Fields := 'custid';

Options := [ixPrimary];

end;

with AddindexDef do

begin

name := 'idx2';

Fields := 'custname';

options := [ixDescending];

end;

end; //with IndexDefs do





try

CreateTable;

except

on E:Exception do showmessage('오류:'+E.Message);

end;



end; // with vTable do



finally

vTable.Destroy;

end;



==========================================================

그외의 설정을 어떻게 하면 될까요???