Private Sub cmdcancel_Click() Unload Me End Sub Private Sub cmdok_Click() If txtSERVER.Text = "Komp1" And txtusername.Text = "SRI WAHYUNINGSIH" And txtpassworduser = "290310" Then FRMSPLASH.Show Unload Me Else MsgBox "PERIKSA KEMBALI DATA YANG ANDA MASUKKAN" End If End Sub Private Sub Form_Activate() txtusername.SetFocus End Sub Private Sub Form_Load() bersih End Sub Private Sub bersih() txtSERVER.Text = "Komp1" txtusername.Text = "SRI WAHYUNINGSIH" txtpassworduser.Text = "" End Sub Private Sub txtusername_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpassworduser.SetFocus End If End Sub Option Explicit Dim iSplash As Integer Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Frame1_Click() Unload Me End Sub Private Sub Timer1_Timer() On Error Resume Next iSplash = iSplash + 1 prghotel.Value = prghotel.Value + 1000 / 1000 If iSplash > 100 Then Timer1.Enabled = False Screen.MousePointer = vbNormal Me.WindowState = 0 Do Me.Left = Me.Left + 3000 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Left > Screen.Width Load frmmenu frmmenu.Show frmmenu.SetFocus Unload Me 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() 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 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
Data Base Hotel Balong Kuring
Filed under Uncategorized