tugas vb hotel

 

 

 

 

 

 

 

 

Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
If txtSERVER.Text = “Komp1” And txtusername.Text = “tri yuliani” And txtpassworduser = “10201017” Then
frmSplash.Show
Unload Me
Else
MsgBox “PERIKSA KEMBALI DATA YANG ANDA MASUKKAN”
End If
End Sub
Private Sub Form_Activate()
txtpassworduser.SetFocus
End Sub
Private Sub Form_Load()
bersih
End Sub
Private Sub bersih()
txtSERVER.Text = “Komp1”
txtusername.Text = “tri yuliani”
txtpassworduser.Text = “”
End Sub

Private Sub txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpassworduser.SetFocus
End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
Private Sub mnuexit_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbCritical + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub mnujasa_Click()
Form3.Show
End Sub

Private Sub mnukamar_Click()
Form2.Show
End Sub

Private Sub mnutamu_Click()
Form1.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
Form1.Show
ElseIf Button.Index = 2 Then
Form2.Show
ElseIf Button.Index = 3 Then
Form3.Show
ElseIf Button.Index = 4 Then
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End If
End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub cmdbersih_Click()
txtkodetamu = “”
txtnamatamu = “”
txtnoidentitas = “”
txtnotelp = “”
txtalamat = “”
txtkodetamu.SetFocus
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst

End Sub

Private Sub cmdsimpan_Click()
With Data1.Recordset
.AddNew
End With
txtkodetamu.SetFocus
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Activate()
txtkodetamu.SetFocus
End Sub

Private Sub txtkodetamu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamatamu.SetFocus
End If
End Sub

Private Sub txtnamatamu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnoidentitas.SetFocus
End If
End Sub

Private Sub txtnoidentitas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnotelp.SetFocus
End If
End Sub

Private Sub txtnotelp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub cmdbersih_Click()
txtkodejasa = “”
txtnamajasa = “”
txtsatuan = “”
txtharga = “”
txtkodejasa.SetFocus
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdsimpan3_Click()
With Data1.Recordset
.AddNew
End With
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub txtkodejasa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamajasa.SetFocus
End If
End Sub

Private Sub txtnamajasa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsatuan.SetFocus
End If
End Sub

Private Sub txtsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtharga.SetFocus
End If
End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub cmdbersih_Click()
cbonokamar = “”
cbojeniskamar = “”
cbolantai = “”
cbofasilitas = “”
cbotarif = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdsimpan2_Click()
With Data1.Recordset
.AddNew
End With
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cbojeniskamar.AddItem “utama-1”
cbojeniskamar.AddItem “utama-2”
cbojeniskamar.AddItem “utama-3”
cbojeniskamar.AddItem “kelas-1”
cbojeniskamar.AddItem “kelas-2”
cbojeniskamar.AddItem “kelas-3”

cbonokamar.AddItem “2”
cbonokamar.AddItem “3”
cbonokamar.AddItem “4”
cbonokamar.AddItem “5”
cbonokamar.AddItem “9”
cbonokamar.AddItem “20”
cbonokamar.AddItem “21”
cbonokamar.AddItem “22”
cbonokamar.AddItem “23”
cbonokamar.AddItem “24”
cbonokamar.AddItem “25”
cbonokamar.AddItem “26”
cbonokamar.AddItem “27”
cbonokamar.AddItem “28”
cbonokamar.AddItem “29”
cbonokamar.AddItem “30”
cbonokamar.AddItem “31”
cbonokamar.AddItem “32”
cbonokamar.AddItem “33”
cbonokamar.AddItem “34”
cbonokamar.AddItem “35”
cbonokamar.AddItem “36”
cbonokamar.AddItem “37”
cbonokamar.AddItem “38”
cbonokamar.AddItem “39”

cbolantai.AddItem “I”
cbolantai.AddItem “II”
cbolantai.AddItem “III”

cbofasilitas.AddItem “televisi + 4 single bed”
cbofasilitas.AddItem “televisi + double + single spring bed”
cbofasilitas.AddItem “televisi + 3 single bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “single + double spring bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “3 single bed”
cbofasilitas.AddItem “double + single bed”

cbotarif.AddItem “150000”
cbotarif.AddItem “130000”
cbotarif.AddItem “110000”
cbotarif.AddItem “100000”
cbotarif.AddItem “90000”
cbotarif.AddItem “70000”
End Sub

Private Sub bersih()
cbonokamar.Text = “”
cbojeniskamar.Text = “”
cbolantai.Text = “”
cbofasilitas.Text = “”
cbotarif.Text = “”

End Sub