BCB中如何给Table减肥

BCB中如何给Table减肥2010-04-13用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表档大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会出现这种现象，是因为TTable控件的 Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中用Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。

//This function Pack the Paradox table. write by zodiac
void __fastcall TForm1::PackParadoxTable（hDBIDb hDB, AnsiString TblName）
{
//Paradox table use a quite different way to be packed than
//DBase or Foxpro table, it use the DBiDoRestructure not the
// DBiPackTable
DBIResult rslt;
CRTblDesc TblDesc;
//filled the structure CRTbiDesc with 0
memset（（void *）&TblDesc,0,sizeof（CRTblDesc））;
//copy the table name and type to the structure
lstrcpy（TblDesc.szTblName,TblName.c_str（））;
lstrcpy（TblDesc.szTblType,szPARADOX）;
//set bPack to true to specify Pack Function
TblDesc.bPack=true;
//Pack the table
rslt=DbiDoRestructure（hDB,1,&TblDesc,NULL,NULL,NULL,false）;
if（rslt！=DBIERR_NONE）
Application->MessageBox（"不能压缩表","压缩数据表出错",MB_ICONERROR）;
}

注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable.

void __fastcall TForm1::PackTable（AnsiString table_name）
{
//Pack the table
TTable *temp_table=new TTable（Form1）;
temp_table->DatabaseName="YourDatabaseAlias";
temp_table->TableName=table_name;
temp_table->Exclusive=true;
temp_table->Open（）;
//get the Database Handle
hDBIDb hDB=temp_table->DBHandle;
temp_table->Close（）;
PackParadoxTable（hDB,table_name）;
temp_table->Close（）;
temp_table->Free（）;
}

对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。