I.
Tujuan Praktikum
Tujuan dari praktikum kali
yaitu untuk mengenal database pada delphi. Selain itu para parktikan sendiri harus tau , fungsi
dan penggunaan dari database pada delphi, dan tentunya para praktikan harus tau cara membuat
sebuah program delphi dengan menggunakan database
pada delphi. Mulai dari tahap membuat
program sampai tahap menjalankan program.
II.
Deskripsi
Program
Program yang saya buat pada praktikum kali ini yaitu program data
base transaksi barang - barang. Program ini
merupakan program database yang dibuat untuk
mempermudah seseorang untuk melakukan pendataan
transaksi sebuah barang - barang.
Untuk menjalankan program ini, pertama-tama pengguna harus membuka
programnya terlebih dahulu, dan menghubungkan Microsoft Access yang yang merupakan
database program.
III.
Interface Program
IV. Coding Program
|
Nama Komponen
|
Event
|
Perintah
|
|
Form1
|
FormCreate
|
procedure TForm1.FormCreate(Sender: TObject);
begin
gambar := TMemorystream.Create;
image1.Picture.Bitmap.SaveToStream(gambar);
end;
|
|
btnbaru
|
onclick
|
procedure TForm1.btnbaruClick(Sender: TObject);
begin
simpan:=false;
btncari.Enabled:=false;
btnsimpan.Enabled:=true;
btnbatal.Enabled:=true;
btntutup.Enabled:=false;
btncetak.Enabled:=false;
edkode.Enabled:=true;
ednama.Enabled:=true;
edharga.Enabled:=true;
edjumlah.Enabled:=true;
edsatuan.Enabled:=true;
btnbrowse.Enabled:=true;
updown1.Enabled:=true;
simpan:=false;
end;
|
|
btnbrowse
|
onclick
|
procedure TForm1.btnbrowseClick(Sender: TObject);
begin
if
openpicturedialog1.Execute then
try
convertobmp(OpenPictureDialog1.FileName,image1);
gambar :=
TMemorystream.Create;
Image1.Picture.Graphic.SaveToStream(gambar);
except
showmessage('Terjadi kesalahan');
end;
end;
|
|
btnbatal
|
onclick
|
procedure TForm1.btnbatalClick(Sender: TObject);
begin
btnbaru.Enabled:=true;
btnsimpan.Enabled:=false;
btncari.Enabled:=true;
btnedit.Enabled:=false;
btnhapus.Enabled:=false;
btnbatal.Enabled:=false;
btntutup.Enabled:=true;
btncetak.Enabled:=true;
edkode.Enabled:=true;
ednama.Enabled:=false;
edharga.Enabled:=false;
edjumlah.Enabled:=false;
edsatuan.Enabled:=false;
btnbrowse.Enabled:=false;
updown1.Enabled:=false;
image1.Picture:=image2.Picture;
bersih;
end;
|
|
btnsimpan
|
On
click
|
procedure TForm1.btnsimpanClick(Sender: TObject);
begin
if simpan=false then
begin
if
(edkode.Text='') or (ednama.Text='') or (edharga.Text='')
or
(edjumlah.Text='') or (edjumlah.Text='0') or (edsatuan.Text='') then
messagedlg('Data tidak boleh ada yang kosong',mtinformation,[mbok],0)
else if
adoquery1.Locate('Kode_barang',edkode.Text,[]) then messagedlg(edkode.Text+'
Sudah ada',mtinformation,[mbok],0)
else
begin
adoquery1.Open;
adoquery1.append;
adoquery1['Kode_barang']:=edkode.Text;
adoquery1['Nama_barang']:=ednama.Text;
adoquery1['Harga']:=strtoint(edharga.Text);
adoquery1['Jumlah']:=strtoint(edjumlah.Text);
adoquery1['satuan']:=edsatuan.Text;
adoquery1Foto.LoadFromStream(gambar);
adoquery1.Post;
btnbatal.OnClick(sender);
showmessage('Data
Berhasil Disimpan');
end
end
else if simpan=true then
begin
if
(edkode.Text='') or (ednama.Text='') or (edharga.Text='')
or
(edjumlah.Text='') or (edsatuan.Text='') or (edjumlah.Text='0') then
messagedlg('Data tidak boleh ada yang kosong',mtinformation,[mbok],0)
else
begin
adoquery1.Open;
adoquery1.edit;
adoquery1['Kode_barang']:=edkode.Text;
adoquery1['Nama_barang']:=ednama.Text;
adoquery1['Harga']:=strtoint(edharga.Text);
adoquery1['Jumlah']:=strtoint(edjumlah.Text);
adoquery1['satuan']:=edsatuan.Text;
adoquery1.Post;
btnbatal.OnClick(sender);
showmessage('Data Berhasil Diubah');
end;
end;
end;
|
|
btncari
|
On
click
|
procedure TForm1.btncariClick(Sender: TObject);
begin
if edkode.Text='' then
begin
messagedlg('Isi
Kode barang terlebih dahulu !',mtinformation,[mbok],0);
edkode.SetFocus;
end else
if not adoquery1.Locate('Kode_Barang',edkode.Text,[])
then
begin
messagedlg(edkode.Text+' Tidak Ditemukan !',mtinformation,[mbok],0);
edkode.SetFocus;
end
else
begin
edkode.Text:=adoquery1['Kode_barang'];
ednama.Text:=adoquery1['Nama_barang'];
edharga.Text:=inttostr(adoquery1['Harga']);
edjumlah.Text:=inttostr(adoquery1['Jumlah']);
edsatuan.Text:=adoquery1['satuan'];
image1.Picture:=dbimage1.Picture;
btncari.Enabled:=false;
edkode.Enabled:=false;
btnbaru.Enabled:=false;
btnsimpan.Enabled:=false;
btnedit.Enabled:=true;
btnhapus.Enabled:=true;
btnbatal.Enabled:=true;
btntutup.Enabled:=false;
btncetak.Enabled:=false;
end;
end;
|
|
btnedit
|
On
click
|
procedure TForm1.btneditClick(Sender: TObject);
begin
edkode.Enabled:=true;
ednama.Enabled:=true;
edharga.Enabled:=true;
edjumlah.Enabled:=true;
edsatuan.Enabled:=true;
btnbrowse.Enabled:=true;
btnsimpan.Enabled:=true;
btnhapus.Enabled:=false;
btnedit.Enabled:=false;
updown1.Enabled:=true;
simpan:=true;
end;
|
|
btnhapus
|
|
procedure TForm1.btnhapusClick(Sender: TObject);
begin
if
messagedlg('Yakin data '+edkode.Text+' ingin dihapus '
,mtconfirmation,[mbyes,mbno],0) = mryes then
begin
adoquery1.Delete;
btnbatal.OnClick(sender);
messagedlg('Data Berhasil dihapus ' ,mtinformation,[mbok],0);
end;
end;
procedure TForm1.btntutupClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
gambar := TMemorystream.Create;
image1.Picture.Bitmap.SaveToStream(gambar);
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;
|
|
btncetak
|
On
click
|
procedure TForm1.btncetakClick(Sender: TObject);
begin
form2.QRtanggal.Caption:=datetostr(date);
form2.ADOTable1.Active:=false;
form2.ADOTable1.Active:=true;
form2.ADOTable1.Refresh;
form2.QuickRep1.Preview;
form2.ADOTable1.Active:=false;
form2.ADOTable1.Active:=true;
form2.ADOTable1.Refresh;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edkode.Text:=adoquery1['Kode_barang'];
ednama.Text:=adoquery1['Nama_barang'];
edharga.Text:=inttostr(adoquery1['Harga']);
edjumlah.Text:=inttostr(adoquery1['Jumlah']);
edsatuan.Text:=adoquery1['satuan'];
image1.Picture:=dbimage1.Picture;
end;
|
|
Dbgrid1
|
On
click
|
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
edkode.Text:=adoquery1['Kode_barang'];
ednama.Text:=adoquery1['Nama_barang'];
edharga.Text:=inttostr(adoquery1['Harga']);
edjumlah.Text:=inttostr(adoquery1['Jumlah']);
edsatuan.Text:=adoquery1['satuan'];
image1.Picture:=dbimage1.Picture;
end;
|
|
Dbnavigator
|
On
click
|
procedure TForm1.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
begin
edkode.Text:=adoquery1['Kode_barang'];
ednama.Text:=adoquery1['Nama_barang'];
edharga.Text:=inttostr(adoquery1['Harga']);
edjumlah.Text:=inttostr(adoquery1['Jumlah']);
edsatuan.Text:=adoquery1['satuan'];
image1.Picture:=dbimage1.Picture;
end;
|
|
Edit1
|
keypress
|
procedure TForm1.Edit1KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
with adoquery1 do
begin
active:=false;
SQL.Clear;
SQL.Text:='select*from Tabel_Barang where Kode_Barang
like' + quotedstr('%'+edit1.Text+'%');
active:=true;
end;
end;
end;
|
|
Edit2
|
keypress
|
procedure TForm1.Edit2KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
with adoquery1 do
begin
active:=false;
SQL.Clear;
SQL.Text:='select*from Tabel_Barang where Nama_Barang
like' + quotedstr('%'+edit2.Text+'%');
active:=true;
end;
end;
end;
|
|
Edit3
|
keypress
|
procedure TForm1.Edit3KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
with adoquery1 do
begin
active:=false;
SQL.Clear;
SQL.Text:='select*from Tabel_Barang where Harga like' +
quotedstr('%'+edit3.Text+'%');
active:=true;
end;
end;
end;
|
|
Edit4
|
keypress
|
procedure TForm1.Edit4KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
with adoquery1 do
begin
active:=false;
SQL.Clear;
SQL.Text:='select*from Tabel_Barang where Jumlah like'
+ quotedstr('%'+edit4.Text+'%');
active:=true;
end;
end;
end;
|
|
Edit5
|
keypress
|
procedure TForm1.Edit5KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
with adoquery1 do
begin
active:=false;
SQL.Clear;
SQL.Text:='select*from Tabel_Barang where Satuan like'
+ quotedstr('%'+edit5.Text+'%');
active:=true;
end;
end;
end;
|
V. Output
