Membuat Form Gaji dengan Delphi

Sebelum membuat sebuah aplikasi dengan bahasa pemrograman tertentu, langkah awal yang harus dilakukan adalah menganalisa keperluan sistem, dilanjutkan dengan merancang sistem menggunakan DAD (Data Alir Diagram), kemudian merancang database (ERD), dan yang terakhir adalah proses coding.

Pada kasus kali ini adalah nerancang sebuah form aplikasi yang dapat menampilkan informasi gaji pegawai dalam sebuah perusahaan tertentu. Gaji tiap bulan dalam perusahaan tersebut memiliki ketentuan sebagai berikut.

Untuk membangun form penghitungan gaji karyawan dengan Delphi, ikuti langkah langkah berikut.

1. Buka dan jalankan aplikasi Borland Delphi 7 pada Windows

2. Buatlah sebuah projrct baru, dan simpan dengan nama gaji.dpr

3. Buatlah sebuah form dan simpan dengan nama unit1.dfm

4. Desain area kerja seperti berikut

5. Atur properti setiap objek dalam form seperti ketentuan berikut.

No.	Nama Object	Properties
1.	Form	Name: Form1 Caption: Perhitungan Gaji Karyawan
2.	GroupBox1	Name: GroupBox1 Caption: Detail Data Karyawan
3.	GroupBox2	Name: GroupBox2 Caption: Detail Gaji
4.	Edit1	Name: txtnama Font: MS Sans Serif, Regular, 12
5.	Edit2	Name: txtalamat Font: MS Sans Serif, Regular, 12
6.	Edit3	Name: txtgapok Font: MS Sans Serif, Regular, 12
7.	Edit4	Name: txttunjangan Font: MS Sans Serif, Regular, 12
8.	Edit5	Name: txtgaji Font: MS Sans Serif, Regular, 12
9.	DataTimePicker	Name: dtlahir
10.	ComboBox	Name: cbgolongan Items: I            II            III            IV
11	Button1	Name: cmdclear Caption: Batal Font: MS Sans Serif, Bold, 18
12.	Button2	Name: cmdhitung Caption: Hitung Font: MS Sans Serif, Bold, 18
13.	Label1	Caption: Nama : Font: MS Sans Serif, Bold, 12
14	Label2	Caption: Alamat: Font: MS Sans Serif, Bold, 12
15.	Label3	Caption: Tanggal Lahir : Font: MS Sans Serif, Bold, 12
16.	Label4	Caption: Golongan : Font: MS Sans Serif, Bold, 12
17.	Label5	Caption: Gaji Pokok : Font: MS Sans Serif, Bold, 12
18.	Label6	Caption: Tunj. Lainnya : Font: MS Sans Serif, Bold, 12
19	Label7	Caption: Gaji Bersih : Font: MS Sans Serif, Bold, 12

6. Untuk menambahkan object DataTimePIcker pilih Component Pallete – Tab Win32 kemudian klik dan drag object DataTimePicker ke area form dan tata sesuai ketentuan.

7. Double klik object cmdhitung, kemudian sesuaikan dengan kode berikut.

procedure TForm1.cmdhitungClick(Sender: TObject); var   hasil, gapok, tunjangan : integer; begin   if cbgolongan.Text = 'I' then   begin     txtgapok.Text := '500000';     txttunjangan.Text := '100000';     gapok := strtoint (txtgapok.Text);     tunjangan := strtoint (txttunjangan.Text);     hasil := gapok + tunjangan ;     txtgaji.Text := inttostr (hasil) ;   end   else if cbgolongan.Text = 'II' then   begin     txtgapok.Text := '600000';     txttunjangan.Text := '125000';     gapok := strtoint (txtgapok.Text);     tunjangan := strtoint (txttunjangan.Text);     hasil := gapok + tunjangan ;     txtgaji.Text := inttostr (hasil) ;   end   else if cbgolongan.Text = 'III' then   begin     txtgapok.Text := '700000';     txttunjangan.Text := '150000';     gapok := strtoint (txtgapok.Text);     tunjangan := strtoint (txttunjangan.Text);     hasil := gapok + tunjangan ;     txtgaji.Text := inttostr (hasil) ;   end   else if cbgolongan.Text = 'IV' then   begin     txtgapok.Text := '750000';     txttunjangan.Text := '175000';     gapok := strtoint (txtgapok.Text);     tunjangan := strtoint (txttunjangan.Text);     hasil := gapok + tunjangan ;     txtgaji.Text := inttostr (hasil) ;   end end;

            Penjelasan kode pada object cmdhitung adalah sebagai berikut.

1.      Procedure Tform1.cmdhitungClick(Sender:Tobject);

Kode ini memiliki fungsi ketika tombol hitung diklik oleh mouse, aplikasi akan menjalankan events yang berada dalam badan program tersebut.

2.      Var hasil, gapok, tunjangan, : integer;

Kode ini mendefinisikan variabel hasil, gapok, dan tunjangan dengan tipe data integer.

3.      Struktur penyeleksian if...else if.

4.     Pada struktur penyeleksian if...else if, baris kode end setiap seleksi if tidak diakhiri tanda titik koma (;) hal tersebut menyatakan masih terdapat seleksi berikutnya. Adapun pada struktur else terakhir, baris kode end diakhiri tanda titik koma (;) yang menunjukan bahwa baris kode penyeleksian telah berakhir.

8. Double klik object cmdclear, kemudian sesuaikan dengan kode berikut.

procedure TForm1.cmdclearClick(Sender: TObject); begin   txtnama.Text := '';   txtalamat.Text := '';   cbgolongan.Text := '- - Pilih Gol - -';   txtgapok.Text := '';   txttunjangan.Text := '';   txtgaji.Text := ''; end;

Pada procedure ketika object button cmdclear diklik, maka akan menghapus setiap nilai data yang disimpan dalam object txtname, txtalamat, txtgapok, txttunjangan, txtgaji, dan men-setting nilai combobox cbgolongan.text dengan value “- - Pilih Gol - -“.
Tampilannya adalah sebagai berikut.