delphi query 存储为dbf_在Delphi程序中维护DBF数据库
下載本文示例代碼
p>
由于Delphi開發的易用性和快速 性，很多原來使用Foxpro和VisualFoxpro編程的程序員轉向了Delphi．但由于工作上或其它的原因，原來的應用系統尤其是應用數據，不可能被 一下丟棄，因而需要用Delphi來維護xBase數據庫的應用系統．本文總結了在工作和學習中的經驗，與廣大Delphi程序員和愛好者共享．
在下面討論中，主要應用了BDE的 函數．Delphi1.0沒有提供BDE函數的幫助文件，請參見Delphi\Doc中的DbiTypes.int、DbiProcs.int和DbiErrs.int三個文件；在Delphi3.0/4.0中可參見BDE幫助文件．本文 討論的DBF數據庫操作主要有：真正刪除記錄、顯示被刪除記錄、獲取當前記錄號、設置查詢匹配方式、恢復被刪除記錄．
一．真正刪除記錄
在Delphi程序中，用TTable 或TQuery構件的方法Delete執行刪除記錄的操作時執行的是軟刪除，即相當于Foxpro中的SetDeleteOff的效果，僅將記錄用星號*標記為刪除， 實際并沒有數據庫中進行物理上的刪除．要進行真正的刪除，需要進行Pack Table的操作．
在Delphi程序中真正刪除記錄， 需要調用BDE函數，函數名為DbiPackTable，函數原型為：
functionDbiPackTable(hDb:hDBIDb;hCursor :hDBICur;pszTableName:PChar;pszDriverType:PChar;bRegenIdxs
:Bool):DBIResult;
其中：hDb為數據庫TDatabse的句柄，
hCursor為數據表TTable的句柄，
pszTableName為要刪除記錄的數據表的名稱，
pszDriverType為要刪除記錄的數據表的類型，
bRegenIdxs表示是否在刪除記錄后自動更新索引文件．
在上面前四個參數中，hDb不能為NULL ．hCursor、pszTableName、pszDriverType可以為NULL，但必須提供足夠的信息來標識數據表的文件名稱和類型，當hCursor不為空時，pszTableName 和pszDriverType可以為NULL；當pszTableName為數據表的路徑和文件名時，hCursor和pszDriverType可以為NULL．
值得注意的是，在刪除記錄時，如 果用Table來實現，則Table必須以Exclusive=True的方式打開．下面就是一個典型的例子．
首先，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.{Pack一個DBF數據表,DbfTable包含了數據表的信息
}
functionPackDbf le(DbfTable:TTable):boolean;
var
errResult:DBIResult;
begin
ifnotDbfTable.Exclusivethen {如果不是以獨占方式,操作失敗}
begin
result:=false;
exit;
end;
{進行刪除操作}
errResult:=DbiPackTable(DbfTable.dbHandle, DbfTable.handle,NIL,NIL,true);
{根據返回結果,返回成功與否的標志}
iferrResult=DBIERR_NONEthen {沒有錯誤,操作成功}
result:=true
else{沒有錯誤,操作失敗}
result:=false;
end;
二．顯示或不顯示被軟刪除記錄
當DBF數據庫中 的記錄被軟刪除后，缺省情況下在TDBGrid等數據庫構件中是看不見這些 記錄的．我們可以用BDE函數來控制是否顯示DBF數據庫中被軟刪除的記錄，就象在Foxpro中利用語句SetDeleteON/OFF那樣．
要用到的函數名為DbiSetProp，函數原型為：
functionDbiSetProp(hObj :hDBIObj;iProp:Longint;iPropValue:Longint):DBIResult;
該函數用來設置DBI對象中某個 屬性的值.
其中：hObj為DBI對象名稱，我 們這里為數據表TTable的句柄；
iProp為屬性名稱，我們用的是軟刪除屬性curSOFTDELETEON；
iPropValue為屬性值，我們用True或False表示是否使軟刪除的記錄被顯示．
下面就是一個典型的例子．同樣，應在uses語句加上
DbiTypes,DbiProcs,DbiErrs.
{顯示DBF數據表中的軟刪除記錄,DbfTable包含了數據表的信息,DeleteOn表示是否顯示,True表示顯示}
functionSetDbfDelete(DbfTable:TTable;DeleteOn:boolean ):boolean;
var
errResult:DBIResult;
begin
result:=false;{操作失敗時,返回False}
{如果數據表沒有打開,則操作失敗}
if(notDbfTable.active)then
exit;
{進行設置顯示操作}
errResult:=DbiSetProp(hDBIObj(DbfTable.Handle), curSOFTDELETEON,LongInt(DeleteOn));
iferrResult=DBIERR_NONEthen{沒有錯誤,則操作成功 }
begin
result:=true;
DbfTable.refresh;
end;
end;
三．獲取當前記錄號
在用Foxpro 時,RecNo()函數用慣了，在Delphi程序沒有這樣的函數覺得別扭．下面我 們可以用BDE函數獲取當前記錄在數據集中的記錄號．
要用到的函數名為DbiGetRecord，函數原型為：
functionDbiGetRecord(hCursor :hDBICur;eLock:DBILockType;pRecBuff:Pointer;precProps:
pRECProps):DBIResult;
該函數用來取得當前記錄的一些屬性．
其中：hCursor可為數據集的Handle，
eLock為對記錄加鎖的類型，
pRecBuff存放記錄的緩沖區，
precProps為記錄屬性集．
下面就是一個典型的例子．同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{取得當前記錄的記錄號}
functionRecNo(ADbfTable:TTable):LongInt;
var
RecordProps:RecProps;
begin
Result:=0;{返回0表示函數執行失敗}
withADbfTabledo
begin{如果數據集處于非活動狀態,則執行失敗}
ifnot activethen
exit;
{使數據集的當前記錄與實際的當前記錄的位置一致 }
UpdateCursorPos;
{取得當前記錄的屬性,主要是記錄的位置}
ifDBIERR_NONE$#@60; DbiGetRecord(Handle,dbiNOLOCK,nil,@RecordProps)then
exit;{發生錯誤,則操作失敗}
Result:=RecordProps.iPhyRecNum; {取得記錄號}
end;
end;
四．設置查詢匹配方式(精確匹配/非精確匹配)
在用Foxpro時，Set ExactON/OFF對數據查詢影響很大．在Delphi中，我們同樣可以進行這樣的設置．要用到的函數名為DbiSetProp，這次用的屬性名稱iProp為curINEXACTON， 屬性值iPropValue為True或False，True表示SetExactOFF．
下面就是一個典型的例子．
同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{設置匹配方式，DbfTable包含了數據表的信息,ExactOn表示是否精確匹配,True表示是}
functionSetDbfExact(DbfTable:TTable;ExactOn:boolean) :boolean;
var
errResult:DBIResult;
begin
{如果沒有打開,則操作失敗}
if(notDbfTable.active)then
begin
result:=false;
exit;
end;
{進行設置顯示操作}
errResult:=DbiSetProp(hDBIObj(DbfTable.Handle), curINEXACTON,LongInt(notExactOn));
iferrResult=DBIERR_NONEthen {沒有錯誤,操作成功}
result:=true
else{發生錯誤,操作失敗}
result:=false;
end;
五．恢復被軟刪除的記錄
在Delphi應用程序中，對DBF數據表執行的刪除操作為軟刪除操作．由于物理記錄并沒 有從數據表中刪除，我們就可以恢復被軟刪除的記錄，只要去掉刪除標志即可．
要用到的函數名為DbiUndeleteRecord，函數原型為：
functionDbiUndeleteRecord (hCursor:hDBICur):DBIResult;
其中，hCursor可為數據集的Handle ．
下面就是一個典型的例子．
同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{恢復被軟刪除的記錄}
functionUndeleteRecord(DbfTable:TTable):boolean;
begin
Result:=false;
{返回false表示函數執行失敗}
withDbfTabledo
begin
{如果數據集處于非活動狀態,則執行失敗}
ifnotactivethen
exit;
{使數據集的當前記錄與實際的當前記錄的位置一致}
UpdateCursorPos;
{恢復被軟刪除的記錄}
ifDBIERR_NONEDbiUndeleteRecord(Handle)then
exit;{發生錯誤,操作失敗}
result:=true; {操作成功}
end;
end;
上面是Delphi操作DBF數據表的幾個常見例子，希望Delphi會給Delphi程序員帶來越來越多的方便，不會讓Delphi程序員感到約束．
p>
由于Delphi開發的易用性和快速 性，很多原來使用Foxpro和VisualFoxpro編程的程序員轉向了Delphi．但由于工作上或其它的原因，原來的應用系統尤其是應用數據，不可能被 一下丟棄，因而需要用Delphi來維護xBase數據庫的應用系統．本文總結了在工作和學習中的經驗，與廣大Delphi程序員和愛好者共享．
在下面討論中，主要應用了BDE的 函數．Delphi1.0沒有提供BDE函數的幫助文件，請參見Delphi\Doc中的DbiTypes.int、DbiProcs.int和DbiErrs.int三個文件；在Delphi3.0/4.0中可參見BDE幫助文件．本文 討論的DBF數據庫操作主要有：真正刪除記錄、顯示被刪除記錄、獲取當前記錄號、設置查詢匹配方式、恢復被刪除記錄．
一．真正刪除記錄
在Delphi程序中，用TTable 或TQuery構件的方法Delete執行刪除記錄的操作時執行的是軟刪除，即相當于Foxpro中的SetDeleteOff的效果，僅將記錄用星號*標記為刪除， 實際并沒有數據庫中進行物理上的刪除．要進行真正的刪除，需要進行Pack Table的操作．
在Delphi程序中真正刪除記錄， 需要調用BDE函數，函數名為DbiPackTable，函數原型為：
functionDbiPackTable(hDb:hDBIDb;hCursor :hDBICur;pszTableName:PChar;pszDriverType:PChar;bRegenIdxs
:Bool):DBIResult;
其中：hDb為數據庫TDatabse的句柄，
hCursor為數據表TTable的句柄，
pszTableName為要刪除記錄的數據表的名稱，
pszDriverType為要刪除記錄的數據表的類型，
bRegenIdxs表示是否在刪除記錄后自動更新索引文件．
在上面前四個參數中，hDb不能為NULL ．hCursor、pszTableName、pszDriverType可以為NULL，但必須提供足夠的信息來標識數據表的文件名稱和類型，當hCursor不為空時，pszTableName 和pszDriverType可以為NULL；當pszTableName為數據表的路徑和文件名時，hCursor和pszDriverType可以為NULL．
值得注意的是，在刪除記錄時，如 果用Table來實現，則Table必須以Exclusive=True的方式打開．下面就是一個典型的例子．
首先，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.{Pack一個DBF數據表,DbfTable包含了數據表的信息
}
functionPackDbf le(DbfTable:TTable):boolean;
var
errResult:DBIResult;
begin
ifnotDbfTable.Exclusivethen {如果不是以獨占方式,操作失敗}
begin
result:=false;
exit;
end;
{進行刪除操作}
errResult:=DbiPackTable(DbfTable.dbHandle, DbfTable.handle,NIL,NIL,true);
{根據返回結果,返回成功與否的標志}
iferrResult=DBIERR_NONEthen {沒有錯誤,操作成功}
result:=true
else{沒有錯誤,操作失敗}
result:=false;
end;
二．顯示或不顯示被軟刪除記錄
當DBF數據庫中 的記錄被軟刪除后，缺省情況下在TDBGrid等數據庫構件中是看不見這些 記錄的．我們可以用BDE函數來控制是否顯示DBF數據庫中被軟刪除的記錄，就象在Foxpro中利用語句SetDeleteON/OFF那樣．
要用到的函數名為DbiSetProp，函數原型為：
functionDbiSetProp(hObj :hDBIObj;iProp:Longint;iPropValue:Longint):DBIResult;
該函數用來設置DBI對象中某個 屬性的值.
其中：hObj為DBI對象名稱，我 們這里為數據表TTable的句柄；
iProp為屬性名稱，我們用的是軟刪除屬性curSOFTDELETEON；
iPropValue為屬性值，我們用True或False表示是否使軟刪除的記錄被顯示．
下面就是一個典型的例子．同樣，應在uses語句加上
DbiTypes,DbiProcs,DbiErrs.
{顯示DBF數據表中的軟刪除記錄,DbfTable包含了數據表的信息,DeleteOn表示是否顯示,True表示顯示}
functionSetDbfDelete(DbfTable:TTable;DeleteOn:boolean ):boolean;
var
errResult:DBIResult;
begin
result:=false;{操作失敗時,返回False}
{如果數據表沒有打開,則操作失敗}
if(notDbfTable.active)then
exit;
{進行設置顯示操作}
errResult:=DbiSetProp(hDBIObj(DbfTable.Handle), curSOFTDELETEON,LongInt(DeleteOn));
iferrResult=DBIERR_NONEthen{沒有錯誤,則操作成功 }
begin
result:=true;
DbfTable.refresh;
end;
end;
三．獲取當前記錄號
在用Foxpro 時,RecNo()函數用慣了，在Delphi程序沒有這樣的函數覺得別扭．下面我 們可以用BDE函數獲取當前記錄在數據集中的記錄號．
要用到的函數名為DbiGetRecord，函數原型為：
functionDbiGetRecord(hCursor :hDBICur;eLock:DBILockType;pRecBuff:Pointer;precProps:
pRECProps):DBIResult;
該函數用來取得當前記錄的一些屬性．
其中：hCursor可為數據集的Handle，
eLock為對記錄加鎖的類型，
pRecBuff存放記錄的緩沖區，
precProps為記錄屬性集．
下面就是一個典型的例子．同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{取得當前記錄的記錄號}
functionRecNo(ADbfTable:TTable):LongInt;
var
RecordProps:RecProps;
begin
Result:=0;{返回0表示函數執行失敗}
withADbfTabledo
begin{如果數據集處于非活動狀態,則執行失敗}
ifnot activethen
exit;
{使數據集的當前記錄與實際的當前記錄的位置一致 }
UpdateCursorPos;
{取得當前記錄的屬性,主要是記錄的位置}
ifDBIERR_NONE$#@60; DbiGetRecord(Handle,dbiNOLOCK,nil,@RecordProps)then
exit;{發生錯誤,則操作失敗}
Result:=RecordProps.iPhyRecNum; {取得記錄號}
end;
end;
四．設置查詢匹配方式(精確匹配/非精確匹配)
在用Foxpro時，Set ExactON/OFF對數據查詢影響很大．在Delphi中，我們同樣可以進行這樣的設置．要用到的函數名為DbiSetProp，這次用的屬性名稱iProp為curINEXACTON， 屬性值iPropValue為True或False，True表示SetExactOFF．
下面就是一個典型的例子．
同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{設置匹配方式，DbfTable包含了數據表的信息,ExactOn表示是否精確匹配,True表示是}
functionSetDbfExact(DbfTable:TTable;ExactOn:boolean) :boolean;
var
errResult:DBIResult;
begin
{如果沒有打開,則操作失敗}
if(notDbfTable.active)then
begin
result:=false;
exit;
end;
{進行設置顯示操作}
errResult:=DbiSetProp(hDBIObj(DbfTable.Handle), curINEXACTON,LongInt(notExactOn));
iferrResult=DBIERR_NONEthen {沒有錯誤,操作成功}
result:=true
else{發生錯誤,操作失敗}
result:=false;
end;
五．恢復被軟刪除的記錄
在Delphi應用程序中，對DBF數據表執行的刪除操作為軟刪除操作．由于物理記錄并沒 有從數據表中刪除，我們就可以恢復被軟刪除的記錄，只要去掉刪除標志即可．
要用到的函數名為DbiUndeleteRecord，函數原型為：
functionDbiUndeleteRecord (hCursor:hDBICur):DBIResult;
其中，hCursor可為數據集的Handle ．
下面就是一個典型的例子．
同樣，應在uses語句加上：
DbiTypes,DbiProcs,DbiErrs.
{恢復被軟刪除的記錄}
functionUndeleteRecord(DbfTable:TTable):boolean;
begin
Result:=false;
{返回false表示函數執行失敗}
withDbfTabledo
begin
{如果數據集處于非活動狀態,則執行失敗}
ifnotactivethen
exit;
{使數據集的當前記錄與實際的當前記錄的位置一致}
UpdateCursorPos;
{恢復被軟刪除的記錄}
ifDBIERR_NONEDbiUndeleteRecord(Handle)then
exit;{發生錯誤,操作失敗}
result:=true; {操作成功}
end;
end;
上面是Delphi操作DBF數據表的幾個常見例子，希望Delphi會給Delphi程序員帶來越來越多的方便，不會讓Delphi程序員感到約束．
下載本文示例代碼
在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫在Delphi程序中維護DBF數據庫
閱讀(38) | 評論(0) | 轉發(0) |
總結
以上是生活随笔為你收集整理的delphi query 存储为dbf_在Delphi程序中维护DBF数据库的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： opencv轮廓周长原理_OpenCV3
- 下一篇： fedora yum mysql_Fed