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

Contoh Program Pakai Database di Delphi

· · 6 comments
Assalamu'alaikum, wr.wb

Program Gaji Karyawan dengan Bahasa Delphi - Ditulisan ini kembali kita akan membuat sebuah program Delphi menggunakan Database. Database yang kita gunakan kali ini adalah Acces. Sebuah database yang terbundle dalam microsoft office besutan Microsoft yang banyak digunakan pemula dalam merancang sebuah program terutama dalam Bahasa Borland Delphi. Format yang digunakan adalah acces mdb 2003.

Contoh program memakai database ini kita ambil dari contoh program karyawan di artikel Program gaji karyawan dengan Delphi. Disini kita akan menambahkan fitur pada program tersebut dengan terkoneksi pada sebuah database, sehingga setiap input yang dilakukan akan tersimpan kedalam database. Pada program tersebut masih memakai button hitung sebagai eksekusi, karena point utama diartikel tersebut adalah mencari gaji karyawan bersih tanpa fitur penyimpanan, edit maupun hapus data.

Disini kita akan melakukan event hitung gaji bersih langsung pada radio button kategori menikah atau tidak menikah. Karena otomatis diantara kedua radiobutton tersebut pasti akan dipilih.

Langah-langkah membuat program Delphi dengan menggunakan Database Acces :

1. Rancang sebuah database seperti dibawah ini. Jangan lupa jika rekan memakai office 2007 keatas, maka save as dengan format acces 2003 atau mdb.
Contoh program karyawan dengan database di delphi
2. Rancang form gaji karyawannnya seperti dibawah ini :
cara menggunakan database acces di delphi
3. Koneksikan program dengan database silahkan baca disini cara koeneksi databse acces di Delphi.
4. Copykan mantera-mantera dibawah ini sesuai dengan kriterianya masing masing .

Coding untuk combobox1
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text = 'Manager' then
edit4.Text := '4500000'
else
if combobox1.Text = 'Stap Manager' then
edit4.Text := '3800000'
else
if combobox1.Text = 'Karyawan' then
edit4.Text := '2100000';
end;


RadioButton1 dan RadioButton2
procedure TForm1.RadioButton1Click(Sender: TObject);
var gajipokok, tunjangan : real;
begin
if radiobutton1.checked = true then
gajipokok := strtofloat(edit4.text);
tunjangan := gajipokok * 0.05;
edit2.text := floattostr (tunjangan);
edit3.Text := inttostr (strtoint(edit4.text) + strtoint(edit2.Text));
end;


procedure TForm1.RadioButton2Click(Sender: TObject);
var gajipokok, tunjangan : real;
begin
if radiobutton2.checked = true then
gajipokok := strtofloat(edit4.text);
tunjangan := gajipokok * 0.03;
edit2.text := floattostr (tunjangan);
edit3.Text := inttostr (strtoint(edit4.text) + strtoint(edit2.Text));
end;


Button Simpan
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.sql.Clear;
adoquery1.SQL.Add('insert into gaji values( "'+edit1.text+'","'+combobox1.Text+'",'+edit4.text+','+edit2.Text+','+edit3.Text+')');
adoquery1.execSQL;
edit1.text :='';
edit2.text :='';
edit3.text :='';
edit4.text :='';
edit1.setfocus;
showmessage ('data sudah disimpan')
end;

Editbox1
procedure TForm1.Edit1Change(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gaji where namakaryawan = "'+ edit1.text +'"');
adoquery1.open;
if not adoquery1.EOF then
begin
combobox1.text := adoquery1.fieldvalues['jabatan'];
edit2.text := adoquery1.fieldvalues['gajipokok'];
edit3.text := adoquery1.fieldvalues['tunjangan'];
edit4.text := adoquery1.fieldvalues['gajibersih'];
showmessage('Data Sudah Ada')
end;
end;


Button Ubah
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update gaji set namakaryawan="'+edit1.text+'",jabatan="'+combobox1.text+'",gajipokok='+edit4.text+',tunjangan='+edit2.text+',gajibersih='+edit3.text+' where namakaryawan="'+edit1.text +'"');
adoquery1.ExecSQL;
EDIT1.Clear;
EDIT2.Clear;
EDIT3.Clear;
EDIT4.Clear;
showmessage ('Data Sudah Diperbaiki')


Button Hapus
procedure TForm1.Button5Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from gaji where namakaryawan="'+edit1.Text +'"');
adoquery1.ExecSQL;
EDIT1.Clear;
EDIT2.Clear;
EDIT3.Clear;
EDIT4.Clear;
edit1.SetFocus;
showmessage ('Data Sudah Dihapus');
end;
end.


Button Keluar
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;



Setelah program dijalankan maka akan tampil seperti screenshoot dibawah ini :
contoh program sederhana di delphi
Demikian tutorial Program Delphi menggunakan database Acces kali ini, moga bermanfaat, begitulah.

Baca juga Contoh program diskon di Borlan Delphi

6 comments:

  1. wah nih yang saya cari2 mas,cara membuat aplikasi dengan delphi,perlu banyak belajar nih disini

    ReplyDelete
  2. databasenya menggunakan acces ya mas. kalau berdasar perkembangan teknologi pemrograman delphi yang saya tahu saat ini sudah jarang ya mas? paling banter minimal program desktop itu pake vb.. dan masih banyak yang menggunakannya.

    mas saya ada liebster award ini, mohon diterima ya mas dan tolong konfirmasinya sesuai kebijakkan yang sudah saya buat ditunggu lo.. salam blogger

    ReplyDelete
    Replies
    1. Delphi masih banyak kok mas. cuma dibandingkan Visual Basic memang agak terbilang sulit.

      ya saya akan berkunjung.

      Delete
  3. banyak juga ya mas kode yang harus dipelajari :D

    ReplyDelete

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