Delphi 编程去掉dbf的删除标记

infrasys 发表于 2009-09-01 22:03

数据库为dbf文件，
数据记录被逻辑删除，做上del标记。
SQL2000访问不了带有删除标记的记录。
请问我该如何操作才能访问带有删除标记的记录，
delphi中用ADO操作。

diepics 发表于 2009-09-02 13:02

显示或不显示被软删除记录

---- 当DBF 数据库中的记录被软删除后，缺省情况下在TDBGrid 等数据库构件中是看不见这些记录的．我们可以用BDE 函数来控制是否显示DBF 数据库中被软删除的记录，就象在Foxpro 中利用语句 Set Delete ON/OFF 那样．

      要用到的函数名为DbiSetProp，函数原型为
            function DbiSetProp ( hObj : hDBIObj; iProp : Longint; iPropValue : Longint): DBIResult;

---- 该函数用来设置DBI 对象中某个属性的值.
            其中,hObj 为DBI 对象名称，我们这里为数据表TTable 的句柄；
                                 iProp 为属性名称，我们用的是软删除属性curSOFTDELETEON；
                                 iPropValue 为属性值，我们用True 或False 表示是否使软删除的记录被显示．

      下面就是一个典型的例子．
　同样，应在uses 语句加上DbiTypes,DbiProcs,DbiErrs.

{显示DBF数据表中的软删除记录,DbfTable包含了数据表的信息,DeleteOn 表示是否显示,True表示显示 }
function SetDbfDelete( DbfTable : TTable ; DeleteOn : boolean ) : boolean;
var
   errResult : DBIResult;
begin
         result := false; {操作失败时,返回False }

         {如果数据表没有打开,则操作失败 }
         if ( not DbfTable.active ) then
               exit;

         {进行设置显示操作 }
         errResult := DbiSetProp( hDBIObj(DbfTable.Handle), curSOFTDELETEON,LongInt( DeleteOn ));
         if errResult = DBIERR_NONE then {没有错误,则操作成功 }
         begin
                        result := true;
                        DbfTable.refresh;
         end;
end;

页: [1]

Chinaunix's Archiver

Delphi 编程去掉dbf的删除标记

显示或不显示被软删除记录