如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete $ N' @, L7 m" i0 Z1 DMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 2 K8 W/ e# C( F* h //This function Pack the Paradox table. write by zodiac . B* v4 Q$ y/ L W# b! Uvoid __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) { 8 o- A1 O& V( p. l1 P) N //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable DBIResult rslt; CRTblDesc TblDesc; //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); % X+ S" a2 N+ g8 Z; `3 s //set bPack to true to specify Pack Function # |( W, I2 H' _. T n- g5 N* Z% a TblDesc.bPack=true; //Pack the table rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); 1 z" t! c: |4 y& F4 f if(rslt!=DBIERR_NONE) + Q: y. O" v3 r. k Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); } . m0 W! W6 f# k4 o9 U注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. ; s4 n, l! o; @ N# @ " r% H+ ?$ k, J& H1 L- c% Pvoid __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table # }6 i/ `1 I$ K; z; x TTable *temp_table=new TTable(Form1); & }- L0 \' i0 U2 @6 C) @8 q: R z temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; : w6 b6 I9 i" t# B- Y temp_table->Exclusive=true; temp_table->Open(); ; q; E* y1 }% g, ?7 k) \1 h1 s //get the Database Handle , C$ I$ V o( T hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); " ?5 `: C# h: w' b0 \ PackParadoxTable(hDB,table_name); N& w0 E+ M, H5 t8 A temp_table->Close(); . [2 ?# I8 Q# _. l4 T3 V4 A9 { temp_table->Free(); } 0 s4 s6 A/ [( G* v8 z+ S4 i+ q, g对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。