델파이 소스에서 다음과 같이 동적테이블을 생성하였습니다.
생성하는데는 문제가 없이 잘 생성되구요...
그런데 한가지 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;