📄 vcc12.htm
字号:
<html>
<head>
<title>c++系列</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td width=200 height="59">
</tr>
</tbody>
</table>
<table border=1 bordercolordark=#ffffff bordercolorlight=#ffffff cellpadding=0
cellspacing=0 width=685 align="center" height="70">
<tbody>
<tr>
<td bgcolor=#F9D23C height=14>
<div align=center class=H1> <b>如何给Table减肥 </b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=212> <br>
<font color="#000000" class="unnamed1">用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表档
大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会?这种现象，是因为TTable控件的 Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中佑蠵ack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox
表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 <br>
<br>
//This function Pack the Paradox table. write by zodiac <br>
void __fastcall TForm1::PackParadoxTable(hDBIDb hDB, AnsiString TblName)
<br>
{ <br>
//Paradox table use a quite different way to be packed than <br>
//DBase or Foxpro table, it use the DBiDoRestructure not the <br>
// DBiPackTable <br>
DBIResult rslt; <br>
CRTblDesc TblDesc; <br>
//filled the structure CRTbiDesc with 0 <br>
memset((void *)&TblDesc,0,sizeof(CRTblDesc)); <br>
//copy the table name and type to the structure <br>
lstrcpy(TblDesc.szTblName,TblName.c_str()); <br>
lstrcpy(TblDesc.szTblType,szPARADOX); <br>
//set bPack to true to specify Pack Function <br>
TblDesc.bPack=true; <br>
//Pack the table <br>
rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); <br>
if(rslt!=DBIERR_NONE) <br>
Application->MessageBox("不能压缩表","压缩数据表出错",MB_ICONERROR);
<br>
} <br>
注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. <br>
<br>
void __fastcall TForm1::PackTable(AnsiString table_name) <br>
{ <br>
//Pack the table <br>
TTable *temp_table=new TTable(Form1); <br>
temp_table->DatabaseName="YourDatabaseAlias"; <br>
temp_table->TableName=table_name; <br>
temp_table->Exclusive=true; <br>
temp_table->Open(); <br>
//get the Database Handle <br>
hDBIDb hDB=temp_table->DBHandle; <br>
temp_table->Close(); <br>
<br>
<br>
PackParadoxTable(hDB,table_name); <br>
<br>
temp_table->Close(); <br>
temp_table->Free(); <br>
} <br>
<br>
<br>
对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。 <br>
转载自编程联盟</font>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -