📄 20000806010.htm

📁 C++Builder教学大全
💻 HTM
字号:
<HTML>

<HEAD>



<TITLE>如何给Table减肥</TITLE>



<META content="MSHTML 5.00.2314.1000" name=GENERATOR>

</HEAD>

<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0 

vLink=#990099>



<div align="center">

  <table width="744" border="0" cellspacing="0" cellpadding="0" height="76">

    <tr> 

      <td> 

        <p align="center"><span style="FONT-SIZE: 9pt"><strong><font size="3"><br>

          如何给Table减肥</font></strong></span></p>

        <p>用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表档 大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会出现这种现象，是因为TTable控件的 

          Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中用Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox 

          表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。&nbsp;<br>

          <br>

          //This function Pack the Paradox table. write by zodiac&nbsp;<br>

          void __fastcall TForm1::PackParadoxTable(hDBIDb hDB, AnsiString TblName)&nbsp;<br>

          {&nbsp;<br>

          //Paradox table use a quite different way to be packed than&nbsp;<br>

          //DBase or Foxpro table, it use the DBiDoRestructure not the&nbsp;<br>

          // DBiPackTable&nbsp;<br>

          DBIResult rslt;&nbsp;<br>

          CRTblDesc TblDesc;&nbsp;<br>

          //filled the structure CRTbiDesc with 0&nbsp;<br>

          memset((void *)&amp;TblDesc,0,sizeof(CRTblDesc));&nbsp;<br>

          //copy the table name and type to the structure&nbsp;<br>

          lstrcpy(TblDesc.szTblName,TblName.c_str());&nbsp;<br>

          lstrcpy(TblDesc.szTblType,szPARADOX);&nbsp;<br>

          //set bPack to true to specify Pack Function&nbsp;<br>

          TblDesc.bPack=true;&nbsp;<br>

          //Pack the table&nbsp;<br>

          rslt=DbiDoRestructure(hDB,1,&amp;TblDesc,NULL,NULL,NULL,false);&nbsp;<br>

          if(rslt!=DBIERR_NONE)&nbsp;<br>

          Application-&gt;MessageBox(&quot;不能压缩表&quot;,&quot;压缩数据表出错&quot;,MB_ICONERROR);&nbsp;<br>

          }&nbsp;<br>

          注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable.&nbsp;<br>

          <br>

          void __fastcall TForm1::PackTable(AnsiString table_name)&nbsp;<br>

          {&nbsp;<br>

          //Pack the table&nbsp;<br>

          TTable *temp_table=new TTable(Form1);&nbsp;<br>

          temp_table-&gt;DatabaseName=&quot;YourDatabaseAlias&quot;;&nbsp;<br>

          temp_table-&gt;TableName=table_name;&nbsp;<br>

          temp_table-&gt;Exclusive=true;&nbsp;<br>

          temp_table-&gt;Open();&nbsp;<br>

          //get the Database Handle&nbsp;<br>

          hDBIDb hDB=temp_table-&gt;DBHandle;&nbsp;<br>

          temp_table-&gt;Close();&nbsp;<br>

          PackParadoxTable(hDB,table_name);&nbsp;<br>

          temp_table-&gt;Close();&nbsp;<br>

          temp_table-&gt;Free();&nbsp;<br>

          }&nbsp; <br>

          <br>

          对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。</p>

    </td>

    </tr>

  </table>

 

</div>

</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -