[Tugas Praktikum 7 Pemvis] Database dengan Delphi (Program Database Barang)

08.02 |

I. Tujuan Praktikum

Tujuan dari praktikum kali ini adalah agar praktikan dapat mengetahui serta dapat mengaplikasikan penggunaan Delphi dengan database Microsoft Acses.

II. Deskripsi Program

Program Database Barang

Program ini dibuat dengan menggunakan Delphi 7. Program ini menggunakan bantuan database dalam proses penyimpanan data yaitu dengan Microsoft Acces. Program ini merupakan program memasukkan data barang dengan berbagai macam perintah yang memudahkan pengguna dalam memasukkan data barang seperti Select (menampilkan atau menyimpan data), Insert (menambah data), Update (mengubah data), Delete (menghapus data), Print (mencetak data), dan lain-lain.

III. Interface Program

Gambar 3.1. Interface program beserta nama komponennya

Gambar 3.2. Tampilan pada cetak data (komponen rvprjct1)

Gambar 3.3. Tampilan pada Microsoft Access

IV. Coding Program

Nama Komponen	Event	Perintah
Btn12	Onclick	procedure TForm1.btn12Click(Sender: TObject); begin rvprjct1.execute; rvprjct1.ExecuteReport('projectbarang.rav'); end;
Btn13	Onclick	procedure TForm1.btn13Click(Sender: TObject); begin if MessageDlg('Keluar ?',mtConfirmation,mbOKCancel,0)=mrok then Application.Terminate; end;
Btn7	Onclick	procedure TForm1.btn7Click(Sender: TObject); begin if not qry1.Locate('Kode',Edt1.text, [lopartialkey]) =true then begin qry1.Append; qry1.FieldByName('Kode').AsString:=Edt1.Text; qry1.FieldByName('Nama_barang').AsString:=Edt2.Text; qry1.FieldByName('Harga').AsString:=edt3.Text; qry1.FieldByName('Jumlah').AsString:=Edt4.Text; qry1.FieldByName('Satuan').AsString:=Edt5.Text; qry1.Post; end else showmessage ('Maaf, data barang sudah ada'); end;
Btn4	Onclick	Procedure TForm1.btn4Click(Sender: TObject); begin close; end;
Btn3	Onclick	procedure TForm1.btn3Click(Sender: TObject); begin edt1.Clear; edt2.Clear; edt3.Clear; edt4.Clear; edt5.Clear; edt1.SetFocus; end;
Btn10	Onclick	procedure TForm1.btn10Click(Sender: TObject); begin if not qry1.Locate('KODE',Edt1.text,[]) then begin messagedlg ('"'+edt1.Text+'" tidak ditemukan',MTerror,[mbok],0) end else begin qry1.edit; qry1['Kode']:=edt1.Text; qry1['Nama_barang']:=edt2.Text; qry1['Harga']:=edt3.Text; qry1['Jumlah']:=edt4.Text; qry1['Satuan']:=edt5.Text; qry1.Post; end; end;
Btn11	Onclick	procedure TForm1.btn11Click(Sender: TObject); begin if not qry1.Locate('KODE',Edt1.text,[]) then begin showmessage('Data tidak ditemukan!'); end else begin if MessageDlg('Apakah anda ingin menghapus data ?',mtWarning,[mbYes,mbNo],0) = mryes then begin qry1.Delete; showmessage('Data telah dihapus!'); end else end; end;
Form1	Onclose	procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if MessageDlg('Apakah anda ingin keluar ?',mtConfirmation,[mbYes,mbNo],0) = mryes then Application.Terminate else Action:=caNone; end;
Btn9	Onclick	procedure TForm1.btn9Click(Sender: TObject); var strsql : string; begin strsql := 'select * from Table1 where KODE like"' +edt1.Text+'%"'; qry1.SQL.Clear; qry1.SQL.Add(strsql); qry1.Close; qry1.Open; end;