如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 8 v" R% f0 c: ^% P" N+ PDelete 8 W& g$ N! ]( B9 b/ N& t% T' e8 ?Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox " e/ J* {* Z! k/ I8 T( L表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 : D3 L8 [0 c- ~. ?) _1 \& \- H& h//This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { 8 D# W1 E2 o1 Q1 n# }) p //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; * Z; S$ L2 q8 V; v q! Q CRTblDesc TblDesc; ; |: ?$ M2 ~. b" f //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); ! Y: w1 N5 X& r) [) V T9 w //copy the table name and type to the structure & Q0 x; Y8 U& {+ g, A lstrcpy(TblDesc.szTblName,TblName.c_str()); lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function * Z% C- ]* c6 x" i" e TblDesc.bPack=true; //Pack the table ! p1 q5 k& v. |# c$ X1 I; Z4 o; C rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", & w/ }( t1 X* l. S "压缩数据表出错",MB_ICONERROR); } 4 b7 I: e4 C" V3 `0 M7 k注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. % m( C$ f7 L T" i: @1 ~! f5 \ void __fastcall TForm1:ackTable(AnsiString table_name) 6 Q: Z2 h: r* k2 l{ , H- t4 m; c8 U( x" n$ J //Pack the table TTable *temp_table=new TTable(Form1); ( B8 w5 y8 z& w" V, w& n$ ~ temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; ) q( }+ r& R! t9 X0 C! ]( z temp_table->Open(); 2 ^" W/ A- D+ f //get the Database Handle ' L/ M) T8 o* z. I, o hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); PackParadoxTable(hDB,table_name); $ D7 F8 Z4 |5 @) a! T( w; Y3 |; L . Q3 f: v: W+ F* h2 R temp_table->Close(); temp_table->Free(); ; x! X* d# i7 N} , V0 C( I( `& P! C( O9 f/ B * X6 c8 E* H, o2 `对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。