Materi Visual Basic II

Silakan download materi visual basic (form suplier dan form transaksi) disini

untuk transaksi one to many nya download disini

QUIZ VB Pra UAS

Jadwal QUIZ VB2:
    KLS                   Hari/Tanggal
12.4A.31            Senin, 18 Juni 2012
12.4B.31            Rabu,  20 Juni 2012

Silakan pelajari semua materi yang sudah diajarkan (Database yang digunakan MySQL)

Latihan Form Resto

Materi Lab

Silakan download materi - materi yang sudah diajarkan di Lab sebagai bahan latihan di rumah :

1) Delphi
Koneksi Delphi dengan Database Dekstop

2) Visual Basic II
Lanjutan Program Perpustakaan dengan Visual Basic (Form Buku) 
Form Peminjaman Buku
Software MySQL ODBC 3.51 Driver

Koneksi database MySQL dengan VB

Buat database  : perpustakaan
Buat tabel : anggota

 Desain Form

Untuk koneksi ke database MySQL menggunakan object ADODB. Sebelumnya aktifkan dulu ADODB nya. Caranya Klik Menu Project - References.. lalu ceklis Microsoft ActiveX Data Object 2.6 Library.

Kemudian ketik coding koneksi berikut ini di Module

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub koneksi()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;database=perpustakaan; uid=root;pwd =password"

con.CursorLocation = adUseClient
End Sub


Untuk menampilkan record tabel ke DataGrid, coding nya :
Private Sub Form_Load()
Call koneksi
If rs.State Then rs.Close
rs.Open "select * from anggota", con
Set DataGrid1.DataSource = rs
End Sub

Penjelasan:
Coding di Modul
Variabel con digunakan sebagai objek untuk koneksi ke database
Variabel rs digunakan sebagai objek untuk koneksi ke tabel
Nama variabel bebas tapi ada aturan mainnya (masih inget kan??)
Untuk koneksi ke database MySQL dibutuhkan driver dan penulis menggunakan MYSQL ODBC 3.51 yang harus diinstal terebih dahulu.
uid=user id; dan pwd =password untuk masuk ke phpMyAdmin. Untuk user nya "root" dan passwordnya disesuaikan.
CursorLocation=adUseClient --> meletakkan kursor ke database Client

Coding di Form_Load
Call koneksi = memanggil sub koneksi
If rs.State =jika tabel dalam kondisi diam tidak ada aksi ataupun sedang terbuka
then rs.Close= maka tabel akan tertutup
rs.Open "select * from anggota",con = menampilkan seluruh record yang ada di tabel anggota

Set DataGrid1.DataSource = rs --> menampilkan ke DataGrid

Untuk contoh lengkapnya silakan download Form Anggota

Object OptionButton di Visual Basic

Objeck OptionButton digunakan untuk menampilkan beberapa pilihan. Dan seberapapun banyaknya OptionButton hanya bisa dipilih satu Option saja.

Kali ini akan dibahas cara menyimpan data dari beberapa OptionButton ke dalam sebuah field misalnya field Jns_Kelamin
Konektor yang digunakan adalah Adodc


With Adodc1.RecordSet
   If opPria.Value = True Then
    .AddNew
        !Jns_Kelamin = opPria.Caption
    Else
        !Jns_Kelamin = opWanita.Caption
    End If
    .Update
End With

Untuk contoh studi kasus yang lain silakan download Latihan Form Mahasiswa

Merancang Form Transaksi Penjualan dengan Visual Basic

Untuk membuat form transaksi terlebih dahulu kita rancang struktur database, dan merancang tabel -tabel yang diperlukan.

Database : penjualan.mdb

Tabel:

1.       Barang

Name	Type	Size	Keterangan
KdBarang	Text	10	Primary Key
NmBarang	Text	20
Satuan	Text	10
Harga	Currency
Stok	Nember

2.       Customer

Name	Type	Size	Keterangan
IdCust	Text	10	Primary Key
NmCust	Text	20
Alamat	Text	30
Telp	Text	15

3.       Transaksi

Name	Type	Size	Keterangan
NoTrans	Text	10	Primary Key
Tgl	Date/Time
Total	Currency
IdCust	Text	10

4.       Detail

Name	Type	Size	Keterangan
NoTrans	Text	10
Jumlah	Number
SubTotal	Currency
KdBarang	Text	10

5.       Sementara

Name	Type	Size	Keterangan
KdBarang	Text	10
NmBarang	Text	20
Harga	Currency
Jumlah	Number
Subtotal	Currency

Desain Form Transaksi

Untuk membuat objek DataCombo, terlebih dahulu harus menambahkan componen : Microsoft DataList Control 6.0(OLEDB)

Untuk membuat objek DataGrid, terlebih dahulu harus menambahkan componen : Microsoft DataGrid Control 6.0(OLEDB)


Untuk coding nya silakan download disini

Program Akuntansi dengan VB

Untuk codingnya silakan download disini

Membuat Efek Text Berjalan pada Visual Basic

Design FORM

General

Dim a As Integer

Dim b As String

 

Private Sub Form_Load()

a = 0

b = "Efek Text Berjalan Perkarakter"

End Sub

Private Sub Timer1_Timer()

‘text berjalan perkarakter

a = a + 1

Label1.Caption = Left(b, a)

If a = Len(b) Then

    a = 1

End If

‘text berkedip

If Label2.Visible = True Then

    Label2.Visible = False

Else

    Label2.Visible = True

End If

End Sub