给你一个过程吧.其实你可以先查查以前的相关帖子的.
begin
  if Database1.Connected then
    Database1.Connected := false;
  Database1.driverName := 'ORACLE';
  Database1.loginprompt := false;
  with Database1.params do
  begin
    clear;
    add('SERVER NAME='+ServerName);
    add('USER NAME='+UserName);
    add('PASSWORD='+Passwd);
  end;
  try
    DataModule3.Database1.Connected := true;
    result := true;
  except
    result := false;
  end;这段代码加在DataModule的OnCreate事件里吧.