TDBF控件使用心得

 

近期需要用到delphi对DBF文件进行操纵，下载了一个TDBF控件，顺便把心得放在这里。

 

//打开并设置相关DBF数据表，返回值1为正常，0为失败
function TFormSjtj.setDBFFileData(DBFFileName:string;DBFindexFileds:string):integer;
var
  filenameLength:integer;
begin
  if openDBF.Execute then  //找到DBFFileName文件
    begin
      filenameLength := pos(DBFFileName,openDBF.FileName);
      if filenameLength>0 then //判断找到的文件是否是ksxxcj.dbf
       begin
         //打开DBFFileName文件
         dm_sjtj.Dbf_open.FilePathFull := copy(openDBF.FileName,1,filenameLength-2);
         dm_sjtj.Dbf_open.TableName := DBFF