LAPORAN BORLAND DELPHI 7 MEMBUAT DATABASE PENGGAJIAN DENGAN MULTITABLE
Disusun oleh:
Nama
Kelas
: Muhammad Aji S.
(20)
: XI RPL 1
SEKOLAH MENENGAH KEJURUAN NEGERI 1 TENGARAN KABUPATEN SEMARANG TAHUN 2011
PEMBUATAN APLIKASI DATABASE PENGGAJIAN DENGAN MULTITABLE
A. TEOR TEORII SING SINGKA KAT T Borland Delphi adalah sebuah alat pengembangan aplikasi-aplikasi untuk sistem operasi Microsoft Windows. Delphi sangat berguna dan mudah digunakan untuk membuat suatu program berbasis GUI (Graphical user interface) atau console (mode teks). Kelebihan-kelebihan yang dapat diambil ketika seorang pengembang perangkat lunak menggunakan Borland Delphi adalah : - Delphi mendukung Pemrograman Berorientasi Objek (Object Oriented Programming/OOP) - Pengembangan aplikasi secara cepat (Rapid Application Development/RAD) - Menggunakan bahasa tingkat tinggi - Hasil dari proses kompilasi berupa sebuah file yang dapat dieksekusi (executable file) sehingga mempermudah dalam pendistribusian program dan mengurangi banyaknya file pendukung DLL Gambaran umum rumus dari Borland delphi adalah Procedure…. Begin … End; End. Delphi juga merupakan aplikasi yang tidak sembarangan, aplikasi ini sangat sensitive terhadap spek computer. Sebaiknya anda menggunakan computer speknya yang memadai.
B. TUJUAN Tujuan dibuatnya aplikasi penggajian ini adalah: a) Melatih siswa untuk terampil dalam mengolah informasi dan membuat aplikasi sesuai dengan jurusannya. b) Mampu memban membantu tu pengguna pengguna aplikasi aplikasi ini dalam dalam mengakses mengakses data penggaj penggajian ian karyawan. c) Sebagai Sebagai syarat syarat untuk untuk mendap mendapatkan atkan nilai nilai di di rapor rapor semester. semester. C. ALAT ALAT DAN DAN BAH BAHAN AN Seperangkat PC • Software Borland delphi 7 • Buku panduan (tutorial) •
D. LANG LANGKA KAH H KERJ KERJA A 1) Untu Untuk k mem memul ulai ai Bor Borlan land d Del Delph phi, i, caran caranya ya deng dengan an klik klik Start Start > all all pro progr gram amss > Borland delphi 7 > delphi 7. Kemudian akan muncul lembar kerja berbentuk form seperti gambar dibawah ini:
2) Memb Membua uatt tab tabel el meng engguna gunak kan datab atabas asee des desk ktop top Caranya klik menu Start > all programs > Borland delphi 7 > database desktop. Kemudian klik menu file > new > table> pilih paradox7. Kemudian buat table golongan dengan fields: golongan, gapok, uang perlembur. Table pegawai dengan fields: nip, nama, alamat, telp, golongan. Table penggajian dengan fields: nip, golongan, lembur, uang lembur, total gaji. Type data disesuaikan, untuk data text pilih A sedangkan angka pilih N.
Kemudian buat form dan quick report, atur form dan quick report sesuai 3) dengan gambar di bawah ini:
Atur table properties tiap form dan quick report sesuai dengan table properties 4) dibawah ini: a) Table Table proper propertie tiess form form pegawai pegawai Komponen Name caption Label1 Label2
Label1 Label2
Data Pegawai PT.Wijaya N IP
Label3 Label4 Label5 Label6 GroupBox1 GroupBox2 Edit1 Edit2 Edit3 Edit4 Combobox1
Label3 Label4 Label5 Label6 GroupBox1
NAMA ALAMAT TELEPHON GOLONGAN Master pegawai
Eni Ena Eal Etol C_gol
Button1 Button2 Button3 Button4 Button5 Button6 Datasource1 Dbgrid1 Table1
bsim bbat bcar bedi bha bkem Datasource1 Dbgrid1 Table1
Direktur Manager Sekretaris Karyawan Simpan Batal Cari Edit Hapus Kembali Dataset=tabel1 Datasource= Datasource1 Tableactive=true Tablename=pegawai.db
b) Table Table prop properti erties es form form golong golongan an Komponen
Name
caption
Label1 Label2
Label1 Label2
Input golongan PT. Wijaya Golongan
Label3 Label4 GroupBox1 GroupBox2 Edit1 Edit2 Combobox1
Label3 Label4 GroupBox1
Gaji pokok Uang perlembur Master golongan
Egapok Elembur C_gol
Direktur Manager Sekretaris Karyawan
Button1 Button2 Button3 Button4 Button5 Button6 Datasource1 Dbgrid1 Table1
bsim bbat bcar bedi bha bkem Datasource1 Dbgrid1 Table1
Simpan Batal Cari Edit Hapus Kembali Dataset=tabel1 Datasource= Datasource1 Tableactive=true Tablename=golongan.db
c) Table Table prop properti erties es form form pengga penggajian jian Komponen
Name
caption
Label1
Label1
Label2
Label2
Data penggajian PT.Wijaya N IP
Label3 Label4 Label5 Label6 GroupBox1 GroupBox2 Edit1 Edit2 Edit3 Edit4 Combobox1
Label3 Label4 Label5 Label6
GOLONGAN LEMBUR UANG LEMBUR TOTAL GAJI
Eni Elem Elembur Etol C_gol
Button1 Button2 Button3 Button4 Button5 Button6 Datasource1 Dbgrid1 Table1
bsim bbat bcar bedi bha bkem Datasource1 Dbgrid1 Table1
Table2
Table2
Direktur Manager Sekretaris Karyawan Simpan Batal Cari Edit Hapus Kembali Dataset=tabel1 Datasource= Datasource1 Tableactive=true Tablename=penggajian.db Tableactive=true Tablename=golongan.db
d) Table Table prop properti erties es quic quick k repor reportt Komponen Name QRLabel1
QRLabel1
QRLabel2
QRLabel2
QRLabel3 QRLabel4 QRLabel5 QRLabel6 QRLabel7 QRLabel8 QRLabel9 QRSysdata1 QRSysdata2 QRSysdata3 QRSysdata4 QRDBText1
QRLabel3 QRLabel4 QRLabel5 QRLabel6 QRLabel7 QRLabel8 QRLabel9
QRDBText1
QRDBText2
QRDBText2
QRDBText3
QRDBText3
QRDBText4
QRDBText4
QRDBText5
QRDBText5
QRDBText6
QRDBText6
QRDBText7
QRDBText7
Datasource1 Table1
Datasource1 Table1
Table2
Table2
Table3
Table3
caption
LAPORAN PENGGAJIAN PT WIJAYA NO N IP NAMA GOLONGAN LEMBUR UANG LEMBUR GAJI POKOK TOTAL GAJI Data = qrsdetailno Data = qrspagenumber Data = qrsdate Data = qrstime Datafield= NIP Dataset = table1 Datafield= NAMA Dataset = table1 Datafield= GOLONGAN Dataset = table1 Datafield= LEMBUR Dataset = table3 Datafield= UANG LEMBUR Dataset = table13 Datafield= GAJI POKOK Dataset = table2 Datafield= TOTAL GAJI Dataset = table2 Dataset=tabel1 Tableactive=true Tablename=pegawai.db Tableactive=true Tablename=golongan.db Tableactive=true Tablename=penggajian.db
5. Masukk Masukkan an synt syntax ax pada pada code code edito editor. r. Rumus dimasukkan di button, menu editor, edit (pada menu properties pilih events > onclick).
RUMUS LOGIN DAN KELUAR procedure TForm7.Button1Click(Sender: TForm7.Button1Click(Sender: TObject);
var username, password : string; begin username := 'admin'; password := '123';
if(edit1.Text = username) and (edit2.Text = password) then begin ModalResult ModalResult := mrOK; form1.Show; form7.Hide; end else ShowMessage('Login gagal, password atau username salah.'); end;
procedure TForm7.Button2Click(Sender: TForm7.Button2Click(Sender: TObject); begin application.Terminate; end;
end.
RUMUS MENU UTAMA var Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm1.Pegawai1Click(Se TForm1.Pegawai1Click(Sender: nder: TObject); begin form2.show; form1.Hide; end;
procedure TForm1.Golongan1Click(Sender: TForm1.Golongan1Click(Sender: TObject); begin form3.show; form1.Hide; end;
procedure TForm1.Penggajian1Click(Sender: TForm1.Penggajian1Click(Sender: TObject); begin form4.show; form1.Hide;
end;
procedure TForm1.Exit2Click(Sender: TForm1.Exit2Click(Sender: TObject); begin application.Terminate; end;
procedure TForm1.Laporanpenggajian1 TForm1.Laporanpenggajian1Click(Sender: Click(Sender: TObject); begin QuickReport6.Preview; end;
procedure TForm1.Timer1Timer(Sender: TForm1.Timer1Timer(Sender: TObject); begin label1.caption label1.caption := timetostr(time()); timetostr(time()); end;
procedure TForm1.reportrave1 TForm1.reportrave1Click(Sender: Click(Sender: TObject); begin form5.ShowModal; end;
end.
RUMUS SIMPAN,CARI,EDIT,HAPUS DAN KEMBALI var Form2: TForm2; cari:boolean; implementation uses Unit1; {$R *.dfm}
procedure TForm2.bsimClick(Sender: TForm2.bsimClick(Sender: TObject); begin IF eni.Text='' then showmessage('NIP showmessage('NIP durung diisi..........') else if table1.FindKey([eni.text]) table1.FindKey([eni.text]) then showmessage('NIP wes ono ') else begin table1.Append; table1['NIP']:=eni.Text; table1['NAMA']:=ena.Text; table1['ALAMAT']:=eal.Text; table1['TELEPHON']:=etel.Text; table1['GOLONGAN']:=cgol.Text; table1.Post; eni.SetFocus; showmessage('tersimpan') end;
end;
procedure TForm2.bbatClick(Sender: TObject); begin showmessage('mulai showmessage('mulai baru lagi !!!!!!!!!!!!!'); !!!!!!!!!!!!!'); eni.Text:=''; ena.Text:=''; eal.Text:=''; etel.Text:=''; cgol.Text:=''; eni.SetFocus; end;
procedure TForm2.bediClick(Sender: TObject); begin table1.Edit; table1['NIP']:=eni.Text; table1['NAMA']:=ena.Text; table1['ALAMAT']:=eal.Text; table1['TELEPHON']:=etel.Text; table1['GOLONGAN']:=cgol.Text; table1.Post; table1.Refresh; eni.SetFocus; end;
procedure TForm2.bhaClick(Sender: TForm2.bhaClick(Sender: TObject); begin
if application.MessageBo application.MessageBox('opo x('opo arep tak iloangi....tenan?','confirma iloangi....tenan?','confirmation',mb_YESNO)=id_Y tion',mb_YESNO)=id_YES ES then table1.Delete; eni.Text:=''; ena.Text:=''; eal.Text:=''; etel.Text:=''; cgol.Text:=''; eni.SetFocus; end;
procedure TForm2.bcarClick(Sender: TForm2.bcarClick(Sender: TObject); begin eni.Text:=inputbox('cari','mas eni.Text:=inputbox('cari','masukan ukan nip',''); if table1.FindKey ([eni.Text])then ([eni.Text])then begin ena.text:= table1['NAMA']; eal.text:=table1['ALAMAT']; etel.text:=table1['TELEPHON']; cgol.Text:=table1['GOLONGAN']; dbgrid1.refresh; end; end;
procedure TForm2.bkemClick(Sender: TForm2.bkemClick(Sender: TObject); begin form1.Show; form2.Hide; end;
end.
RUMUS PENGGAJIAN procedure TForm4.elemburClick(Sender: TForm4.elemburClick(Sender: TObject); var lembur:integer l embur:integer;; uang_lembur,gapok,total:real;
begin lembur:=strtoint(elem.Text); table2.Refresh; table2.FindKey(['GOLONGAN']); uang_lembur:=strtofloat(table2['UANG PER LEMBUR']); gapok:= strtofloat(table2['GA strtofloat(table2['GAJI JI POKOK']); elembur.Text:=floattostr( elembur.Text:=floattostr(lembur*uang_lembur lembur*uang_lembur); ); total:=(lembur*uang_lembur)+gapok; etol.Text:=floattostr(total); end; end.
E. Hasil Dari pembuatan aplikasi penggajian ini, pengguna dapat mengolah data kepegawaian yang diperlukan dengan mudah.Dan diharapkan memudahkan pekerjaan pengguna ataupun tugas-tugas pengguna. Dalam program diatas menggunakan multitable sehingga memudahkan pengguna pada saat mengakses database.
F. Kesimpulan
Aplikasi ini sering digunakan untuk pembuatan program berbasis dekstop atau pada pembuatan program-program perkantoran,pembuatan game,maupun aplikasi pada perpustakaan. Dalam pembuatan aplikasi melalui Borland Delphi 7 memerlukan kesabaran,ketelitian dan kecermatan karena aplikasi ini tergolong sensitif.