Rabu, 13 Januari 2010

Contoh Form penyewaan / Rental DVD

Jika ingin mendownload program ini, silahkan klik DISINI

1. Form Login
  • Gambar diatas merupakan form login, user diminta memasukkan Username & Password.

  • Gambar diatas merupakan proses validasi terhadap kebenaran username & password. Setelah semuanya telah benar, kemudian otomatis masuk ke form menu utama.

  • Gambar diatas akan muncul, jika user salah memasukkan username maupun password.

2. Form Menu utama


3. Form Master Anggota

  • Gambar diatas merupakan validasi bahwa data telah berhasil tersimpan.

  • Gambar diatas merupakan validasi apakah anda ingin keluar atau tidak. Jika ya pilih Yes, Jika ingin membatalkan, pilih No.

  • Gambar diatas merupakan validasi bahwa data yang dicari tidak ditemukan.

4. Form Master DVD
  • Gambar diatas merupakan validasi bahwa data telah tersimpan.

  • Gambar diatas merupakan validasi bahwa data yang dicari tidak ada.

  • Gambar diatas merupakan validasi apakah anda ingin keluar atau tidak. Jika ya pilih Yes, Jika ingin membatalkan, pilih No.

5. Form Transaksi Penyewaan

  • Gambar diatas merupakan validasi apakah anda ingin keluar atau tidak. Jika ya pilih Yes, Jika ingin membatalkan, pilih No.

6. Form Cetak Kartu Anggota

  • Gambar diatas merupakan form cetak kartu anggota, user diminta memilih kode anggota yang ingin di cetak.

  • Gambar diatas merupakan keluaran dari cetak ke layar.

7. Form Cetak Transaksi Penyewaan

  • Gambar diatas merupakan form cetak transaksi penyewaan, user diminta memilih nomor sewa yang ingin di cetak.

  • Gambar diatas merupakan keluaran dari cetak ke layer.

  • Gambar diatas merupakan laporan mengenai data anggota penyewa.

  • Gambar diatas merupakan laporan data DVD.


  • Gambar diatas merupakan laporan transaksi yang telah terjadi.


  • Gambar diatas berisikan nama dan nim para pembuat program.


Listing Program Penyewaan / Rental DVD

Jika ingin download program ini, klik DISINI


Listning Program Form About
Timer1
Timer

local mulai

mulai=0

if mulai

mulai=thisform.label14.height

else

mulai=mulai+40

endif

if thisform.label14.fontsize>20

thisform.label14.fontsize=10

else

thisform.label14.fontsize=thisform.label14.fontsize+1

endif


Timer2 Timer

if thisform.label15.visible=.t. then

thisform.label15.visible=.f.

else

if thisform.label15.visible=.f. then

thisform.label15.visible=.t.

endif

endif


Command1 Click

thisform.Release


Listning Program Form Anggota

Form1 aktif

thisform.txtnm_anggota.Enabled= .T.

thisform.optjns_kelamin.Enabled= .T.

thisform.ealamat.Enabled= .T.

thisform.txtno_telp.Enabled= .T.

thisform.txttgl_gabung.Enabled= .T.


Form1 nonaktif

thisform.txtnm_anggota.Enabled= .F.

thisform.optjns_kelamin.Enabled= .F.

thisform.ealamat.Enabled= .F.

thisform.txtno_telp.Enabled= .F.

thisform.txttgl_gabung.Enabled= .F.


Form1 bersih

thisform.txtkd_anggota.Value=""

thisform.txtnm_anggota.Value=""

thisform.optjns_kelamin.Value=0

thisform.ealamat.Value=""

thisform.txtno_telp.Value=""

thisform.txttgl_gabung.Value={}


Form1 Load

SET DEFAULT TO c:\pagi\11.5A.12.C\Sewa

USE master_anggota

SET ORDER TO tag kd_anggota

PUBLIC isi,lcgambar

SET DATE ITALIAN


Form1 Activate

thisform.nonaktif

thisform.bersih

thisform.txtkd_anggota.Enabled= .F.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.AutoCenter= .T.

thisform.Caption="Form Anggota Rental"+SPACE(100)


Form1 simpan

replace kd_anggota WITH thisform.txtkd_anggota.Value

replace nm_anggota WITH thisform.txtnm_anggota.Value

IF thisform.optjns_kelamin.opl.Value=1 then

thisform.optjns_kelamin.opp.Value=0

replace jns_kelamin WITH thisform.optjns_kelamin.opl.Caption

ELSE

IF thisform.optjns_kelamin.opp.Value=1 then

thisform.optjns_kelamin.opl.Value=0

replace jns_kelamin WITH thisform.optjns_kelamin.opp.Caption

ENDIF

ENDIF

replace alamat WITH thisform.ealamat.Value

replace no_telp WITH thisform.txtno_telp.Value

replace tgl_gabung WITH thisform.txttgl_gabung.Value

thisform.grid1.Refresh


Form1 tampil

thisform.txtkd_anggota.Value=master_anggota.kd_anggota

thisform.txtnm_anggota.Value=master_anggota.nm_anggota

IF master_anggota.jns_kelamin="Laki-laki" then

thisform.optjns_kelamin.opl.Value=1

thisform.optjns_kelamin.opp.Value=0

ELSE

IF master_anggota.jns_kelamin="Perempuan" then

thisform.optjns_kelamin.opl.Value=0

thisform.optjns_kelamin.opp.Value=1

ENDIF

endif

thisform.ealamat.Value=master_anggota.alamat

thisform.txtno_telp.Value=master_anggota.no_telp

thisform.txttgl_gabung.Value=master_anggota.tgl_gabung


cmdfind Click

SET ORDER TO tag kd_anggota

IF SEEK(ALLTRIM(thisform.txtcari.Value))

thisform.tampil

thisform.cmdedit.Enabled= .T.

thisform.cmddelete.Enabled= .T.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdadd.Enabled= .T.

ELSE

MESSAGEBOX("Data Tidak Ada!!!",64,"INFO")

thisform.txtcari.SetFocus

ENDIF

thisform.txtcari.Value=""

thisform.Refresh


cmdadd Click

isi=.t.

thisform.aktif

thisform.bersih

GO bottom

urut=INT(VAL(RIGHT(master_anggota.kd_anggota,4))+1)

urut= REPLICATE("0",+4-LEN(LTRIM(STR(urut))))+LTRIM(STR(urut))

thisform.txtkd_anggota.Value="P"+urut

thisform.cmdsave.Enabled= .T.

thisform.cmdcancel.Enabled= .T.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .F.

thisform.txtkd_anggota.Enabled= .T.

thisform.txtnm_anggota.SetFocus

thisform.Refresh


cmdcancel Click

thisform.bersih

thisform.nonaktif

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.Refresh


cmdedit Click

isi=.f.

thisform.aktif

thisform.cmdsave.Enabled= .T.

thisform.cmdcancel.Enabled= .T.

thisform.cmddelete.Enabled= .F.


cmddelete Click

hapus=MESSAGEBOX("Data Anggota dengan Kode Anggota" + thisform.txtkd_anggota.Value+"ingin dihapus?",36,"INFO")

IF hapus=6 then

DELETE

PACK

ENDIF

thisform.bersih

thisform.cmddelete.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmdadd.Enabled= .T.


cmdclose Click

keluar=MESSAGEBOX("Yakin Mau Keluar Dari Form Input Data Anggota?",36,"INFO")

IF keluar=6 then

thisform.Release

ENDIF


cmdtop Click

GO top

thisform.tampil

thisform.Refresh


cmdback Click

skip-1

IF BOF()

MESSAGEBOX("Sudah Diawal Record!!!",16,"INFO")

GO top

ENDIF

thisform.tampil

thisform.Refresh


cmdnext Click

SKIP

IF EOF()

MESSAGEBOX("Sudah Diakhir Recor!!!",16,"INFO")

GO bottom

ENDIF

thisform.tampil

thisform.Refresh


cmdlast Click

GO bottom

thisform.tampil

thisform.Refresh


cmdsave Click

if EMPTY(thisform.txtnm_anggota.Value)

MESSAGEBOX("Nama Anggota Harus Diisi!!!",48,"PESAN")

thisform.txtnm_anggota.SetFocus

RETURN

ENDIF

if thisform.optjns_kelamin.Value=0

MESSAGEBOX("Jenis Kelamin Harus Dipilih!!!",48,"PESAN")

RETURN

ENDIF

if EMPTY(thisform.ealamat.Value)

MESSAGEBOX("Alamat Anggota Harus Diisi!!!",48,"PESAN")

thisform.ealamat.SetFocus

RETURN

ENDIF

if EMPTY(thisform.txtno_telp.Value)

MESSAGEBOX("No Telepon Anggota Harus Diisi!!!",48,"PESAN")

thisform.txtno_telp.SetFocus

RETURN

ENDIF

if EMPTY(thisform.txttgl_gabung.Value)

MESSAGEBOX("Tanggal Gabung Anggota Harus Diisi!!!",48,"PESAN")

thisform.txttgl_gabung.SetFocus

RETURN

ENDIF

IF isi=.t. THEN

APPEND BLANK

thisform.simpan

MESSAGEBOX("Data Telah Tersimpan Dalam Database",64,"INFO")

ELSE

IF isi=.f. THEN

thisform.simpan

MESSAGEBOX("Data Telah Terupdate Dalam Database",64,"INFO")

ENDIF

ENDIF

thisform.nonaktif

thisform.bersih

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.grid1.Refresh


Listning Program Form Cetak Kartu Anggota

Form1 Load

SET DEFAULT TO c:\pagi\11.5a.12.c\sewa

USE master_anggota

SET ORDER TO tag kd_anggota


cbokd_anggota Click

thisform.txtnm_anggota.Value=master_anggota.nm_anggota

thisform.Refresh


cbokd_anggota LostFocus

thisform.txtnm_anggota.Value=master_anggota.nm_anggota

thisform.cmdcetak.SetFocus

thisform.Refresh


cmdcetak Click

SET DEFAULT TO c:\pagi\11.5a.12.c\sewa

SELECT master_anggota

IF thisform.optcetak.option1.Value=1

REPORT FORM c:\pagi\11.5a.12.c\sewa\cetak_kartu_anggota.frx PREVIEW

ELSE

REPORT FORM c:\pagi\11.5a.12.c\sewa\cetak_kartu_anggota.frx TO PRINTER prompt

ENDIF


cmdkeluar Click

thisform.Release


Timer1 Timer

local mulai

mulai=0

if mulai

mulai=thisform.label2.height

else

mulai=mulai+40

endif

if thisform.label2.fontsize>20

thisform.label2.fontsize=10

else

thisform.label2.fontsize=thisform.label2.fontsize+1

endif


Timer2 Timer

if thisform.label3.visible=.t. then

thisform.label3.visible=.f.

else

if thisform.label3.visible=.f. then

thisform.label3.visible=.t.

endif

endif


Listning Program Form Cetak Transaksi Sewa

Form1 Load

SET DEFAULT TO c:\pagi\11.5A.12.C\sewa

USE transaksi_sewa

SET ORDER TO tag no_sewa


Timer1 Timer

local mulai

mulai=0

if mulai

mulai=thisform.label2.height

else

mulai=mulai+40

endif

if thisform.label2.fontsize>20

thisform.label2.fontsize=10

else

thisform.label2.fontsize=thisform.label2.fontsize+1

endif


Timer2 Timer

if thisform.label3.visible=.t. then

thisform.label3.visible=.f.

else

if thisform.label3.visible=.f. then

thisform.label3.visible=.t.

endif

endif


cbono_sewa Click

thisform.txttgl_sewa.Value=transaksi_sewa.tgl_sewa

thisform.Refresh


cbono_sewa LostFocus

thisform.Txttgl_sewa.Value=transaksi_sewa.tgl_sewa

thisform.cmdcetak.SetFocus

thisform.Refresh


cmdcetak Click

SET DEFAULT TO c:\pagi\11.5A.12.C\sewa

SELECT transaksi_sewa

IF thisform.optcetak.optlayar.Value=1

REPORT FORM c:\pagi\11.5a.12.c\sewa\cetak_transaksi_sewa.frx PREVIEW

ELSE

REPORT FORM c:\pagi\11.5a.12.c\sewa\cetak_transaksi_sewa.frx TO PRINTER prompt

ENDIF


cmdkeluar Click

thisform.Release


Listning Program dvd

Timer1 Timer

local mulai

mulai=0

if mulai

mulai=thisform.label1.height

else

mulai=mulai+40

endif

if thisform.label1.fontsize>20

thisform.label1.fontsize=10

else

thisform.label1.fontsize=thisform.label2.fontsize+1

endif


Timer2 Timer

if thisform.label11.visible=.t. then

thisform.label11.visible=.f.

else

if thisform.label11.visible=.f. then

thisform.label11.visible=.t.

endif

endif


Form1 aktif

thisform.txtjdl_film.Enabled= .T.

thisform.cjns_film.Enabled= .T.

thisform.txthrg_sewa.Enabled= .T.

thisform.txtstok.Enabled= .T.


Form1 nonaktif

thisform.txtjdl_film.Enabled= .F.

thisform.cjns_film.Enabled= .F.

thisform.txthrg_sewa.Enabled= .F.

thisform.txtstok.Enabled= .F.


Form1 bersih

thisform.txtkd_dvd.Value=""

thisform.txtjdl_film.Value=""

thisform.cjns_film.Value=""

thisform.txthrg_sewa.Value=0

thisform.txtstok.Value=0


Form1 Load

SET DEFAULT to c:\pagi\11.5A.12.C\sewa

USE master_dvd

SET ORDER TO tag kd_dvd

PUBLIC no

PUBLIC isi

SET DATE ITALIAN


Form1 Activate

thisform.nonaktif

thisform.bersih

thisform.txtkd_dvd.Enabled= .F.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.AutoCenter= .T.

thisform.Caption="Form Data DVD"+ SPACE(100)


Form1 simpan

replace kd_dvd WITH thisform.txtkd_dvd.Value

replace jdl_film WITH thisform.txtjdl_film.Value

replace jns_film WITH thisform.cjns_film.Value

replace hrg_sewa WITH thisform.txthrg_sewa.Value

replace stok WITH thisform.txtstok.Value

thisform.grid1.Refresh


Form1 tampil

thisform.txtkd_dvd.Value=master_dvd.kd_dvd

thisform.txtjdl_film.Value=master_dvd.jdl_film

thisform.cjns_film.Value=master_dvd.jns_film

thisform.txthrg_sewa.Value=master_dvd.hrg_sewa

thisform.txtstok.Value=master_dvd.stok


Form1 urut

no=INT(VAL(RIGHT(master_dvd.kd_dvd,4))+1)

no=REPLICATE("0",+4-LEN(LTRIM(STR(no))))+LTRIM(STR(no))


cmdfind Click

SET ORDER TO tag kd_dvd

IF SEEK(ALLTRIM(thisform.txtcari.Value))

thisform.tampil

thisform.cmdedit.Enabled= .T.

thisform.cmddelete.Enabled= .T.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdadd.Enabled= .T.

ELSE

MESSAGEBOX("Data Tida Ada!!!",64,"INFO")

thisform.txtcari.SetFocus

ENDIF

thisform.txtcari.Value=""

thisform.Refresh


cmdadd Click

isi=.t.

thisform.aktif

thisform.bersih

thisform.cmdcancel.Enabled= .T.

thisform.cmdsave.Enabled= .T.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .F.

thisform.cjns_film.SetFocus


cmdcancel Click

thisform.bersih

thisform.nonaktif

thisform.cmdcancel.Enabled= .F.

thisform.cmdsave.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.Refresh


cmdedit Click

isi=.f.

thisform.aktif

thisform.cjns_film.Enabled= .F.

thisform.cmdcancel.Enabled= .T.

thisform.cmdsave.Enabled= .T.

thisform.cmddelete.Enabled= .F.


cmddelete Click

hapus=MESSAGEBOX("Data Mau Dihapus???",36,"INFO")

IF hapus=6 then

DELETE

PACK

ENDIF

thisform.bersih

thisform.cmddelete.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmdadd.Enabled= .T.


cmdclose Click

keluar=MESSAGEBOX("Yakin Mau Keluar Dari Form Data DVD???",36,"INFO")

IF keluar=6 then

thisform.Release

ENDIF


cmdtop Click

GO top

thisform.tampil

thisform.Refresh


cmdback Click

skip-1

IF BOF()

MESSAGEBOX("Sudah Diawal Record!!!",16,"INFO")

GO top

ENDIF

thisform.tampil

thisform.Refresh


cmdnext Click

SKIP

IF EOF()

MESSAGEBOX("Sudah Diakhir Recor!!!",16,"INFO")

GO bottom

ENDIF

thisform.tampil

thisform.Refresh


cmdlast Click

GO bottom

thisform.tampil

thisform.Refresh


cmdsave Click

if EMPTY(thisform.cjns_film.Value)

MESSAGEBOX("Jenis Film Harus Dipilih!!!",48,"WARNING")

thisform.cjns_film.SetFocus

RETURN

ENDIF

if EMPTY(thisform.txtjdl_film.Value)

MESSAGEBOX("Judul Film Harus Diisi!!!",48,"WARNING")

thisform.txtjdl_film.SetFocus

RETURN

ENDIF

if EMPTY(thisform.txthrg_sewa.Value)

MESSAGEBOX("Harga Sewa Harus Diisi!!!",48,"WARNING")

thisform.txthrg_sewa.SetFocus

RETURN

ENDIF

if EMPTY(thisform.txtstok.Value)

MESSAGEBOX("Stok Film Harus Diisi!!!",48,"WARNING")

thisform.txtstok.SetFocus

RETURN

ENDIF

IF isi=.t. then

APPEND BLANK

thisform.simpan

MESSAGEBOX("Data Telah Tersimpan",64,"INFO")

ELSE

IF isi=.f. then

thisform.simpan

MESSAGEBOX("Data Telah Terupdate",64,"INFO")

ENDIF

ENDIF

thisform.nonaktif

thisform.bersih

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.cmdedit.Enabled= .F.

thisform.cmddelete.Enabled= .F.

thisform.cmdadd.Enabled= .T.

thisform.grid1.Refresh


cjns_film Click

IF thisform.cjns_film.Value="Action" then

SEEK ALLTRIM("A")

thisform.urut

thisform.txtkd_dvd.Value="A"+no

ELSE

IF thisform.cjns_film.Value="Drama" then

SEEK ALLTRIM("D")

thisform.urut

thisform.txtkd_dvd.Value="D"+no

ELSE

IF thisform.cjns_film.Value="Horor" then

SEEK ALLTRIM("H")

thisform.urut

thisform.txtkd_dvd.Value="H"+no

ELSE

IF thisform.cjns_film.Value="Kartun" then

SEEK ALLTRIM("K")

thisform.urut

thisform.txtkd_dvd.Value="K"+no

ELSE

IF thisform.cjns_film.Value="Komedi" then

SEEK ALLTRIM("F")

thisform.urut

thisform.txtkd_dvd.Value="F"+no

ELSE

IF thisform.cjns_film.Value="Religi" then

SEEK ALLTRIM("R")

thisform.urut

thisform.txtkd_dvd.Value="R"+no

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF


Listning Program Form Login

Form1 Activate

thisform.txtID.Value=""

thisform.txtpaSSWORD.Value=""


Form1 Load

SET DEFAULT TO c:\pagi\11.5a.12.c\sewa

USE user

SET ORDER TO tag id


Timer1 Timer

LOCAL x

x=thisform.proseS.value

IF x

thisform.proSES.value=1+thisform.proSES.value

ELSE

MESSAGEBOX("YupZZ Username & Password Anda Benar")

thisform.timer1.Enabled= .F.

THISFORM.Release

DO FORM "c:\pagi\11.5a.12.a\sewa\menu_utama.scx"

ENDIF


Timer2 Timer

local mulai

mulai=0

if mulai

mulai=thisform.label3.height

else

mulai=mulai+40

endif

if thisform.label3.fontsize>20

thisform.label3.fontsize=10

else

thisform.label3.fontsize=thisform.label3.fontsize+1

endif


Timer3 Timer

if thisform.label4.visible=.t. then

thisform.label4.visible=.f.

else

if thisform.label4.visible=.f. then

thisform.label4.visible=.t.

endif

endif


txtid LostFocus

SET ORDER TO tag id

IF SEEK(ALLTRIM(thisform.txtiD.Value))then

IF ALLTRIM(thisform.txtiD.Value)=ALLTRIM(user.id)then

thisform.txtid.BackColor=RGB(0,255,255)

thisform.txtpASSWORD.SetFocus

ELSE

thisform.txtiD.BackColor=RGB(0,255,0)

ENDIF

RETURN

ENDIF


txtpassword LostFocus

SET ORDER TO tag id

IF SEEK(ALLTRIM(thisform.txtiD.Value))then

IF ALLTRIM(thisform.txtiD.Value)=ALLTRIM(user.id)and ALLTRIM(thisform.txtpASSWORD.Value)=ALLTRIM(user.password)then

thisform.txtpASSWORD.BackColor=RGB(0,255,255)

thisform.timer1.Enabled= .T.

ELSE

MESSAGEBOX("Maaf Username dan Password Anda salah",16,"INFO")

thisform.Activate

ENDIF

RETURN

ENDIF


Listning Program Form Transaksi

Timer1 Timer

thisform.txtjam.Value=TIME()


Timer2 Timer

LOCAL MULAI

MULAI=0

IF MULAI

MULAI=THISFORM.LABEL1.Height

ELSE

MULAI=MULAI+40

ENDIF

IF THISFORM.LABEL1.FontSize>20

THISFORM.LABEL1.FontSize=10

ELSE

THISFORM.LABEL1.FontSize=THISFORM.LABEL1.FONTSIZE+1

ENDIF


Timer3 Timer

if thisform.label2.visible=.t. then

thisform.label2.visible=.f.

else

if thisform.label2.visible=.f. then

thisform.label2.visible=.t.

endif

endif


Form1 aktif

thisform.txtno_sewa.Enabled= .T.

thisform.olesewa.Enabled= .T.

thisform.txttgl_kembali.Enabled= .T.

thisform.ckd_anggota.Enabled= .T.

thisform.txtnm_anggota.Enabled= .T.

thisform.ealamat.Enabled= .T.

thisform.ckd_dvd.Enabled= .T.

thisform.txtjdl_film.Enabled= .T.

thisform.txthrg_sewa.Enabled= .T.

thisform.txtqty.Enabled= .T.

THISFORM.txtstok.Enabled= .T.

thisform.txtbayar.Enabled= .T.

thisform.txttotal.Enabled= .T.

thisform.txtuang_bayar.Enabled= .T.

thisform.txtuang_kembali.Enabled= .T.


Form1 nonaktif

thisform.txtno_sewa.Enabled= .F.

thisform.olesewa.Enabled= .F.

thisform.txttgl_kembali.Enabled= .F.

thisform.ckd_anggota.Enabled= .F.

thisform.txtnm_anggota.Enabled= .F.

thisform.ealamat.Enabled= .F.

thisform.ckd_dvd.Enabled= .F.

thisform.txtjdl_film.Enabled= .F.

thisform.txthrg_sewa.Enabled= .F.

thisform.txtqty.Enabled= .F.

THISFORM.txtstok.Enabled= .F.

thisform.txtbayar.Enabled= .F.

thisform.txttotal.Enabled= .F.

thisform.txtuang_bayar.Enabled= .F.

thisform.txtuang_kembali.Enabled= .F.


Form1 bersih

thisform.txtno_sewa.Value=""

thisform.ckd_anggota.Value=""

thisform.txttgl_kembali.Value={}

thisform.txtnm_anggota.Value=""

thisform.ealamat.Value=""

thisform.ckd_dvd.Value=""

thisform.txtjdl_film.Value=""

thisform.txthrg_sewa.Value=0

thisform.txtqty.Value=0

THISFORM.txtstok.Value=0

thisform.txtbayar.Value=0

thisform.txttotal.Value=0

thisform.txtuang_bayar.Value=0

thisform.txtuang_kembali.Value=0


Form1 Load

SET DATE ITALIAN

SET DEFAULT TO c:\pagi\11.5A.12.C\sewa

CLOSE ALL

SELECT 1

USE master_anggota

SET ORDER TO tag kd_anggota

SELECT 2

USE master_dvd

SET ORDER TO tag kd_dvd

SELECT 3

USE transaksi_sewa

SET ORDER TO tag no_sewa

SELECT 4

USE sementara.dbf

SELECT 5

USE detail_transaksi_sewa

SET RELATION TO kd_dvd INTO master_dvd

SET RELATION TO no_sewa INTO transaksi_sewa additive

SELECT 3

SET RELATION TO kd_anggota INTO master_anggota additive

SELECT 4

USE sementara

SELECT 4

DELETE ALL

PACK

PUBLIC URUT

PUBLIC isi

isi=.t.


Form1 Activate

SELECT 4

DELETE ALL

PACK

thisform.olesewa._Value=_diarydate

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .T.

thisform.cmdlagi.Enabled= .F.

thisform.nonaktif

thisform.griddetail_sewa

thisform.bersih

THISFORM.URut

thisform.Refresh

PUBLIC isi

isi=.t.


Form1 griddetailsewa

thisform.grid1.RecordSource="sementara"

thisform.grid1.Column1.controlsource="kd_dvd"

thisform.grid1.Column2.controlsource="jdl_film"

thisform.grid1.Column3.controlsource="hrg_sewa"

thisform.grid1.Column4.controlsource="qty"

thisform.grid1.Column5.controlsource="bayar"

thisform.grid1.column1.width=100

thisform.grid1.column2.width=200

thisform.grid1.column3.width=100

thisform.grid1.column4.width=100

thisform.grid1.column5.width=100

thisform.grid1.column1.header1.alignment=2

thisform.grid1.column2.header1.alignment=2

thisform.grid1.column3.header1.alignment=2

thisform.grid1.column4.header1.alignment=2

thisform.grid1.column5.header1.alignment=2

thisform.grid1.column1.header1.caption="Kode DVD"

thisform.grid1.column2.header1.caption="Judul Film"

thisform.grid1.column3.header1.caption="Harga Sewa"

thisform.grid1.column4.header1.caption="Qty"

thisform.grid1.column5.header1.caption="Harga Bayar"

GO top

thisform.grid1.Refresh

thisform.Refresh


Form hitung

PUBLIC mtotal

mtotal=0

GO top

skip-1

DO WHILE .not. EOF()

mtotal=mtotal+bayar

SKIP

ENDDO

thisform.txttotal.Value=mtotal

SELECT 4

replace total WITH thisform.txttotal.Value


Form1 urut

THISFORM.Refresh

SELECT 3

GO BOTTOM

urut=INT(VAL(RIGHT(transaksi_sewa.no_sewa,4))+1)

urut= REPLICATE("0",+4-LEN(LTRIM(STR(urut))))+LTRIM(STR(urut))

bulan=LTRIM(REPLICATE("0",+2-LEN(LTRIM(STR(MONTH(DATE()))))))+LTRIM(STR(MONTH(DATE())))

tahun=LTRIM(RIGHT(STR(YEAR(DATE())),2))

thisform.txtno_sewa.Value="TS"+tahun+bulan+urut


cmdlagi Click

SELECT 4

APPEND BLANK

replace no_sewa WITH thisform.txtno_sewa.Value

replace kd_dvd WITH thisform.ckd_dvd.Value

replace jdl_film WITH thisform.txtjdl_film.Value

replace hrg_sewa WITH thisform.txthrg_sewa.Value

replace bayar WITH thisform.txtbayar.Value

replace qty WITH thisform.txtqty.Value

replace kd_anggota WITH thisform.ckd_anggota.Value

replace nm_anggota WITH thisform.txtnm_anggota.Value

replace total WITH thisform.txtbantuan.Value+thisform.txtbayar.Value

thisform.Refresh

thisform.ckd_dvd.Value=""

thisform.txtjdl_film.Value=""

thisform.txthrg_sewa.Value=0

thisform.txtstok.Value=0

thisform.txtqty.Value=0

thisform.txtbayar.Value=0

thisform.txtqty.Enabled= .F.

thisform.cmdlagi.Enabled= .T.

thisform.cmdsave.Enabled= .T.

thisform.txtuang_bayar.Enabled= .T.

thisform.txtuang_kembali.Enabled= .F.

thisform.hitung

thisform.txtuang_bayar.SetFocus

thisform.Refresh


cmdadd Click

thisform.urut

thisform.aktif

thisform.cmdcancel.Enabled= .T.

thisform.ckd_anggota.SetFocus

thisform.Refresh


cmdcancel Click

thisform.bersih

SELECT 4

DELETE ALL

PACK

thisform.nonaktif

thisform.txtno_sewa.Enabled= .T.

thisform.griddetail_sewa

thisform.txtno_sewa.Value=""

thisform.ckd_anggota.Value=""

thisform.txtnm_anggota.Value=""

thisform.txtno_sewa.SetFocus

thisform.cmdcancel.Enabled= .T.

thisform.cmdsave.Enabled= .F.

thisform.cmdlagi.Enabled= .F.

thisform.cmdadd.Visible= .T.


ckd_anggota Click

thisform.txtnm_anggota.Value=master_anggota.nm_anggota

thisform.ealamat.Value=master_anggota.alamat

thisform.ckd_anggota.Enabled= .T.

thisform.ckd_anggota.SetFocus

thisform.cmdsave.Enabled= .T.


ckd_dvd Click

thisform.txtjdl_film.Value=master_dvd.jdl_film

thisform.txthrg_sewa.Value=master_dvd.hrg_sewa

thisform.txtstok.Value=master_dvd.stok

thisform.txtqty.Enabled= .T.

thisform.txtqty.SetFocus

thisform.cmdlagi.Enabled= .T.


cmdclose Click

keluar=MESSAGEBOX("Ingin keluar FORM TRANSAKSI SEWA DVD???",36,"INFO")

IF keluar=6 then

thisform.Release

ENDIF


txtqty LostFocus

vqty=thisform.txtqty.Value

vharga=thisform.txthrg_sewa.Value

thisform.txtbayar.Value=vqty*vharga

thisform.cmdlagi.Enabled= .T.

thisform.cmdsave.Enabled= .T.

thisform.txtstok.Value=thisform.txtstok.Value-thisform.txtqty.Value

thisform.txtbantuan.Value=sementara.total


txtbayar InteractiveChange

thisform.txtuang_kembali.Value=thisform.txtuang_bayar.Value-thisform.txttotal.Value


cmdsave Click

SELECT 4

IF RECCOUNT()<=0 then

MESSAGEBOX("Data DVD harus diisi !!!",0,"PESAN")

thisform.ckd_dvd.SetFocus

RETURN

ELSE

SELECT 3

APPEND BLANK

replace no_sewa WITH thisform.txtno_sewa.Value

replace tgl_sewa WITH thisform.olesewa._Value

replace tgl_kembali WITH thisform.txttgl_kembali.Value

replace kd_anggota WITH thisform.ckd_anggota.Value

SELECT 4

GO top

DO WHILE .not. EOF()

SELECT 5

APPEND BLANK

replace no_sewa WITH sementara.no_sewa

replace kd_dvd WITH sementara.kd_dvd

replace qty WITH sementara.qty

replace bayar with sementara.bayar

SELECT 4

SKIP

ENDDO

DELETE ALL

PACK

thisform.bersih

thisform.ckd_anggota.Enabled= .T.

thisform.ckd_dvd.Enabled= .F.

thisform.txtqty.Enabled= .F.

thisform.ckd_dvd.SetFocus

thisform.cmdcancel.Enabled= .F.

thisform.cmdsave.Enabled= .F.

thisform.nonaktif

thisform.bersih

thisform.cmdsave.SetFocus

thisform.Refresh

ENDIF

thisform.griddetail_sewa


Listning Program1.prg

SET TALK OFF

SET DELETED ON

SET DATE ITALIAN

SET CENTURY ON

SET SAFETY OFF

SET STATUS OFF

SET STATUS BAR ON

SET SYSMENU OFF

DO FORM C:\pagi\11.5a.12.c\sewa\frm_login.scx

READ events


Listning Program Menu Utama

Form1 Load

SET DEFAULT TO c:\pagi\11.5a.12.c\sewa


Form1 Activate

CLOSE all


Form1 Destroy

CLEAR EVENTS


Form1 Init

DO menu1.mpr WITH this,.t.