如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 7 r& N: K. h p }* oDelete 0 P# U! H5 I0 ~9 m7 o6 lMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 0 H. G/ f5 r. @) y6 r% S表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 3 R7 r- w; y3 D: y9 u. Y9 m5 w. W5 w# l i//This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the ! u Z2 U) W/ \1 R: a+ z) r // DBiPackTable U; Q7 l( \! d. o; Y DBIResult rslt; CRTblDesc TblDesc; : h$ r' F. ^3 I. o) S //filled the structure CRTbiDesc with 0 - g# z. H7 o: ^' H* ] memset((void *)&TblDesc,0,sizeof(CRTblDesc)); //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); : q: H+ `7 s: s7 D f0 _. Q" g lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function 4 P3 L* x& I% C- U$ L; f9 L TblDesc.bPack=true; . p O' a; K6 z: [ //Pack the table - j7 C/ O+ Q) N. t5 {& J$ y8 {4 R f4 ` rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); ( ?7 D9 K" R$ h+ C2 h$ M) [6 s, } if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", ' ~$ y: d+ L0 ~$ k4 P( a+ O "压缩数据表出错",MB_ICONERROR); . g N* r/ [/ P3 d. j} ) W: Q7 {, g) ^. [! D, e. B/ c注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. ( q* p) a9 p0 Y5 g6 U6 d- h void __fastcall TForm1:ackTable(AnsiString table_name) ) `1 d3 a8 F5 |2 p- h! M{ //Pack the table ! R4 C6 Y- U4 M3 B6 \ TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; " ^/ s; U/ _( V- Y2 O temp_table->Exclusive=true; temp_table->Open(); , S {- `- h' I3 | //get the Database Handle ' g$ |: N ? D" b6 S hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); 5 ]. {4 j3 {$ l6 T+ K PackParadoxTable(hDB,table_name); # I+ ^" K8 K$ m4 U' G, \( }4 |3 f temp_table->Close(); 3 e: ^2 g9 X: G. `. f$ f temp_table->Free(); 1 L, {) s/ v/ |$ N, a} ! t3 g( U K! S0 Q 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。