Membuat Program Perpustakaan dengan Delphi

Setelah berhasil posting tentang perhitungan upah karyawan, Kali ini saya akan memberi sedikit ilmu yang saya pelajari bagaimana membuat Sistem PENGOLAHAN DATA PERPUSTAKAAN mulai dari penginputan data-data Buku,data Anggota, Serta bagaimana Memproses data Peminjaman Buku di PERPUSTAKAAN. di sini saya menggunakan aplikasi Borland Delphi 7.2 dan Microsoft Acces 2007
Mengapa harus ada Ms. Acces..? ini kita gunakan untuk penempatan database,, baik itu buku, anggota, dan lain sebagainya. 

DATABASE

Langsung saja langkah awal yang perlu di lakukan yaitu kita membuat database untuk perpustakaan.

1. Buka Microsoft Acces
2. Klik "Blank DataBase" dan ubah Nama DataBase menjadi "PERPUSTAKAAN.accdb
3. simpan DataBase di directory yang mana saja (disarankan di direktory yang sama dengan program yang akan dibuat).
4. Lalu klik "create".  

DataBase telah sukses dibuat, langkah selanjutnya yaitu mengisi Data Table pada DataBase PERPUSTAKAAN.
Klik "View" pada Menu DataSheet untuk membuat Table DataBase nya. isi Table Name dengan nama "BUKU" isi Table seperti gambar di bawah ini:

DATA TABLE BUKU

Field Name	Data Type	Size
KODE	TEXT	5
JUDUL	TEXT	35
PENERBIT	TEXT	25
PENGARANG	TEXT	20
THTERBIT	TEXT	5
STOK	NUMBER	Byte

Jangan lupa untuk Save dan Close Microsoft Acces nya.

pembuatan DataBase telah jadi dimana DataBase berfungsi sebagai penyimpanan Data-data yang akan di inputkan.

Oke Langsung saja ke langkah berikutnya yaitu Pembuatan program aplikasi pada delphi.

PEMBUATAN FORM DATA BUKU

Buat form seperti gambar dibawah.
gambar ini hanya sekedar contoh, kalian bisa membuat visual yang lebih menarik sesuai keinginan kalian dengan catatan tidak merubah properti dari componentnya. jika kalian ingin merubah maka kalian juga harus menyesuaikan dengan sintak atau scripnya.

 

Tabel properties Component

component	caption
Panel	DATA BUKU
Label1	KODE
Label2	JUDUL
Label3	PENERBIT
Label4	PENGARANG
Label5	TAHUN TERBIT
Label6	STOK
Button1	SIMPAN
Button2	HAPUS
Button3	UBAH
Button4	CARI
DBGrid	Name         : DBGrid1 DataSource: DataSource1

katerangan :

1. Component Panel        (Tab Standar =Panel  )
2. Component Label        (Tab Standar =Label  )
3. Component Button      (Tab Standar =Button)

Component-Componet_yang harus di butuhkan untuk mengkoneksikan DataBase  

1. AdoConnectio

   Name  : ADOConnection1
   
   Pada Connection String kita koneksikan Database kita dengan klik tombolpada connection string maka akan muncul tampilan seperti gambar di bawah
   
   
   Perintah untuk mengkoneksikan DataBase laluklik “Buid” maka akan muncul perintah seperti gambar di bawah
   Pilih “Microsoft Office 12.0 Access...........” klik next lalu isi data source (“tempat Menyimpan DataBase”). Agar DataBase Terkoneksi dengan aflikasi program yang dibuat.
    
   Klik OK
   
   
   

2. AdoTable

   Name               : ADOTable1
   TableName      : BUKU
   Connection      : ADOConnection1
   Active             : True
   

3. DataSource

   Name               : DataSource1
   DataSet           : ADOTable1
   Singkat Saja  langsung copas coding programnya pada tombol Button atau Hapus Coding pada Form1 lalu Copas Seluruh Coding Program dibawah.Untuk Tombol codingnya yang di beri tanda Warna Merah .

   
   

4. Coding Program

   
   
   

   unit UBUKU; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls; type   TForm1 = class(TForm)     Panel1: TPanel;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label7: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     Edit5: TEdit;     Edit6: TEdit;     ADOConnection1: TADOConnection;     ADOTable1: TADOTable;     DataSource1: TDataSource;     DBGrid1: TDBGrid;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     procedure Button1Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);//[SIMPAN] begin ADOTABLE1.INSERT; ADOTABLE1.FieldByName('KODE').AsString:=EDIT1.Text; ADOTABLE1.FieldByName('JUDUL').AsString:=EDIT2.Text; ADOTABLE1.FieldByName('PENERBIT').AsString:=EDIT3.Text; ADOTABLE1.FieldByName('PENGARANG').AsString:=EDIT4.Text; ADOTABLE1.FieldByName('THTERBIT').AsString:=EDIT5.Text; ADOTABLE1.FieldByName('STOK').ASINTEGER:= STRTOINT(EDIT6.Text); ADOTABLE1.POST; end; procedure TForm1.Button4Click(Sender: TObject);//[CARI] begin IF ADOTABLE1.Locate('KODE',EDIT1.Text,[]) THEN BEGIN EDIT2.Text:=ADOTABLE1.FIELDBYNAME('JUDUL').ASSTRING; EDIT3.Text:=ADOTABLE1.FIELDBYNAME('PENERBIT').ASSTRING; EDIT4.Text:=ADOTABLE1.FIELDBYNAME('PENGARANG').ASSTRING; EDIT5.Text:=ADOTABLE1.FIELDBYNAME('THTERBIT').ASSTRING; EDIT6.Text:=INTTOSTR(ADOTABLE1.FIELDBYNAME('STOK').AsInteger); END ELSE IF NOT ADOTABLE1.Locate('KODE',EDIT1.Text,[])THEN BEGIN SHOWMESSAGE('DATA TIDAK DI TEMUKAN'); END; end; procedure TForm1.Button3Click(Sender: TObject);//[UBAH] begin ADOTABLE1.Edit; ADOTABLE1.FieldByName('KODE').AsString:=EDIT1.Text; ADOTABLE1.FieldByName('JUDUL').AsString:=EDIT2.Text; ADOTABLE1.FieldByName('PENERBIT').AsString:=EDIT3.Text; ADOTABLE1.FieldByName('PENGARANG').AsString:=EDIT4.Text; ADOTABLE1.FieldByName('THTERBIT').AsString:=EDIT5.Text; ADOTABLE1.FieldByName('STOK').ASINTEGER:= STRTOINT(EDIT6.Text); ADOTABLE1.POST; end; procedure TForm1.Button2Click(Sender: TObject);//[HAPUS] begin ADOTABLE1.DELETE; end; procedure TForm1.Button5Click(Sender: TObject); begin CLOSE; end; end.

   kalau sudah anda Save Program Form BUKU
   Name Unit           : ("UBUKU")
   Name Project      : ("Perpustakaan")
   
   

OK..............Anda Coba Jalankan Program Klik "Run" atau Tombol (F9) pada Keyboard.

Jika Jika Program Lancar Maka Anda Berhasil membuat form Input Data Buku.

Selanjutnya kita akan membuat Form ANGGOTA................!!!!!

Semoga SUKSES......

Related Posts: