Wednesday, January 2, 2013

Database dan VB

Program Sederhana ini mengenai bagaimana menghubungkan acces dengan visual studio.
1) buat data acces seperti berikut.
















2) buatlah sebuah Project Baru
3) Tambahkan form login. dengan cara klik project pilih add windows form carilah form login seperti gambar berikut.
Pada button ok isikan coding berikut
  Dim z As New MDIParent1

        If UsernameTextBox.Text = "Aji" And PasswordTextBox.Text = "333" Then
            z.Show()
        Else
            MsgBox("Kesalahan saat memasukan Username atau Password")
        End If
bisa kita atur sesuai keinginan sebenarnya.
4) Buatlah FormMDIParent sama halnya dengan cara membuat login hanya kali ini pilih MDIParent
Bentuk Hingga seperti ini.
di dalam file terdapat : Menu Kamar, Menu Pelanggan, Menu Penyewaan.
di dalam Report terdapat : Report Kamar, Report Pelanggan, Report Penyewaan.
Windows asli dari MDIParent yang ada karena sudah cukup lengkap.
sedangkan Help terdapat profile singkat dari Hotel.
di masing-masing button tersebut isikan koding yang akan terhubung dengan form yang lain.
   Dim x As New Form1
        x.MdiParent = Me
        x.Show()
*sesuaikan form1 dengan form yg ingin di tampilkan.

5) Form Menu Kamar
buat windows form baru, lalu masukan data acces dengan cara klik data, add new data source, ikuti langkah hingga finish.
-akan muncul menu data source drag semua tabel kamar dan sesuiakan bentuknya.
-tambahkan data gridview, masukan isian data gridview dengan cara menekan tombol kecil di bagian atas kana datagridview. ikuti langkah dan plih data yg ingin di tampilkan.

masukan koding berikut dengan menyesuaikan letaknya.
 Private Sub TKamarBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKamarBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TKamarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.HotelDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HotelDataSet.TKamar' table. You can move, or remove it, as needed.
        Me.TKamarTableAdapter.Fill(Me.HotelDataSet.TKamar)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TKamarBindingSource.Filter = "JenisKamar like '%" + TextBox1.Text + "%' "
    End Sub

    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TKamarBindingSource.AddNew()
        JenisKamarTextBox.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TKamarBindingSource.EndEdit()
        Me.TKamarTableAdapter.Update(Me.HotelDataSet.TKamar)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TKamarTableAdapter.Delete(JenisKamarTextBox.Text, JumlahkamarTextBox.Text, KetersediaanTextBox.Text, HargaSewaTextBox.Text)
        TKamarTableAdapter.Fill(Me.HotelDataSet.TKamar)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TKamarTableAdapter.Update(Me.HotelDataSet.TKamar)
        TKamarTableAdapter.Insert(JenisKamarTextBox.Text, JumlahkamarTextBox.Text, KetersediaanTextBox.Text, HargaSewaTextBox.Text)
        TKamarTableAdapter.Fill(Me.HotelDataSet.TKamar)
        MsgBox("Data Berhasil Tersimpan")
    End Sub
6)lakukan hal yg sama pada form Menu Pelanggan dan Menu Penyewaan dengan tampilan berikut.

- isikan coding berikut pada Menu Pelanggan
 Private Sub TCustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TCustomerBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TCustomerBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.HotelDataSet)

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HotelDataSet.TCustomer' table. You can move, or remove it, as needed.
        Me.TCustomerTableAdapter.Fill(Me.HotelDataSet.TCustomer)

    End Sub

    Private Sub NamaCustomerLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NomorIDLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TCustomerBindingSource.Filter = "NomorID like '%" & TextBox1.Text & "%' Or NamaCustomer like '%" & TextBox2.Text & "%'"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TCustomerBindingSource.AddNew()
        NomorIDTextBox.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TCustomerBindingSource.EndEdit()
        Me.TCustomerTableAdapter.Update(Me.HotelDataSet.TCustomer)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TCustomerTableAdapter.Delete(NomorIDTextBox.Text, NamaCustomerTextBox.Text, AlamatCustomerTextBox.Text, WilayahCustomerTextBox.Text, KodePosCustomerTextBox.Text, TelponCustomerTextBox.Text, NickCustomerTextBox.Text)
        TCustomerTableAdapter.Fill(Me.HotelDataSet.TCustomer)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TCustomerTableAdapter.Update(Me.HotelDataSet.TCustomer)
        TCustomerTableAdapter.Insert(NomorIDTextBox.Text, NamaCustomerTextBox.Text, AlamatCustomerTextBox.Text, WilayahCustomerTextBox.Text, KodePosCustomerTextBox.Text, TelponCustomerTextBox.Text, NickCustomerTextBox.Text)
        TCustomerTableAdapter.Fill(Me.HotelDataSet.TCustomer)
        MsgBox("Data Berhasil Tersimpan")
    End Sub
- isikankoding berikut pada Menu Penyewaan
Private Sub TPenyewaanBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPenyewaanBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TPenyewaanBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.HotelDataSet)

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HotelDataSet.TPenyewaan' table. You can move, or remove it, as needed.
        Me.TPenyewaanTableAdapter.Fill(Me.HotelDataSet.TPenyewaan)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TPenyewaanBindingSource.Filter = "NomorID like '%" + TextBox1.Text + "%' "
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TPenyewaanBindingSource.AddNew()
        NomorIDTextBox.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TPenyewaanBindingSource.EndEdit()
        Me.TPenyewaanTableAdapter.Update(Me.HotelDataSet.TPenyewaan)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TPenyewaanTableAdapter.Delete(NomorIDTextBox.Text, JenisKamarTextBox.Text, TanggalSewaDateTimePicker.Text, TanggalAkhirSewaDateTimePicker.Text)
        TPenyewaanTableAdapter.Fill(Me.HotelDataSet.TPenyewaan)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TPenyewaanTableAdapter.Update(Me.HotelDataSet.TPenyewaan)
        TPenyewaanTableAdapter.Insert(NomorIDTextBox.Text, JenisKamarTextBox.Text, TanggalSewaDateTimePicker.Text, TanggalAkhirSewaDateTimePicker.Text)
        TPenyewaanTableAdapter.Fill(Me.HotelDataSet.TPenyewaan)
        MsgBox("Data Berhasil Tersimpan")
    End Sub
7) Buatlah 3 Windows form baru untuk menyimpan Report.
-masukan MicrosoftReportViewer pada toolbox.
-buat desaign baru report dengan cara klik pada tombol kcil d atas kanan report.
-pilih new desaign.
-ikuti langkah pembuatan desaign yang ada.
-stelah selesai klik lagi sgitiga kecil lalu pilih report yg dibuat.


-lakukan hal yang sama pada 2 form selanjutnya, sesuiakan dengan report tabel apa yg ingin dibuat.



No comments:

Post a Comment