Artikel ini secara singkat memperkenalkan metode implementasi Delphi7 yang menghubungkan ke database MySQL. Langkah-langkah spesifiknya adalah sebagai berikut:
Pertama unduh: http://www.justsoftwasolvings.co.uk/delphi/dbexpress_and_mysql_5.html
Kemudian unzip dbxopenmysql5_dll.zip yang diunduh, dan masukkan dbxopenmysql50.dll dan libmysql.dll ke dalam folder proyek.
Letakkan TSQLConnection, TSQLQuery, TStringGrid, 3 TButtons, dan TLable pada Formulir.
Tambahkan kode berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr;ketik TForm1 = kelas(TForm) SQLConnection1: TSQLConnection1: TSQLQuery; : TStringGrid; Tombol1: TButton; Tombol2: TButton; Tombol3: TButton; Label1: TLabel; prosedur Button1Click(Pengirim: TObject); prosedur Button2Click(Pengirim: TObject procedure Button3Click(Pengirim: TObject); var Form1: TForm1; implementasi prosedur {$R *.dfm} TForm1.Button1Click(Pengirim: TObject);mulai SQLConnection1 := TSQLConnection.Create(nil); SQLConnection1.DriverName := 'dbxmysql' := 'dbxopenmysql50.dll'; SQLConnection1.VendorLib := 'libmysql.dll'; SQLConnection1.LoginPrompt := salah; SQLConnection1.Params.Append('Database=mysql'); 'Kata Sandi='); SQLConnection1.Params.Append('HostName=localhost'); jika SQLConnection1.Connected = true maka mulai SQLQuery1.SQLConnection := SQLConnection1.Caption := 'sukses!'; gagal!';akhir; prosedur TForm1.Button2Click(Pengirim: TObject);var i, j: Integer;mulai SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); SQLQuery1.Active := true; i := 0; .FieldCount - 1 lakukan StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); akhir; SQLQuery1.Active := false;end; prosedur TForm1.Button3Click(Pengirim: TObject);mulai jika SQLConnection1.Connected = true maka SQLConnection1.Free;end;Setelah pengujian, koneksi dan permintaan normal dapat dicapai.