?? 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 + -