Tugas 12 Pemograman Bisnis 2

Saat ini saya akan menjelaskan tentang penggunaan data base dan bagaimana bisa memanupulasi database seperti, insert,delete, dan select, yang terkontrol oleh vb.net.
Aplikasi yang ingin dibuat adalah aplikasi pendaftaran volunteer kegiatan sosial.

Langkah Pertama:
Buat Project baru pada visual stuido dengan bahasa pemograman vb
Buat 2 macam Form yaitu, FormLogin, Form 1 untuk pendaftaran

Form Login
kah

Form 1 untuk pendaftaran

Langkah Kedua:

Buat Database pada Ms. Access 

Langkah Ketiga

Sambugnkan visuak studio dengan database

klik Data,  Lalu Pilih Add New Data Source, Lalu klik Next, New Connection Pilih Ms Access dan setelah oke copy connection string data tersebut, klik next hingga selesai.

Langkah Keempat

Isi Coding Form Login dengan

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

        Dim Username As String

        Dim password As String

        Username = System.Convert.ToString(TextBox1.Text)

        password = System.Convert.ToString(TextBox2.Text)

        If Username.Contains(" Ayu ") Then

           password.Contains("13304")

        Else

            MessageBox.Show("Masukkan Username dan Password yang benar")

        End If

    End Sub

Disini saya mengkondisikan yang bisa mengakses form ini hanya Ayu sebagai sekeretaris Organisasi.

Langkah Kelima 

isi coding Form Pendaftaran dengan

//Diatas

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DatabaseVolunteer.accdb"

        Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)

    End Sub

// Pada Button Save

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

        Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DatabaseVolunteer.accdb"

        Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)

        ObjekKoneksi.Open()

        Dim Tambah As String = "INSERT INTO TableVolunteer values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.T

ext & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(Tambah, ObjekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Sukses..")

        ObjekKoneksi.Close()

    End Sub

Jika berhasil menyimpan maka data yang input dalam aplikasi akan otomatis terinput pada database, Contoh:

saya menginput data Elsa dan data tersebut otomatis tersimpan dalam Database

// pada Button Delete

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

// pada button exit

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

        Me.Close()

    End Sub

SELESAI

SELAMAT MENCOBA

UTS LAB PEMROGRAMAN BISNIS 2

Program yang ingin saya jelaskan adalah bagaimana mencetak tiket yang isinya diisi dengan aplikasi visual basic (VB), namun ingin mencetaknya dalam bentuk word, ikuti cara- cara berikut ini: 

     1. Buatlah project baru pada visual studio

     2. Buatlah Form seperti dibawah ini:

    3. Ubah nama 

         RadioButton1 menjadi Film1 dst

         TextBox1 menjadi TeaterBox

         Textbox2 menjadi TiketBox

         Textbox3 menjadi TotalBox

    4. Buat juga dokumen word seperti dibawah ini:

    

   5. Tambahkan Bookmark pada masing-masing kolom, (Film,Teater,Total) Bookmark

   6. Simpan dan tutup dokumen word

   7. Add reference pada Visual Studio, dengan cara

    Klik Project lalu Add Reference, Pilih COM dan cari Microsoft Word ..... Object Library, Klik OK

   8. Klik 2 pada Film1,2,3, secara bergantian masukkan source code

          //untuk menghubungkan dengan TeaterBox

     Private Sub Film1_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Film1.CheckedChanged

        TeaterBox.Text = "1"

     End Sub

     Private Sub Film2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Film2.CheckedChanged

        TeaterBox.Text = "2"

     End Sub

    Private Sub Film3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Film3.CheckedChanged

        TeaterBox.Text = "3"

    End Sub

   9. Klik 2 kali pada Button1 atau Button OK dan masukkan source code

      

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

      //Mendeklarasikan object word apps dan word document baru

        Dim CinemaApps As New Microsoft.Office.Interop.Word.Application

        Dim TiketDoc As New Microsoft.Office.Interop.Word.Document

      //untuk membuka dokumen yang sudah dibuat      

      TiketDoc = CinemaApps.Documents.Open("D:\TIKET CINEMA.docx")

     

//untuk menghubungkan bookmark di word dengan vb sehingga apa yang     ditulis di vb akan tertulis juga di bookmark word

        If Film1.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film1.Text)

        End If

        If Film2.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film2.Text)

        End If

        If Film3.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film3.Text)

        End If

        TiketDoc.Bookmarks("Teater").Select()

        CinemaApps.Selection.TypeText(TeaterBox.Text)

        TotalBox.Text = TiketBox.Text * 30000

        TiketDoc.Bookmarks("Total").Select()

        CinemaApps.Selection.TypeText(TotalBox.Text)

     

        // untuk menyimpan data ke dokumen yang sudah dibuat

        TiketDoc.SaveAs("D:\TIKET CINEMA.docx")

        //menampilkan aplikasi word

        CinemaApps.Visible = True

    End Sub

End Class

   10. Program Selesai, simpan project dan jalankan (Debug)

        

      

SELAMAT MENCOBA

UTS Pemograman Bisnis 2

Program yang ingin saya jelaskan adalah program untuk menyimpan data Pasien dari Visual Studio yang terautomasi dengan Microsoft Word.

1. Buat new project dengan project tipe Visual Basic (VB)

2. Lalu buat form dengan format seperti dibawah ini:

3. Buat juga dokumen word :

4. Tambahkan Bookmark pada masing- masing kolom nama,alamat,kode pasien,dan penyakit

5. Add reference pada Visual Studio, dengan cara
    Klik Project lalu Add Reference, Pilih COM dan cari Microsoft Word ..... Object Library, Klik OK

6. Klik dua kali pada Button Simpan dan masukkan Source Code berikut ini:
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        //Mendeklarasikan object word apps dan word document baru

        Dim daftarApps As New Microsoft.Office.Interop.Word.Application

        Dim daftarDoc As New Microsoft.Office.Interop.Word.Document

        // Untuk membuka document yang sudah ada

        daftarDoc = daftarApps.Documents.Open("D:\PASIEN.doc")

        // Perintah untuk memasukan apa yang ditulis di Vb ke                  Microsoft Word

        daftarDoc.Bookmarks("Nama").Select()

        daftarApps.Selection.TypeText(TextBox1.Text)

        daftarDoc.Bookmarks("Alamat").Select()

        daftarApps.Selection.TypeText(TextBox2.Text)

        daftarDoc.Bookmarks("Kode").Select()

        daftarApps.Selection.TypeText(TextBox3.Text)

        daftarDoc.Bookmarks("Penyakit").Select()

        daftarApps.Selection.TypeText(TextBox4.Text)

       // Untuk Menyimpan data pasien kepada Documen yang telah               disiapkan

        daftarDoc.SaveAs("D:\PASIEN.doc")

       // Menampilkan Aplikasi Word

        daftarApps.Visible = True

7. Project selesai, simpan Project dan coba jalankan (Debug)

Selamat Mencoba