如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox % o3 g) n% D( M8 p; ?4 _) Z( w表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 ( U3 m2 S" k& O7 u2 l G) x& J4 E: ~ $ g1 B3 m! n/ Z2 d//This function Pack the Paradox table. write by zodiac , }8 s9 K* W% r/ J+ \4 i0 t- I- ~void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) ! l; J& A/ h8 f' @# ^! @* g) }0 f{ " b& R p+ S1 d3 B, j //Paradox table use a quite different way to be packed than . W" t4 y( a% O& {+ _# X4 G. [; Z3 I0 \ //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 ( @6 i+ _3 I7 O6 V6 X; j 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); ! Z3 E. t* e/ q5 U* U8 V //set bPack to true to specify Pack Function ) k9 S1 [3 A/ {& j) k, A. } TblDesc.bPack=true; & |' n, h J8 U9 ]8 }( Z* l, a //Pack the table * a# \) Y6 F: }9 Q: C& h" l# s0 d rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", 2 O/ _0 m2 P4 j4 ? "压缩数据表出错",MB_ICONERROR); - Q$ L7 M* o4 {# P} ) A) j' U9 T$ t8 a h; C6 P z注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. void __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table 7 L$ t4 e" I" b TTable *temp_table=new TTable(Form1); ) O: D* v. ]5 i, {8 u! E& P1 D temp_table->DatabaseName="YourDatabaseAlias"; 5 O. ^9 a: o' B temp_table->TableName=table_name; temp_table->Exclusive=true; : X, a+ n. u1 o: W: \ temp_table->Open(); $ [" I) g# W0 {; X& }8 } //get the Database Handle 9 g: R+ @ ~7 I hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); : w# T( L5 b# z w }) ~: T PackParadoxTable(hDB,table_name); ' ]; {6 V0 h3 r& H& A & w0 U1 r y1 W8 F. n( A temp_table->Close(); ' X4 w$ A$ v2 ~& W8 x8 k temp_table->Free(); 1 f6 h \$ {( K$ \4 ^. ?2 j F} ( h$ w; X2 _' Q+ w# o- v3 F & y( K% l, Y' |- R; L 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。