Home » Uncategorized » TUGAS DATABASE HOTEL BALONG KURING

TUGAS DATABASE HOTEL BALONG KURING

GAMBAR PROJECT PROGRAM

kode :
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
If txtSERVER.Text = “Komp1” And txtusername.Text = “fiqih satria” And txtpassworduser = “10100019” 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


kode :
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

kode :
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

Kode :
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

Kode :
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

Kode :

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


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

follow on my twitter

Blog Stats

  • 42,490 hits
%d bloggers like this: