Delphi10是一款強大的編程工具,它可以實現(xiàn)與Mysql數據庫的連接,使用戶可以更方便的進行數據庫操作。以下是Delphi10連接Mysql的代碼:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Comp.Client, FireDAC.Phys.MySQL, FireDAC.VCLUI.Login, Vcl.StdCtrls;
type
TForm1 = class(TForm)
FDConnection1: TFDConnection;
FDQuery1: TFDQuery;
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
FDConnection1.Params.UserName := 'root'; // 此處替換成自己的root賬號
FDConnection1.Params.Password := '123456'; // 此處替換成自己的密碼
FDConnection1.Params.Database := 'test'; // 此處替換成自己要連接的數據庫名稱
FDConnection1.Params.DriverID := 'MySQL';
FDConnection1.Params.Add('Server=localhost');
FDConnection1.Connected := True; // 連接數據庫
FDQuery1.SQL.Text := 'select * from users'; // 執(zhí)行SQL語句
FDQuery1.Open;
Memo1.Text := FDQuery1.FieldByName('username').AsString; // 獲取查詢結果
end;
end.
在以上代碼中,我們使用了FireDAC組件來連接Mysql數據庫,首先需要在Uses中引用相關模塊。接著,在TForm1中聲明了FDConnection1、FDQuery1、Button1、Memo1等組件,分別代表連接器、查詢器、按鈕和文本框。在Button1Click事件中,我們對FDConnection1的參數進行賦值,將Username、Password、Database、DriverID和Add等參數值設置成相應的值,然后調用Connected方法連接數據庫。接著,我們在FDQuery1中執(zhí)行SQL語句,并使用Memo1.Text獲取查詢結果。
總的來說,使用Delphi10連接Mysql數據庫非常簡單,只需要使用FireDAC組件即可。無論是簡單的查詢還是復雜的操作,都可以通過這個便捷的工具完成,極大地提高了開發(fā)效率和數據處理能力。