TUGAS APSI DIAGRAM ALUR DATA

1. DIAGRAM ALUR DATA CONTEKT

2. DIAGRAM ALUR DATA NOL

3. DIAGRAM ALUR DATA DETAIL

Tugas Analisa & Perancangan Sistem Informasi

1.      Sebutkan dan jelaskan kelebihan serta kekurangan dari model proses yang ada !!

ü  Model Waterfall

Kelebihan Model Sekuensial Linear / Waterfall Development Model :

• Tahapan proses pengembangannya tetap (pasti), mudah diaplikasikan, dan prosesnya teratur.
• Cocok digunakan untuk produk software/program yang sudah jelas kebutuhannya di awal, sehingga minim kesalahannya.
• Software yang dikembangkan dengan metode ini biasanya menghasilkan kualitas yang baik.
• Documen pengembangan sistem sangat terorganisir, karena setiap fase harus terselesaikan dengan lengkap sebelum melangkah ke fase berikutnya.

Kekurangan Model Sekuensial Linear / Waterfall Development Model :

• Proyek yang sebenarnya jarang mengikuti alur sekuensial seperti diusulkan, sehingga perubahan yang terjadi dapat menyebabkan hasil yang sudah didapatkan tim pengembang harus diubah kembali/iterasi sering menyebabkan masalah baru.
• Terjadinya pembagian proyek menjadi tahap-tahap yang tidak fleksibel, karena komitmen harus dilakukan pada tahap awal proses.
• Sulit untuk mengalami perubahan kebutuhan yang diinginkan oleh customer/pelanggan.
• Pelanggan harus sabar untuk menanti produk selesai, karena dikerjakan tahap per tahap, dan proses pengerjaanya akan berlanjut ke setiap tahapan bila tahap sebelumnya sudah benar-benar selesai.
• Perubahan ditengah-tengah pengerjaan produk akan membuat bingung tim pengembang yang sedang membuat produk.
• Adanya waktu kosong (menganggur) bagi pengembang, karena harus menunggu anggota tim proyek lainnya menuntaskan pekerjaannya.

ü  Model Prototype

Kelebihan Model Prototype :

• Pelanggan berpartisipasi aktif dalam pengembangan sistem, sehingga hasil produk pengembangan akan semakin mudah disesuaikan dengan keinginan dan kebutuhan pelanggan.
• Penentuan kebutuhan lebih mudah diwujudkan.
• Mempersingkat waktu pengembangan produk perangkat lunak.
• Adanya komunikasi yang baik antara pengembang dan pelanggan.
• Pengembang dapat bekerja lebih baik dalam menentukan kebutuhan pelanggan.
• Lebih menghemat waktu dalam pengembangan sistem.
• Penerapan menjadi lebih mudah karena pelanggan mengetahui apa yang diharapkannya.

Kekurangan Model Prototype :

• Proses analisis dan perancangan terlalu singkat.
• Biasanya kurang fleksibel dalam mengahadapi perubahan.
• Walaupun pemakai melihat berbagai perbaikan dari setiap versi prototype, tetapi pemakai mungkin tidak menyadari bahwa versi tersebut dibuat tanpa memperhatikan kualitas dan pemeliharaan jangka panjang.
• Pengembang kadang-kadang membuat kompromi implementasi dengan menggunakan sistem operasi yang tidak relevan dan algoritma yang tidak efisien.

ü  Model Rapid Application Development (RAD)

Kelebihan Model RAD :

• Lebih efektif dari Pengembangan Model waterfall/sequential linear dalam menghasilkan sistem yang memenuhi kebutuhan langsung dari pelanggan.
• Cocok untuk proyek yang memerlukan waktu yang singkat.
• Model RAD mengikuti tahap pengembangan sistem seperti pada umumnya, tetapi mempunyai kemampuan untuk menggunakan kembali komponen yang ada sehingga pengembang tidak perlu membuatnya dari awal lagi sehingga waktu pengembangan menjadi lebih singkat dan efisien.

Kekurangan Model RAD :

• Model RAD menuntut pengembangan dan pelanggan memiliki komitmen di dalam aktivitas rapid-fire yang diperlukan untuk melengkapi sebuah sistem, di dalam kerangka waktu yang sangat diperpendek. Jika komitmen tersebut tidak ada, proyek RAD akan gagal.
• Tidak semua aplikasi sesuai untuk RAD, bila system tidak dapat dimodulkan dengan teratur, pembangunan komponen penting pada RAD akan menjadi sangat bermasalah.
• RAD tidak cocok digunakan untuk sistem yang mempunyai resiko teknik yang tinggi.
• Membutuhkan Tenaga kerja yang banyak untuk menyelesaikan sebuah proyek dalam skala besar.
• Jika ada perubahan di tengah-tengah pengerjaan maka harus membuat kontrak baru antara pengembang dan pelanggan.

ü  Model Incremental

Kelebihan Model Incremental :

• Personil bekerja optimal.
• mampu mengakomodasi perubahan secara fleksibel, dengan waktu yang relatif singkat dan tidak dibutuhkan anggota/tim kerja yang banyak untuk menjalankannya.
• Pihak konsumen dapat langsung menggunakan dahulu bagian-bagian yang telah selesai dibangun. Contohnya pemasukan data karyawan.
• Mengurangi trauma karena perubahan sistem. Klien dibiasakan perlahan-lahan menggunakan produknya setiap bagian demi bagian.
• Memaksimalkan pengembalian modal investasi konsumen.

Kekurangan Model Incremental :

• Tidak cocok untuk proyek berukuran besar (lebih dari 200.000 baris coding).
• Sulit untuk memetakan kebutuhan pemakai ke dalam rencana spesifikasi tiap-tiap hasil dari increament.

ü  Model Spiral

• Kelebihan model ini adalah sangat mempertimbangkan resiko kemungkinan munculnya kesalahan sehingga sangat dapat diandalkan untuk pengembangan perangkat lunak skala besar. Pendekatan model ini dilakukan melalui tahapan-tahapan yang sangat baik dengan menggabungkan model waterfall ditambah dengan pengulangan-pengulangan sehingga lebih realistis untuk mencerminkan keadaan sebenarnya. Baik pengembang maupun pemakai dapat cepat mengetahui letak kekurangan dan kesalahan dari sistem karena proses-prosesnya dapat diamati dengan baik.

• Kekurangan model ini adalah waktu yang dibutuhkan untuk mengembangkan perangkat lunak cukup panjang demikian juga biaya yang besar. Selain itu, sangat tergantung kepada tenaga ahli yang dapat memperkirakan resiko. Terdapat pula kesulitan untuk mengontrol proses. Sampai saat ini, karena masih relatif baru, belum ada bukti apakah metode ini cukup handal untuk diterapkan.

2.      Anda adalah seorang manajer yang mendapatkan proyek sebuah perangkat lunak pengolah database yang sangat sederhana, tetapi waktu yang di tentukan oleh pelanggan sangat ketat

Pertanyaan : Model pengembangan perangkat lunak mana yang anda pilih dan jelaskan alasannya !!!

Jawaban :

Model Prototype, karena penentuan kebutuhan lebih mudah di gunakan dan lebih hemat waktu dalam pengembangan sistem sebab metode ini menyajikan gambaran yang lengkap dari suatu sistem perangkat lunak, terdiri atas model kertas, model kerja dan program. Pihak pengembang akan melakukan identifikasi kebutuhan pemakai, menganalisa sistem dan melakukan studi kelayakan serta studi terhadap kebutuhan pemakai, meliputi model interface, teknik prosedural dan teknologi yang akan dimanfaatkan

3.       Anda dipilih menjadi seorang menejer proyek yang mendapat proyek membangun sebuah aplikasi yang mirip dengan aplikasi lain yang sudah pernah dibangun sebelumnya, meskipun yang satu ini lebih besar dan kompleks syarat-syaratnya sudah di dokumentasikan dengan teliti oleh pemakai.

Pertanyaan : Model pengembangan perangkat lunak mana yang anda pilih dan jelaskan !!!

Model spiral, karena cocok diterapkan untuk pengembangan sistem dan perangkat lunak skala besar di mana pengembang dan pemakai dapat lebih mudah memahami kondisi pada setiap tahapan dan bereaksi terhadap kemungkinan terjadinya kesalahan. Selain itu, diharapkan juga waktu dan dana yang tersedia cukup memadai

.

4.      Buat sebuah program dan lakukan pengujian black box terhadap program yang anda buat!!

Hasil Pengujian Black Box Testing halaman Form Pendaftaran

Tugas kelompok pemrograman visual 1 ( PROGRAM PENYEWAAN HOTEL)

KELAS                           : 12.3B.04
NAMA ANGGOTA KELOMPOK : ALFA HUDZAIFAH - 12137633
                                                        KHAERUL UMAM - 12137232
                                                        MUHAMMAD IQBAL.R - 12133950
                                                         NOVI ANTONIO - 12133377
                                                       ANDREAS RUSMIANTO - 12137336
                                                        JOHAN - 12137683
                                                       ARIF PRIYO - 12135077
                                                       NURUL CAHYA - 12131913
                                                          ADHI KURNIAWAN - 12136242

JUDUL PROGRAM : PENYEWAAN HOTEL
DOWNLOAD PROGRAM : PROGRAM PENYEWAAN HOTEL (pass winrar : 123)
                                                  DATABASE

1. MENU UTAMA

2. FORM KAMAR

Dim X As Control

Private Sub cmdbott_Click()
On Error Resume Next
dtakamar.Recordset.MoveLast
MsgBox "data sudah diakhir record!", 16, "Informasi"
End Sub

Private Sub Cmdnext_Click()
On Error Resume Next
dtakamar.Recordset.MoveNext
If dtakamar.Recordset.EOF Then
  dtakamar.Recordset.MoveLast
  MsgBox "Sudah diakhir record", vbCritical, "Informasi"
End If
End Sub

Private Sub Cmdprev_Click()
On Error Resume Next
dtakamar.Recordset.MovePrevious
If dtakamar.Recordset.BOF Then
  dtakamar.Recordset.MoveFirst
  MsgBox "Sudah diwal record", vbCritical, "Informasi"
End If
End Sub

Private Sub cmdtop_Click()
On Error Resume Next
dtakamar.Recordset.MoveFirst
MsgBox "data sudah diawal record!", 16, "Informasi"
End Sub

Private Sub Cmdnew_Click()
kosong
AKTIF
txtkode.SetFocus
cmdnew.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub Cmdsave_Click()
On Error Resume Next
With dtakamar.Recordset
.AddNew
!kdkamar = txtkode.Text
!nmkamar = txtnama.Text
!hargasewa = Val(txtharga.Text)
.Update
.MoveLast
nonaktif
On Error GoTo 0
cmdnew.Enabled = True
cmdedit.Enabled = True
cmdsave.Enabled = False
End With
End Sub

Private Sub Cmdedit_Click()
AKTIF
txtkode.Enabled = False
cmdnew.Enabled = False
cmdsave.Enabled = True
cmddelete.Enabled = False
cmdedit.Enabled = False
End Sub

Private Sub Cmdcancel_Click()
p = MsgBox("Yakin akan membatalkan penginputan ??", vbQuestion + vbOKCancel, "Konfirmasi")
If p = vbOK Then
kosong
nonaktif
cmdsave.Enabled = False
cmdnew.Enabled = True
cmdedit.Enabled = False
cmdcancel.Enabled = False
End If
End Sub

Private Sub Cmddelete_Click()
p = MsgBox("YAKIN MAU DIAPUS?", vbQuestion + vbOKCancel, "Konfirmasi")
If p = vbOK Then
dtakamar.Recordset.Delete
dtakamar.Recordset.MovePrevious
nonaktif
End If
End Sub

Private Sub Cmdfind_Click()
a = InputBox("Masukan kode kamar", "Search Engine")
dtakamar.Recordset.Index = "KDkamar"
dtakamar.Recordset.Seek "=", a
If dtakamar.Recordset.NoMatch Then
tampil
nonaktif
Else
MsgBox "Data Ditemukan", , "informasi"
End If
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = True
End Sub
Sub tampil()
txtkode.Text = datakamar.Recordset!kodekamar
txtnama.Text = datakamar.Recordset!namakamar
txtharga.Text = datakamar.Recordset!hargasewa
End Sub


Private Sub cmdCLOSE_Click()
p = MsgBox("Are you sure to quit..? ", vbQuestion + vbOKCancel, "Khairul Umam")
If p = vbOK Then
MsgBox "Ok See You Next Time..!", vbInformation, "Khairul Umam"
End
End If
End Sub

Private Sub Form_load()
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = False
nonaktif
TxtTgl = Format(Date, "dddd, dd mmmm yyyy")
End Sub

Private Sub kosong()
For Each X In Me
If TypeName(X) = "TextBox" Then
X.Text = ""
End If
Next
End Sub

Private Sub AKTIF()
For Each X In Me
If TypeName(X) = "TextBox" Then
X.Enabled = True
End If
Next
End Sub

Private Sub nonaktif()
For Each X In Me
If TypeName(X) = "TextBox" Then
X.Enabled = False
End If
Next
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
jam.Caption = Time
End Sub

Private Sub Timer2_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
End Sub


3. FORM TAMU

Private Sub Cmdcancel_Click()
Call normal
End Sub

Private Sub cmdCLOSE_Click()
p = MsgBox("Are you sure to quit..? ", vbQuestion + vbOKCancel, "Khairul Umam")
If p = vbOK Then
MsgBox "Ok See You Next Time..!", vbInformation, "Khairul Umam"
End
End If
End Sub

Private Sub Cmddelete_Click()
X = MsgBox("yakin akan menghapus data", vbQuestion + vbYesNo, "tanya")
If X = vbYes Then
datatamu.Recordset.Delete
normal
End If
End Sub

Private Sub Cmdedit_Click()
AKTIF
txtkode.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = True
End Sub

Private Sub Cmdfind_Click()
a = InputBox("Masukan Kode", "mencari data")
datatamu.Recordset.FindFirst "kdtamu ='" & a & "'"
If Not datatamu.Recordset.NoMatch Then
tampil
nonaktif
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = True
Else
MsgBox "Data tidak ditemukan", , "informasi"
End If
End Sub
Private Sub Cmdfirst_Click()
datatamu.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdlast_Click()
datatamu.Recordset.MoveLast
Call tampil
End Sub

Private Sub Cmdnew_Click()
AKTIF
bersih
nomor_urut
txtnama.SetFocus
cmdnew.Enabled = False
cmdfind.Enabled = False
cmdClose.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
End Sub

Private Sub Cmdnext_Click()
On Error Resume Next
datatamu.Recordset.MoveNext
tampil
If datatamu.Recordset.EOF Then
MsgBox "sudah diakhiri record", vbInformation, "info"
datatamu.Recordset.MoveLast
tampil
End If
End Sub

Private Sub Cmdprev_Click()
On Error Resume Next
datatamu.Recordset.MovePrevious
tampil
If datatamu.Recordset.BOF Then
MsgBox "Sudah diawal record", vbInformation, "info"
datatamu.Recordset.MoveFirst
tampil
End If
End Sub

Private Sub Cmdsave_Click()
On Error Resume Next
If txtkode.Text <> datakamar.Recordset!kode Then
datatamu.Recordset.AddNew
datatamu.Recordset!kdtamu = txtkode.Text
datatamu.Recordset!nmtamu = txtnama.Text
datatamu.Recordset!alamat = txtalamat.Text
datatamu.Recordset!nohp = txtnohp.Text
datatamu.Recordset.Update
MsgBox "data tersimpan", vbInformation, "info"
datatamu.Recordset.MoveLast
normal
tampil
Else
datatamu.Recordset.Edit
datatamu.Recordset!kdtamu = txtkode.Text
datatamu.Recordset!nmtamu = txtnama.Text
datatamu.Recordset!alamat = txtalamat.Text
datatamu.Recordset!nohp = txtnohp.Text
datatamu.Recordset.Update
MsgBox "data tersimpan", vbInformation, "info"
normal
tampil
End If
On Error GoTo 0
End Sub

Private Sub Form_Activate()
normal
End Sub


Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Timer1_Timer()
LBLjam = Time
End Sub

Private Sub Timer2_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
End Sub

Private Sub Txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnohp.SetFocus
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub
Sub AKTIF()
txtnama.Enabled = True
txtalamat.Enabled = True
txtnohp.Enabled = True
End Sub
Sub nonaktif()
txtkode.Enabled = False
txtnama.Enabled = False
txtalamat.Enabled = False
txtnohp.Enabled = False
cmdnew.Enabled = False
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdedit.Enabled = True
cmdfind.Enabled = False
cmdClose.Enabled = False
cmddelete.Enabled = False
End Sub
Sub tampil()
txtkode.Text = datatamu.Recordset!kdtamu
txtnama.Text = datatamu.Recordset!nmtamu
txtalamat.Text = datatamu.Recordset!alamat
txtnohp.Text = datatamu.Recordset!nohp
End Sub

Private Sub Form_load()
TxtTgl = Format(Date, "dddd, dd mmmm yyyy")
End Sub

Sub bersih()
txtkode = ""
txtnama = ""
txtalamat = ""
txtnohp = ""
End Sub

Public Sub normal()
bersih
nonaktif
cmdnew.Enabled = True
cmdfind.Enabled = True
cmdClose.Enabled = True
cmddelete.Enabled = True
End Sub
Sub nomor_urut()
Dim urut As String
Dim Hitung As Integer
With datatamu.Recordset
If .RecordCount = 0 Then
txtkode = "T" + "0001"
Else
.MoveLast
urut = Val(Right(!kdtamu, 4))
Hitung = urut + 1
If Hitung < 10 Then
txtkode = "T000" + Trim(Str(Hitung))
ElseIf Hitung < 100 Then
txtkode = "T00" + Trim(Str(Hitung))
ElseIf Hitung < 1000 Then
txtkode = "T0" + Trim(Str(Hitung))
Else
txtkode = "T" + Trim(Str(Hitung))
End If
End If
End With
End Sub


4. FORM CHECK IN

Sub AKTIF()
DBTAMU.Enabled = True
DBKAMAR.Enabled = True
dttglmasuk.Enabled = True
End Sub
Sub kondisiawal()
DBTAMU.Enabled = False
txtkodereservasi.Enabled = False
txtnamatamu.Enabled = False
DBKAMAR.Enabled = False
txtnamakamar.Enabled = False
txthargasewa.Enabled = False
cmdtambah.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdclose.Enabled = True
Tanggal.Enabled = True
dttglmasuk.Enabled = False
txtkodereservasi.Visible = False
End Sub

Private Sub cmdBATAL_Click()
kondisiawal
End Sub

Private Sub cmdCLOSE_Click()
p = MsgBox("Are you sure to quit..? ", vbQuestion + vbOKCancel, "Khairul Umam")
If p = vbOK Then
MsgBox "Ok See You Next Time..!", vbInformation, "Khairul Umam"
End
End If
End Sub

Private Sub cmdSIMPAN_Click()
datamasuk.Recordset.AddNew
datamasuk.Recordset!kdreservasi = txtkodereservasi.Text
datamasuk.Recordset!kdtamu = DBTAMU.Text
datamasuk.Recordset!nmtamu = txtnamatamu.Text
datamasuk.Recordset!kodekamar = DBKAMAR.Text
datamasuk.Recordset!nmkamar = txtnamakamar.Text
datamasuk.Recordset!hargasewa = txthargasewa.Text
datamasuk.Recordset!Tanggal = Tanggal.Caption
datamasuk.Recordset!tglmasuk = dttglmasuk
datamasuk.Recordset.Update
MsgBox "data tersimpan", vbInformation, "info"
bersih
kondisiawal
End Sub

Private Sub cmdTAMBAH_Click()
AKTIF
txtkodereservasi.Visible = True
nomor
cmdtambah.Enabled = False
cmdclose.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
End Sub

Private Sub Dbkamar_Change()
datakamar.Recordset.Index = "kdkamar"
datakamar.Recordset.Seek "=", DBKAMAR.Text
If Not datakamar.Recordset.NoMatch Then
txtnamakamar.Text = datakamar.Recordset!nmkamar
txthargasewa.Text = datakamar.Recordset!hargasewa
End If
End Sub


Private Sub DBTAMU_Change()
datatamu.Recordset.Index = "KODEX"
datatamu.Recordset.Seek "=", DBTAMU.Text
If Not datatamu.Recordset.NoMatch Then
txtnamatamu.Text = datatamu.Recordset!nmtamu
End If
End Sub

Private Sub Form_Activate()
kondisiawal
End Sub

Private Sub Form_load()
Tanggal = Date
End Sub

Sub bersih()
DBTAMU.Text = "Pilih Kode"
DBKAMAR.Text = "Pilih Kode"
txtnamakamar.Text = ""
txthargasewa.Text = ""
txtnamatamu.Text = ""
End Sub

Sub nomor()
Dim Urutan As String
    Dim Hitung As Integer
    With datamasuk.Recordset
     If .RecordCount = 0 Then
            Urutan = "RSV" & Format(Date, "YY") & Format(Date, "mm") & "001"
            txtkodereservasi.Text = Urutan
        Else
        .MoveLast
                Hitung = Val(Right(!kdreservasi, 3)) + 1
                Urutan = "RSV" & Format(Date, "YY") & Format(Date, "mm") & Right("000" & Hitung, 3)
        txtkodereservasi.Text = Urutan
        End If
      End With
End Sub


Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
jam.Caption = Time
End Sub

Private Sub Timer2_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
End Sub



5. FORM CHECK OUT

Sub kondisiawal()
txtnotrans.Enabled = False
DBkdreservasi.Enabled = False
DTmasuk.Enabled = False
Txtnmkamar.Enabled = False
Txtnmtamu.Enabled = False
txtharga.Enabled = False
DTkeluar.Enabled = False
txtlama.Enabled = False
txttotal.Enabled = False
txtppn.Enabled = False
txttotbay.Enabled = False
Txtubay.Enabled = False
Txtukem.Enabled = False
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
Tanggal.Enabled = True
cmdtambah.Enabled = True
cmdclose.Enabled = True
End Sub

Sub bersih()
txtnotrans.Text = ""
DBkdreservasi.Text = ""
Txtnmkamar.Text = ""
Txtnmtamu.Text = ""
txtharga.Text = ""
txtlama.Text = ""
txtppn.Text = ""
txttotal.Text = ""
txttotbay.Text = ""
Txtubay.Text = ""
Txtukem.Text = ""
End Sub

Sub AKTIF()
DBkdreservasi.Enabled = True
DTkeluar.Enabled = True
Txtubay.Enabled = True
End Sub

Private Sub cmdBATAL_Click()
kondisiawal
End Sub

Private Sub cmdSIMPAN_Click()
Datakeluar.Recordset.AddNew
Datakeluar.Recordset!notrans = txtnotrans.Text
Datakeluar.Recordset!tgltrans = Tanggal.Caption
Datakeluar.Recordset!kdreservasi = DBkdreservasi.Text
Datakeluar.Recordset!lamainap = txtlama.Text
Datakeluar.Recordset!ppn = txtppn.Text
Datakeluar.Recordset!total = txttotal.Text
Datakeluar.Recordset!tglmasuk = DTmasuk
Datakeluar.Recordset!tglkeluar = DTkeluar
Datakeluar.Recordset!totbay = txttotbay.Text
Datakeluar.Recordset.Update
MsgBox "data tersimpan", vbInformation, "info"
bersih
kondisiawal
End Sub


Private Sub DBkdreservasi_Change()
If DBkdreservasi = Datakeluar.Recordset!kdreservasi Then
MsgBox "datareservasi sudah tersimpan"
DBkdreservasi.Text = "++PILIH KODE++"
Txtnmkamar.Text = ""
Txtnmtamu.Text = ""
txtharga.Text = ""
Else
Datamasuk.Recordset.Index = "kdreservasi"
Datamasuk.Recordset.Seek "=", DBkdreservasi.Text
If Not Datamasuk.Recordset.NoMatch Then
DTmasuk = Datamasuk.Recordset!tglmasuk
Txtnmkamar.Text = Datamasuk.Recordset!nmkamar
Txtnmtamu.Text = Datamasuk.Recordset!nmtamu
txtharga.Text = Datamasuk.Recordset!hargasewa
End If
End If
End Sub

Private Sub cmdTAMBAH_Click()
AKTIF
nomor
cmdbatal.Enabled = True
End Sub

Private Sub DTkeluar_Change()
txtlama.Text = DTkeluar - DTmasuk
txttotal.Text = txtharga * txtlama
txtppn.Text = 0.1 * txttotal.Text
txttotbay.Text = Val(txttotal.Text) + Val(txtppn.Text)
Txtubay.SetFocus
End Sub

Private Sub Form_Activate()
Tanggal = Date
bersih
kondisiawal
End Sub

Sub nomor()
Dim Urutan As String
    Dim Hitung As Integer
    With Datakeluar.Recordset
     If .RecordCount = 0 Then
            Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & "001"
            txtnotrans.Text = Urutan
        Else
        .MoveLast
                Hitung = Val(Right(!notrans, 3)) + 1
                Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & Right("000" & Hitung, 3)
        txtnotrans.Text = Urutan
        End If
      End With
End Sub



Private Sub Image2_Click()

End Sub

Private Sub Txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Txtubay.Text) < Val(txttotbay.Text) Then
MsgBox "uang bayar kurang", vbExclamation, "info"
Txtubay.Text = ""
Txtukem.Text = ""
Txtubay.SetFocus
Else
Txtukem.Text = Val(Txtubay.Text) - Val(txttotbay.Text)
cmdtambah.Enabled = False
cmdclose.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
End If
End If
End Sub

Private Sub cmdCLOSE_Click()
p = MsgBox("Are you sure to quit..? ", vbQuestion + vbOKCancel, "Khairul Umam")
If p = vbOK Then
MsgBox "Ok See You Next Time..!", vbInformation, "Khairul Umam"
End
End If
End Sub

Private Sub Form_load()
Tanggal = Format(Date, "dddd, dd mmmm yyyy")
End Sub

Private Sub Timer1_Timer()
jam.Caption = Time
End Sub

Private Sub Timer2_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
End Sub