电焊机黄灯亮怎么维修:相对路径(delphi)

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 13:28:17
请问,怎么样才能让程序无论在哪台机子都可以正确的保存和读取数据
我用了ADOconnection,ADOquery和DATAsource三个控件。。。
怎么把程序数据库路径设置成相对路径???
用到的地方比较多。近量提供一种简单一点的方法。我用的是ACCESS数据库

假设你的数据库和程序在同一目录里
数据库的名称叫abc.mdb

在主窗体的OnCreate事件里写

procedure TForm1.FormCreate(Sender:TObject);
begin
SetCurrentDir(ExtractFilepath(Application.ExeName));
AdoConnection1.Close;
AdoConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb;Persist Security Info=False';
AdoConnection1.Open;
end;

如果用到的地方多,那就把这段代码写成一个过程
方便随时调用