Mengenai Saya

Foto saya
Seorang Lelaki yang menempuh pendidikan di SDN Rujukan antasan Besar 7 Banjarmasin, SMP Negeri 2 Banjarmasin,SMA Negeri 7 Banjarmasin, dan Saat Ini Bermukim di Universitas Lambung Mangkurat Banjarmasin. NIM= J1F113023 Keep Stalk My blog! :D

Minggu, 21 Desember 2014

PERTEMUAN KE-VII DATABASE DENGAN DELPHI



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 
 
 



Diposting oleh

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)