BAB IV

HASIL DAN PEMBAHASAN

A. Hasil

Hasil penelitian tugas akhir yang dilakukan penulis adalah sistem

informasi penggajian karyawan pada PT. Interyasa. menggunakan

Embarcadero XE2.

1. Form Login

Form Login berfungsi untuk membatasi user yang dapat menggunakan

sistem informasi ini. Hanya user yang telah tersimpan dalam database

yang bisa menggunakannya. Adapun tampilan form login sebagai berikut :

Gambar 27. Tampilan login

31
 32

2. Menu Utama

Menu Utama adalah form yang pertama tampil setelah pengguna login

dengan benar. Maka semua menu – menu di menu utama akan aktif.

Adapun tampilan menu utama adalah sebagai berikut :

Gambar 28. Tampilan menu utama

3. Manajemen Operator

Form manajemen operator adalah form yang digunakan untuk

mengelolah data untuk masuk ke form login. Adapun tampilan form

manajemen operator adalah sebagai berikut :

Gambar 29. Tampilan form Manajemen Operator

 33

Langkah untuk melakukan penginputan data pada form manajemen

operator adalah sebagai berikut :

1) Untuk menambahkan data operator baru klik tombol tambah.

2) Input semua field dikotak input data yang tersedia.

3) Klik tombol simpan untuk menyimpan data yang telah diinputkan.

4) Klik tombol hapus untuk menghapus data operator.

5) Untuk menutup form manajemen operator dan kembali ke menu

utama klik tombol keluar.

4. Input Data

Menu input data memiliki 2 (dua) sub menu, yaitu Input Data Jabatan

dan Input data karyawan

a. Input Data Jabatan

Form input data jabatan adalah form yang digunakan untuk

mengelolah data jabatan di PT. Interyasa Adapun tampilan form input

data jabatan adalah sebagai berikut :

Gambar 30. Tampilan input data jabatan

 34

Langkah untuk melakukan penginputan data pada form input data

jabatan adalah sebagai berikut :

1) Untuk menambahkan data jabatan baru klik tombol tambah.

2) Input semua field dikotak input data yang tersedia.

3) Klik tombol simpan untuk menyimpan data yang telah

diinputkan.

4) Klik tombol ubah untuk melakukan pengeditan data jabatan

yang sudah diinputkan dengan mengklik data jabatan di listview

lalu klik tombol ubah.

5) Klik tombol hapus untuk menghapus data jabatan.

6) Klik berdasarkan id jabatan atau nama jabatan untuk mencari

jabatan yang ingin dicari.

7) Klik tombol batal untuk membatalkan penginputan.

8) Untuk menutup form input data jabatan dan kembali ke menu

utama klik tombol keluar.

b) Input Data Karyawan

Form input data karyawan adalah form yang digunakan untuk

mengelolah data karyawan di PT. Interyasa. Adapun tampilan form

input data karyawan adalah sebagai berikut :

 35

Gambar 31. Tampilan input data karyawan

Langkah untuk melakukan penginputan data pada form input data

karyawan adalah sebagai berikut :

1) Untuk menambahkan data karyawan tambah klik tombol baru.

2) Input semua field dikotak input data yang tersedia.

3) Klik tombol simpan untuk menyimpan data yang telah diinputkan.

4) Klik tombol ubah untuk melakukan pengeditan data karyawan yang

sudah diinputkan dengan mengklik tombol cari lalu klik tombol

ubah.

5) Klik tombol hapus untuk menghapus data karyawan.

6) Klik berdasarkan id karyawan atau nama karyawan untuk mencari

karyawan yang ingin dicari.

7) Klik tombol batal untuk membatalkan penginputan.

8) Untuk menutup form input data karyawan dan kembali ke menu

utama klik tombol keluar

 36

5. Menu Proses

a. Input insentif

Form data insentif adalah form yang digunakan untuk mengelola

data insentif karyawan. Adapun tampilan form data insentif yaitu :

Gambar 32. Tampilan form input insentif karyawan

Langkah untuk melakukan penginputan data pada form data insentif

adalah sebagai berikut :

1) Untuk menambahkan data insentif klik tombol tambah.

2) Pilih tanggal insentif tersebut.

3) Input semua field dikotak input data yang tersedia.

4) Klik tombol simpan untuk menyimpan data yang telah diinputkan.

5) Klik tombol batal untuk membatalkan penginputan.

6) Untuk menutup form input data insentif dan kembali ke menu

utama klik tombol keluar.

 37

b. Input data gaji

Form data gaji adalah form yang digunakan untuk mengelola data

gaji karyawan setiap karyawan. Adapun tampilan form input data gaji

yaitu :

Gambar 33. Tampilan form input gaji karyawan

Langkah untuk melakukan penginputan data pada form data gaji adalah

sebagai berikut :

1) Untuk menambahkan data gaji klik tombol tambah.

2) Pilih tanggal gaji tersebut.

3) Selanjutnya input field pilih id karyawan, isi potongan lainnya jika

ada potongan karyawan.

4) Klik tombol simpan untuk menyimpan data yang telah diinputkan.

5) Untuk menutup form input data gaji dan kembali ke menu utama

klik tombol keluar.

6) Klik tombol batal untuk membatalkan penginputan.

 38

7) Klik tombol slip gaji untuk menampilkan slip gaji karyawan.

Gambar 34. Tampilan slip gaji karyawan

6. Laporan dan pencarian

Menu laporan dan pencarian adalah memiliki 3 (empat) sub menu,

yaitu laporan karyawan, laporan data gaji, laporan absen, laporan

insentif.

a. Laporan karyawan

Form laporan karyawan adalah form yang digunakan untuk

manampilkan laporan data karyawan. Adapun tampilan form laporan

data karyawan sebagai berikut :

 39

Gambar 35. Tampilan form laporan data karyawan

Gambar 36. Tampilan laporan cetak semua karyawan

 40

Gambar 37. Tampilan laporan cetak per karyawan

b. Laporan data absen

Form data absen adalah form yang digunakan untuk

manampilkan laporan data absen karyawan. Adapun tampilan form

laporan data absen sebagai berikut :

Gambar 38. Tampilan form laporan data absen

 41

Gambar 39. Tampilan laporan absen cetak per karyawan

Gambar 40. Tampilan laporan absen cetak semua karyawan

 42

c. Laporan insentif

Form insentif adalah form yang digunakan untuk manampilkan

laporan insentif karyawan. Adapun tampilan form laporan insentif

sebagai berikut :

Gambar 41. Tampilan form laporan insentif

Gambar 42. Tampilan form laporan insentif per karyawan

 43

Gambar 43. Tampilan form laporan data semua insentif karyawan

 44

d. Laporan gaji

Form data gaji adalah form yang digunakan untuk manampilkan

laporan data gaji karyawan. Adapun tampilan form laporan data gaji

sebagai berikut :

Gambar 44. Tampilan form laporan data gaji

 45

Gambar 45. Tampilan form laporan data semua gaji karyawan

Gambar 46. Tampilan form laporan gaji per karyawan

 46

B. Pembahasan

Langkah-langkah pembuatan sistem informasi penggajian karyawan pada

PT. Interyasa adalah sebagai berikut :

1. Membuat database dan table

Langkah-langkah membuat database menggunakan MySql adalah sebagai

berikut :

a. Aktifkan XAMPP, Jalankan Apache dan MySql. Klik tombol Start.

Gambar 47. Tampilan XAMPP

b. masuk ke pencarian google, ketikan Localhost//phpmyadmin.

Gambar 48. Tampilan localhost server databases

c. Kemudian akan tampil kotak dialog file new database Seperti pada

gambar berikut :
 47

Gambar 49. Tampilan file new database

d. Klik database kemudian isi nama database yang akan dibuat, kemudian

klik buat, selanjutnya isi nama tabel, lalu klik kirim

Gambar 50. Tampilan phpMyAdmin

e. Pada bagian field name ketikan nama-nama field sesuai dengan

struktur field pada bab sebelumnya. Pada bagian Data type tentukan

tipe data untuk masing-masing field.

 48

f. Tentukan ukuran field pada bagian field size, kemudian tentukan

format, khususnya untuk field dengan type date/time, jika sudah selesai

klik simpan

Gambar 51. Tampilan field

g. Lakukan hal yang sama untuk membuat tabel database yang lainnya,

jika selesai tabel disimpan, lalu close.

Gambar 52. Tampilan tabel yang sudah disimpan

h. Selanjutnya jika database sudah dibuat maka masuk ke Data Source

(ODBC )
 49

Gambar 53. Tampilan Data Source (odbc)

i. Pilih database yang telah dibuat klik add, pilih mysql odbc 3.51 driver,

klik finish

j. Maka akan muncul tampilan connector/odbc

Gambar 54. Tampilan Connector/odbc

k. Lalu isi nama database data sourcenya, isi top/tp server dengan

localhost, isi user dengan root, jika sudah klik ok.

 50

2. Membuat menu - menu form pada sistem informasi gaji menggunakan

Embarcadero Delphi XE2.

a. Klik Start-Embarcadero Delphi XE2.

b. Jalankan aplikasi Embarcadero Delphi XE 2 dengan memilih menu

start- all program, kemudian pilih Embarcadero Delphi XE 2. Maka

akan muncul lembar kerja Delphi seperti pada gambar berikut ;

Gambar 55. Tampilan lembar kerja Embarcadero Delphi XE 2

c. Untuk keluar dari aplikasi embarcadero klik file-exit atau bisa

menggunakan icon close pada sudut kanan atas.

3. Membuat form menu

Langkah-langkah membuat form menu utama sebagai berikut :

a. Langkah pertama ambil komponen main menu dari tab standard yang

ada di tool palette lalu double klik main menu.

 51

Gambar 56. Tampilan komponen main menu

b. Ketikkan nama-nama data sub menu yang akan ditampilkan dengan

menginputkannya di properties caption untuk background gunakan

komponen image pada tab additional, atur properties stretch menjadi

true kemudian properties align diberi nama all client untuk

menyesuaikan ukuran gambar dengan ukuran form.

Gambar 57. Tampilan main menu

 52

Gambar 58. Tampilan object inspector

c. Selanjutnya tinggal membuat tampilan seperti pada gambar dibawah

ini :

Gambar 59. Tampilan Form menu utama

 53

4. Membuat form input data

Membuat input data digunakan untuk memilih form input data yang

akan ditampilkan. Form input data digunakan untuk melakukan

penginputan data-data sistem informasi pendataan pembuatan kartu

angkatan kerja (AK/1). Adapun langkah-langkah membuatnya sebagai

berikut :

a. Jalankan program aplikasi Embarcadero Delphi XE2.

b. Selanjutnya adalah desain tampilan form.

c. Selanjutnya adalah ADOquery dari tab ADO dan atur properties

connectionstring dengan mengklik tanda maka akan muncul tampilan

sebagai berikut :

Gambar 60. Tampilan connection string

d. Klik build, pilih Microsoft jet 4.0 OLE DB provider kemudian klik

next.
 54

Gambar 61. Tampilan Data link Properties Provider

e. Lalu buka folder database db_pt_interyasa, maka akan muncul

tampilan sebagai berikut :

Gambar 62. Tampilan Select MySql Database

f. Setelah folder database dibuka lalu pilih Database db_pt_interyasa,

jika file name sudah dimasukkan klik open maka akan muncul

tampilan sebagai berikut :

 55

Gambar 63. Tampilan Data link Properties Provider Tab Connection

g. Kemudian klik Test Connection, jika database sudah benar klik OK

h. Kemudian buka form baru untuk membuat form input jabatan.

Gambar 64. Tampilan lembar kerja Embarcadero Delphi XE 2

i. Kemudian buka menu tool palete untuk mengambil field yang akan

digunakan pada form input jabatan misalkan komponen ADOTable,

ubah name nya menjadi ado_jabatan.

 56

Gambar 65. Tampilan tool palette

Gambar 66. Tampilan Data ADOTable

j. Kemudian klik dua kali komponen ADOTable untuk mengambil field

yang akan digunakan pada form input jabatan, maka akan muncul

tampilan sebagai beikut :

 57

Gambar 67. Tampilan Field Data Jabatan

k. Kemudian drag field-field tersebut ke form input jabatan, kemudian

tambah 6 button yaitu button tambah, simpan, hapus, ubah, batal, dan

button cari. lalu tambahkan db grid, radio button dan dbedit untuk

pencarian maka akan muncul tampilan sebagai berikut:

Gambar 68. Tampilan Form Input Jabatan

 58

l. Berikut ini adalah coding button tambah, simpan, ubah, hapus, batal,

keluar dan cari.

Tabel 9. Tabel Button pada Form Input Jabatan

No Button Skrip / Koding

1 Tambah procedure Tf_input_jabatan.BTN_TAMBAHClick(Sender:
TObject);
begin
bersih_dbedit;
hidup_dbedit;
BTN_TAMBAH.Enabled:=FALSE;
BTN_SIMPAN.Enabled:=TRUE;
BTN_BATAL.Enabled:=TRUE;
ado_jabatan.Append;
TXT_ID_JABATAN.SetFocus;
end;
2 Simpan procedure Tf_input_jabatan.BTN_SIMPANClick(Sender:
TObject);
begin
if TXT_ID_JABATAN.Text='' then
begin
Application.MessageBox('maaf ID JABATAN masih
kosong','INFORMASI',MB_OK);
TXT_ID_JABATAN.SetFocus;
exit;
end
else if TXT_NAMA_JABATAN.Text='' then
begin
Application.MessageBox('maaf NAMA JABATAN
masih kosong','INFORMASI',MB_OK);
TXT_NAMA_JABATAN.SetFocus;
exit;
end
else
begin
with query_validasi do
begin
Close;
SQL.Clear;
SQL.Add('SELECT *FROM tabel_jabatan WHERE
id_jabatan="'+TXT_ID_JABATAN.Text+'"');
open;

if Not isEmpty then

begin
Application.MessageBox('maaf ID JABATAN telah
ada','INFORMASI',MB_OK);
 59

TXT_ID_JABATAN.SetFocus;
exit;
end
else
begin
ado_jabatan['id_jabatan']:=TXT_ID_JABATAN.Text;

ado_jabatan['nama_jabatan']:=TXT_NAMA_JABATAN.Te
xt;

ado_jabatan['gaji_pokok']:=TXT_GAJI_POKOK.Text;
ado_jabatan.Post;
Application.MessageBox('DATA JABATAN
BERHASIL DISIMPAN','INFORMASI');
OnActivate(SENDER);
end;
end;
end;
end;
3 Hapus procedure Tf_input_jabatan.BTN_HAPUSClick(Sender:
TObject);
begin
if Application.MessageBox('APAKAH DATA JABATAN
INGIN DI HAPUS','peringatan',MB_YESNO or
MB_ICONQUESTION)=ID_YES then
begin
ado_jabatan.Delete;
Application.MessageBox('DATA JABATAN
BERHASIL DI HAPUS','informasi',MB_OK);
OnActivate(sender);
end;
end;
4 Ubah procedure Tf_input_jabatan.BTN_UBAHClick(Sender:
TObject);
begin
if Application.MessageBox('APAKAH YAKIN INGIN
UBAH DATA JABATAN','peringatan',MB_YESNO or
MB_ICONQUESTION)=ID_YES then
begin
ado_jabatan.Edit;
ado_jabatan['id_jabatan']:=TXT_ID_JABATAN.Text;

ado_jabatan['nama_jabatan']:=TXT_NAMA_JABATAN.Te
xt;
ado_jabatan['gaji_pokok']:=TXT_GAJI_POKOK.Text;
Application.MessageBox('DATA JABATAN
BERHASIL DIUBAH','INFORMASI',MB_OK);
ado_jabatan.Post;
OnActivate(sender);
exit;
 60

end;
end;
5 Batal procedure Tf_input_jabatan.BTN_BATALClick(Sender:
TObject);
begin
ado_jabatan.Cancel;
OnActivate(SENDER);
end;
6 Cari procedure Tf_input_jabatan.BTN_CARIClick(Sender:
TObject);
begin
if RB_ID_JABATAN.Checked=True then
begin
if not ado_jabatan.Locate('id_jabatan',TXT_CARI.Text,
[])=True then
begin
MessageDlg('ID JABATAN TIDAK
DITEMUKAN',mtInformation,[mbok],0);
TXT_CARI.SetFocus;
Exit;
end
else
begin
ado_jabatan.Locate('id_jabatan',TXT_CARI.Text,[]);
hidup_dbedit;
BTN_TAMBAH.Enabled:=False;
BTN_UBAH.Enabled:=True;
BTN_HAPUS.Enabled:=True;
BTN_BATAL.Enabled:=True;
TXT_ID_JABATAN.Enabled:=FALSE;
TXT_NAMA_JABATAN.SetFocus;
end;
end
else if RB_NAMA.Checked=True then
begin
if not
ado_jabatan.Locate('nama_jabatan',TXT_CARI.Text,
[])=True then
begin
MessageDlg('NAMA JABATAN TIDAK
DITEMUKAN',mtInformation,[mbok],0);
TXT_CARI.SetFocus;
Exit;
end
else
begin
ado_jabatan.Locate('nama_jabatan',txt_cari.Text,[]);
hidup_dbedit;
BTN_TAMBAH.Enabled:=False;
BTN_UBAH.Enabled:=True;
 61

BTN_HAPUS.Enabled:=True;
BTN_BATAL.Enabled:=True;
TXT_ID_JABATAN.Enabled:=FALSE;
TXT_NAMA_JABATAN.SetFocus;
end;
end;
end;

5. Membuat form Transaksi

Membuat transaksi digunakan untuk melakukan transaksi yang akan

ditampilkan. Form ini terdiri dari transaksi absen, insentif, gaji, yang

digunakan untuk melakukan proses penggajian pada PT. Interyasa.

Adapun langkah-langkah membuatnya transaksi penggajian sebagai

berikut :

a. Jalankan program aplikasi Embarcadero Delphi XE2.

b. Selanjutnya adalah desain tampilan form.

c. Selanjutnya adalah ambil field-field yang akan dimasukan ke form

transaksi gaji dengan cara masuk ke ADOTable yang name nya telah

diubah ado_gaji double klik maka akan muncul field-fieldnya drag ke

form gaji.

Gambar 69. Tampilan field ado_gaji

 62

d. selanjutnya double klik ado_karyawan lalu drag semua ke form gaji,

untuk mengambil field , id_karyawan, nama, jenis_kelamin,

tanggal_lahir, alamat, status_kawin, no_hp, tmt_mulai_bekerja,

id_jabatan, nama_jabatan dan drag lagi ke form gaji.

Gambar 70. Tampilan field ado_karyawan

e. Kemudian tambah button-button yaitu button tambah, simpan, hapus,

ubah, batal, keluar, cari, dan button slip gaji buat coding pada button-

button tersebut, kemudian tambah dbgrid, radio button untuk pilihan

pencarian.

f. Berikut ini adalah coding button tambah, simpan, ubah, hapus, batal,

keluar dan cari.

Tabel 10. Tabel Button pada Form Transaksi gaji

No Button Skrip / Koding

1 Tambah procedure Tf_input_gaji.BTN_TAMBAHClick(Sender:
TObject);
begin
bersih_dbedit;
hidup_dbedit;
BTN_TAMBAH.Enabled:=FALSE;
BTN_SIMPAN.Enabled:=TRUE;
BTN_BATAL.Enabled:=TRUE;
ado_GAJI.Append;
TXT_NO_GAJI.SetFocus;
end;
 63

2 Simpan procedure Tf_input_gaji.BTN_SIMPANClick(Sender:

TObject);
begin
if TXT_NO_GAJI.Text='' then
begin
Application.MessageBox('maaf NO GAJI masih
kosong','INFORMASI',MB_OK);
TXT_NO_GAJI.SetFocus;
exit;
end
else if TXT_NAMA_KARYAWAN.Text='' then
begin
Application.MessageBox('maaf NAMA
KARYAWAN masih kosong','INFORMASI',MB_OK);
CMB_ID_KARYAWAN.SetFocus;
exit;
end
else if TXT_BONUS_INSENTIF.Text='' then
begin
Application.MessageBox('maaf BONUS INSENTIF
masih kosong','INFORMASI',MB_OK);
TXT_BONUS_INSENTIF.SetFocus;
exit;
end
else if TXT_POTONGAN_DEPOSIT.Text='' then
begin
Application.MessageBox('maaf POTONGAN
DEPOSIT masih kosong','INFORMASI',MB_OK);
TXT_POTONGAN_DEPOSIT.SetFocus;
exit;
end
else if TXT_POTOGAN_LAINNYA.Text='' then
begin
Application.MessageBox('maaf POTONGAN
LAINNYA masih kosong','INFORMASI',MB_OK);
TXT_POTOGAN_LAINNYA.SetFocus;
exit;
end
else if TXT_GAJI_BERSIH.Text='' then
begin
Application.MessageBox('maaf GAJI BERSIH
masih kosong','INFORMASI',MB_OK);
TXT_POTOGAN_LAINNYA.SetFocus;
exit;
end
else
begin
with query_validasi do
begin
Close;
 64

SQL.Clear;
SQL.Add('SELECT *FROM tabel_gaji WHERE
no_gaji="'+TXT_NO_GAJI.Text+'"');
open;

if Not isEmpty then

begin
Application.MessageBox('maaf NO GAJI telah
ada','INFORMASI',MB_OK);
TXT_NO_GAJI.SetFocus;
exit;
end
else
begin
ado_gaji['no_gaji']:=TXT_NO_GAJI.Text;
ado_gaji['tgl_gaji']:=DT_TGL_GAJI.Date;

ado_gaji['id_karyawan']:=CMB_ID_KARYAWAN.Te
xt;

ado_gaji['nama_karyawan']:=TXT_NAMA_KARYAW
AN.Text;

ado_gaji['id_jabatan']:=TXT_ID_JABATAN.Text;

ado_gaji['nama_jabatan']:=TXT_NAMA_JABATAN.T
ext;

ado_gaji['gaji_pokok']:=TXT_GAJI_POKOK.Text;

ado_gaji['bonus_insentif']:=TXT_BONUS_INSENTIF.
Text;

ado_gaji['potongan_deposit']:=TXT_POTONGAN_DE
POSIT.Text;

ado_gaji['potongan_lainnya']:=TXT_POTOGAN_LAI
NNYA.Text;

ado_gaji['total_potongan']:=TXT_TOTAL_POTONGA
N.Text;

ado_gaji['gaji_bersih']:=TXT_GAJI_BERSIH.Text;
ado_gaji.Post;
Application.MessageBox('DATA GAJI
BERHASIL DISIMPAN','INFORMASI');
OnActivate(SENDER);
end;
end;
end;
 65

end;
3 Batal procedure Tf_input_gaji.BTN_BATALClick(Sender:
TObject);
begin
ado_gaji.Cancel;
OnActivate(SENDER);
end;
4 Ubah procedure Tf_input_gaji.BTN_UBAHClick(Sender:
TObject);
begin
if Application.MessageBox('APAKAH YAKIN
INGIN UBAH DATA GAJI','peringatan',MB_YESNO
or MB_ICONQUESTION)=ID_YES then
begin
ado_gaji.Edit;
ado_gaji['no_gaji']:=TXT_NO_GAJI.Text;
ado_gaji['tgl_gaji']:=DT_TGL_GAJI.Date;

ado_gaji['id_karyawan']:=CMB_ID_KARYAWAN.Te
xt;

ado_gaji['nama_karyawan']:=TXT_NAMA_KARYAW
AN.Text;

ado_gaji['id_jabatan']:=TXT_ID_JABATAN.Text;

ado_gaji['nama_jabatan']:=TXT_NAMA_JABATAN.T
ext;

ado_gaji['gaji_pokok']:=TXT_GAJI_POKOK.Text;

ado_gaji['bonus_insentif']:=TXT_BONUS_INSENTIF.
Text;

ado_gaji['potongan_deposit']:=TXT_POTONGAN_DE
POSIT.Text;

ado_gaji['potongan_lainnya']:=TXT_POTOGAN_LAI
NNYA.Text;

ado_gaji['total_potongan']:=TXT_TOTAL_POTONGA
N.Text;

ado_gaji['gaji_bersih']:=TXT_GAJI_BERSIH.Text;
Application.MessageBox('DATA GAJI
BERHASIL DIUBAH','INFORMASI',MB_OK);
ado_gaji.Post;
OnActivate(sender);
exit;
end;
 66

end;
5 Hapus procedure Tf_input_gaji.BTN_HAPUSClick(Sender:
TObject);
begin
if Application.MessageBox('APAKAH DATA GAJI
INGIN DI HAPUS','peringatan',MB_YESNO or
MB_ICONQUESTION)=ID_YES then
begin
ado_gaji .Delete;
Application.MessageBox('DATA GAJI BERHASIL
DI HAPUS','informasi',MB_OK);
OnActivate(sender);
end;
end;
6 Slip Gaji procedure Tf_input_gaji.BTN_SLIPClick(Sender:
TObject);
begin
SLIP.ReportFileName:='slip_gaji.rpt';

SLIP.SelectionFormula:='{tabel_gaji.no_gaji}='+Quote
dStr(TXT_NO_GAJI.Text);
SLIP.RetrieveDataFiles;
SLIP.WindowState:=crptMaximized;
SLIP.Action:=1;
end;

7 Cari procedure Tf_input_gaji.BTN_CARIClick(Sender:

TObject);
begin
if RB_ID_KARYAWAN.Checked=True then
begin
if not
ado_gaji.Locate('id_karyawan',TXT_CARI.Text,
[])=True then
begin
MessageDlg('ID KARYAWAN TIDAK
DITEMUKAN',mtInformation,[mbok],0);
TXT_CARI.SetFocus;
Exit;
end
else
begin
ado_gaji.Locate('id_karyawan',TXT_CARI.Text,
[]);
hidup_dbedit;
BTN_TAMBAH.Enabled:=False;
BTN_UBAH.Enabled:=True;
BTN_HAPUS.Enabled:=True;
BTN_BATAL.Enabled:=True;
 67

TXT_NO_GAJI.Enabled:=FALSE;
CMB_ID_KARYAWAN.SetFocus;
end;
end
else if RB_NO_GAJI.Checked=True then
begin
if not ado_gaji.Locate('no_gaji',TXT_CARI.Text,
[])=True then
begin
MessageDlg('NO GAJI TIDAK
DITEMUKAN',mtInformation,[mbok],0);
TXT_CARI.SetFocus;
Exit;
end
else
begin
ado_gaji.Locate('no_gaji',txt_cari.Text,[]);
hidup_dbedit;
BTN_TAMBAH.Enabled:=False;
BTN_UBAH.Enabled:=True;
BTN_HAPUS.Enabled:=True;
BTN_BATAL.Enabled:=True;
TXT_NO_GAJI.Enabled:=FALSE;
CMB_ID_KARYAWAN.SetFocus;
end;
end;
end;

g. Jika selesai semua maka simpan form transaksi tersebut.

h. Begitu juga dengan membuat form transksi lainnya.

6. Membuat form pencarian dan laporan

Langkah-langkah dalam membuat form pencarian dan laporan data adalah

sebagai berikut :

a. Pencarian dan laporan karyawan

1.) Membuka form baru untuk memulai membuat form pencarian.

 68

Gambar 71. Tampilan lembar kerja Embarcadero Delphi XE 2

2.) Masukan komponen ADOquery, data source yang terdapat dalam

komponen ADO kedalam form pencarian data. Kemudian ubah

setting properties ConnectionString (diisi dengan database), table

name diganti dengan f_laporan_karyawan. lalu masukkan

Datagrid, radio button lalu pilih pada properties data source

menjadi dan Groupbox untuk melakukan pencarian dan laporan

lebih rapi.

Gambar 72. Tampilan pembuatan pencarian data karyawan

Tabel 11. Tabel Button Form Pencarian Data Karyawan

 69

No Button Skrip / Koding

1 Cari procedure Tf_lap_karyawan.BTN_CARIClick(Sender:
TObject);
begin
With query_cari_laporan do
Begin
Close;
SQL.Clear;
if RB_ID_KARYAWAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_karyawan WHERE
id_karyawan="'+ TXT_CARI.Text +'"');
end
else if RB_NAMA_KARYAWAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_karyawan WHERE
nama="'+ TXT_CARI.Text+'"') ;
end
else if RB_JENIS_KELAMIN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_karyawan WHERE
jenis_kelamin="'+ TXT_CARI.Text+'"') ;
end
else if RB_STATUS_KAWIN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_karyawan WHERE
status_kawin="'+ TXT_CARI.Text+'"') ;
end
else
begin
Application.MessageBox('pilih dulu pencarian
berdasarkan','informasi',MB_OK);
BTN_CARI.SetFocus;
SQL.Add('SELECT * FROM tabel_karyawan') ;
end;
open;
End;
end;
2 Refresh procedure Tf_lap_karyawan.BTN_REFRESHClick(Sender:
TObject);
begin
With query_cari_laporan do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM tabel_karyawan ORDER BY
id_karyawan ASC');
open;
//Menampilkan Data Dalam DATA GRID
DG_KARYAWAN.Refresh;
 70

end;
end;

end.

3 Tampil procedure Tf_lap_karyawan.btn_cetakClick(Sender:

kan TObject);
begin
cr_laporan.ReportFileName:='laporan_karyawan.rpt';
if RB_ID_KARYAWAN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_karyawan.id_karyawa
n}='+QuotedStr(TXT_CARI.Text);
end
else if RB_NAMA_KARYAWAN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_karyawan.nama}='+Q
uotedStr(TXT_CARI.Text);
end
else if RB_JENIS_KELAMIN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_karyawan.jenis_kelam
in}='+QuotedStr(TXT_CARI.Text);
end
else if RB_STATUS_KAWIN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_karyawan.status_kawi
n}='+QuotedStr(TXT_CARI.Text);
end
else
begin
Application.MessageBox('pilih dulu pencarian
berdasarkan','informasi',MB_OK);
BTN_CARI.SetFocus;
end;
cr_laporan.RetrieveDataFiles;
cr_laporan.WindowState:=crptMaximized;
cr_laporan.Action:=1;
end;
 71

4 Semua procedure Tf_lap_karyawan.BitBtn2Click(Sender: TObject);

begin
cr_semua.ReportFileName:='laporan_karyawan.rpt';
cr_semua.RetrieveDataFiles;
cr_semua.WindowState:=crptMaximized;
cr_semua.Action:=1;
end

3) Untuk membuat laporan, pada form yang sama masukkan

komponen Crystal Report yang terdapat dalam komponen ActiveX.

Kemudian dalam langkah selanjutnya dilakukan pembuatan laporan

di crystal report, atur database yang ingin digunakan dan untuk

dibuatkan laporan.

Gambar 73. Tampilan Pembuatan Report

3.)Begitu juga untuk membuat laporan dan pencarian absen, dan

insentif buka form baru untuk membuat form pencarian dan

laporan, kemudian tambahkan beberapa check box dari tool pallete,

kemudian tambah db grid dan 4 button, yaitu button cari, refresh,

tampilkan, dan semua.

 72

b. Pencarian dan laporan gaji

1.) Membuka form baru untuk memulai membuat form pencarian data

Transaksi pembelian, klik new, vcl form delphi.

Gambar 74. Tampilan lembar kerja Embarcadero Delphi XE 2

2.) Masukan komponen ADOquery, yang terdapat dalam komponen

ADO kedalam form pencarian data. Kemudian ubah setting

properties ConnectionString (diisi dengan database), table name

diganti dengan tabel_gaji. Lalu masukkan Datagrid, tambah button

cari, refresh, tampilkan dan semua.

Gambar 75. Tampilan pembuatan pencarian dan transaksi gaji

 73

Tabel 12. Tabel Button Form Pencarian Gaji

No Button Skrip / Koding

1 Cari procedure Tf_lap_gaji.BTN_CARIClick(Sender:
TObject);
begin
With query_cari_laporan do
Begin
Close;
SQL.Clear;
if RB_ID_JABATAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
id_jabatan="'+ TXT_CARI.Text +'"');
end
else if RB_NAMA_JABATAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
nama_jabatan="'+ TXT_CARI.Text +'"');
end
else if RB_ID_KARYAWAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
id_karyawan="'+ TXT_CARI.Text +'"');
end
else if RB_NAMA_KARYAWAN.Checked=true
then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
nama_karyawan="'+ TXT_CARI.Text +'"');
end
else if RB_PER_BULAN.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
MONTH(tgl_gaji)='''+FormatDateTime('mm',DT_PERBU
LAN.Date)+'AND
YEAR(tgl_gaji)='+FormatDateTime('yyyy',DT_PERBUL
AN.Date)+'''');
end
else if RB_PER_PERIODE.Checked=true then
begin
SQL.Add('SELECT * FROM tabel_gaji WHERE
tgl_gaji BETWEEN '''+FormatDateTime('yyyy-mm-
dd',dt_tgl_awal.Date)+''' AND '''+FormatDateTime('yyyy-
mm-dd',dt_tgl_akhir.Date)+'''');
end
else
begin
SQL.Add('SELECT * FROM tabel_gaji');
end;
 74

open;
End;
end;
2 Refresh procedure Tf_lap_gaji.BTN_REFRESHClick(Sender:
TObject);
begin
With query_cari_laporan do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM tabel_gaji');
open;
End;
end;
3 Tampil procedure Tf_lap_gaji.BTN_TAMPILKANClick(Sender:
TObject);
begin
cr_laporan.ReportFileName:='laporan_gaji.rpt';
if RB_ID_JABATAN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_gaji.id_jabatan}='+
QuotedStr(TXT_CARI.Text);
end
else if RB_NAMA_JABATAN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_gaji.nama_jabatan}
='+QuotedStr(TXT_CARI.Text);
end
else if RB_ID_KARYAWAN.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_gaji.id_karyawan}
='+QuotedStr(TXT_CARI.Text);
end
else if RB_NAMA_KARYAWAN.Checked=true
then
begin

cr_laporan.SelectionFormula:='{tabel_gaji.nama_karyawa
n}='+QuotedStr(TXT_CARI.Text);
end
else if RB_PER_BULAN.Checked=true then
begin

cr_laporan.SelectionFormula:='MONTH({tabel_gaji.tgl_g
aji})='+FormatDateTime('MM',DT_PERBULAN.date)+'
AND
YEAR({tabel_gaji.tgl_gaji})='+FormatDateTime('yyyy',D
 75

T_PERBULAN.date)+'';
end
else if RB_PER_PERIODE.Checked=true then
begin

cr_laporan.SelectionFormula:='{tabel_gaji.tgl_gaji}>=#'+
FormatDateTime('mm-dd-yyyy',dt_tgl_awal.date)+'#
AND {tabel_gaji.tgl_gaji}<=#'+FormatDateTime('mm-
dd-yyyy',dt_tgl_akhir.date)+'#';
end;

cr_laporan.RetrieveDataFiles;
cr_laporan.WindowState:=crptMaximized;
cr_laporan.Action:=1;
end;

end.
4 Semua procedure Tf_lap_gaji.BTN_SEMUAClick(Sender:
TObject);
begin
CR_SEMUA.ReportFileName:='laporan_gaji.rpt';
CR_SEMUA.RetrieveDataFiles;
CR_SEMUA.WindowState:=crptMaximized;
CR_SEMUA.Action:=1
end;

3). Untuk membuat laporan, pada form yang sama masukkan komponen

Crystal Report yang terdapat dalam komponen ActiveX. Kemudian

dalam langkah selanjutnya dilakukan pembuatan laporan di crystal

report, atur database yang ingin digunakan dan untuk dibuatkan

laporan.
 76

Gambar 76. Tampilan Pembuatan Laporan Gaji

Begitu juga untuk membuat laporan dan pencarian absen, dan insentif

buka form baru untuk membuat form pencarian dan laporan, kemudian

tambahkan beberapa check box dari tool pallete, kemudian tambah db

grid dan 4 button, yaitu button cari, refresh, tampilkan, dan semua.

7. Membuat form manajemen operator

a. Membuka form baru untuk memulai membuat form manajemen

operator.

Gambar 77. Tampilan lembar kerja Embarcadero Delphi XE 2

 77

b. Masukan komponen ADO table, data source yang terdapat dalam

komponen ADO kedalam form manajemen operator. Kemudian ubah

setting properties ConnectionString (diisi dengan database), table

name diganti dengan tabel_operator. Lalu masukkan Datagrid, lalu

pilih pada properties data source menjadi ds_operator supaya

terkoneksi dengan benar

c. Selanjutnya, pada form yang sama masukan komponen TButton

tambah, simpan, hapus, keluar. TDBedit, dan Tlabel yang terdapat

dalam komponen Tool palette, pilih Tool palette yang ingin digunakan

untuk membuat desain menu manajemen operator, serta masukan

koding di komponen TButton.

Gambar 78. Tampilan Pembuatan Manajemen Operator

 78

Tabel 13. Tabel Button Form Manajemen Operator

No Button Skrip / Koding

1 Tambah procedure
Tf_manajemenoperator1.Button1Click(Sender:
TObject);
begin
Ado_Operator.Append;
dbedit1.SetFocus;
end;
2 Simpan procedure
Tf_manajemenoperator1.Button2Click(Sender:
TObject);
begin
ADO_OPERATOR.Post;
end;
Hapus procedure
Tf_manajemenoperator1.Button3Click(Sender:
TObject);
begin
ADO_OPERATOR.DELETE;
end;
Keluar procedure
Tf_manajemenoperator1.Button4Click(Sender:
TObject);
begin
CLOSE;
end;