Mengecek ODBC lewat delphi

Untuk mengecek apakah setting ODBC yang dibutuhkan aplikasi database sudah ada pada system atau belum, maka sebelum proses koneksi diaktifkan kita harus mengecek dahulu statusnya. Apabila ini tidak dilakukan dan ternyata pada system tidak ada konfigurasi ODBC yang dibutuhkan, maka aplikasi akan terhenti secara tidak normal.

Sebaiknya kita melakukannya sesaat setelah Initialize pada Source project.

Program Test;
uses
 Forms,
 Windows,
 Sysutils,
 DBTables,
 UMain in 'UMain.pas' {FrmMain},
 UDtaMdl in 'UDtaMdl.pas' {DtaMdl: TDataModule},
 ....
 ....
{$R *.res}
Var OK : Boolean;
stPath,stDatabase,stdsn:String;

begin
Application.Initialize;
Chdir(ExtractFilePath(Application.EXEName));
GetDir(0,stpath);
stDatabase:='DATANYA.mdb';
stDsn:='NamaDSN';
Ok:=True;
//============= intinya======
If Not Session.IsAlias(stDsn) Then
Ok:=False;
 If Not Ok Then
Begin
Application.MessageBox('Konfigurasi ODBC belum   ada','Konfigurasi Database',0);
Application.Terminate;
 End else
 Begin
Application.CreateForm(TFrmMain, FrmMain);
Application.CreateForm(TDtaMdl, DtaMdl)
...
...
 End;
Application.Run;
end.