KONEKSI DATABASE DARI DELPHI 7 KE MS.ACCES

      PENYEWAAN STUDIO MUSIK ONE TO ONE (1)

1       Buka aplikasi Ms.Acces disini penulis menbuat di  Acces 2007,Pertama tama buka ms Access 2007 klik Blank Database di kolom file database beri nama studiomusik.mdb  lalu klik create.Kemudian klik View isi Table Name dengan Tabel_pelanggan.

          Isi Tabel_pelanggan dengan struktur sebagai berikut:

Tabel_Pelanggan

Field	Type	Size	Size
idpel	Text	5	PK
nmpel	Text	30
alamat	Text	50
notlp	Text	12

 
 Isi table Pelanggan(Contoh isi tabel)

 

·          Kemudian buat satu tabel lagi dengan nama tabel_trans.Caranya sama dengan cara membuat tabel_pelanggan.Struktur tabel_trans sebagai berikut:

   Tabel_Trans

Field	Type	Size	Size
notrans	Text	10	PK
tgltrans	Date/Time
idpel	Text	5
Lama_sewa	Number
diskon	Number
ttlbayar	Number

 
  Setelah DataBase kita buat baru kita buka program Delphi ,buat desain Form sebagai berikut:

 DESIGN PROGRAM

Object	Properties
Table 1	Name : tbpelanggan Databasename : studio_musik Table Name : Pelanggan Active : True
Data Source 1	Name : ds_pelanggan Dataset : tbpelanggan

Object	Properties
Table 2	Name : tbpelanggan Databasename : studio_musik Table Name : Pelanggan Active : True
Data Source 2	Name : ds_pelanggan Dataset : tbpelanggan

Object	Properties
DBGrid1	DataSource : ds_trans

Object	Properties
DBLookUpComboBox1	ListSource : dt_pelanggan KeyField : idpel

PEMBUATAN KONEKSI

.Ketikan odbcad32 pada Run di Komputer

Pilih ok 

Pilih Button ADD

Klik MS Acces Database klik lagi ADD

 

.Pilih Microsoft  Acces Driver(*.mdb)

 

.Klik Finish
Ketikan Data Source Name : studio_musik

 

Pilih Buton Select
Cari Database dimana kita menyimpanya

 

Klik OK
Yang diblok Biru adalah Data Source yang dibuat(Disini penuls menyimpanya di Drive D)

Klik Ok

Klik Ok

Cara Kerja Program

·         Ketika diaktifkan semua dalam kondisi nonaktif.Button New dan Exit dalam kondisi True.Tanggal dan Jam tampil otomatis.

·         Klik Tombol New No Transaksi tampil otomatis.Krusor pada posisi id pelanggan.Klik tombol id pelanggan akan muncul daftar id pelanggan.Ketika di klik  nama,alamat,no telp muncul otomatis.Tombol Exit dan Cancel kondisi true.

·         Lama sewa diinput klik enter Jumlah bayar akan muncul otomatis.Harga sewa perjam : 20.000 Rupiah.

·         Apabila sewa lebih dari 5jam diskon sebesar 10%.Selain itu 0.

·         Total bayar didapat dari jumlah bayar dikurangi diskon.

·         Uang bayar diinput .Klik enter uang kembali akan muncul.Tombol Cancel,Save  true.

·         Klik Save akan tersimpan otomatis ditabel Transaksi.Tombol New dan Exit true.

 

Listing program Studio Musik:

  public

  procedure aktif;

  procedure nonaktif;

  procedure bersih;

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.aktif;

begin

eno.Enabled:=true;

edit1.Enabled:=true;

edit2.Enabled:=true;

edit3.Enabled:=true;

edit4.Enabled:=true;

edit5.Enabled:=true;

edit6.Enabled:=true;

edit8.Enabled:=true;

edit9.Enabled:=true;

edit10.Enabled:=true;

dblookupcombobox1.Enabled:=true;

end;

procedure tform1.nonaktif;

begin

eno.Enabled:=false;

edit1.Enabled:=false;

edit2.Enabled:=false;

edit3.Enabled:=false;

edit4.Enabled:=false;

edit5.Enabled:=false;

edit6.Enabled:=false;

edit8.Enabled:=false;

edit9.Enabled:=false;

edit10.Enabled:=false;

dblookupcombobox1.Enabled:=false;

end;

procedure tform1.bersih;

begin

eno.Text:='';

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit8.Text:='0';

edit9.Text:='0';

edit10.Text:='';

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

ltanggal.Caption:=datetostr(date);

bersih;

nonaktif;

bsave.Enabled:=false;

bcancel.Enabled:=false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ljam.Caption:=timetostr(time);

end;

procedure TForm1.bexitClick(Sender: TObject);

begin

if(application.MessageBox('Yakin Akan Keluar Dari Form???','Pesan',MB_YESNO+32)=idyes)then

close

else

ShowMessage('Silahkan Lanjut');

end;

procedure TForm1.bnewClick(Sender: TObject);

var

no:integer;

begin

bersih;

aktif;

eno.Enabled:=false;

no:=tbtrans.RecordCount+1;

eno.Text:=inttostr(no);

bnew.Enabled:=false;

bcancel.Enabled:=true;

bsave.Enabled:=true;

dblookupcombobox1.SetFocus;

end;

procedure TForm1.bcancelClick(Sender: TObject);

begin

nonaktif;

bersih;

bcancel.Enabled:=false;

bsave.Enabled:=false;

bnew.Enabled:=true;

end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

if tbpelanggan.Locate('idpel',dblookupcombobox1.Text,[locaseinsensitive])then

begin

edit4.Text:=tbpelanggan['nmpel'];

edit5.Text:=tbpelanggan['alamat'];

edit6.Text:=tbpelanggan['notlp'];

end

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13then

begin

edit3.Text:=floattostr(strtofloat(edit1.Text)*20000);

end

end;

procedure TForm1.bdiskonClick(Sender: TObject);

begin

if edit1.Text>='5'then

edit2.Text:=floattostr(10/100*strtoint(edit3.Text))else

edit2.Text:='0';

end;

procedure TForm1.btotClick(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(edit3.Text);

b:=strtoint(edit2.Text);

c:=a-b;

edit10.Text:=inttostr(c);

edit8.SetFocus;

end;

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);

var

a,b,c:integer;

begin

a:=strtoint(edit8.Text);

b:=strtoint(edit10.Text);

c:=a-b;

edit9.Text:=inttostr(c);

bsave.Enabled:=true;

end;

procedure TForm1.bsaveClick(Sender: TObject);

begin

tbtrans.Append;

tbtrans['idpel']:=dblookupcombobox1.Text;

tbtrans['notrans']:=eno.Text;

tbtrans['tgltrans']:=ltanggal.Caption;

tbtrans['lama_sewa']:=edit1.Text;

tbtrans['diskon']:=edit2.Text;

tbtrans['ttlbayar']:=edit10.Text;

tbtrans.Post;

bsave.Enabled:=false;

bcancel.Enabled:=false;

bnew.Enabled:=true;

nonaktif;

bersih;

end;

      Semoga bermanfaat,disini penulis masih mempunyai design Form satu lagi yaitu Form Anggota,dengan Database yang sama.Untuk pembahasan Form anggota akan penulid postingkan selanjutnya.