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
Cari Database dimana kita menyimpanya
Klik OK
Yang diblok Biru adalah Data Source yang dibuat(Disini penuls menyimpanya di Drive D)
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.
