delphi mysql乱码

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.Client;

type
  TForm1 = class(TForm)
    FDConnection1: TFDConnection;
    DataSource1: TDataSource;
    FDQuery1: TFDQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDConnection1.Params.Add('DriverID=MySQL');
  FDConnection1.Params.Add('Server=your_server_address');
  FDConnection1.Params.Add('Database=your_database_name');
  FDConnection1.Params.Add('User_Name=your_username');
  FDConnection1.Params.Add('Password=your_password');
  FDConnection1.Params.Add('charset=utf8mb4');
  FDConnection1.Open;

  FDQuery1.Connection := FDConnection1;
  FDQuery1.SQL.Text := 'SELECT * FROM your_table_name';
  FDQuery1.Open;
end;

end.