1. module
code :
Option Explicit
Public constringADODC1 As String
Public constring As String
Public username As String
Public passworduser As String
Private Sub main()
constring = “Provider=Provider=SQLOLEDB.1;Password=10210026;Persist Security Info=True;User ID=Nur Aminudin;Initial Catalog=hotel;Data Source=KOMP1”
username = “Nur Aminudin”
passworduser = “10210026”
frmlogin.Show
End Sub
2. Splash
code :
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
3. menu utama
code :
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
4. Entry Data Tamu
code :
Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub cmdprevious_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
txtkodetamu.SetFocus
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()
Adodc1.Recordset.Delete
bersih
End Sub
Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
txtkodetamu.SetFocus
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbtamu.mdb”
Adodc1.RecordSource = “tbtamu”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub bersih()
txtkodetamu.Text = “”
txtnamatamu.Text = “”
txtnoidentitas.Text = “”
txtnotelp.Text = “”
txtalamat.Text = “”
End Sub
Private Sub CMDBERSIH_Click()
bersih
End Sub
5. Entry Data Kamar
code :
Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub cmdprev_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
cbonokamar.SetFocus
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()
Adodc1.Recordset.Delete
bersih
cbonokamar.SetFocus
End Sub
Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
cbonokamar.SetFocus
End Sub
Private Sub Form_Activate()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbkamar.mdb”
Adodc1.RecordSource = “tbkamar”
bersih
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
bersih
Adodc1.ConnectionString = constring
Adodc1.username = username
Adodc1.Password = passworduser
Adodc1.RecordSource = “select * from tbkamar”
bersih
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()
bersih
End Sub
5. Entry Data Jasa
code :
Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub cmdprev_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
txtkodejasa.SetFocus
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 Form_Activate()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbjasa.mdb”
Adodc1.RecordSource = “tbjasa”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub bersih()
txtkodejasa.Text = “”
txtnamajasa.Text = “”
txtsatuan.Text = “”
txtharga.Text = “”
End Sub
Private Sub CMDBERSIH_Click()
bersih
End Sub
Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
txtkodejasa.SetFocus
End Sub
Private Sub CMDHAPUS_Click()
Adodc1.Recordset.Delete
bersih
End Sub