先用:ExtractFilePath(ParamStr(0))获得当前可执行文件的路径,后边加上数据库的相对路径即可,如:ExtractFilePath(ParamStr(0))+'Test\Test.db'
