Halo Sobat Fajarjabrik, kali ini gue mau share tutorial buat ngebikin aplikasi perhitungan gaji karyawan menggunakan aplikasi foxpro.
Bagi yang ngambil kuliah berbasis komputer, pasti pernah dong disuruh oleh dosen mata kuliah kalian buat ngebikin program kayak gini,
cara bikinnya sederhana kok, cuman butuh beberapa kolom input, combobox, n combo button.
Oke, gak usah banyak bacot, langsung aja ikutin caranya dibawah ini:
(File >> New, Pilih file type Project >> New File)
2. Buat sebuah database (free table) untuk tempat penyimpanan
(Pada Project Manager, Pilih Data >> Free Tables >>New)
Gunakan Ketentuan Sebgai Berikut dan simpan dengan nama (TGaji.dbf)
Name
|
Type
|
Width
|
nama
|
character
|
15
|
jabatan
|
character
|
13
|
gaji
|
number
|
7
|
statuse
|
character
|
13
|
tunjangan
|
number
|
6
|
total
|
number
|
10
|
2. Buat sebuah form
(Pada Project Manager, Pilih Document >> Form >> New)
4. Buat desain form seperti dibawah ini
Gunakan Ketentuan Sebagai Berikut
| Object | Name | Caption |
| Label1 | Label1 | PENGHITUNG GAJI KARYAWAN |
| Label2 | Label2 | Nama Karyawan |
| Label3 | Label3 | Jabatan |
| Label4 | Label4 | Gaji Pokok |
| Label5 | Label5 | Status |
| Label6 | Label6 | Tunjangan |
| Label7 | Label7 | Total Gaji |
| Text1 | Text1 | - |
| Text2 | Text2 | - |
| Text3 | Text3 | - |
| Text4 | Text4 | - |
| Combo1 | Combo1 | |
| Combo2 | Combo2 | |
| Command1 | CHitung | \<HITUNG |
| Command2 | CSimpan | \<SIMPAN |
| Command3 | CBaru | \<BARU |
| Command4 | CHapus | \<HAPUS |
| Command5 | CExit | \<EXIT |
| Grid1 | Grid1 | Grid1 |
Coding Yang Digunakan:
Coding Form1 (Procedure: Init)
|
| thisform.combo1.Value='Manager'
thisform.combo2.Value='Tetap'
thisform.text2.Value=0
thisform.text3.Value=0
thisform.text4.Value=0
thisform.text1.SetFocus()
|
Coding HITUNG
|
| A = thisform.text2.Value
B = thisform.text3.Value
C= A+B
thisform.text4.Value=C
|
Coding SIMPAN
|
| insert into tgaji(nama,jabatan,gaji,statuse,tunjangan,total);
values(thisform.text1.value,;
thisform.combo1.Value,;
thisform.text2.value,;
thisform.combo2.Value,;
thisform.text3.value,;
thisform.text4.Value)
MESSAGEBOX('Sip.. Datamu Udah Kesimpen Sob')
thisform.grid1.Refresh() |
Coding BARU
|
| thisform.combo1.Value='Manager'
thisform.combo2.Value='Tetap'
thisform.text2.Value=0
thisform.text3.Value=0
thisform.text4.Value=0
thisform.text1.SetFocus()
|
Coding HAPUS
|
| set delete on
select tgaji
if jawab=1
thisform.grid1.setfocus()
select tgaji
DELETE
GO TOP
thisform.grid1.refresh()
endif
|
Coding EXIT
|
| tutup=MESSAGEBOX("Yakin Nih Mo Keluar?",1+48,"Konpirmasi!")
IF tutup=1
thisform.Release
ENDIF
|
Coding COMBOBOX (Combo1)
|
| IF thisform.combo1.Value='Manager' then
thisform.text2.Value=4500000
ELSE
IF thisform.combo1.Value='Karyawan' then
thisform.text2.Value=3500000
ELSE
IF thisform.combo1.Value='Operator' then
thisform.text2.Value=2500000
ELSE
thisform.text2.Value=1500000
ENDIF
ENDIF
ENDIF
|
Coding COMBOBOX (Combo2)
|
| IF thisform.combo2.Value='Tetap' then
thisform.text3.Value=550000
ELSE
thisform.text3.Value=275000
ENDIF
|
5. Untuk menginputkan daftar/menu apa saja yang ada pada Combobox seperti gambar ini:
Caranya yaitu:
-Klik Combo1 >> Pada Properties Window, Pilih Bagian Data:
- Pilih "RowSourceType" dengan "1-Value" (Untuk menginput value secara manual)
- Isi "RowSource" dengan "Manager,Karyawan,Operator,Kacung" (Tanpa tanda petik)
-Klik Combo2 >> Pada Properties Window, Pilih Bagian Data:
- Pilih "RowSourceType" dengan "1-Value"
- Isi "RowSource" dengan "Tetap,Tidak Tetap " (Tanpa tanda petik)
6. Koneksikan Grid1 dengan database TGaji
Klik Grid1 >> Pada Properties Window, Pilih Bagian Data, isi RecordRecource dengan "TGaji" (Tanpa tanda petik)
Sekian dulu yang dapat gue share, semoga bisa membantu sobat sekalian.
Kalo pengen liat contohnya yang udah jadi, silahkan download project ini dengan klik
[DOWNLOAD]
Jika pengen download project yang lain, silahkan klik disiniSee You..
