ഫോം TRANSAKSI


Sub bersih( )
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next x
DBCombo1.Text = "--Pilih Id--"
End Sub

Sub aktif( )
DBCombo1.Enabled = True
dttglout.Enabled = True
txtbayar.Enabled = True
End Sub

Sub nonaktif( )
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = False
End If
Next
DBCombo1.Enabled = False
DTtglcin.Enabled = False
dttglout.Enabled = False
End Sub

Private Sub cmdadd_Click( )
aktif
bersih
nomor
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdadd.Enabled = False
End Sub

Private Sub cmdcancel_Click( )
bersih
nonaktif
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmdsave_Click( )
Data2.Recordset.AddNew
Data2.Recordset!notrans = Txtnotrans
Data2.Recordset!idtamu = DBCombo1
Data2.Recordset!nm_tamu = txtnm_tamu
Data2.Recordset!nm_kamar = txtnm_kamar
Data2.Recordset!harga = txtharga
Data2.Recordset!tglcekin = DTtglcin
Data2.Recordset!tglcekout = dttglout
Data2.Recordset!lama = txtlama
Data2.Recordset!total = txttotal
Data2.Recordset!ppn = txtppn
Data2.Recordset!total_bayar = txttotal_bayar
Data2.Recordset.Update
MsgBox "data tersimpan", 16, "info"
x = MsgBox("cetak struk", 32 + 4, "tanya")
If x = 6 Then
DataReport1.Show
End If
nonaktif
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdadd.Enabled = True
End Sub

Private Sub DBCombo1_Change( )
Data1.Recordset.Index = "idtamu"
Data1.Recordset.Seek "=", DBCombo1.Text
If Not Data1.Recordset.NoMatch Then
txtnm_tamu.Text = Data1.Recordset!nm_tamu
txtnm_kamar.Text = Data1.Recordset!nm_kamar
txtharga.Text = Data1.Recordset!harga
DTtglcin.Value = Data1.Recordset!tanggal
End If
End Sub

Private Sub dttglout_Change( )
txtlama = dttglout.Value - DTtglcin.Value
txttotal = Val(txtharga) * Val(txtlama)
txtppn = Val(txttotal) * 0.01
txttotal_bayar = Val(txttotal) + Val(txtppn)
txtbayar.SetFocus
End Sub


Private Sub Form_Activate( )
nonaktif
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub Timer1_Timer( )
ljam = Time( )
ltanggal = Date
End Sub

Private Sub txtbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(txtbayar) < Val(txttotal) Then
MsgBox "Uang anda kurang", 16, "info"
txtbayar = ""
txtbayar.SetFocus
Else
txtkembali = Val(txtbayar) - Val(txttotal)
End If
End If
End Sub

Private Sub cmdclose_Click( )
Unload Me
End Sub

Private Sub cmdregistrasi_Click( )
Form2.Show
Form3.Visible = False
End Sub

Sub nomor ( )
Dim nota As String
Dim hitung As Integer
If Data2.Recordset.RecordCount = 0 Then
nota = "TR0001"
Else
Data2.Recordset.MoveLast
hitung = Val(Right(Data2.Recordset!notrans, 4)) + 1
nota = "TR" & Right("0000" & hitung, 4)
End If
Txtnotrans.Text = nota
End Sub