Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Contoh Program Delphi dengan Database Access

· · 4 comments
Assalamu'alaikum, wr.wb

Contoh Program Penjualan Pada Delphi - Masih berhubungan dengan Bahasa Pemograman Delphi. Contoh program penjualan dengan database Acces kali ini menggunakan program yang telah di posting artikel yang lalu yaitu Contoh program diskon dengan Borland Delphi. Namun kita akan membuat perubahan dan penambahan beberapa fitur seperti button untuk menyimpan data, menghapus serta button untuk merubah data.

Pada program tersebut kita meletakkan event perhitungan pada button Hitung. Akan tetapi di contoh kali ini button hitung akan dihilangkan dan prosesnya akan kita pindahkan pada radio button dan checkbox. Jadi ketika melakukan pemilihan type mobil maupun memilih jenis fafsilitas tambahan, perhitungan akan otomatis dilaksanakan.

1. Buat sebuah database dengan acces dengan data sebagai berikut :
www.abdusatri.com
 2. Rancang Form programmnya seperti gambar dibawah ini :
www.abdusatri.com
3. Koneksikan database ke program. Silahkan baca disini Cara koneksi database Acces di Delphi.
4. Masukan coding dibawah ini sesuai kriteria .
******

Pada RadioButton copykan coding ini secara berurutan.
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
EDIT1.Text := '157000000';
EDIT3.Text := '5';
EDIT7.Text :='AVANZA';
edit2.Text := currtostr (strtocurr(edit1.Text)  *  (strtoint(edit3.text) /100));
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text));
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
EDIT1.Text := '198000000';
EDIT3.Text := '10';
EDIT7.Text :='INNOVA';
edit2.Text := currtostr (strtocurr(edit1.Text)  *  (strtoint(edit3.text) /100));
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text));
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
EDIT1.Text := '135000000';
EDIT3.Text := '25';
EDIT7.Text :='XENIA';
edit2.Text := currtostr (strtocurr(edit1.Text)  *  (strtoint(edit3.text) /100));
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text));
end;

Pada CheckBox Copykan coding ini secara berurutan.

procedure TForm1.CheckBox1Click(Sender: TObject);
VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=2000000 else f2:=0;
if checkbox3.Checked = true then
f3:=750000 else f3:=0;
if checkbox4.Checked = true then
f4:=500000 else f4:=0;

//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit4.text := inttostr(ft);

//hitung total
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text) + strtoint(edit4.Text));

end;

procedure TForm1.CheckBox3Click(Sender: TObject);
VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=2000000 else f2:=0;
if checkbox3.Checked = true then
f3:=750000 else f3:=0;
if checkbox4.Checked = true then
f4:=500000 else f4:=0;

//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit4.text := inttostr(ft);
//hitung total
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text) + strtoint(edit4.Text));
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=2000000 else f2:=0;
if checkbox3.Checked = true then
f3:=750000 else f3:=0;
if checkbox4.Checked = true then
f4:=500000 else f4:=0;

//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit4.text := inttostr(ft);
//hitung total
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text) + strtoint(edit4.Text));
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=2000000 else f2:=0;
if checkbox3.Checked = true then
f3:=750000 else f3:=0;
if checkbox4.Checked = true then
f4:=500000 else f4:=0;

//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit4.text := inttostr(ft);
//hitung total
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text) + strtoint(edit4.Text));
end;

Pada button Simpan Masukan code ini :
procedure TForm1.Button4Click(Sender: TObject);
var harga:real;
begin
harga:=strtoint(edit2.Text);
adoquery1.SQL.Clear;
adoquery1.SQL.add('insert into transaksi values ("'+edit6.Text+'","'+edit7.Text+'",'+ edit1.text +','+edit2.Text +','+edit4.Text+','+edit5.text+' )');
adoquery1.execSQL;
showmessage('Data Sudah Disimpan');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.clear;
edit7.Clear;
edit6.SetFocus;
end;

Pada editbox6 masukan mantera ini : 
procedure TForm1.Edit6Change(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from transaksi where namapembeli = "'+ edit6.text +'"');
adoquery1.open;
if not adoquery1.EOF then
begin
edit7.text := adoquery1.fieldvalues['mobil'];
edit1.text := adoquery1.fieldvalues['harga'];
edit2.text := adoquery1.fieldvalues['diskon'];
edit4.text := adoquery1.fieldvalues['biayatambahan'];
edit5.text := adoquery1.fieldvalues['totalharga'];

Pada button ubah copykan coding ini : 
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update TRANSAKSI set namapembeli="'+edit6.text+'",mobil="'+edit7.text+'",harga=' +edit4.text+',diskon=' +edit5.text+' where namapembeli="'+edit6.text +'"');
adoquery1.ExecSQL;
EDIT1.Clear;
EDIT2.Clear;
EDIT3.Clear;
EDIT4.Clear;
EDIT5.Clear;
edit6.Clear;
edit7.Clear;
showmessage ('Data Sudah Diperbaiki')

end;

Pada button hapus masukan code ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from transaksi where namapembeli="'+edit6.Text +'"');
adoquery1.ExecSQL;
EDIT1.Clear;
EDIT2.Clear;
EDIT3.Clear;
EDIT4.Clear;
EDIT5.Clear;
EDIT6.Clear;
EDIT7.Clear;
edit6.SetFocus;
showmessage ('Data Sudah Dihapus');
end;
end.

Pada button keluar masukan code ini :
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

Setelah selesai, jalankan programnya. Maka akan tampil seperti screenshoot dibawah ini.
www.abdusatri.com
Demikian tutorial Delphi kali ini tentang Contoh program Delphi dengan Database Acces. Moga bermanfaat, begitulah.

******

4 comments:

  1. ini nih yang saya suka disini tutotialnya lengkap sekali mengenai progam delphi,thanks sharingnya mas

    ReplyDelete
  2. ga bisa broo eror connection eror mising

    ReplyDelete
    Replies
    1. koneksi databasenya berarti bro. coba sesuaikan dengan link diatas.

      Delete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan