Aplikasi Sederhana Entry Data Peserta Workshop

Project UAS Aplikasi Sederhana Entry Data Peserta Workshop Dengan Menggunakan Visual Studio Yang Terkoneksi Ms. Access

Assalamu’alaikum.Wr.Wb..

Saya akan membuat Program aplikasi Sederhana dengan menggunakan aplikasi Visual Studio yang terkoneksi Ms Access. Disini saya akan membuat program aplikasi Entry Data Peserta Workshop yang mana fungsinya itu untuk Menyimpan data peserta yang hadir di acara workshop supaya bisa tersimpan rapih dan aman. aplikasi ini nantinya akan ter-outomatiskan dengan aplikasi Ms. Access untuk menyimpan data output dari data yang di input dari Visual Studio.

Proses dari aplikasi ini :

•  Pilih Label dan TextBox pada menu Toolbox untuk memasukan Nomer, Nama peserta, Asal Sekolah, No Telp, Alamat dan Nomer Peserta.
•  Pilih Tombol Button pada menu Toolbox fungsinya untuk menyimpan, mencari, Update dan delete yang langsung tersimpan di view yang sudah terkoneksi dengan Ms access.

Designnya :

Design  Ms. Access :

Langkah pertama membuat Database dengan menggunakan aplikasi Ms Access

1. creat Database

2.  Membuat Table

3. Membuat Nama Table

4. Membuat Menu isi dari Biodata

Langkah Kedua Membuat desain aplikasinya di Visual Studio

1. Membuat Web From Di Visual Studio

2. Membuat Desain dengan menggunakan Labe, TextBox dan Button 

Langka Ke Tiga Menghubungkan dari Visual Studio Ke Ms Access

1. Masukan Database Klik Browser

2. Pilih Database yang sudah di buat

3. Test Connection kemudian Ok

4. Masukan table Biodata ke Web from View

Langkah Ke empat melakukan pengcodingan

Memberikan nama pada bagian TextBox

1. No                  : NOText
2. Nama Peserta  : NamaText
3. Asal Sekolah    : AsalSekolahText
4. No Telp           : TxtNoTelp
5. Alamat            : TxtAlamat
6. Nomer Peserta : TxtNomerPeserta

Tombol Button 1   : Simpan
Tombol Button 2   : Cari
Tombol Button 3   : View
Tombol Button 4   : Update
Tombol Button 5   : Hapus

    Source Code 

I Imports System.Data

   Imports System.Data.OleDb

   Public Class WebFromBiodata

    Inherits System.Web.UI.Page

    Dim KoneksiAs String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\windows 10\Documents\Biodata.accdb"

    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Dim xReader As OleDb.OleDbDataReader

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Response.Redirect("WebFromVIEW.aspx")

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO TableBiodata values('" & NOText.Text & "','" & NamaText.Text & "','" & AsalSekolahText.Text & "','" & TxtNoTelp.Text & "','" & TxtAlamat.Text & "','" & TxtNomerPeserta.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

   

    Protected Sub Button4_Click(sender As Object, e As EventArgs) HandlesButton4.Click

        objekKoneksi.Open()

        Dim Rubah As String = "Update TableBiodata set Alamat='" + TxtAlamat.Text + "' where NamaPeserta='" + Trim(NamaText.Text) + "'"

        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

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

        If Not Len(NamaText.Text) = 0 Then

            objekKoneksi.Close()

            objekKoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TableBiodata where NamaPeserta ='" + NamaText.Text + "'", objekKoneksi)

            xReader = ocmd.ExecuteReader()

            If xReader.HasRows Then

                xReader.Read()

                NOText.Text = xReader("NO")

                NamaText.Text = xReader("NamaPeserta")

                AsalSekolahText.Text = xReader("AsalSekolah")

                TxtNoTelp.Text = xReader("NoTelp")

                TxtAlamat.Text = xReader("Alamat")

                TxtNomerPeserta.Text = xReader("NomerPeserta")

            Else

                NamaText.Text = "Nama Peserta Tidak ada"

                Exit Sub

            End If

            xReader.Close()

        End If

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        NOText.Text = ""

        NamaText.Text = ""

        AsalSekolahText.Text = ""

        TxtNoTelp.Text = ""

        TxtAlamat.Text = ""

        TxtNomerPeserta.Text = ""

        NamaText.Focus()

    End Sub

   End Class

llLangkah ke Lima Melakukan Running dengan browser

Kemudian muncul tampilan Seperti di bawah

1. Memasukan Data dengan menggunkan tombol Simpan

2. Mencari nambah peserta dengan menggunkan tombol Cari

3. MengUpdate Data contohnya Alamat dengan menggunakan tombol Update

•            Sebelum di Update

•     Saat proses Update

                             

•    sesudah Update

                   

4.  Melakukan proses penghapusana dengan menggunkan tombol Hapus

             sebelum di dihapus

       

            sesudah di hapus

                                    

5. Tampilan keseluruhan Data yang tersimpan di View

                        

6. Data yang tersimpan Di Ms Access

               

Sekian dari saya, cara membuat program sederhana aplikasi Entry Data Peserta Workshop  dengan menggunakan aplikasi visual studio yang terkoneksi ke Ms Access, Kurang dan Lebihnya mohon di maafkan.

          Wassalamu’alaikum.Wr.Wb.

Aplikasi Sederhana Pemesanan Tiket Dengan Visual Studio

Project UTS Aplikasi Sederhana 

Pemesanan Tiket  Dengan

 Menggunakan Visual Studio

Assalamu’alaikum.Wr.Wb..

Saya akan membuat Program aplikasi Pemesanan Tiket Sederhana dengan menggunakan aplikasi Visual Studio. Disini saya membuat program aplikasi pemesanan tiket yang mana fungsinya itu untuk mempermudah masyarakat pencinta timnas Indonesia untuk membeli tiket pertandingan  secara mudah, juga mempermudah penghitungan kasir pada saat jumlah pesanan dan harga tiket, dan aplikasi ini nantinya akan ter-outomatiskan dengan aplikasi Ms. Word (untuk bukti pemesanan) dan Ms. Excel (untuk pembukuan).

Proses dari aplikasi ini :

•  Pilih Label dan TextBox pada menu Toolbox untuk memasukan Nama pemesanan, Jadwal pertandingan, jumlah pesanan, harga tiket dan total harga.
•  Pilih CheckBox dan Textbox pada menu Toolbox untuk memasukan kategori tiket. 
•  Pilih Tombol Button pada menu Toolbox fungsinya untuk memasukan Total, Cetak Word dan Cetak Excel.

Designnya :

  

   

       Design  Ms.Word :

  

I     Input pada Bookmark dengan cara klik menu insert – bookmark – imput seperti gambar di bawah ini, lalu Add.

  

     
   Design Ms. Excel

   

      
    Pertama yang akan saya coding pada Toolbox :

  Pertama jangan lupa untuk menginport Word library dan Excel library untuk automationnya, dengan cara klik menu Project – Add– Reference – Tab Com _ cari Ms. Word dan Ms. Excelnya kemudian ceklis, perhatikan gambar berikut :

 

      Kemudian Import Variabel seperti berikut :

       Imports word = Microsoft.Office.Interop.Word

       Imports excel = Microsoft.Office.Interop.Excel

•   Kemuadian Klik 2 kali pada Button cetak Word untuk mengkoding

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

        Dim aplikasi As New word.Application

        Dim filenya As word.Document

        filenya = aplikasi.Documents.Open("D:\pemesanan.docx")

        filenya.Bookmarks("NAMA").Select()

        aplikasi.Selection.TypeText(TextNama.Text)

        filenya.Bookmarks("PERTANDINGAN").Select()

        aplikasi.Selection.TypeText(TextPertandingan.Text)

        filenya.Bookmarks("KATEGORI").Select()

        aplikasi.Selection.TypeText(CBKategori.Text)

        filenya.Bookmarks("JUMLAH").Select()

        aplikasi.Selection.TypeText(TextJumlah.Text)

        filenya.Bookmarks("HARGA").Select()

        aplikasi.Selection.TypeText(TextHarga.Text)

        filenya.Bookmarks("TOTAL").Select()

        aplikasi.Selection.TypeText(TextTotal.Text)

        MsgBox("Sukses")

        aplikasi.Visible = True

    End Sub

•    Klik 2 kali pada Button Excel lalu masukan kodingan sepeti berikut :

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

 Dim AppExcel As New excel.Application

 Dim ExcelWB As excel.Workbook

 ExcelWB = AppExcel.Workbooks.Open("D:\Pemesan2.xlsx")

 AppExcel.Range("C3").Value = TextNama.Text

 AppExcel.Range("D3").Value = TextPertandingan.Text

 AppExcel.Range("E3").Value = CBKategori.Text

 AppExcel.Range("F3").Value = TextJumlah.Text

 AppExcel.Range("G3").Value = TextHarga.Text

 AppExcel.Range("H3").Value = TextTotal.Text

ExcelWB.SaveAs("D:\" + TextNama.Text + " " + CBKategori.Text + " " + "Pemesan2.xlsx")

  MsgBox("Sukses")

 AppExcel.Visible = True

    End Sub

         2.  Masukan Coding Tombol Button Total yang digunakan untuk menghitung Jumlah Pesanan dan harga tiket.

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

                              Dim a As Single

                              Dim b As Single

                              Dim Total As Single

                              a = TextJumlah.Text

                              b = TextHarga.Text

                              Total = a * b

                             TextTotal.Text = Total

                    End Sub

          3. Masukan nama-nama  Kategori di Items pada CheckBox,                 setelah itu Klik OK

  

        4. Setelah selesai pengkodingan, lalu kita coba untuk Runing                Project Aplikasi ini

  

•      Bukti Cetak Pada Ms. Word
• 
  
  

•      Output Pada Ms. Excel

      Sekian dari saya, cara membuat program aplikasi pemesanan tiket dengan menggunakan aplikasi visual studio, Kurang dan Lebihnya mohon di maafkan.

          Wassalamu’alaikum.Wr.Wb.