如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete ' N9 d9 p9 }1 wMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox % [) ]( [/ F- h! C* p$ ~7 c" \表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 * ~5 P$ n7 m$ F6 H% `: z7 F/ T //This function Pack the Paradox table. write by zodiac ( F8 s: n5 N* J& Ivoid __fastcall TForm1:ackParadoxTable(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 ; q5 Z: N8 R, D lstrcpy(TblDesc.szTblName,TblName.c_str()); ' V) A/ n9 b/ q# {, E3 f' v: Z lstrcpy(TblDesc.szTblType,szPARADOX); # }+ u$ E' K1 n( A, D; L //set bPack to true to specify Pack Function 1 s" K* ^; R- t4 v# a5 H2 ?1 ] TblDesc.bPack=true; * E; M; Z$ Y" S l //Pack the table rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", 2 O& r9 x, C6 D6 c7 H "压缩数据表出错",MB_ICONERROR); $ |. P3 T6 z4 [/ H0 F8 M} 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. void __fastcall TForm1:ackTable(AnsiString table_name) { / j' }( \/ A( F7 [5 E //Pack the table & W/ ]3 g" G) \) J# V( M& | TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; * m% f ?( ~# t- t4 n! o temp_table->TableName=table_name; $ o) I2 ?* {# Y5 _$ N& A temp_table->Exclusive=true; 8 v1 v: O) m" Z+ x9 Y. G# v temp_table->Open(); 0 G& c4 r& w4 J' J6 x& R8 J& d0 a //get the Database Handle hDBIDb hDB=temp_table->DBHandle; # a. H7 y/ x; O) V' _: \) | temp_table->Close(); 5 s% h) t) S9 R+ h . E: G) x! {7 [ PackParadoxTable(hDB,table_name); & r5 F1 V m0 |$ j6 B: P o6 r 9 @8 Z% Y" ~9 X' m temp_table->Close(); 2 g! s5 V* s1 e; c temp_table->Free(); } % f C5 a: m) L0 F& s& n2 R 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。