Friday, January 15, 2021

Pemrograman Visual - Pertemuan 10

 Koneksi Dan Menampilkan Data

Introduction

Merupakan kumpulan informasi yang disimpan di dalam komputer secara sistematik, sehingga kumpulan informasi tersebut dapat diperoleh kembali dengan menggunakan program komputer

Suatu software yang digunakan untuk mengelola dan memanggil query database disebut dengan Sistem Manajemen Basis Data (SMBD) atau bahasa Inggrisnya adalah Database Management System (DBMS).

Jenis-jenis teknologi database

       Microsoft Access – Sebuah program aplikasi RDBMS (Relational Database Management System) yang ditujukan untuk kalangan rumahan dan perusahaan kecil hingga menengah. Aplikasi ini menggunakan Microsoft Jet Database Engine. Programmer yang mahir dapat menggunakannya untuk mengembangkan software yang kompleks. Sementara yang kurang mahir dapat menggunakannya untuk mengembangkan software yang sederhana.

       SQLite – RDBMS yang bersifat open source. Dikenal sebagai RDBMS yang sangat kecil ukurannya. Database jenis ini biasanya digunakan untuk aplikasi android.

       Microsoft Access – Sebuah program aplikasi RDBMS (Relational Database Management System) yang ditujukan untuk kalangan rumahan dan perusahaan kecil hingga menengah. Aplikasi ini menggunakan Microsoft Jet Database Engine. Programmer yang mahir dapat menggunakannya untuk mengembangkan software yang kompleks. Sementara yang kurang mahir dapat menggunakannya untuk mengembangkan software yang sederhana.

       SQLite – RDBMS yang bersifat open source. Dikenal sebagai RDBMS yang sangat kecil ukurannya. Database jenis ini biasanya digunakan untuk aplikasi android.

Koneksi database (kasus microsoft access)

       Buatlah file Access di suatu path, misalkan dengan nama coba.mdb

       Lakukan imports System.Data.OleDb. OleDb (Object Linking and Embedding, Database) adalah API yang didesain oleh Microsoft. API merupakan singkatan dari Application Programming Interface merupakan sekumpulan instruksi program dan protokol yang digunakan untuk membangun software.

       Membuat variabel koneksi, misal:

       Dim MyConn As OleDbConnection

       MyConn = New OleDbConnection(“provider=microsoft.jet.oledb.4.0;data source=“ & path & “\coba.mdb”)

       Provider adalah engine database yang digunakan, sedangkan data source adalah sumber data (nama file database nya).

       Buatlah file Access di suatu path, misalkan dengan nama coba.accdb

       Lakukan imports System.Data.OleDb.

       Membuat variabel koneksi, misal:

       Dim MyConn As OleDbConnection

MyConn = New OleDbConnection(“provider=microsoft.ace.oledb.12.0;data source=“ & path & “\coba.accdb”)

Koneksi database (kasus MySQL)

       MySQL menyediakan Driver untuk koneksi yang menghubungkan aplikasi program dari Visual Studio dengan database miliknya. Driver tersebut adalah mysqlconnector.NET

       Sebelum dapat mengkoneksikan MySQL dengan Visual Studio, mysqlconnector harus diinstall terlebih dahulu untuk mendapatkan reference MySql.Data.dll

       Untuk menambahkan Reference tersebut, buka menu PROJECT à Add Reference kemudian pada Extensions pilih (centang) MySql.Data

       MySQL menyediakan Driver untuk koneksi yang menghubungkan aplikasi program dari Visual Studio dengan database miliknya. Driver tersebut adalah mysqlconnector.NET

       Sebelum dapat mengkoneksikan MySQL dengan Visual Studio, mysqlconnector harus diinstall terlebih dahulu untuk mendapatkan reference MySql.Data.dll

       Untuk menambahkan Reference tersebut, buka menu PROJECT à Add Reference kemudian pada Extensions pilih (centang) MySql.Data. Jika tidak ada, maka pilih Browse untuk mencari reference secara manual

       Lakukan Imports MySql.Data.MySqlClient

       Buat variabel koneksi, misalkan:

       Dim MyConn As MySqlConnection

       MyConn = New MySqlConnection(“server=localhost; user=root; pwd=; database=perpustakaan”)

       Server adalah alamat server dari database nya

       User adalah nama user, dimana defaultnya biasanya adalah root

       Pwd adalah password dari database, defaultnya adalah kosong

Database adalah nama databasenya


Menyambung dan memutuskan koneksi

       Untuk menyambung dan memutuskan koneksi dapat menggunakan fungsi .Open dan .Close

       Sebaiknya koneksi pada database hanya dilakukan sesuai kebutuhan program saja. Setelah proses selesai putus koneksi pada database

       Contoh :

MyConn.Open( )

<<Query Execution>>

MyConn.Close( )


Cek koneksi

       Dilakukan sebelum membuat aplikasi, untuk mengetahui apakah database terkoneksi dengan baik atau tidak. Dilakukan sekali saja di awal, setelah itu dihapus.

            Secara mudah dapat menggunakan Handling Exception:

        Try

            MyConn.Open()

            MessageBox.Show("Koneksi Sukses")

            MyConn.Close()

        Catch ex As Exception

            MessageBox.Show("Koneksi Gagal")

            If MyConn.State = ConnectionState.Open        Then

                MyConn.Close()

            End If

        End Try


Introduction

       Untuk melakukan koneksi dengan database, seorang programmer perlu untuk tersambung (menyambungkan) aplikasi dengan database (baca pertemuan sebelumnya).

        Daripada membuat perintah yang sama berulang-ulang, akan lebih mudah jika membuat perintah koneksi di dalam module.

       Pada module, semuanya (variabel, procedure, function) adalah Public, sehingga dapat diakses/digunakan untuk keseluruhan Form atau Class.

       Contoh :

Variabel MyConn pun dapat dipanggil di Form/Class manapun dalam aplikasi (project) tersebut.

               

 Data table

       Sebelum melangkah lebih jauh, ada baiknya kita berkenalan dengan Data Table.

       DataTable adalah suatu objek yang merupakan bagian dari library ADO.NET yang merepresentasikan satu buah tabel yang berjalan pada memori sementara. Objek lainnya adalah DataSet dan DataView

       Pada aplikasi yang berhubungan dengan database, DataTable digunakan untuk menampung suatu tabel hasil query untuk kemudian ditampilkan kepada user melalui suatu komponen (DataGridView misalkan).


 Data adapter

       DataAdapter adalah bagian dari ADO.NET yang menyediakan komunikasi (menghubungkan) antara DataSet atau DataTable dengan DataSource.

       DataAdapter menjalankan suatu Query jika sudah terkoneksi dengan database, yang kemudian hasil query tersebut ditampilkan pada suatu tabel , misalkan DataTable dengan menggunakan sintaks berikut:

DataAdapter.Fill(DataTable)

       Query yang digunakan biasanya berupa perintah SELECT


Penggunaan Data Adapter Dan Data Table

       Jika menggunakan cara biasa, baik DataAdapter ataupun DataTable di deklarasikan di module. Tetapi penggunaannya di masing-masing Form atau Class.


 Menu login dan combo box

introduction

       Seringkali mahasiswa/programmer pemula merasa kesulitan jika sudah berhadapan dengan menu login yang menggunakan database. Hal tersebut berlaku juga untuk komponen combobox

       Diharapkan dengan materi ini mahasiswa dapat memahami teori tentang menu login dan penggunaan combobox yang berkaitan dengan database.

 ·                     Misal diketahui tabel user sebagai berikut.

 

Friday, January 8, 2021

Pemrograman Visual - Pertemuan 17

DEPLOYMENT 

1. pertama buka project sobat, lalu klik Project, klik <nama project kamu> Properties


2. Klik Publish (Nomor 3) lalu pilih lokasi penyimpanan (Nomor 4)




3. Scroll ke bawah lalu klik “Publish”


4. Setelah selesai buka folder tempat anda menyimpan tadi (Nomor 4),disitu anda akan menemukan file “Setup.exe”, selamat project anda sekarang bisa dijalankan “stand alone” tanpa harus membuka VB.net,


Pemrograman Visual - Pertemuan 16

 REPORTING

1. Pastikan sudah memiliki Visual Studio.

Keterangan : Bagi yang belum dapat mendownload-nya dengan mengklik tulisan berikut Visual Studio Download.

2. Pastikan sudah memiliki konektor ini Connector ODBC x32 dan x64.

3. Pastikan sudah menginstal Crystal Report untuk VB-nya

Keterangan :

Untuk Crystal Report dapat dicari dari Google, saya tidak dapat menyediakannya karenakan ukurannya yang cukup besar dan juga sebenarnya tidak gratis (namun bagi yang ingin mencari bajakannya dapat dicari di Google).

4. Instal semua perlengkapannya.

5. Pastikan sudah menjalankan XAMPP lalu merunning Apache dan MySQL

6. Setting ODBC berdasarkan langkah - langkah berikut






7. Buka Visual Studio 2015 dan klik New Project
8. Buatlah sebuah Form
9. Keterangan : Disarankan untuk saat ini tidak mengganti nama - nama terlebih dahulu karena dapat mengganggu dalam script (salah tulis nama dalam script bisa membuat program tidak berjalan) kecuali jika sudah mengerti letak - letak namanya dalam script.


10. Setelah membuat Form selanjutnya cari Crystal Report dalam Toolbar lalu Drag and Drop ke dalam Form tersebut.


11. Cari Button dalam Toolbar dan Drag and Drop ke dalam Crystal Report



12. Keterangan : Button tersebut nantinya akan berguna untuk menampilkan Crystal Report kita setelah di klik. 

13. Masukkan CrystalReport dengan menggunakan cara berdasarkan gambar berikut.



Keterangan : Semua yang berada dalam Crystal Report diatas berpengaruh kepada tampilan Crystal Report yang ditampilkan nanti oleh karena itu alangkah baiknya isi Crystal Report tersebut ditata sebaik mungkin (dilebarkan section sectionnya atau dipindahkan tools-nya).


14. Masukkan isi Crystal Report dengan mengklik Field Explorer dan Drag & Drop isi sesuai yang kita butuhkan.




Keterangan : Kita dapat men-drag and drop data dari macam macam tabel seperti dosen (pada gambar diatas) lalu tabel mahasiswa, dan atau tabel user juga dengan mengklik icon + lalu men-drag and drop yang kita inginkan kedalam Section 3.

Pastikan ukuran dari tiap tiap kolom yang kita masukkan cukup besar karena apabila terlalu kecil maka ketika ditampilkan akan berubah menjadi ##### dan bukan menampilkan data kita.

15. Cek Crystal Report dengan mengklik Crystal Report Preview


16. Double Click Button lalu masukkan Script berikut.


17. Apabila Button sudah diberi script berikut, maka program kita sudah jadi kita dapat mengetesnya dengan mengklik tombol |➤ Start | yang berada diatas.



Thursday, January 7, 2021

Pemrograman Visual - Pertemuan 15

 MENGELOLA FOTO

Tambahkan picture box dan OpenFileDialog  pada form tambah :


Kemudian tambahakan coding berikut pada picture box :



Running dan coba tambahkan






Pemrograman Visual - Pertemuan 14

 MENGHAPUS DAN MENCARI DATA


Tambah kan button


Ganti text button menjadi hapus



Ganti text button menjadi hapus


Doble Klik pada button hapus



Masukkan pada button ubah code seperti berikut

Private Sub btnHapusBuku_Click(sender As Object, e As EventArgs) Handles btnHapusBuku.Click

        HapusBuku(id_buku)

        FormBuku.Show()

    End Sub

Jika sudah selanjutnya running aplikasi coba button hapus yang sudah di sudah dibuat tadi jika berhasil akan muncul tampilan seperti berikut



Pemrograman Visual - Pertemuan 13

MERUBAH DATA

Tambahkan button

Ganti text button menjadi ubah



Doble Klik pada button ubah


Masukkan pada button ubah code seperti berikut

Private Sub btnUbahbuku_Click(sender As Object, e As EventArgs) Handles btnUbahbuku.Click

        Dim judul As String = txtJudulDet.Text

        Dim idkat As Integer = cbKatDet.SelectedValue

        Dim isbn As String = txtisbnDet.Text

        Dim penerbit As String = txtPenerbitDet.Text

        Dim penulis As String = txtPenulisDet.Text

 

        UbahBuku(id_buku, idkat, judul, isbn, penerbit, penulis)

        FormBuku.Show()

    End Sub

 

Jika sudah selanjutnya running aplikasi coba button ubah yang sudah di sudah dibuat tadi

Pemrograman Visual - Pertemuan 12

MENAMBAHKAN DATA

Tambahkan button


Ganti text button menjadi tambah


Doble Klik pada button tambah


Masukkan pada button tambah code seperti berikut

Private Sub btnTambahBuku_Click(sender As Object, e As EventArgs) Handles btnTambahBuku.Click

        FormTambahBuku.Show()

        Me.Close()

        TampilBuku()

    End Sub

Jika sudah selanjutnya running aplikasi coba button tambah jika berhasil akan muncul tampilan seperti berikut










Pemrograman Visual - Pertemuan 11

 MENAMPILKAN DATA

    MySqlDataAdapterMySqlDataAdapter Merupakan seperangkat perintah data dan koneksi database yang digunakan untuk mengisi DataSet / DataTable dan memperbarui database MySQL.


Data Table

    DataTable merupakan sebuah type data yang disediakan dari System.Data yang fungsinya untuk membuat tabel secara abstrak / tidak keliatan. lebih gampangnya DataTable itu merupakan type data untuk membuat table.

Function TampilBuku()

    TampilBuku adalah sebuah function, karena nilai yang dikembalikannya kita perlukan untuk proses menampilkan data dalam bentuk tabel. Pada module proses.vb kita deklarasikan function TampilBuku ini, tanpa parameter dan memiliki tipe data DataTable.


    Kemudian di dalamnya kita deklarasikan variabel-variabel yang kita perlukan, seperti query dan variabel DataTable itu sendiri.

    Query yang kita gunakan adalah menjoinkan tabel buku dan kategori, kemudian menjadikan atribut yang tampil sesuai dengan yang diinginkan.


    Masih berdasarkan DFD, query tersebut kemudian dikirimkan ke database dan dari database akan didapatkan hasil dari query. Untuk query SELECT kita gunakan function getResult dari module koneksi yang manfaatnya mengambil data dari database berdasarkan query yang dikirimkan. Kemudian hasilnya disimpan sebagai dt. Nilai dt inilah nilai kembali pada function TampilBuku.



Memanggil TampilBuku di FormBuku()
Begitu admin dan pegawai berhasil login, mereka akan langsung diarahkan ke FormBeranda. Pada halaman ini tabel buku pun akan ditampilkan melalui DataGridView, yang pada modul sebelumnya kita beri nama DG. Oleh karena itu code untuk menampilkan data buku ini kita bangun pada FormBuku_Load. Klik FormBuku dua kali untuk membangkitkan method ini.

Berikut halaman Beranda ketika aplikasi dijalankan.


Memanggil TampilKategori()

Masukkan Codingan seperti dibawah ini

Public Class FormDetilKategori

 

    Private Sub FormDetilKategori_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'query join

        Dim query As String = "Select * from kategori where id_kategori=" & id_kategori

        Dim dt As New DataTable

        dt = GetResult(query)

        txtKatDet.Text = dt.Rows(0).Item("kategori").ToString

 

    End Sub

 

Jika berhasil akan muncul tampilan sperti berikut







IoT - Bluetooth