Tugas Hotel Balong Kuring Semester 3

Private Sub cmdcancel_Click()

Unload Me

End Sub

Private Sub cmdok_Click()

If txtSERVER.Text = “Komp1” And txtusername.Text = “candra dautama” And txtpassworduser = “musik” 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 = “”

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

 

 

 


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: