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......
silahkan beri komentar
EmoticonEmoticon