안녕하세요.(주)나이렉스 인터내셔날의 짱굽니다.
테이블을 동적으로 생성하는 루틴입니다. 참고 하세요.
{ ************************** TblName ************************** }
with TTable.Create(Application) do
begin
Active := False;
DatabaseName := DBName; {DBName을 바꾸어주는 코드부분입니다.}
TableName := TblName; {TableName을 바꾸어주는 코드부분입니다.}
TableType := ttDefault;
{ *************** Fields of Table 'TblName' **************** }
FieldDefs.Add('UserIndex', ftAutoInc, 0, False);
FieldDefs.Add('MainIndex', ftSmallInt, 0, False);
FieldDefs.Add('Style', ftSmallInt, 0, False);
FieldDefs.Add('TempShort', ftSmallInt, 0, False);
{ *************** Indexes of Table 'TblName' **************** }
IndexDefs.Add('', 'UserIndex', [ixPrimary, ixUnique]);
IndexDefs.Add('ChapExNo', 'Chapter;ThemeNo;Style;ExamNo', [ixCaseInsensitive]);
CreateTable;
Free;
end;
그럼 좋은 코딩핫에ㅛ.
|