Convert Erwin Acces

Convert Erwin-Acces atau sebaliknya

1. Erwin-Acces
1.1 yang pertama buka erwin, erwin yang saya gunakan 4.1
1.2 jalankan erwin -> jika ada permintaan conect abaikan dahulu
1.3 buka file > plih new

1.4 buatlah tabel seperti gambar berikut
1.5 

1.6 Membuat suatu entity bisa dilakukan dengan menekan icon yang berada d samping kiri atau d bagian menu. dengan menekan Tab anda dapat berpindah dari judul ke primary key sampai kepada isi entitas.
1.7 Buatlah Acces tanpa perlu di isikan apapun, cukup save di tempat yang mudah anda temukan, atau ingin mudah jadikan satu dengan folder hasil save erwin.
1.8 Selanjutnya Membuat ODBC acces yang tadi dapat di buat. Caranya  anda bisa search ODBC di pencarian, maka akan keluar tampilan ODBC seperti berikut.

1.9 Pilih add maka akan keluar berikut

1.10 carilah seperti yang bercetak biru d atas, jika anda menggunakan Windows 64bit akan ada sedikit masalah karena setiap driver tidak akan muncul, pastikan untuk merubah dari controlpanel > pilih administrative tools > odbc klik kanan pada odbc ini, rubah direktorinya dari System32 ke SysWOW64
1.11 Setelah memilih akan keluar seperti berikut

1.12 Isikan Name sesuai keinginan > klik select carilah dimana tempat anda menyimpan acces kosong tadi > Pilih OK
1.13 masuk kembali k Erwin pastikan pada toolbar d atas sudah Pysical bukan Logical. maka muncul

1.13 Pilih select target pada bagian yang berpanah,

1.14 pada tampilan ini pilihlah ODBC/Generic > OK
1.15 Pada Toolbar tadi kali ini pilih yang paling ujung kiri > akan muncul sebuah tampilan klik Generate > buka acces anda maka akan muncul Entity yang telah di buat d Erwin.

2 Acces - Erwin
2.1 Hampir sama seperti tadi, tetapi kita balik cara kerjanya, dengan membuat acces beserta entity d dalamnya.
2.2 Buat kembali ODBC seperti langkah d  atas
2.3 Buka Erwin Baru
2.4 Pastikan Phsycal kembali, lalu lakukan langkah Memilih target.
2.5 yang berbeda Kini pada Toolbar Tools > pilih reverse Enginer >akan muncul tampial > jika anda tidak mengetahui Pilihan-pilihan tersebut cukup klik Next saja sampai keluar seperti ini

2.6 Masuka Name dan Password sesuai keinginan lalu klik connect.
2.7 saat ini anda sudah dapat melihat hasilnya.

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.