如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 : J$ s3 r8 s7 v3 U! K/ y: PDelete ' Z+ t: [# _- m1 V. V9 T& BMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox ( u8 E2 l0 R# [- j- x1 b表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 + G' P+ i) z: j: G' W# C 7 o' n( u3 E6 g9 ~5 t/ s//This function Pack the Paradox table. write by zodiac void __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) ( ?# n" J1 ]! o7 T{ ( X0 b0 h3 ]* Y& V* p //Paradox table use a quite different way to be packed than / ]" ~* y& p# {- X5 V# {4 x& f //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable p( U- j2 Y4 u; [* m DBIResult rslt; ' J9 q/ }7 N! U( l. h) x CRTblDesc TblDesc; 8 n$ B3 r% t+ s) Y5 i //filled the structure CRTbiDesc with 0 , j& X) o2 Z+ D3 S memset((void *)&TblDesc,0,sizeof(CRTblDesc)); //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); , ~, Z$ N: i8 |2 {$ n4 i H& [ lstrcpy(TblDesc.szTblType,szPARADOX); $ t* @/ ]3 F& I& T. I7 O //set bPack to true to specify Pack Function TblDesc.bPack=true; . v- f7 t6 _% Y+ H6 F7 H K) [ //Pack the table 9 C, D8 |! e: a2 n1 F& Q& P rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) - f. Y' S5 o% ^0 z* L Application->MessageBox("不能压缩表", 4 G7 e: L) J+ L* S3 E "压缩数据表出错",MB_ICONERROR); % a1 @3 k5 T+ I, [9 l} , B6 Y. b1 N9 [$ q注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. . M* v* e1 D" e. K I+ Ivoid __fastcall TForm1:ackTable(AnsiString table_name) { $ A( a5 l- o" q7 u7 |9 d1 J //Pack the table & b* s( T* Q# \ TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; 7 O$ b/ h. l) ^. Q temp_table->Open(); 6 [9 s: J# V$ E4 P: V" }. [0 V) N //get the Database Handle hDBIDb hDB=temp_table->DBHandle; 3 O6 d3 ]; U. } temp_table->Close(); PackParadoxTable(hDB,table_name); 5 i: D' U4 s3 W$ ?0 e 1 f3 b& Z; ~4 f; Y# @. @2 b5 Y- c temp_table->Close(); A, x- P, u) {$ s' } temp_table->Free(); ! R+ c3 r: v0 o% X5 h& I% T9 j} 5 _& j" r4 h l6 z J$ \ 7 ]5 U1 V5 \ Y9 e 6 Z, C$ Q3 E! n/ [& M+ _对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。