[데이터베이스] BDE Alias 없이 Database 동적으로 연결하기

Database 를 BDE Alias 없이 프로그램 로딩 시에 셋팅하는 방법입니다.
아래 예제는 오라클 사용 시 방법입니다. 다른 DBMS 사용의 경우 Driver명만 바꾸어 주면 됩니다.

var
  Database: TDatabase;
  sqlProcess: TQuery;

procedure Form1.FormShow(Sender: TObject);
begin
  Database := TDatabase.Create(Self);
  Database.DatabaseName := 'HOWTO';
  Database.DriverName := 'ORACLE';
  Database.Params.Add('SERVER NAME=ORA_SERVER');
  Database.Params.Add('NET PROTOCOL=TCP/IP');
  Database.Params.Add('USER NAME=how');
  Database.Params.Add('PASSWORD=to');
  Database.Connected := TRUE;

  sqlProcess := TQuery.Create(Self);
  sqlProcess.DatabaseName := Database.DatabaseName;
end;