uses
FireDAC.Phys.MySQL,
FireDAC.Stan.Def,
FireDAC.DApt,
FireDAC.Comp.Client,
FireDAC.Comp.UI,
FireDAC.UI.Intf,
FireDAC.VCLUI.Wait, {FDGUIxWaitCursor.Provider := 'Forms'}
FireDAC.Stan.Intf,
// FireDAC.ConsoleUI.Wait, {FDGUIxWaitCursor.Provider := 'Console'}
// FireDAC.FMXUI.Wait, {FDGUIxWaitCursor.Provider := 'FMX'}
FireDAC.Stan.Async;
FDPhysMySQLDriverLink := TFDPhysMySQLDriverLink.Create(nil);
FDConn := TFDConnection.Create(nil);
FDGUIxWaitCursor := TFDGUIxWaitCursor.Create(nil);
FDQry := TFDQuery.Create(nil);
FDPhysMySQLDriverLink.VendorLib := ExtractFilePath(ParamStr(0))+'\libmariadb.dll';
FDGUIxWaitCursor.Provider := 'Forms';
FDConn.DriverName := 'MySQL';
FDConn.LoginPrompt := False;
FDConn.Params.Add('DriverID=MySQL');
FDConn.Params.Add('Server=' + vDBLink.Server);
FDConn.Params.Add('Database=' + vDBLink.Database);
FDConn.Params.Add('User_Name=' + vDBLink.UserName);
FDConn.Params.Add('Password=' + vDBLink.Password);
FDConn.Params.Add('Port=' + vDBLink.Port);
FDConn.Params.Add('CharacterSet=utf8');
FDConn.Connected := True;
FDQry.Connection := FDConn;
with FDQry do
begin
Close;
SQL.Clear;
SQL.Add(vSQL);
Active := True;
end;
======================================================================================================================
问题现象：XE8开发数据访问程序时放入了FDPhysMSSQLDriverLink1、FDConnection1、FDConnection1、FDQuery1、DBGrid1，设计期没法，运行期报"Object factory for class{xx-xx-xx-xx-xx} is missing. To register it, you can drop component[TFDGUIxWaitCursor] into your project."。
问题原因：群里朋友说是少个注册类。没有官方解释。有了解的朋友M我哦。
问题处理：在窗体上托放一个“TFDGUIxWaitCursor”控件就可以了；或者Uses相关单元，如下图所示：
