Delphi与Foxpro

sess 2000-04-23 10:26:00

对方数据库是Foxpro（土！！），我用BDE相连。
Form上摆上Table,datasource,dbgrid控件，一切连接完毕，
出来直接执行project1.exe发现只能启动9个程序，为什么不能
多于9个，我试过更改CONGIG文件等，无济于事，怎么办？
另外，我想读取FOXPRO数据库，不用DATASOURCE，和DBGRID
如果想读最新的，只能ACTIVE：=TRUE，ACTIVE：=FALSE，这样我感觉
效率不高，有没有其他的办法，谢谢！

...全文

199 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

江王 2000-05-24

打赏
举报

回复

推荐使用ADO来连接Foxpro数据库。

sess 2000-05-23

打赏
举报

回复

什么控件?

sess 2000-04-25

打赏
举报

回复

已经解决这个问题，是Inprise问题,不过我还寻求一个不通过BDE解决问题的方法

w102272 2000-04-25

打赏
举报

回复

找一些不使用BDE驱动的数据库访问控件吧

bpc 2000-04-24

打赏
举报

回复

用QUERY部件；
并将CACHEUPDATE属性设置为
TRUE；

hlbl11 2000-04-23

打赏
举报

回复

1\delphi早期版本不支持Foxpro的操作，必须经过ODBC，早期版本只能读标准DBASE数据库，而有的数据库进过FoxPro打开之后，文件头变化了一点，但Delphi就不能打开了.
2\自己用file编写直接读取FoxPro的过程或Function;
3\试过refresh方法码?

描述了Delphi操作DBF的用法，简单明了，

Delphi 将Foxpro表转换为Paradox表，可能不太常用，不过也算是一个简单的数据库格式转换程序吧，或许对编写数据库开发程序有些许帮助。注：本程序运行后会直接读取DBF文件，若DBF报表文件不存在，程序会弹出错误信息，若存在此文件，将直接转换为Paradox报表，转换代码如下：　　self.Table1.DatabaseName:='f:\';//定义待转换的路径　　self.Table1.TableName:='temp.DBF';待转换的报表数据库；　　self.Table2.DatabaseName:='f:\';转换后的路径；　　self.Table2.TableName:='new.db';转换后的报表新名称；　　self.Table2.TableType:=ttParadox; 　　self.BatchMove1.Source:=self.Table1; 　　self.BatchMove1.Destination:=self.Table2; 　　self.BatchMove1.Mode:=batCopy; 　　self.BatchMove1.Execute;

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

本书是“希望电脑COOL系列”图书之一。全书由两篇构成，本书结合在碍实例，给读者讲解了Borland Delphi 4.0和中文Visual FoxPro 6.0的编程方法和使用技巧。n 全书共分为14章，其中前8章用大约一半的篇幅向读者解说应用Delphi进行软件开发的一些实际例子，内容包括：基础编程、图形编程、菜单应用、对话框设置以及附加控件、Win 95控件、多媒体与定时器的应用等。后6章用同样的篇幅向读者介绍Microsoft Visual FoxPro 6.0中文版的数据库管理功能以及编程基础，介绍了VFP数据库与查询、VFP基础、建立报表与标签、制作菜单与表单、项目管理器和程序向导、程序生成器的应用等内容。全书把与软件的使用技巧有关的知识点融入到许多实际的例子中，使读者能够通过边学知识点边实践，理解两种软件的内部运行机制，从而进一步掌握使用我两种软件的方法。本书语言通俗易懂，介绍详细，图文并茂，是读者学习使用Delphi 4.0和Visual FoxPro 6.0的一本极具价值的参考书。我们相信，通过本书的学习，读者不仅可以掌握Delphi 4.0和Visual FoxPro 6.0的精髓，还可以从中找到适合自己的编程工具。本书所附光盘含与本书配套的电子图书，以及赠送的“FoxPro应用程序设计实战演练”多媒体学习软件。

Delphi 压缩、反删除dBase或FoxPro数据表实例的源码，PackTable过程给单个.dbf数据表作优化，undelete过程给单个.dbf数据表反删除，BatchPackTable给一个目录及其子目录下的所有.dbf数据库优化，Batchundelete给一个目录及其子目录下的所有.dbf数据库反删除，部分代码：　　Check(DbiGetCursorProps(table.Handle, CProps)); 　　 //取得数据表的属性　　if (StrIComp(CProps.szTableType, szDBASE) <> 0) then 　　 raise EDBEngineError.Create(DBIERR_NOTSUPPORTED); 　　 //如果不是Dbase或Foxpro则引起EDBEngineError 异常　　 rslt:=DbiValidateProp(hDBIObj(table.Handle), curSOFTDELETEON, True); 　　 //可否设置软删除　　if (rslt = DBIERR_NONE) then 　　 Check(DbiSetProp(hDBIObj(table.Handle), curSOFTDELETEON, Longint(true))); 　　 //设置为可以软删除　　 Check(DbiGetCursorProps(table.Handle, CProps)); 　　 //更新数据表的属性　　if (CProps.bDeletedOn = False) then 　　 raise EDatabaseError.Create('数据表没有软删除标志！'); 　　 //取得当前的记录位置　　 bm:=table.GetBookmark; 　　 //将游标移动到第一个记录以前。注意不是Table.First! 　　 Check(DbiSetTobegin(table.handle)); 　　 //不断移动，直到到数据表的最后记录　　while (DBIGETNEXTRECORD(table.handle,dbinolock,nil,nil)=DBIERR_NONE) do

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章