如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 - W# G( D+ N, }5 @4 [Delete * |: B' B y. A+ R5 RMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //This function Pack the Paradox table. write by zodiac ' U% \5 {: |( tvoid __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { # B2 E/ Q& b2 O; l3 Z //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; 1 q7 [$ ?' ^: F H. O$ j CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); . s8 M6 |5 u$ B9 r, J) A //copy the table name and type to the structure 9 y; y4 j% {) s8 `: b) }8 F) B lstrcpy(TblDesc.szTblName,TblName.c_str()); lstrcpy(TblDesc.szTblType,szPARADOX); % S: P& Y# ?) J) K& A \ //set bPack to true to specify Pack Function 1 `, E3 i" P4 R. u TblDesc.bPack=true; //Pack the table * c% ]5 j! i1 j0 i. X: x2 z& \* { rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); - f; C$ j! m7 a, N' x& a g* P& E if(rslt!=DBIERR_NONE) ! V8 M- u% \; u) { Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); } ( ?3 l9 C& V: a) M注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. 0 S; }4 v- R0 I* |( f& s. Jvoid __fastcall TForm1:ackTable(AnsiString table_name) { 3 w+ o- n1 D6 C9 C" ^: p' s7 h //Pack the table ( `5 z4 Z" ]+ c0 J TTable *temp_table=new TTable(Form1); / s) |( S2 L p% J7 H' H" B1 K temp_table->DatabaseName="YourDatabaseAlias"; 8 [3 T. Y' s/ `+ E) ` temp_table->TableName=table_name; " U! |9 c3 C7 h temp_table->Exclusive=true; 6 Q$ t* y6 M8 G" T! @ temp_table->Open(); //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); PackParadoxTable(hDB,table_name); % C: W- y8 ^2 O 1 J2 w+ r7 H2 K* v1 }4 }' J temp_table->Close(); temp_table->Free(); & w7 G6 ]. E1 y/ @! n} 4 m% w/ Z2 S9 B5 a ' P e' c9 g3 `) a L对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。