Tugas UAS
Sistem Informasi Penjualan(Kasir) Berbasis Foxpro
fungsi :
1. Mencatat transaksi penjualan disebuah supermarket/swalayan.
2. untuk menyajikan laporan penjualan di supermarket.
kebutuhan sistem :
1. mendata barang (45)
2. mendata kategori barang (51)
3. mendata satuan barang (52)
4. mendata data barang yang dijual atau transaksi penjualan (54)
5. mendata data suplier (abaikan)
Tabel yang di butuhkan :
1. tabel barang (t_barang)
2. tabel kategori (t_kategori)
3. tabel satuan (t_satuan)
4. tabel transaksi (t_jual)
keamanan sistem :
1. siapkan table dan form untuk menyimpan data log in (70-71)
2. Nama table login
laporan yang dibutuhkan:
1. Laporan data barang (r_barang)
2. Laporan data barang berdasarkan kategori (r_brgkat)
3. Laporan stok barang (r_stok)
4. Laporan kategori (r_kategori)
5. Laporan satuan (r_satuan)
6. Laporan transaksi penjualan (r_penjualan)
7. Laporan transaksi perhari (r_perhari)
8. Laporan transaksi per periode(tgl) (r_periode)
9. Laporan transaksi /bulan (r_perbulan)
10. Laporan penjualan barang yg terlaris (r_terlaris)
Langkah" :
1. Siapkan folder kerja (UAS_P2_NAMA)
2. Siapkan project
3. Membuat tabel (t_barang,t_kategori,t_satuan,t_jual,t_kunci)
4. Membuat form
a. Desain data barang (f_barang)
b. Desain data kategori(f_kategori)
c. Desain data satuan(f_satuan)
d. Desain data transaksi atau penjualan (f_jual)
e. Desain keamanan data
1. Desain login (f_login)
2. Desain setting login (f_password)
f. Desain form menu utama (f_menu)
5. Membuat report atau laporan (sesuai dg data diatas)
6. Membuat menu bar (m_menu), isinya adalah :
a. Master
a. Master kategori
b. Master satuan
c. Master barang
d. Master login
b. Penjualan
kasir
c. Laporan
sesuaikan data diatas
7. Finishing (Buat program finishing project(p_main))
RUMUS
form1-kosong:
WITH thisform
.txtkdbrng.value=""
.txttgl.value=DATE()
.txtnmbrg.value=""
.txtkategori.value=""
.txtsatuan.value=""
.txtjmlstok.value=0
.txthrgbeli.value=0
.txtjmlbeli.value=0
.txtstokakhir.value=0
.txthrgecer.value=0
.txthrgkhusus.value=0
.txthrggrosir.value=0
.txtexpdate.value=DATE()
.stokmin.value=0
endwith
form1-siap
WITH thisform
.txtkdbrng.enabled=.t.
.txttgl.enabled=.t.
.txtnmbrg.enabled=.t.
.txtkategori.enabled=.t.
.txtsatuan.enabled=.t.
.txtjmlstok.enabled=.t.
.txthrgbeli.enabled=.t.
.txtjmlbeli.enabled=.t.
.txtstokakhir.enabled=.t.
.txthrgecer.enabled=.t.
.txthrgkhusus.enabled=.t.
.txthrggrosir.enabled=.t.
.txtexpdate.enabled=.t.
.stokmin.enabled=.t.
.tambah.enabled=.t.
.simpan.enabled=.t.
.edit.enabled=.t.
.batal.enabled=.t.
.hapus.enabled=.f.
endwith
form1-tampil
WITH thisform
.txtkdbrng.value=kdbrg
.txttgl.value=tgl
.txtnmbrg.value=nmbrg
.txtkategori.value=kategori
.txtsatuan.value=satuan
.txtjmlstok.value=jlmstok
.txthrgbeli.value=hrgbeli
.txtjmlbeli.value=jmlbeli
.txtstokakhir.value=stokakhir
.txthrgecer.value=hrgecer
.txthrgkhusus.value=hrgkhusus
.txthrggrosir.value=hrggrosir
.txtexpdate.value=expdate
.stokmin.value=stokmin
endwith
form1-siap
WITH thisform
.txtkdbrng.enabled=.f.
.txttgl.enabled=.f.
.txtnmbrg.enabled=.f.
.txtkategori.enabled=.f.
.txtsatuan.enabled=.f.
.txtjmlstok.enabled=.f.
.txthrgbeli.enabled=.f.
.txtjmlbeli.enabled=.f.
.txtstokakhir.enabled=.f.
.txthrgecer.enabled=.f.
.txthrgkhusus.enabled=.f.
.txthrggrosir.enabled=.f.
.txtexpdate.enabled=.f.
.stokmin.enabled=.f.
.tambah.enabled=.f.
.simpan.enabled=.f.
.edit.enabled=.f.
.batal.enabled=.f.
.hapus.enabled=.f.
endwith
form1-activate:
IF xtombol<>3
SELECT D && t_barang
thisform.tidaksiap()
thisform.cmbcarilistindex=1
thisform.Refresh()
ELSE
thisform.Refresh()
endif
PUBLIC
x,xtombol,mkdbrg,mTOT,mBYR,mKBL,xaktif
mkdbrg=""
xtombol=0
mTOT=0
mBYR=0
mKBL=0
xaktif=0
x=0
thisform.tambah.setfocus
SELECT B && t_kategori
APPEND BLANK
GO bottom
thisform.grid1.SetFocus
thisform.refresh
DELETE
thisform.refresh
simpan:
WITH thisform
SELECT D && t_barang
IF x=1
IF SEEK(.txtkdbrg.value)
MESSAGEBOX("kode barang sudah terpakai !!!",0+16,"warning")
.txtkdbrg.setfocus()
RETURN
ENDIF
IF empity(.txtnmbrg.value)
MESSAGEBOX("nama barang kosong !!!",0+16,"warning")
.txtnmbrg.setfocus()
RETURN
ENDIF
IF empity(.txtsatuan.value)
MESSAGEBOX("satuan kosong !!!",0+16,"warning")
.txtsatuan.setfocus()
RETURN
ENDIF
IF empity(.txtkategori.value)
MESSAGEBOX("kategori kosong !!!",0+16,"warning")
.txtkategori.setfocus()
RETURN
ENDIF
APPEND BLANK
ENDIF
replace kdbrg WITH .txtkdbrg.value
replace nmbrg WITH .txtnmbrg.value
replace kategori WITH .txtkategori.value
replace satuan WITH .txtsatuan.value
replace jmlstok WITH .txtjmlstok.value
replace hrgbeli WITH .txthrgbeli.value
replace hrgecer WITH .txthrgecer.value
replace hrgkhusus WITH .txthrgkhusus.value
replace hrggrosir WITH .txthrggrosir.value
replace expdate WITH .txtexpdate.value
replace stokmin WITH .txtstokmin.value
replace tgl WITH .txttgl.value
x=0
*//manipulasi tombol
.tidaksiap
.tambah.setfocus
.refresh
ENDWITH
hapus :
tanya=MESSAGEBOX("Anda yakin ingin menghapus record ini ?",4+32,"konfirmasi")
IF tanya=6
DELETE
IF.not.eof()
SKIP
ELSE
GO bott
ENDIF
ELSE
RETURN
ENDIF
*//manipulasi tombol
thisform.tambah.enabled=.t.
thisform.simpan.enabled=.f.
thisform.batal.enabled=.f.
thisform.edit.enabled=.t.
thisform.hapus.enabled=.t.
thisform.tidaksiap()
thisform.txtnmbrg.setfocus()
tambah:
*//Manipulasi Tombol
x=1
SET FILTER TO
thisform.siap()
thisform.kosong()
thisform.txtkdbrg.setfocus
thisform.refresh()
edit:
x=2
*//manipulasi tombol
thisform.tambah.enabled=.t.
thisform.simpan.enabled=.f.
thisform.batal.enabled=.t.
thisform.edit.enabled=.f.
thisform.hapus.enabled=.f.
thisform.siap()
thisform.tampil()
thisform.txtkdbrg.Enabled=.f.
thisform.txtnmbrg.setfocus()
cari :
SELECT D && t_barang
IF empity(ALLTRIM(thisform.txtcari.Value))
GO top
thishform.refresh
RETURN
ENDIF
DO case
CASE thisform.cmbcari.listindex=1
SET FILTER TO
CASE thisform.cmbcari.listindex=2
SET FILTER TO kdbrg=ALLTRIM(thisform.txtcari.Value)
CASE thisform.cmbcari.listindex=3
SET FILTER TO nmbrg=ALLTRIM(thisform.txtcari.Value)
CASE thisform.cmbcari.listindex=4
SET FILTER TO kategori=ALLTRIM(thisform.txtcari.Value)
ENDCASE
thisform.refresh
batal :
x=0
*//manipulasi tombol
thisform.tambah.enabled=.t.
thisform.simpan.enabled=.f.
thisform.edit.enabled=.f.
thisform.hapus.enabled=.f.
thisform.cmbcari.enabled=.t.
thisform.txtcari.enabled=.t.
thisform.txtcari.value=""
thisform.tidaksiap
thisform.kosong
thisform.Refresh
Semoga bermanfaat but kalian
Data kuliah manajemen informatika pemrograman foxpro tugas uas sistem informasi penjualan kasir
0 Komentar