数据库记录的彻底删除找仓库进销存流程

记账软件版1楼: 我用的是桌面数据库，控件使用的是table，用table1.delete删除一条记录，但数据库文件中并没有真正把该记录删除，请问如何用一条语句完成彻底的删除。请给出完整的语句

2楼: ADOTable1.Post 如设备管理软件

3楼: 什么数据库

4楼: 什么数据库？Oracle？SQLServer？

5楼: 保存下啊
table1.post

6楼: 需要POST才可以

记账软件版7楼: delete只是对当前数据集进行了操作，需要Post才能把修改反应到数据库中》
table1.delete;
table1.post;

8楼: 你是用BDE連接的就要：
table1.delete;
table1.post;

如果是ADO連接的：
ADOTable1.delete;

9楼: 要保存一下 .

10楼: 别的数据库不用，但桌面的要保存一下，同意楼上的说法

11楼: 我估计你用的是 Dbase, Foxbase, Foxpro 一类的数据库，这类数据库删除记录时仅仅是给记录做一个删除标记，并没有真正删除记录，还要对数据库 Pack 才能真正删除。

12楼: 你的问题好像没有说清楚如小商品批发零售软件

13楼: 有QUERY控件
找到记录后用PACK.

记账软件版14楼: 我实验了一下.post也不行,post之后,在Database Desktop里还是能看到序号不连续,各位大侠帮帮我.

15楼: 改用ADOtable

16楼: 需要pack一下,可以用pack作关键词在全文搜索中搜一下

17楼: 压缩数据库文件函数，把做了删除标记的记录物理删除。数据表要独占模式打开。

uses
SysUtils, Windows, Classes, DBTables, DbiTypes, DbiProcs, DbiErrs;

function PackDbfTable(DbfTable: TTable): Boolean;

implementation

function PackDbfTable(DbfTable: TTable): Boolean;
var
errResult: DBIResult;
begin
try
{ 如果不是以独占方式,操作失败 }
if (not DbfTable.Exclusive) or (not DbfTable.Active) then
begin
Result := False;
exit;
end;
{ 进行删除操作 }
errResult := DbiPackTable(DbfTable.dbHandle, DbfTable.handle, nil, nil, True);
{ 根据返回结果,返回成功与否的标志 }
Result := errResult = DBIERR_NONE;
except
Result := False;
end;
end;