with FDConnection1 do begin Close; Params.DriverID :='MySQL'; Params.Database :='Radius_Demo'; Params.Password :='abcdadadsasd'; Params.UserName :='root'; Params.Values['Server'] := '192.168.0.1'; Params.Values['Port'] := '3306'; Params.Add('CharacterSet=UTF8'); try Connected :=True; if Connected then Log.WriteLog('数据库连接成功!'); except on e:Exception do begin ShowErrorMsg(e.ClassName +':'+ e.Message,False); end; end; end;