Devart Forum

Код: Выделить всё

with UniConnection1 do begin
    ProviderName := 'InterBase';
    Server := 'localhost';
    Username := 'SYSDBA';
    Password := 'masterkey';
    Database := 'd:\DataBase\1.fdb';
    Open;

    with UniAlerter1 do begin
      Events := 'TEST';
      Active := True;
      ShowMessage('?');
      Active := False;
    end;

    Close;
  end;