使用DeleteTable方法删除Paradox数据库的人员表

procedure TForm1. Delet_Table_BtnClick(Sender: TObject)；
begin
with RenYuan do
begin
Active := False；
//为了删除除表，表必须处于关闭状态
DatabaseName := 'DBDEMOS'；
TableName := 'RenYuan'；
//删除人员表'RenYuan'
TableType := ttParadox；
DeleteTable；
//调用Ttable组件的DeleteTable方法，从Paradox数据库中删除'RenYuan'表
End；
End；