【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了ClientDM.pas提供大家参考，希望对大家有所帮助!

    unit ClientDM;
    
    interface
    
    uses
      SysUtils, Classes, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
      IdAntiFreezeBase, IdAntiFreeze,Forms,Dialogs, DB, ADODB;
    
    type
      TDMFrm = class(TDataModule)
        IdUDPClient1: TIdUDPClient;
        UDPAntiFreeze: TIdAntiFreeze;
        ADOConnection1: TADOConnection;
        procedure DataModuleCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      DMFrm: TDMFrm;
    
    implementation
    
    {$R *.dfm}
    
    procedure TDMFrm.DataModuleCreate(Sender: TObject);
    var
      ReceivedString:string;
    begin
      IdUDPClient1.Send('SQLConnectionStr');
      ReceivedString := IdUDPClient1.ReceiveString();
      if ReceivedString = '' then
      begin
        ShowMessage('获取数据库连接字符串失败！');
      end
      else
      begin
        if ReceivedString <> 'Error' then
        begin
          //连接数据库
          ADOConnection1.Connected := False;
          ADOConnection1.ConnectionString := ReceivedString;
          ADOConnection1.Connected := True;
          if ADOConnection1.Connected then
            ShowMessage('数据库连接成功！')
          else
            ShowMessage('数据库连接失败!');
        end;
      end;
    end;
    
    end.