如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete * M/ j, \7 w; x3 r2 O! D4 cMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox ) v9 q) m6 C. o$ c表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //This function Pack the Paradox table. write by zodiac : w! E0 Y1 y. r, ?void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) - B$ T% b& M, P{ 3 \' g3 N) X8 x0 V5 U2 I" e //Paradox table use a quite different way to be packed than / }! `( d7 Q( W* u8 J //DBase or Foxpro table, it use the DBiDoRestructure not the 6 o/ {! B) B8 |# R // DBiPackTable 7 X% J5 k% r7 `0 }; g* m DBIResult rslt; CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 0 f9 G3 r* }, H$ \+ P# L memset((void *)&TblDesc,0,sizeof(CRTblDesc)); 3 A7 z! M: a( c! j+ @# t //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); " u; \) b, X# w {2 F# W lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function TblDesc.bPack=true; " y) a, u4 f: r: [) Q //Pack the table : ^, O5 v2 |4 L) @- x rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); * }. y8 r. j ?9 L: h! {' S if(rslt!=DBIERR_NONE) 3 _* Y6 w9 N" g) }4 i Application->MessageBox("不能压缩表", t4 w- k8 r- j& g& G# O "压缩数据表出错",MB_ICONERROR); 3 D A6 U& }$ n8 _+ B} 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. . r! G8 ?2 ]3 f void __fastcall TForm1:ackTable(AnsiString table_name) + ?* m2 |; ^: N, G{ //Pack the table TTable *temp_table=new TTable(Form1); 2 o- I' j1 _0 H3 F/ W! A3 ~# ^ temp_table->DatabaseName="YourDatabaseAlias"; 4 c. v) M: k( k/ Y( ~1 W9 n temp_table->TableName=table_name; temp_table->Exclusive=true; temp_table->Open(); : M& \. [" Q. H3 r //get the Database Handle , P/ Z6 j( Q: _/ i4 I& ~ hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); PackParadoxTable(hDB,table_name); temp_table->Close(); 7 Y4 P3 v' I8 F4 g0 \/ r; ? temp_table->Free(); : J2 X* L+ R. |* b3 G h. w- x} 5 r6 w: R& [0 [0 d: V对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。