如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 ) D% X4 f* I+ B$ bDelete ) v! }) a$ Z& {- KMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 3 {/ P4 s' W: r+ O+ ^( j表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 6 Q9 O1 L" \6 G9 D* b//This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) . q. v' m9 v7 W0 s5 N6 N5 K1 K{ //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the % m( K4 [' u* y // DBiPackTable 6 Z' C% }; {5 h# j1 V, z DBIResult rslt; CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); + I9 S! } a- o" p0 |' W //copy the table name and type to the structure 7 \( y' y V. D+ R. P. E lstrcpy(TblDesc.szTblName,TblName.c_str()); . Z; A; n. o% L* A6 _- ] lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function TblDesc.bPack=true; //Pack the table ; ^$ R7 [1 d7 K6 d6 f1 p$ V rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); } 0 a7 O" W" m" W+ h% p注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. * W6 [/ l) {5 R" }; ]( e void __fastcall TForm1:ackTable(AnsiString table_name) { / e5 I) ]4 E; F# P W9 w$ l //Pack the table TTable *temp_table=new TTable(Form1); $ [" ^+ o! v. j, D) I9 m temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; temp_table->Open(); //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); 6 ]" b, U; m* Y' x9 h: W/ S# n. u" g PackParadoxTable(hDB,table_name); temp_table->Close(); temp_table->Free(); } $ b1 z8 J6 `9 g7 S对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。