Alias - Código

Se Estiver utilizando o Access ou Paradox nem rpecisa de Alias!! É só colocar o banco no mesmo diretório do executável!

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;