Kali ini saya akan memberi sedikit ilmu yang saya pelajari bagaimana
membuat Sistem pada PERPUSTAKAAN mulai dari penginputan data-data
Buku,data Anggota, Serta bagaimana Memproses data Peminjaman Buku di
PERPUSTAKAAN. di sini saya menggunakan aflikasi Borland Delphi 7.2 dan
Microsoft Acces 2007
Langsung saja langkah awal yang perlu di lakukan yaitu kita membuat DATABASE untuk perpustakaan.
Buka Microsoft Acces
Akan Nampak Halaman awal seperti gambar dibawah...!!!
katerangan :
Langsung saja langkah awal yang perlu di lakukan yaitu kita membuat DATABASE untuk perpustakaan.
Buka Microsoft Acces
Akan Nampak Halaman awal seperti gambar dibawah...!!!
klik "Blank DataBase" dan ubah Nama DataBase "PERPUSTAKAAN.accdb" lalu
simpan DataBase di tempat yang anda inginkan.lalu "create" maka DataBase
yang anda buat telah sukses.langkah selanjutnya mengisi Data Table pada
DataBase PERPUSTAKAAN yang tadi anda buat.
klik "View" pada Menu DataSheet untuk membuat Table DataBase nya. isi
Table Name dengan nama "BUKU" isi Table seperti gambar di bawah
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
|
Lalu Save dan Close Microsoft Acces nya.
pembuatan DataBase telah jadi dimana DataBase berfungsi sebagai
penyimpanan Data-data yang akan di inputkan. Oke Langsung saja kita buat
Aflikasi Programnya.
PEMBUATAN FORM DATA BUKU
Buat form seperti gambar dibawah...!!!
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.AdoConnection
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 .
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......
0 komentar:
Posting Komentar