下午餐要交程序，怎么读取当前目录中的db数据库文件！急急

Question

直接赋文件名
Table.TableName='.\data\1.db'
或用一个TDataBase控件,对Data目录创建一个别名，将Table和DataBase连接起来.

Answer 1

你只要在Table的DataBaseName直接寫入你存放數据庫文件的路徑就可以了,很簡單.

Answer 2

动态创建别名：
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    with MyList do
    begin
      Add('PATH=data');
      Add('DEFAULT DRIVER=PARADOX')
    end;
    Session1.AddAlias('NewAlias', 'STANDARD', MyList);
  finally
    MyList.Free;
  end;
end; 
动态设置控件属性：
  Database1.loginprompt := false; 
  Database1.param.add（'username = '）；
  Database1.param.add（'password = '）；
  Database1.AliasName:='NewAlias'
  Database1.DatabaseName:='mast';
  Database1.connected;
  Table1.DatabaseName:='mast';
  Table1.TableName='1.db'
  table1.open;

Answer 3

table控件databasename设为.\data取代你原来的databasename就可以了。