Cancel);  
if answer=IDCANCEL then begin  
ap.Free;  
Exit;  
end;  
with table1 do begin  
Active:=false;  
DatabaseName:=''Cntssamp''; {数据库别名}  
TableName:=''TSK''; {表格名}  
TableType:=ttParadox; {数据库类型}  
with FieldDefs do begin {增加字段}  
Clear;  
Add(''SH'',ftString,30,False); {书号 String(30)}  
Add(''SM'',ftString,30,False); {书名 String(30)}  
Add(''CBS'',ftString,20,False); {出版社 String(20)}  
Add(''CBRQ'',ftDate,0,False); {出版日期 Date}  
Add(''YS'',ftInteger,0,False); {页数 Integer}  
end;  
with IndexDefs do begin {增加索引}  
Clear; {按书号字段建立主索引}  
Add(''SHSY'',''SH'',[ixPrimary,ixUnique]);  
end;  
CreateTable; {创建表格}  
end;  
end ;  
ap.free; {释放变量ap}  
end;