如何设数据库相对地址？(30分)

我得数据库程序只能在本地机运行，用的是ado＋access，我只会在程序中指定固定access地址，
如何将adocenection的access地址设为相对的，例如设为和程序同一目录下。

谢谢了

例子如下：
G_AppDirect:=ExtractFilePath(Application.ExeName);//应用程序目录全局变量
ss:=G_AppDirect+'????.mdb'; //????.mdb是具体的数据库文件名
ConnectString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ss+';Persist Security Info=False';
//设定连接数据库为应用程序目录下的数据库????.Mdb
Connect.Connected:=false; //Connect是TAdoConnection控件
Connect.ConnectionString :=ConnectString;
try //连接数据库
Connect.Connected :=true;
except
Application.MessageBox('连接系统库中的数据库位置错误，请确定本系统安装目录下的????.mdb文件是否存在！','提示信息',0);
exit;
end;

太easy了，呵呵

HunterTeam说的比较详细了，我就不说了

同HunterTeam

ok

怎么不行？提示 Undeclared undentifier :'Application';

???????

我搞定的时间也不长，可能有点乱，但是我自己写的，
拉出来溜溜：）
不要见笑：）
大侠们提提意见：）

procedure TuData.DataModuleCreate(Sender: TObject);
var
guserid :string;
ginitialcatalog :string;
gdatasource :string;
begin
with TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini') do
begin
Try
｛在ini文件中读取字符串｝
guserid := ReadString('DbLocal','UserID','sa');
ginitialcatalog := Readstring('DbLocal','InitialCatalog','document');
gdatasource := Readstring('DbLocal','Datasource','jzf');
Finally
Free;
End;
end;
with udata do
begin
ADOConn.LoginPrompt:=false;
Adoconn.connectionstring := 'Provider=SQLOLEDB.1;'+
'Persist Security Info=False;'+
'User ID='+guserid+';'+
'Initial Catalog='+ginitialcatalog+';'+
'Data Source='+gdatasource+';';
Adoconn.connected := true;
end;
with udata.adoquerytemp do
begin
close;
sql.Clear;
sql.Add('select cli_id as 列号,title as 标题 from Cliinfo ');
open;
end;

end;

end.

ExtractFilePath(Application.ExeName) 在这里出现问题

提示 Undeclared undentifier :'Application';
ExeName也是 undentifier

是不是需要use 其他的 unit????

不要在ini文件中找，到注册表中找。
这是我在网上找到的，可以运行。

注册表可以通过注册表编辑器（开始®运行regedit）进行添加、修改、删除及注册表文件的导入导出等一系列操作。一般的软件都会向注册表中写东西，但要想知道具体内容也不是一件轻而易举的事。以前有人报道过利用命令fc来实现注册表文件的比较。具体方法是首先导出一个注册表文件reg1.reg，当进行一些操作（如装入一个新软件，或修改了某些设置）后再导出另一个注册表文件reg2.reg，在DOS下执行fc d:/ reg1.reg d:/ reg2.reg > d:/ reg3.txt命令，即可从reg3.txt中将注册表的变化轻松暴露出来。该方法比较实用，但美中不足的是在MS—DOS方式下，执行此命令没有问题，但在开始菜单的运行命令中执行此命令时，MS—DOS提示“太多的文件名（FC: too many filenames）”，即在此种情况下，无法将比较结果重定向到文件中。对该命令进行修改，在其前加上command或command.com命令，带参数/c或/k，即为Command /k fc d:/ reg1.reg d:/ reg2.reg > d:/ reg3.txt或Command /c fc d:/ reg1.reg d:/ reg2.reg > d:/ reg3.txt，前一命令表示执行完该命令后保留MS—DOS窗口，等待下一个命令执行，而后一个命令则表示执行完该命令后关闭MS—DOS窗口。采用这种方式的命令会使你更加得心应手，而且可将此方法应用到别的MS—DOS命令上。当然你还可以用API函数WinExec、ShellExecute将其包装起来，便于使用。
利用此种方法可以很容易的得到你想知道的注册表内容，为你的Windows应用助一臂之力，下面举一个实例说明。笔者在开发一套管理信息系统时，以Win98作为开发环境，采用Delphi 5和SQL Server 7桌面版作为开发语言，以ODBC (开放式数据库连接)数据源进行连接。该方式可运行在NT环境，也可跑于Win98对等网中，前者性能稳定，后者价格便宜，具体配置随用户需求而定。
大家知道，ODBC是数据库服务器的一个标准协议，它向访问网络数据库的 Windows 应用程序提供了一种通用的语言。您可以对多种数据库安装 ODBC 驱动程序，用来连接数据库并访问它们的数据。ODBC 驱动程序管理器使用的 ODBC 驱动程序允许访问 SQL 服务器以及其它几个数据源，包括正文文件和 Microsoft Excel 电子数据表。Borland的Delphi是广大程序员钟爱的一种编程语言，它为数据库编程提供了专门的接口BDE（Borland Database Enginge），由于ODBC的广泛应用，Delphi对ODBC数据源也提供了很好的支持。ODBC具有很大的灵活性，作为一个商用系统，不能让用户自己去手工配置ODBC，这对很多人来说，有一定难度。因此系统中附加了一个应用程序，在该程序中直接写注册表来配置ODBC数据源。
具体做法是，在窗体上放置两个单选钮（rbtn_server、rbtn_local）和两个文本框（edt_Server、edt_database），单选钮用来选择数据库是存放在服务器还是在本地，文本框用来输入服务器名称和数据库名称。若数据库存放在服务器上，则服务器名称文本框激活；若是在本地，则处于失活状态。 至于注册表中具体要写入那些项，可以这样做。先在控制面板ODBC DateSource中配置一个SQL Server数据源，然后在注册表编辑器中利用查找功能查找该数据源，将查找到的主键、键值和数据，在程序中写入注册表即可。这样做好的配置有时会有一些问题，因为SQL Server数据源配置时选择的缺省协议是Named Pipe，而采用Win98对等网连接SQL Server桌面版则需使用TCP/IP协议。如果采用应用程序配置好ODBC数据源后，还需要手工调整连接协议，那就不大合适了。但如何找到该选择项的注册表键值呢？显然采用查找的办法是不行了，这就得用到本文前面所说是比较注册表的方法了。先用控制面板将SQL Server数据源配成Named Pipe协议，导出一个注册表文件reg1.reg，再配成TCP/IP协议，导出另一个注册表文件reg2.reg，用Command /c fc d:/ reg1.reg d:/ reg2.reg > d:/ reg3.txt得到比较结果。从reg3.txt中可以很明显的找到所需要的注册表键值，即：

HKEY_LOCAL_MACHINE/ SOFTWARE/microsoft/MSSQLServer/Client/ConnectTo下
"DSQUERY"="DBMSSOCN"
"."="DBNMPNTW,////.//pipe//sql//query"
和
"DSQUERY"="DBMSSOCN"
"."="DBMSSOCN,.,1433"（本地）或
" servername "="DBMSSOCN,servername,1433"（servername服务器）
说到这里，一个完整的SQL Server ODBC数据源就大功告成了。
　　
附源程序于后：
procedure Tfrm_main.btn_ODBCConfClick (Sender: TObject);
var
RegF: TRegistry;
AliasName: string;
AliasPara: string;
mybuffer : pchar;
x: longint;
mysyspath: string;
myservername: string;
myservernameVal: string;
begin
try //配置ODBC yy为ODBC数据源名称
RegF := TRegistry.Create ;
try
RegF.RootKey := HKEY_LOCAL_MACHINE;
begin
RegF.OpenKey('SOFTWARE/ODBC/ODBC.INI/yy',true);
RegF.Writestring('AnsiNPW', 'No');
RegF.Writestring('Database', trim(edt_database.text));
RegF.Writestring('Description', '医疗保健信息综合管理系统');
try //得到sqlsrv32.dll路径
mybuffer := allocmem(255);
x := GetSystemDirectory(mybuffer, 255);
mysyspath := string(mybuffer);
freemem(mybuffer);
mysyspath := mysyspath+'/sqlsrv32.dll';
except
mysyspath := 'C:/WINDOWS/SYSTEM/sqlsrv32.dll';
end;
RegF.Writestring('Driver', mysyspath);
RegF.Writestring('LastUser', 'Sa');
RegF.Writestring('QuotedId', 'No');
if rbtn_server.Checked = true then
begin
myservername := trim(edt_server.text);
end
else
begin
myservername := '(local)';
end;
RegF.Writestring('Server', myservername);
RegF.Closekey;
RegF.OpenKey('SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources', true);
RegF.Writestring('yy', 'SQL Server');
RegF.Closekey;
RegF.OpenKey('SOFTWARE/microsoft/MSSQLServer/Client/ConnectTo', true);
if rbtn_server.Checked = true then
begin
myservername := trim(edt_server.text);
end
else
begin
myservername := '.';
end;
myservernameVal := 'DBMSSOCN,'+myservername+',1433';
RegF.Writestring(myservername, myservernameVal);
end;
finally
RegF.Closekey;
RegF.Free ;
Application.MessageBox('配置ODBC成功！', '配置ODBC', MB_ICONINFORMATION +MB_OK);
end;
except
Application.MessageBox('配置ODBC不成功！', '配置ODBC', MB_ICONINFORMATION+MB_OK);
end;
end;

多人接受答案了。