Q&A

  • 파라독스 동적테이블 생성하는데....
델파이 소스에서 다음과 같이 동적테이블을 생성하였습니다.

생성하는데는 문제가 없이 잘 생성되구요...

그런데 한가지 ftinteger로 선언된 부분에 디폴트 값을 주려고 하는데

어떻게 주어야 하는지... 원래 줄수가 없는 건지 알고 싶습니다...^^;

Database Desktop 에서 테이블 생성할때는 디폴트 주는 게 있던데....

아시는 분 좀 알려주세요 ^^;

Procedure Make_Food_Card;
Begin
  With FrmMain.Make_TB Do
    Begin
      Active := False;
      DatabaseName := NS_Food_Card;
      TableName := 'Food_Card'+ Yr+Mn +'.db';
      TableType := ttParadox;

      With FieldDefs Do
        Begin
          Clear;
          Add('Auto_No' , ftAutoInc  ,   0, True);
          Add('ReadDate', ftDateTime ,   0, False);
          Add('Name'    , ftstring   ,  10, False);
          Add('Card_No' , ftstring   ,  20, False);
          Add('ID_No'   , ftstring   ,  20, False);
          Add('Comp'    , ftstring   ,   2, False);
          Add('Dept'    , ftstring   ,   3, False);
          Add('Part'    , ftstring   ,   4, False);
          Add('Price'   , ftinteger  ,   0, False);
          Add('Feed'    , ftstring   ,   4, False);
        End;

      With IndexDefs Do
        Begin
          Clear;
          Add('ix_cd', 'Auto_No', [ixPrimary]);
        End;
      CreateTable;
    End;
End;
0  COMMENTS