大家帮帮我(线等) ( 积分: 60 )

我在做一个图书管理系统,有delphi自带的database desktop做paradox数据库,存入在database 目录下共多个表,在每个设计模块中都有类似的代码?
如在新书入库模块中有一增加图书过程这样写:
procedure TfrmBookIn.InsBook(Code: string);
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
[red]Query.DatabaseName := DBName;[/red]
Query.SQL.Add('insert into book(Code,Name,Class,Author,Concern,OutDate,Cost,Memo)'+
' values Code,:Name,:Class,:Author,:ConCern,:OutDate,:Cost,:Memo)');
Query.ParamByName('Code').AsString := Code;
..........
..........
请问红色的部分是怎么连接到数据库的?
另外在uPublic中定义了var
DBName : string=''; //数据库路径
为什么数据库路径为空串,程序却能正常运行?
跪求!!!!!!!

我在做一个图书管理系统,有delphi自带的database desktop做paradox数据库,存入在database 目录下共多个表,在每个设计模块中都有类似的代码?
如在新书入库模块中有一增加图书过程这样写:
procedure TfrmBookIn.InsBook(Code: string);
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
[red]Query.DatabaseName := DBName;[/red]
Query.SQL.Add('insert into book(Code,Name,Class,Author,Concern,OutDate,Cost,Memo)'+
' values Code,:Name,:Class,:Author,:ConCern,:OutDate,:Cost,:Memo)');
Query.ParamByName('Code').AsString := Code;
..........
..........
请问红色的部分是怎么连接到数据库的?
另外在uPublic中定义了var
DBName : string=''; //数据库路径
为什么数据库路径为空串,程序却能正常运行?
跪求!!!!!!!

红色的部分就是将你的query连接到数据库，因为你将一个query的databasename设定了就将它连接到数据库了。DBname：string＝‘’是说明你的库表和你的工程在同一目录底下。

并不是这样子啊,我的文件结构是这样的。图书管理系统文件夹下入DATABASE文件夹，数据库在DATABASE方件夹下。
DBNAME是不是设是别名？

那你的dbname就不能直接为空dbname＝‘database’;
dbname只是一个路径而已，你的程序运行有什么问题吗？

少写了：

运行没有问题

不是吧,一定有问题,要写绝对路径

接受答案了.