Criando Alias de Banco de Dados no código

Exemplo para arquivo .dbf e .db :
1. Crie um novo projeto.
2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.
3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor.
4. Configure o Database Name para 'MeuAlias' .
5. Selecione 'STANDART' para Drive Name.
6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros.
7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.
8. Clique no botão OK para fechar a caixa de diálogo.
9. Configure a proporiedade DatabaseName do Ttable para 'MeuAlias'.
10.Configure a proporiedade Dataset do TDatasource para 'Table1'.
11.Configure a proporiedade DataSource do Tdbgrid para 'Datasource1'.

12.Coloque o seguinte código no evento Onclick do TButton:

Procedure TForm1.Button1Click(Sender:Tobjetc);

begin

Table1.TableName := 'CUSTOMER';

Table1.Active := true;

End;

Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:

Procedure TForm1.Button1Click(Sender:Tobjetc);

begin

Database1.DataBaseName := 'MeuAlias';

Database1.DriverName := 'STANDART';

Database1.Params.Clear;

Database1.Params.Add('PATH=C:\DELPHI\DEMOS\DATA');

Table1.DatabaseName := 'MeuALias';

Table1.TableName := "CUSTOMER'

Table1.Active := true;

DataSource1.Dataset := Table1;

DBGrid1.DataSource := Datasource1;

End;