如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 Delete 5 a' u7 O( Y$ _; TMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 //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 . _/ i2 k) a4 v3 B, { ~9 M! o0 Y //DBase or Foxpro table, it use the DBiDoRestructure not the ( ?& P1 B' T& C4 L // DBiPackTable 5 e) M2 |. `( I8 b DBIResult rslt; , R! W/ t4 W1 S1 I8 r: X5 w CRTblDesc TblDesc; 9 ?% W; U* t0 p1 N! {7 `/ v* } //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); 1 l/ R5 _* F% _4 w0 S2 w& ^7 u //copy the table name and type to the structure 2 v6 N/ Z7 c0 \% ^0 E3 C lstrcpy(TblDesc.szTblName,TblName.c_str()); 7 R2 {( |. ], s7 e3 h$ h lstrcpy(TblDesc.szTblType,szPARADOX); - C: w* |/ ~. W3 ]- y; \4 b //set bPack to true to specify Pack Function TblDesc.bPack=true; //Pack the table rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); . z! p6 g2 c+ }& O if(rslt!=DBIERR_NONE) F1 A% U( n B/ j Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); ! h- U. O9 e% p$ D4 f6 g5 c} 9 _& `0 _8 a2 R4 `* M# X9 f注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. 5 n# j T% g! i) m/ Qvoid __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; temp_table->Open(); //get the Database Handle : m( O' [6 h' }3 C/ a hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); PackParadoxTable(hDB,table_name); " U! B+ v& v3 v1 z2 f) y * J9 ~7 @* ~/ G temp_table->Close(); ! I. T1 a- _- t! ]: ]* ]4 } temp_table->Free(); 6 W+ J$ ?: Q+ N} 4 ~' s6 n# c6 n9 _; S3 F0 l" o % f, c- X: E1 E5 {3 w对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。