with 테이블컴포넌트이름 do
begin
Active := False;
DatabaseName := '데이타베이스이름';
TableName := '만들 테이블이름';
TableType := 테이블타입;
with FieldDefs do
begin
Clear;
Add('필드명', 타입, 사이즈, False);
...........
end;
with IndexDefs do
begin
Clear;
Add('인덱스명', '인덱스필드명',[*]);
...
end;
CreateTable;
end;
[*] 에는 [ixPrimary, ixUnique] 혹은 [ixCaseInsensitive].....
begin
Active := False;
DatabaseName := '데이타베이스이름';
TableName := '만들 테이블이름';
TableType := 테이블타입;
with FieldDefs do
begin
Clear;
Add('필드명', 타입, 사이즈, False);
...........
end;
with IndexDefs do
begin
Clear;
Add('인덱스명', '인덱스필드명',[*]);
...
end;
CreateTable;
end;
[*] 에는 [ixPrimary, ixUnique] 혹은 [ixCaseInsensitive].....