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;
使用DeleteTable方法删除Paradox数据库的人员表
最新推荐文章于 2021-02-03 09:46:21 发布