如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 7 \* M! Y9 |% ^0 BDelete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox & u; I5 P: D& k' g" N5 z1 t# K表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //This function Pack the Paradox table. write by zodiac : I$ _, E Y6 Y" W( _void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) 7 V2 ]9 c# j/ P" S3 i% T8 P{ //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the 4 p- p$ E5 T) A7 E // DBiPackTable + R6 {4 f8 G% B9 v3 ~1 d( i a4 L DBIResult rslt; 4 V2 [2 H9 q5 R, P' ?9 I CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); //copy the table name and type to the structure 0 ?8 h* [+ a- s. @" \. m lstrcpy(TblDesc.szTblName,TblName.c_str()); lstrcpy(TblDesc.szTblType,szPARADOX); # r) D- D1 l3 O7 u9 G //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) + ]1 Q ^) _- m Application->MessageBox("不能压缩表", J4 D9 r& ]$ c5 @- c "压缩数据表出错",MB_ICONERROR); # b, V) i$ D' U/ w5 n; E+ E+ N. {; G: g} 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. 8 z3 S# x, f' e0 |, f- Vvoid __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table TTable *temp_table=new TTable(Form1); ! A6 n' z+ ~5 ]' U! q, ^ temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; 5 C- {% M$ |! W) w temp_table->Open(); , P, B0 f% A/ { V //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); 3 r5 | }8 m& i* t9 e o * d2 O3 W2 C7 Q: X# h- C7 |. G PackParadoxTable(hDB,table_name); temp_table->Close(); temp_table->Free(); } 3 r6 o8 I2 X' h6 M P1 k' Y8 h: o( H. R7 q. Q ) U5 i* D8 g, S, {# n6 `对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。