如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 & ]: d0 Q; m5 w8 U' ?Delete * ?; Y' {. J0 _2 L! LMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox * ~, l9 _9 G `! q表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 0 _( {1 X8 }2 F$ ]) h //This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) - h# k! h6 E3 H{ //Paradox table use a quite different way to be packed than & k/ ~* X9 w2 @: S( t3 ` //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; $ l; G7 g7 o1 g7 V$ U CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); # L: E, g9 ]2 r; G; A* s8 m //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); 0 N9 Q4 M+ B3 t) i+ k+ N8 {: P! y lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function TblDesc.bPack=true; //Pack the table 0 e! ]3 f" [0 L. q. H! k rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); / W' J, l/ i" q: m) y# {& M if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", 5 h. i$ t% H2 d t7 @ "压缩数据表出错",MB_ICONERROR); } & {4 V3 v* F+ r3 E. w1 `4 p注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. 6 R6 q7 t& A5 ~9 K' A6 I7 h* T5 Hvoid __fastcall TForm1:ackTable(AnsiString table_name) { / W) {- c, Y7 E' N" c //Pack the table 3 W% S. }& w" c2 P1 W- _( S TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; 2 H6 H$ T6 @! T8 N; {* D( L# R temp_table->TableName=table_name; temp_table->Exclusive=true; / e$ v6 M' D* f9 U7 I/ M& X1 `3 M temp_table->Open(); //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); 2 }3 C' d, M# ?% r3 _4 C; w* l PackParadoxTable(hDB,table_name); 9 `3 D1 n: }+ a: F temp_table->Close(); temp_table->Free(); } / b7 }- x* [5 C2 X; ]# V * ]& _8 m0 o9 R7 d) a' T, C " V8 H: y! [9 c( q% l& j对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。