Tugas Akhir VB2 Database

selamat datang di blog saya..
kali ini saya akan membahas tentang mengkoneksikan Visual Basic dengan Microsoft Access 2007..

Pertama tama saya akan membuat file databasenya terlebih dahulu..

kurang lebihnya seperti ini:

database ini terdiri dari 2 tabel dan 1 query..

selanjutnya saya langsung mengkoneksikan database yang sudah saya buat dengan Visual Basic. Kebetulan versi yang saya pakai saat ini versi 2010. Seperti ini screenshoot nya:

dan ini adalah crystal report yang sudah saya buat berdasarkan database yang sudah dibuat.

dari form 1 terdapat tombol next yang berfungsi untukk beralih dari form 1 ke form selanjutnya..
Untuk reportnya saya memakai report manual karena tidak ada report otomatis di program saya..

Untuk keluar dari program ini anda tinggal mengklik tombol Exit dan akan ada pemberitahuan seperti ini..

Berikut source code dari program saya..

Public Class Form1

    Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    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 'Database1DataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Database1DataSet.Table1)

    End Sub

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

    End Sub
End Class

Public Class Form2

    Private Sub Table2BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table2BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table2BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    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 'Database1DataSet.Table2' table. You can move, or remove it, as needed.
        Me.Table2TableAdapter.Fill(Me.Database1DataSet.Table2)

    End Sub

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

    End Sub
End Class

Public Class Form3

    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 'Database1DataSet.Query1' table. You can move, or remove it, as needed.
        Me.Query1TableAdapter.Fill(Me.Database1DataSet.Query1)

        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Terimakasih")
        Form1.Close()
        Form2.Close()
        Me.Close()

    End Sub
End Class

Terimakasih sudah membaca!!

Tugas Kelompok VB2

Langsung saja ini adalah program ASP.Net yang telah kami buat..

 

Jika ingin mengisi pulsa tinggal diisi saja data data yang diperlukasn seperti nomor hp, nominal, provider yang digunakan, dan cara pembayaran yang dilakukan . Cara pemakaian nya seperti ini:

 

Jika pengisisan pulsa berhasil, akan keluar text yang memberikan laporan bahwa pengiriman pulsa berhasil dilakukan, seperti gambar diatas. 

Jika anda ingin megisi lagi, klik saja tombol Isi Lgi, maka program akan otomatis bersih seperti awal. Data data yang tadi juga langsung tercatat di dokumen word yang sudah saya buat sebelum nya..

Yang saya lakukan ini dinamakan AUTO MATION pada Asp.net.

Berikut coding coding nya..

Imports word = Microsoft.Office.Interop.Word
Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = "Nomor : "
        Label2.Text = "Nominal : "
        Label3.Text = "Provider : "
        Label4.Text = "No. Resi : "
        Label5.Text = "Pembayaran Via : "
        Label6.Text = "No. Rekening : "


       

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        TextBox2.Text = "Pengisian pulsa untuk nomor " + TextBox1.Text + " sebesar " + DropDownList1.SelectedValue + " dengan provider " + DropDownList2.SelectedValue + " telah berhasil, silahkan cek saldo pulsa anda."

        Dim myWordApp As New word.Application
        Dim myworddoc As New word.Document

        myworddoc = myWordApp.Documents.Open("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
        myworddoc.Bookmarks("Nomor").Select()

        myWordApp.Selection.TypeText(TextBox1.Text)

        myworddoc.Bookmarks("Nominal").Select()

        myWordApp.Selection.TypeText(DropDownList1.SelectedValue)

        myworddoc.Bookmarks("Provider").Select()

        myWordApp.Selection.TypeText(DropDownList2.SelectedValue)

        myworddoc.Bookmarks("Via").Select()

        myWordApp.Selection.TypeText(RadioButtonList1.SelectedValue)


        myworddoc.SaveAs("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
        myWordApp.Visible = True
        myWordApp.Quit()
    End Sub

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

        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = ""
        DropDownList1.SelectedValue = "Pilih Nominal"
        DropDownList2.SelectedValue = "Pilih Provider"

    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles DropDownList1.SelectedIndexChanged

    End Sub
    Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButtonList1.SelectedIndexChanged

    End Sub
End Class

Terimakasih sudah mampir

Tugas 1

Langsung saja, saya ingin menjelaskan tentang program yang saya buat. Tampilan program seperi gambar berikut ini  .

Program ini dibuat utuk memudahkan kita dalam melakukan pecatatan transaksi. Gunanya bisa untuk Kwitansi/Bon, rekap pembelian, dll.

Untuk membuatnya item yang saya gunakan adalah

1. Label
2. Textbox
3. Button
4. ComboBox
5. Dokumen Microsoft Word

Untuk menjalankan programnya, beberapa poin harus diisi dulu seperti barang yang dibeli dan banyaknya barang yang dibeli. Untuk poin harga dan total pembelian akan keluar otomatis. Gambarnya seperti ini

Untuk poin harga dan total akan keluar secara otomatis. Kemudian anda dapat men-klik tombol bayar jika sudah selesai belanja, maka total pembayaran yang harus dibayar akan keluar otomatis dan begitu juga dengan pencatatan transaksi akan terbuat seperti ini

Untuk memperindah, pada form tersebut saya beri warna hijau dengan fungsi backcolour pada VB 2008.

Berikut adalah source code nya

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.LightGreen

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = ("Bawang Merah") Then TextBox1.Text = ("15000")
        If ComboBox1.SelectedItem = ("Bawang Putih") Then TextBox1.Text = ("13000")
    End Sub

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

    End Sub

    Private Sub Button2_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
        Dim myWordApp As New word.Application
        Dim myWordDoc As New word.Document

        TextBox2.Text = TextBox1.Text * ComboBox2.Text
        myWordDoc = myWordApp.Documents.Open("C:\Users\Febry Lawrencius\Desktop\feb.doc")
        myWordDoc.Bookmarks("BRG").Select()

        myWordApp.Selection.TypeText(ComboBox1.Text)

        myWordDoc.Bookmarks("HRG").Select()
        myWordApp.Selection.TypeText(TextBox1.Text)

        myWordDoc.Bookmarks("JML").Select()
        myWordApp.Selection.TypeText(ComboBox2.Text)

        myWordDoc.Bookmarks("TGHAN").Select()
        myWordApp.Selection.TypeText(TextBox2.Text)


        myWordDoc.SaveAs("C:\Users\Febry Lawrencius\Desktop\febNew.doc")
        myWordApp.Visible = True
        myWordApp.Quit()
    End Sub
End Class

Sekian dari saya, semoga menjadi informasi yang berguna.
Tks