program hotel

Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
If txtpassworduser.Text = “1234” Then
FRMSPLASH.Show
ElseIf txtpassworduser.Text <> “1234” Then
MsgBox “maaf password yg anda masukan salah”, vbCritical + vbInformation, “pesan dari saya”
txtpassworduser.SetFocus
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 = “SHERLY TEGUH M”
txtpassworduser.Text = “”
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()
frmjasa.Show
End Sub

Private Sub mnukamar_Click()
frmkamar.Show
End Sub

Private Sub mnutamu_Click()
frmtamu.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
frmtamu.Show
ElseIf Button.Index = 2 Then
frmkamar.Show
ElseIf Button.Index = 3 Then
frmjasa.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 cmdsimpan_Click()
Data1.Recordset.Update
End Sub

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

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

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdbersih_Click()
txtkodetamu.Text = ""
txtnamatamu.Text = ""
txtnoidentitas.Text = ""
txtnotelp.Text = ""
txtalamat.Text = ""
End Sub



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

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

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdbersih_Click()
cbonokamar.Text = ""
cbojeniskamar.Text = ""
cbolantai.Text = ""
cbofasilitas.Text = ""
cbotarif.Text = ""
End Sub


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

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

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
 End Sub

Private Sub cmdbersih_Click()
txtkodejasa.Text = ""
txtnamajasa.Text = ""
txtsatuan.Text = ""
txtharga.Text = ""
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

About sherlytml

cuek, jutek, tp peduli

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: