delphi查询foxpro的dbf表

最近发现delphi做真是太方便了,控件就向天上的星星一样多,delphi只有想不到的没有做不到的,

做了个操作dbf表的小东西

发现用        delphi 真是太简单了,用Memo1书写查询sql语句

首先建立工程

delphi-sql-dbf

delphi-sql-dbf

建立form

然后添加如下控件

edtDir: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
DBGrid1: TDBGrid;
Button2: TButton;
DataSource1: TDataSource;
Table1: TTable;
Query1: TQuery;
Memo1: TMemo;

最后设置数据源

 

DataSource1设置数据源Query1

DBGrid1设置数据源DataSource1

设置按钮单击事件

if opendialog1.Execute then
edtDir.text:=opendialog1.FileName;
dbdir:=ExtractFileDir(opendialog1.FileName);
dbname:=extractfilename(opendialog1.FileName);
dbname:=copy(dbname,1,(length(dbname)-4));
memo1.Lines.Clear;
memo1.Lines.Add(‘select * from ‘+dbname+’.dbf’);

查询按钮单击事件
with query1 do
begin
if active then active:=false;
Databasename:=dbdir;
showmessage(Databasename);

sql.Text:=memo1.Lines.Text;
open;
datasource1.DataSet:=query1;

end;

最后编译运行,成功查询dbf表的数据

 » 转载请注明来源:网络蛀虫小窝 » 《delphi查询foxpro的dbf表》
 » 本站地址:http://www.gomoth.com

标签: