如何处理客户端连接数据库?

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  Application.OnException:=DataModule2.MyException;//安装异常处理方法
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
在数据模块中：
unit Unit2;

interface

uses
  SysUtils, Classes,Dialogs;

type
  TDataModule2 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyException(Sender: TObject; E: Exception);//异常处理句柄
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.MyException(Sender: TObject; E: Exception);
begin
  if Pos('Database server not running',E.Message)>0 then
      ShowMessage('数据库服务器没找到或服务没运行,请处理好后再连接!');
end;

end.