Wednesday, June 20, 2012

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.

No comments:

Post a Comment