如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete 1 y7 Y! e1 z% @ b. o' S1 s% RMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 0 Y5 A3 V! N3 a/ o9 R$ w! }4 E表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 * ~6 M$ }' z, M1 V+ w //This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { # l/ A% ?( B" ?' i //Paradox table use a quite different way to be packed than + g3 H! d% {( W' W, S0 D //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; CRTblDesc TblDesc; 1 ]% d x5 z4 U* F2 D' Q" L% P //filled the structure CRTbiDesc with 0 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); $ W" `$ p* }2 ?: c, @7 m7 m" s //set bPack to true to specify Pack Function TblDesc.bPack=true; //Pack the table 3 U# z* y1 N, N3 L1 G rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", " h v5 }( B+ z$ C8 y- I "压缩数据表出错",MB_ICONERROR); ) [; x& Y! h" X} . g. O! l8 ?0 _注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. - m9 M$ ?- N Y8 D3 r9 E void __fastcall TForm1:ackTable(AnsiString table_name) . ~; X) k' P' @% c w{ 5 r' d4 o: j' d/ Y. x5 b //Pack the table TTable *temp_table=new TTable(Form1); 3 k; l* I( Z6 c" Y! }+ C& O temp_table->DatabaseName="YourDatabaseAlias"; 4 Q! z C, c$ p5 t% X temp_table->TableName=table_name; 0 G6 }* S0 G9 O8 v temp_table->Exclusive=true; temp_table->Open(); //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); " B/ K: A0 ?* y$ X PackParadoxTable(hDB,table_name); & D5 E$ g: O9 P9 D4 F2 Z7 W temp_table->Close(); & A& C0 g) Y2 C4 {4 }" ] temp_table->Free(); 2 S2 j ?+ V& B6 G& _: |} 7 ` J2 F* W7 y 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。