Fórum Conectando no alias #329954

Ola pessoa estou aqui mais uma vez com um duvida
estou quero que um programa da manutenção em banco de dados
eu o modifiquei para se adaptar em meu sistema
quero que quando eu acesso ele q ele se connect ao meu meu alias atumaticamente... é possivel?

bom ele faz atuamente assim esse codigo e no OnSelect de um comb
esse codigo lista todos os alias existetes no bde preciso q ele se connect ao meu sem q eu precise ir no combo tem como
grato

var
MyList: TStringList;
begin
SCount := 0;
StatusBar1.Panels[2].text := ´Campos = Zero´;
StatusBar1.Panels[1].Text := ´Registros = Zero´;
BtnExe.Enabled := False;
BtnInfo.Enabled := false;
JonComboBox2.Clear;
JonComboBox2.Text := ´Tabela´;
JonComboBox3.Clear;
JonComboBox3.Text := ´Nome do Campo´;
JonComboBox4.Text := ´Comandos´;
Memo1.Clear;
DataBase1.Connected := False;
DataBase1.Close;
DBGrid1.Enabled := False;
DataBase1.AliasName := JonComboBox1.Text;
if messagedlg (´Deseja abir o Alias ´´ + JonComboBox1.Text + ´?´,
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
JonComboBox1.SetFocus;
StatusBar1.Panels[0].Text := ´Não foi possivel conectar ai DB´;
exit;
end
else
begin
try
DataBase1.Connected := true;
DBGrid1.Enabled := true;
except on E:Exception do
begin
ShowMessage(´Erro ao conecta no DB ... ´ + E.Message);
StatusBar1.Panels[0].Text := ´Erro ao conecta no DB ´ +
E.Message;
end;
end; // try
// Now Fill the Box with Table Names....
MyList := TStringList.Create;
try
Session.GetTableNames(JonComboBox1.Text, ´*.*´, False, False, MyList);
JonComboBox2.Items := MyList;
finally
MyList.Free;
JonComboBox2.DroppedDown := true;
JonComboBox2.SetFocus;
StatusBar1.Panels[0].Text := ´DB = ´ + JonComboBox1.Text;
end;