MEMBUAT TOMBOL SIMPAN PADA DELPHI

Langkah pertama kita desain terlebih dahulu formnya, membuat database (MySQL) dan langsung kita koneksikan antara delphi dengan databasenya. Sebelumnya kita sudah membahas bagaimana CARA KONEKSI DELPHI DENGAN DATABASE MYSQL, jadi ini tidak akan sulit.

Keterangan :

6 buah LABEL

6 buah EDIT

1 buah ADOConnection

1 buah ADO Table (Boleh pake ADOQuery)

1 buah Data Source

1 buah DBGrid

1  buah BUTTON

Supaya ketika pertama program dijalankan semua EDIT kosong kita ketikkan script pada Form(Sender)

Langkahnya :

1. klik Formnya

2. Pada Events cari OnShow dan double klik

ketik script berikut

        edit1.Text:='';

        edit2.Text:='';

        edit3.Text:='';

        edit4.Text:='';

        edit5.Text:='';

        edit6.Text:='';

        //untuk melakulan refres database

        ADOTable1.Requery;

Jalankan program maka edit akan kosong

Sekarang double click pada tombol simpan, isi script berikut :

ADOConnection1.Execute('insert into t_barang(Kd_Brg,Nm_Brg,Satuan,Hrg_Beli,Hrg_Jual,Stock)' +

     'values (''' + edit1.Text + ''',''' + edit2.Text + ''',''' + edit3.Text + ''',' +

     edit4.Text + ',' + edit5.Text + ',' + edit6.Text + ')');

     FormShow(sender);

     Edit1.SetFocus;

Selamat Mencoba ya teman-teman