UniConnection1.ConnectDialog := UniConnectDialog1;

    UniConnection1.Connect;

    if UniConnection1.Connected then

    begin

        Memo1.Lines.Add('数据库类型:' + UniConnection1.ProviderName);

        memo1.lines.Add('服务器名:' + UniConnection1.Server);

        memo1.lines.Add('端口' + UniConnection1.Port.ToString);

        Memo1.Lines.add('用户名:' + uniconnection1.Username);

        memo1.lines.add('密码:' + UniConnection1.Password);

        memo1.Lines.add('数据库名:' + UniConnection1.Database);

    end;