如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete + ]( x# D9 m. |0 ZMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在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:ackParadoxTable(hDBIDb hDB, AnsiString TblName) $ C3 x7 h7 B6 o, ?{ //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable % U8 d3 _+ b7 M2 S. t6 ] DBIResult rslt; CRTblDesc TblDesc; 0 x9 Z4 _; n( q5 ], o( j8 ]- I- H7 l //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); # O T( d/ X! s2 v* ^1 u' g //copy the table name and type to the structure ' [1 Z6 {) T% h! w7 w* i lstrcpy(TblDesc.szTblName,TblName.c_str()); ; C8 K+ q: p1 i/ G8 a# o lstrcpy(TblDesc.szTblType,szPARADOX); : C& k8 L9 c- G# u. z9 ~ h //set bPack to true to specify Pack Function x" k* d9 n9 u7 K" d TblDesc.bPack=true; //Pack the table S4 T( u% c6 k, T: g rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", + T, y' c7 U: t "压缩数据表出错",MB_ICONERROR); } 4 p0 r3 `( Q3 o注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. void __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; 8 H0 ?7 c( J! C- [' F8 L& r temp_table->Exclusive=true; temp_table->Open(); 4 c& _9 @7 z7 P6 ` //get the Database Handle ' h$ o. h! [' u$ \ hDBIDb hDB=temp_table->DBHandle; 4 Q: n& `3 U0 ]4 A+ {1 S0 d temp_table->Close(); # k5 b7 I- l1 ]+ ]* _ PackParadoxTable(hDB,table_name); 3 w) \$ t' p1 G$ y% R4 ^ % y; _8 c9 o: v+ r! d2 v temp_table->Close(); temp_table->Free(); . l7 L8 [& [& S8 t) b} - d0 C6 s( ` c0 ?- {) @ ' d. o/ x" D% |9 _ 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。