如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //This function Pack the Paradox table. write by zodiac & `7 {8 c, k- }$ Q+ p2 p: z1 k1 ?void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) # c3 Y7 s3 N/ ~- O; L+ S3 _{ //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; . w- o4 _9 B: ]8 m7 q# a //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); : ~& E \2 P& O+ W4 g- N& B1 \1 T //copy the table name and type to the structure , F1 h6 l" P6 Z. j0 t2 J2 W+ L [ lstrcpy(TblDesc.szTblName,TblName.c_str()); lstrcpy(TblDesc.szTblType,szPARADOX); t* T2 w# z0 d# F) J/ D/ \ //set bPack to true to specify Pack Function ' T: N# T: R& Z8 T# C) F) x5 u TblDesc.bPack=true; //Pack the table rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); 0 r) g' P' X+ U+ g5 Y if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", $ H; y x" N3 R5 s3 U& q+ b "压缩数据表出错",MB_ICONERROR); } 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. $ C5 m% ]0 x( o6 A $ A3 E6 p R/ L0 [: X$ G# n, {void __fastcall TForm1:ackTable(AnsiString table_name) # `; {3 V. X `4 p+ j- y3 u) R: j{ //Pack the table 8 E4 n8 L. W) v" m/ ^% G p TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; 6 W% H) \: p; S$ I% N/ p temp_table->TableName=table_name; temp_table->Exclusive=true; 5 |! _1 `9 ]/ E% n" O, K temp_table->Open(); //get the Database Handle 4 N9 y% Y3 e& d g5 Z1 l hDBIDb hDB=temp_table->DBHandle; 8 r7 F/ O. T) W( r* r5 m0 i temp_table->Close(); 4 P9 H, Z4 P1 j- n! X+ l+ D : b3 Z4 ?0 U, w6 Q: p/ u' [ PackParadoxTable(hDB,table_name); temp_table->Close(); ' |8 {2 d6 y) p+ K temp_table->Free(); " X6 e* g d& Q6 v} $ |6 A7 O) m+ J1 T( Q 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。