Program VB Database

Saya akan menjelaskan cara untuk membuat program database sederhana dengan bantuan Ms.Access. Berikut adalah langkah-langkahnya :

• Pertama buatlah Tabel yang anda ingin munculkan di Ms.Access terlebih dahulu, seperti gambar dibawah

• Lalu kita masuk ke Visual Basic dan kita buat Form Login dahulu. Kita bisa mendapatkan login form dengan pilih Project -> Add Windows Form -> lalu pilih Login Form. Maka akan muncul seperti gambar dibawah

Berikut Kodingnya :


Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim X As New MDIParent1

        If UsernameTextBox.Text = "Rahmatia" And PasswordTextBox.Text = "123" Then
            X.Show()
        Else
            MsgBox("maaf anda salah memasukan pasword")
        End If

    End Sub

• Lalu buatlah MdiParent, seperti tadi Project -> Add Windows Form -> Pilih MdiParent. Maka akan muncul seperti gambar dibawah

Isi Menu File dengan : Data Pelanggan, Jenis Apartemen, Data Penyewaan

• Lalu buatlah Form Data Pelanggan, dengan cara pilih Project -> Add New WindowsForm. Isi yang terdapat didalam Form tersebut kita ambil dari Ms.Access yang telah kita buat sebelumnya. Caranya pilih Data -> Add New Data Source -> New Connection -> pilih file Ms.Access yg telah dibuat -> Finish/Ok. Setelah kita mengambil data dari Ms.Access makan data tersebut kita drag kedalam Form yang telah kita buat tadi. Lalu untuk menampilkan tabelnya, pilih Toolbox -> Data Grid View. Lalu tambahkan Button add,edit,delete,save dan cari. Sehingga akan tampil seperti dibawah ini

Untuk koding 

Add : 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles   Button2.Click

        Me.TPelangganBindingSource.AddNew()

        NomerPelangganTextBox.Focus()

        Button2.Visible = True

End Sub

Edit :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.TPelangganBindingSource.EndEdit()

        Me.TPelangganTableAdapter.Update(Me.TugasVB_1DataSet.TPelanggan)

End Sub

Delete :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TPelangganTableAdapter.Delete(NomerPelangganTextBox.Text, NamaPelangganTextBox.Text,  AlamatPelangganTextBox.Text, NoTelpTextBox.Text, KontakPersonTextBox.Text)

        TPelangganTableAdapter.Fill(Me.TugasVB_1DataSet.TPelanggan)

End Sub

Save :

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Me.TPelangganTableAdapter.Update(Me.TugasVB_1DataSet.TPelanggan)

        TPelangganTableAdapter.Insert(NomerPelangganTextBox.Text, NamaPelangganTextBox.Text, AlamatPelangganTextBox.Text, NoTelpTextBox.Text, KontakPersonTextBox.Text)

        TPelangganTableAdapter.Fill(Me.TugasVB_1DataSet.TPelanggan)

        MsgBox("Data Berhasil Tersimpan!", MsgBoxStyle.Information, "Success")

End Sub

Cari :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.TPelangganBindingSource.Filter = "NomerPelanggan like '%" & TextBox1.Text & "%' Or    NamaPelanggan like '%" & TextBox2.Text & "%'"

End Sub

• Selanjutnya apabila anda ingin membuat Report, buatlah Form baru terlebih dahulu, dari tollbox masukkan Data Report View lalu drag ke Form yang telah dibuat tadi. terus dibagian kanan atas ada tombol kecil, klik tombol tersebut lalu pilih design Reportnya. Pilih tabel yang ingin dibuat Reportnya ikuti langkah designya. Lalu pilih Reportnya yang udah dibuat. Maka akan muncul gambar seperti dibawah

• Dan apabila Anda ingin menambah profile perusahaan bisa dibuat dengan menambah Form baru, lalu pilih Rich Textbox. Maka akan tampil seperti gambar dibawah

• Maka selesailah sudah Program Database mengenai Apartemen, ulangi langkah diatas untuk Jenis Apartemen dan Data Penyewaan.