如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete ! m. s# Y4 H tMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 7 w4 o# i; ?( N表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //This function Pack the Paradox table. write by zodiac / A5 ]" v$ _# Y. j1 }- Bvoid __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { : D0 z7 { h5 R2 }7 \ //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; ( ~$ m0 z3 M" A* K. w0 | CRTblDesc TblDesc; 5 K" {3 r9 p4 k //filled the structure CRTbiDesc with 0 V i6 m$ {" M& c memset((void *)&TblDesc,0,sizeof(CRTblDesc)); # Y) X5 L$ z3 \ //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); lstrcpy(TblDesc.szTblType,szPARADOX); / r7 O7 g, |, _7 P0 G7 g //set bPack to true to specify Pack Function TblDesc.bPack=true; //Pack the table . O$ A: K- Y, e$ J; H% A rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) : a0 _ O/ A0 `/ u% X9 q, A Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); } 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. void __fastcall TForm1:ackTable(AnsiString table_name) 8 [3 i$ s* M2 N7 A" J, u{ " ~7 k: U+ S7 f- } //Pack the table TTable *temp_table=new TTable(Form1); # b }2 c) }9 }$ Q' K' v temp_table->DatabaseName="YourDatabaseAlias"; / u6 P" w" Q3 {" W temp_table->TableName=table_name; 9 c I% b' f8 L! E% ? |2 L& A4 l temp_table->Exclusive=true; ' C( W7 B' y( X3 A, N9 ^# r temp_table->Open(); & M* g4 D. F5 b5 d8 U* S2 T+ ? //get the Database Handle / ~0 b! j& m: h: e% K8 ^" Z- s hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); " `; I7 f) K7 C9 k0 T2 M PackParadoxTable(hDB,table_name); ! O3 c8 @% b+ z( r temp_table->Close(); temp_table->Free(); } - J6 T' \# Z b: m/ s5 x 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。