Simpan Data Ke Database Mysql Menggunakan Delphi 7

Posted by Admin

Kali ini saya akan membahas tentang bagaimana cara menyimpan data ke database MySQL.

Sebelum sudah banyak para master delphi membuat tuturial simpan ini di blognya, tapi tidak ada salahnya saya share lagi....membuat project di delphi,,kamu harus membuat database terlebih dahulu,,

saya membuat database menggunakan MySQL yaitu SQLyog karna lebih mudah di mengerti menurut saya.. Saya senang membuat aplikasi menggunakan delphi karna project yang kita compile sudah menjadi exe.

Kalau Aplikasi SQLyog nya belum ada silahkan download ke situs resmi nya disini https://www.webyog.com/product/downloads/.

Langkah-langkah Membuat Database di SQLYog

Tampilan utama aplikasi SQLyog ketika di buka

Selanjutnya, Klik Connect maka akan tampil seperti berikut.

Buatlah Database dan tabelnya, copas sintax dibawah ini.


CREATE DATABASE gudang;
USE gudang;
CREATE TABLE barang(
Kode_barang CHAR(6)PRIMARY KEY,
Nama_Barang VARCHAR(20),
Satuan VARCHAR(10),
Harga_Beli INT(10),
Harga_Jual INT(10),
Jumlah VARCHAR(5))
ENGINE INNODB;

Silahkan Klik (F9) kalau tidak ada error, kemudian klik (F5) maka tabel yang akan muncul, silahkan lihat tabel di dalam database gudang.
Kemudian buka aplikasi Delphi nya, pada tutorial ini saya menggunakan delphi 7. desainlah aplikasi nya seperti berikut:

Komponent yang digunakan:

AdoConnection
ADOquery
Datasource
DbGrid

Ubahlah Name ADOQuery dengan ADOBarang, Datasource DsBarang.
Pada Dbgrid pilih DsBarang maka muncul judul tabel yang kita buat di SQLyog tadi
Selanjutnya, pada tombol Simpan Ketikan Coding seperti berikut.


procedure TForm1.SimpanClick(Sender: TObject);
begin
  ADOBarang.Close;
  ADOBarang.SQL.Clear;
  ADOBarang.SQL.Add('insert into barang values("'+Edit1.Text+'","'+Edit2.text+'","'+ComboBox1.text+'","'+Edit3.text+'","'+Edit4.text+'","'+Edit5.text+'")');
  ADOBarang.ExecSQL;
  ADOBarang.SQL.Clear;
  ADOBarang.SQL.Add('select * from barang');
  ADOBarang.Open;
  Edit1.SetFocus;
  bersih;
end;

Buatlah Procedure Bersih di atas Private seperti di bawah ini


procedure bersih;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

Kemudian Ketikan coding Seperti berikut.


Procedure TForm1.bersih;
begin
    Edit1.Text:='';
    Edit2.Text:='';
    ComboBox1.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';
    Edit5.Text:='';
end;

Untuk Menjalankannya cukup Klik Run(F9)
Isi kan data yang terlebih dahulu
Klik Tombol Simpan maka data yang anda input tadi tersimpan di DBgrid dan database.

Sekian dulu Nanti di lanjutin dengan Tombol Update, Hapus, Batal, Cari
Terima kasih telah berkunjung......

Tutorial Pemrograman Delphi

Simpan Data Ke Database Mysql Menggunakan Delphi 7

0 komentar