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.
如何处理客户端连接数据库?
最新推荐文章于 2022-02-10 17:26:34 发布