Tutorial Vbnet 1 - Toko Access
description
Transcript of Tutorial Vbnet 1 - Toko Access
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 1/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 2/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 3/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 4/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 5/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 6/269
1
3
2
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 7/269
1
2
34
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 8/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 9/269
1
2
3
4
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 10/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 11/269
2
3
41
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 12/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 13/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 14/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 15/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 16/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 17/269
'/ code: kosongkan textbox agar kosong
Me.TextBox1.Clear()
Me.TextBox2.Clear()Me.TextBox3.Text=””
'/ code: kosongkan textbox agar kosong
Me.TextBox1.Clear()
Me.TextBox2.Clear()Me.TextBox3.Text=””
'/ code: letakkan kursor di textbox1, agar siap di input
Me.TextBox1.Focus()
'/ code: keluar dari form / tutup form
Me.Close()
'/ munculkan KOTAK KONFIRMASI untuk KELUAR FORM Dim TANYA As String '/DIM=difinisi variable
If TANYA = vbYes Then
Me.Close()
End If
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 18/269
'/code pengurangan
Me.TextBox3.Text = TextBox1.Text - TextBox2.Text
Me.TextBox3.Text = TextBox1.Text * TextBox2.Text
Me.TextBox3.Text = TextBox1.Text / TextBox2.Text
'/ hasilnya dg format ribuan dan DESIMAL
Me.TextBox3.Text =FORMAT(TextBox1.Text/TextBox2.Text,”#.00”)
'/code penjumlahan
Me.TextBox3.Text = TextBox1.Text + TextBox2.Text
'/penjumlahan
Me.TextBox3.Text = Val(TextBox1.Text)+ Val(TextBox2.Text)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 19/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 20/269
'/ contoh mengecek data yg di input untuk kalkulasi'/ apakah yg diinput ANGKA atau BUKAN
If IsNumeric(TextBox1.Text) = False Then
MsgBox("INPUT TEXTBOX 1 SALAH, HARUS ANGKA..", )TextBox1.Focus() '-> letakan kursor di text1Exit Sub '-> keluar dari code karena data tidak valid
End If
If IsNumeric(TextBox2.Text) = False Then
MsgBox("INPUT TEXTBOX 2 SALAH, HARUS ANGKA ", )TextBox2.Focus() '-> letakkan kursor di text2Exit Sub '-> keluar dari code kareda data tidak valid
End If
Me.TextBox3.Text = TextBox1.Text - TextBox2.Text
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 21/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 22/269
Jika di TEXTBOX1 di
ENTER , maka CURSOR
pindah ke TEXTBOX2
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 23/269
'/ cek; jika ENTER ditekan, maka lakukan TAB
'/ yaitu PINDAH KE TABINDEX berikutnya
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")End If
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")End If
..code begitu seterusnya, di setiap textbox
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 24/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 25/269
'/ cek;apakah ENTER di tekan?
'/ jika ENTER di tekan, maka taro KURSOR di TEXTBOX berikutnya
If e.KeyCode = Keys.Enter Then ‘/apakah ENTER ditekan di Text7 ???
Me.TextBox2.Focus() ‘/jika YA, taro cursor di Text8
End If
'/ cek;apakah ENTER di tekan?
'/ jika ENTER di tekan, maka taro KURSOR di TEXTBOX berikutnya
If e.KeyCode = Keys.Enter Then ‘/apakah ENTER ditekan di Text8 ???
Me.TextBox3.Focus() ‘/jika YA, taro cursor di Text9
End If
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 26/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 27/269
'/ isi comboboxWith Me.ComboBox1
.Items.Clear()
.Items.Add("HARDDISK")
.Items.Add("MODEM")
.Items.Add("MOUSE")
End With
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 28/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 29/269
'/ HITUNG LANGSUNG
TextBox3.Text = TexBox1.Text * TextBox2.Text
TextBox4.Text = TextBox3.Text * 10/100
TextBox5.Text = TextBox3.Text – TextBox4.Text
'/ HITUNG LANGSUNG
TextBox3.Text = TexBox1.Text * TextBox2.Text
TextBox4.Text = TextBox3.Text * 10/100
TextBox5.Text = TextBox3.Text – TextBox4.Text
'/ FORMAT ANGKA PADA HASIL AKHIR
TextBox3.Text =Format(TextBox3.Text ,”#,##0”)TextBox4.Text =Format(TextBox4.Text ,”#,##0”)TextBox5.Text =Format(TextBox5.Text ,”#,##0”)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 30/269
'/ DIFINISI VARIABLE
DIM jumlah as double =0DIM harga as double =0
DIM total_belanja as double =0
DIM diskon as double =0
DIM bayar as double =0
'/ AMBIL DATA DARI TEXTBOX BUAT DI HITUNG
jumlah = TextBox1.Text
harga = TextBox2.Text
'/ HITUNG RUMUS2
Total_belanja = jumlah * harga
Diskon = total_belanja * 10/100
Bayar = total_belanja – diskon
'/ HITUNGAN SELESAI, TAMPILKAN DATA KE TEXTBOX
TextBox3.Text = total_belanjaTextBox4.Text = diskon
TextBox5.Text = bayar
'/ TAMPILKAN DATA KE TEXTBOX'/ MENGGUNAKAN FORMAT RIBUAN & DESIMALTextBox3.Text = format(total_belanja,”#,##0.00”)TextBox4.Text = format(diskon,”#,##0.00”)TextBox5.Text = format(bayar,”#,##0.00”)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 31/269
'/ CEK APAKAH INPUT JUMLAH dan HARGA SUDAH BENAR?'/ DATA YANG DI INPUT ANGKA ,BUKAN HURUF
'/ CEK INPUT JUMLAH
If IsNumeric(TextBox1.Text) = False Then
MsgBox("INPUT JUMLAH SALAH, HARUS ANGKA..", )TextBox1.Focus() '-> letakan kursor di text1
Exit Sub '-> keluar dari code karena data tidak valid End If
'/ CEK INPUT HARGA
If IsNumeric(TextBox2.Text) = False Then
MsgBox("INPUT HARGA SALAH, HARUS ANGKA ", )TextBox2.Focus() '-> letakkan kursor di text2Exit Sub '-> keluar dari code kareda data tidak valid
End If
'/ DIFINISI VARIABLEDIM jumlah as double =0
DIM harga as double =0
DIM total_belanja as double =0
DIM diskon as double =0DIM bayar as double =0
'/ AMBIL DATA DARI TEXTBOX BUAT DI HITUNG
jumlah = TextBox1.Text
harga = TextBox2.Text
'/ HITUNG RUMUS2
Total_belanja = jumlah * harga
Diskon = total_belanja * 10/100
Bayar = total_belanja – diskon
'/ HITUNGAN SELESAI, TAMPILKAN DATA KE TEXTBOX
TextBox3.Text = total_belanja
TextBox4.Text = diskon
TextBox5.Text = bayar
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 32/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 33/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 34/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 35/269
'/ isi combobox
With Me.ComboBox1
.Items.Clear()
.Items.Add("LAKI-LAKI")
.Items.Add("PEREMPUAN")
End With
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 36/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 37/269
'/ HITUNG LANGSUNG
IF TextBox2.Text > 17 Then
TextBox3.Text = “DEWASA”
Else
TextBox3.Text = “BOCAH”
End If
'/DIFINISI VARIABLE
DIM Umur as Integer =0
DIM Ket as String =””
'/AMBIL DATA UMUR DI TEXTBOX2
Umur = TextBox2.Text
'/CEK UMUR
IF umur > 17 Then
ket = “DEWASA”
Elseket = “BOCAH”
End If
'/TAMPILKAN HASIL NYA
TextBox3.Text = ket
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 38/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 39/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 40/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 41/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 42/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 43/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 44/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 45/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 46/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 47/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 48/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 49/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 50/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 51/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 52/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 53/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 54/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 55/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 56/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 57/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 58/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 59/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 60/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 61/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 62/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 63/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 64/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 65/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 66/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 67/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 68/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 69/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 70/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 71/269
'bikin tgl dan jam konputer
Me.LBL_tgl.Text = Format(Now, "dd-MMM-yy")
Me.lbl_jam.Text = Format(Now, "HH:mm:ss")
Dim TANGGAL_JAM As Date 'difinisi varisbel sbg TGL
TANGGAL_JAM = Now 'ambil TGL JAM komputer
Me.TextBox1.Text = Format(Now, "dd-MMM-yy HH:mm:ss")
Me.TextBox2.Text = TANGGAL_JAM.Year
Me.TextBox3.Text = Format(Now, "yy")
Me.TextBox4.Text = TANGGAL_JAM.Month
Me.TextBox5.Text = Format(Now, "MMM")
Me.TextBox6.Text = Format(Now, "MMMM")
Me.TextBox7.Text = Format(Now, "MM")
Me.TextBox8.Text = TANGGAL_JAM.Day 'Format(Now, "dd")
Me.TextBox9.Text = Format(Now, "dddd") 'nama hari
Me.TextBox10.Text = Format(Now, "HH:mm:ss") 'jam komputer
Me.TextBox11.Text = TANGGAL_JAM.Hour
Me.TextBox12.Text = TANGGAL_JAM.Minute
Me.TextBox13.Text = TANGGAL_JAM.SecondMe.TextBox14.Text = TANGGAL_JAM.Millisecond
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 72/269
'cek apakah inputnya angka?
If IsNumeric(Me.TextBox15.Text) = False Then
MsgBox("INPUT DENGAN ANGKA..", MsgBoxStyle.Information)
Exit Sub
End If
Dim TGL As Date 'variable
Dim TAHUN_maju As Date
TGL = Now 'ambil tgl komputer
TAHUN_maju = TGL. AddYears(Me.TextBox15.Text) 'majukan tahunMe.TextBox16.Text = TAHUN_maju.Date 'tampilkan
'/--------------------------------------------------/
'/metode lain dengan fungsi DATEADD, hasilnya sama
'/--------------------------------------------------/
MsgBox("sekarang dengan fungsi DateAdd....")
TGL = Now 'ambil tgl
TAHUN_maju = DateAdd ("yyyy", Val(Me.TextBox15.Text), TGL) 'majukan tahun
Me.TextBox16.Text = TAHUN_maju.Date 'tampilkan
'cek apakah inputnya angka?
If IsNumeric(Me.TextBox17.Text) = False Then
MsgBox("INPUT DENGAN ANGKA..", MsgBoxStyle.Information)
Exit Sub
End If
Dim TGL As Date
Dim BULAN_maju As Date
TGL = Now 'ambil tgl komputer
BULAN_maju = TGL. AddMonths(Me.TextBox17.Text) 'majukan tahun
Me.TextBox18.Text = BULAN_maju.Date 'tampilkan
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 73/269
'/--------------------------------------------------/'/metode lain dengan fungsi DATEADD, hasilnya sama
'/--------------------------------------------------/
MsgBox("sekarang dengan fungsi DateAdd....")
TGL = Now 'ambil tgl
BULAN_maju = DateAdd ("m", Val(Me.TextBox17.Text), TGL) 'majukan tahun
Me.TextBox18.Text = BULAN_maju.Date 'tampilkan
'cek apakah inputnya angka?
If IsNumeric(Me.TextBox19.Text) = False Then
MsgBox("INPUT DENGAN ANGKA..", MsgBoxStyle.Information)
Exit Sub
End If
Dim TGL As Date
Dim HARI_maju As Date
TGL = Now 'ambil tgl
HARI_maju = TGL. AddDays(Me.TextBox19.Text) 'majukan tahun
Me.TextBox20.Text = HARI_maju.Date 'tampilkan
'/--------------------------------------------------/
'/metode lain dengan fungsi DATEADD, hasilnya sama'/--------------------------------------------------/
MsgBox("sekarang dengan fungsi DateAdd....")
TGL = Now 'ambil tgl
HARI_maju = DateAdd ("d", Val(Me.TextBox19.Text), TGL) 'majukan tahun
Me.TextBox20.Text = HARI_maju.Date 'tampilkan
'cek apakah inputnya angka?
If IsNumeric(Me.TextBox22.Text) = False Then
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 74/269
MsgBox("INPUT DENGAN ANGKA..", MsgBoxStyle.Information)
Exit Sub
End If
Dim TGL As Date
Dim JAM_maju As Date
TGL = Now 'ambil tgl
JAM_maju = TGL.
AddHours(Me.TextBox22.Text) 'majukan tahun
Me.TextBox23.Text = Format(JAM_maju, "HH:mm:ss") 'tampilkan
'/--------------------------------------------------/'/metode lain dengan fungsi DATEADD, hasilnya sama'/--------------------------------------------------/
MsgBox("sekarang dengan fungsi DateAdd....")
TGL = Format(Now, "HH:mm:ss") 'ambil jam
JAM_maju = DateAdd ("h", Val(Me.TextBox22.Text), TGL) 'majukan tahun
Me.TextBox23.Text = Format(JAM_maju, "HH:mm:ss") 'tampilkan
'cek apakah inputnya angka?
If IsNumeric(Me.TextBox24.Text) = False Then
MsgBox("INPUT DENGAN ANGKA..", MsgBoxStyle.Information)
Exit Sub
End If
Dim TGL As Date
Dim MENIT_maju As Date
TGL = Now 'ambil tgl
MENIT_maju = TGL. AddMinutes(Me.TextBox24.Text) 'majukan tahun
Me.TextBox25.Text = Format(MENIT_maju, "HH:mm:ss") 'tampilkan
'/--------------------------------------------------/'/metode lain dengan fungsi DATEADD, hasilnya sama'/--------------------------------------------------/
MsgBox("sekarang dengan fungsi DateAdd....")
TGL = Format(Now, "HH:mm:ss") 'ambil jam
MENIT_maju = DateAdd ("n", Val(Me.TextBox24.Text), TGL) 'majukan tahunMe.TextBox25.Text = Format(MENIT_maju, "HH:mm:ss") 'tampilkan
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 75/269
'selisih
Dim T1 As Date = Me.DateTimePicker1.Text 'ambil tgl
Dim T2 As Date = Me.DateTimePicker2.Text 'ambil tgl
Dim SELISIH_tgl As TimeSpan 'variable tempat pengurangan tgl
SELISIH_tgl = T2.Date - T1.Date
Me.TextBox21.Text = SELISIH_tgl.TotalDays & " hari"
'/--------------------------------------/' cari selisih (TOTAL MENIT)
'/--------------------------------------/
Dim Jam1 As DateTime = Me.DateTimePicker3.Text 'ambil jam
Dim Jam2 As DateTime = Me.DateTimePicker4.Text 'ambil jam
Dim SELISIH_jam As TimeSpan 'var.untuk hitungan jam
SELISIH_jam = Jam2 - Jam1
Me.TextBox26.Text = SELISIH_jam.TotalMinutes
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 76/269
'/--------------------------------------/
' cari lama satuan JAM nya (parkir)
'/--------------------------------------/
'variabel buat cari rincian selisih jam
Dim Total_menit As Integer
Dim JAM_nya As Integer
Dim MENIT_nya As Integer
'dipecah menjadi jam
Total_menit = SELISIH_jam.TotalMinutes
JAM_nya = Int(Total_menit / 60)
MENIT_nya = Total_menit Mod 60
Me.TextBox27.Text = JAM_nya & " jam," & MENIT_nya & " menit"
Dim indra As String
indra = MsgBox("MAU KELUAR PROGRAM..?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If indra = vbYes Then
End
End If
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 77/269
Latihan 7 : Animasi
Membuat ANIMASI menggunakan TIMER Membuat TANGGAL dan JAM
Ambil TIMER lalu tempelkan di Form, ENABLED=True
Name: PANAH
Name: ROKET
Name: KAPALName: SUPERMEN
Name: MATAHARI
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 78/269
'----- MEMBUAT TGL dan JAM -----'
Me.LBL_TANGGAL.Text = Format( Now, "dd-MMM-yyyy")
Me.LBL_JAM.Text = Format( Now, "HH:mm:ss")
'----- MATAHARI KEDIP KEDIP -----'If Second(Now) Mod 2 = 0 Then
Me.MATAHARI.Visible = True
Else
Me.MATAHARI.Visible = False
End If
'===== ANIMASI GERAK =====''----- SUPERMEN: KE KIRI -----'
Me.SUPERMEN.Left = Me.SUPERMEN.Left - 50
If Me.SUPERMEN.Left + Me.SUPERMEN.Width < 0 Then
Me.SUPERMEN.Left = Me.Width
End If
'----- KAPAL: KE KANAN -----'
Me.KAPAL.Left = Me.KAPAL.Left + 50
If Me.KAPAL.Left > Me.Width Then
Me.KAPAL.Left = -Me.KAPAL.Width
End If
'----- ROKET : KE ATAS -----'
Me.ROKET.Top = Me.ROKET.Top - 50
If Me.ROKET.Top + Me.ROKET.Height < 0 Then
Me.ROKET.Top = Me.Height
End If
'----- PANAH : KE BAWAH -----'
Me.PANAH.Top = Me.PANAH.Top + 50
If Me.PANAH.Top > Me.Height Then
Me.PANAH.Top = -Me.PANAH.Height
End If
NOW= perintah
menampilkan TGL
dan JAM
Gunakan FORMAT
untuk
memisahkan
antara TGL dan
JAM
MOD = operasi
sisa hasil bagi
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 79/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 80/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 81/269
Membuat MENU UTAMA(MenuStrip)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 82/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 83/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 84/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 85/269
Form2.Show()
Form2.ShowDialog()
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 86/269
Membuat TOOLBAR (ToolStrip)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 87/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 88/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 89/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 90/269
Membuat FLOATING MENU(ConTextMenuStrip)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 91/269
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show (Cursor.Position.X, Cursor.Position.Y)
End If
Floating menu
muncul jika klik
kanan mouse di
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 92/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 93/269
Membuat MDI Form
Merubah FORM biasa meniadi MDI PARENT Form:
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 94/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 95/269
Dim AAA As New Form2 AAA.MdiParent = Me AAA.Show()
Dim ABC As New Form3 ABC.MdiParent = Me ABC.Show()
FORM3 form child nya, yg di panggil
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 96/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 97/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 98/269
Idih… aa’ …
cilup baaaa
mas Indra ES
senyum nya
wow…
Ah.. ajak makan
siang ah…..
Ih.. akang
indraES.. cute,
mirip Afgan
Main game
yuk….
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 99/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 100/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 101/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 102/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 103/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 104/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 105/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 106/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 107/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 108/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 109/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 110/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 111/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 112/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 113/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 114/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 115/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 116/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 117/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 118/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 119/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 120/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 121/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 122/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 123/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 124/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 125/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 126/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 127/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 128/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 129/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 130/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 131/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 132/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 133/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 134/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 135/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 136/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 137/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 138/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 139/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 140/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 141/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 142/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 143/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 144/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 145/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 146/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 147/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 148/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 149/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 150/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 151/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 152/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 153/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 154/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 155/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 156/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 157/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 158/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 159/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 160/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 161/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 162/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 163/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 164/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 165/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 166/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 167/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 168/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 169/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 170/269
Output:
Rubah : crystalreport nya PANEL VIEW = NONE
Tambahkan component:
Crystal report Viewer
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 171/269
CODE di FORM
Code di : TOMBOL REPORT
Dim Laporan_NYA As New CrystalReport1
Laporan_NYA
If Me.RadioButton1.Checked = True ThenLaporan_NYA.RecordSelectionFormula = ""End If
If Me.RadioButton2.Checked = True Then
Laporan_NYA.RecordSelectionFormula =
"{barang.Kode_barang} ='" & TextBox1.Text & "' "
End If
With Me.CrystalReportViewer1.ReportSource = Laporan_NYA.Refresh()
End With
Nyambung
jd 1 baris
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 172/269
Form RESIZE agar crystal report flexibel
Code di : FORM - RESIZECrystalReportViewer1.HEIGHT = Me.Height - CrystalReportViewer1.TOP - 30CrystalReportViewer1.WIDTH = Me. Width- 30
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 173/269
1. Menu PROJECT + Add windows form
2. Muncul form : ..pilih CRYSTAL REPORT + klik tombol ADD
3. Muncul form wizard report : pilih STANDARD + klik tombol OK
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 174/269
4.muncul form koneksi ke db :
…klik Create new connection
..pilih / klik OLEDB (Ado)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 175/269
5.muncul form koneksi: pilih Microsoft jet 4.0 oledb provider*untuk access 2003
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 176/269
6.muncul form seting database:
Selesai…
7.muncul form: TABLE ter-ambil
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 177/269
-klik table: TOKO… klik tombol >
8.muncul form: PILIH FIELD untuk laporan
-klik field KODE BARANG.. klik TOMBOL >
Ambil field2 untuk laporan.., klik FINISH
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 178/269
# Selesai design #
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 179/269
REPORT DESIGN STANDAR
Design #1: lebarkan ruang PAGE HEADER, REPORT FOOTER
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 180/269
Design #2: membuat JUDUL dengan TEXT
Klik TEXT,, DRAG ke dalam laporan.. lepaskan, baru di KETIK Judulnya
Design #3: membuat GARIS - KOTAK
Design #4: Format object (text, kotak, angka, tanggal, dll )
Klik kanan di object nya + FORMAT OBJECT
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 181/269
Design #5: membuat GRAND TOTAL ANGKA
Langkah :
1.klik kanan di FIELD STOK + SUMMARY + klik tombol OK ..selesai
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 182/269
Design #6 : membuat HALAMAN & TANGGAL PRINT
Menggunakan SPECIAL FIELD
Halaman menggunakan: PAGE NUMBER atau PAGE N of M
Tanggal : menggunakan = PRINT DATE
Jangan lupa FORMAT TANGGAL menjadi :
nama bulan menjadi kalimat, jangan angka JAN/JANUARI
Atau format tgl = dd/MMM/yyyy atau dd/MMMM/yyyy
Caranya: KLIK KANAN di PRINT DATE + FORMAT OBJECT
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 183/269
Design #7 : Melihat hasil laporan (PREVIEW)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 184/269
HASIL
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 185/269
Latihan
buatlah laporan data Pelanggan
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 186/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 187/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 188/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 189/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 190/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 191/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 192/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 193/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 194/269
1 form menggunaan >= 2 tabel
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 195/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 196/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 197/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 198/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 199/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 200/269
Code:
Code di : TOMBOL INPUT
Code di : TOMBOL SIMPAN
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 201/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 202/269
#1.Menampilkan nama barang saat di ENTER
Code di : TEXTBOX2 KEYDOWN
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 203/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 204/269
Code di : Procedure
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 205/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 206/269
CARI NOMER PEMBELIAN :menampilkan kembali data pembelian + jangan lupa untuk MENAMPILKAN juga
NAMA BARANG nya
HAPUS PEMBELIAN :
Data pembelian di hapus
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 207/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 208/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 209/269
Transaksi menggunakan
COMBOBOX
Sebagai
Input PILIHAN data
(data kode yang ingin di input dapat di pilih oleh user, sebagai dasarReferensi / panduan data yang di input)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 210/269
Form transaksi dengan ComboBox
COMBOBOX KODE BARANGsebagai INPUT PILIHAN DATA
Keterangan code:
KODE BARANG menggunakan COMBOBOX
COMBOBOX = di isi data KODE BARANG dari table barang adaPROCEDURE ISI COMBO SUPPLIER
Setelah data KODE BARANG di pilih maka NAMA BARANG akan muncul ada PROCEDURE MUNCULKAN NAMA BARANG
CODE:
Code di TOMBOL INPUT sama, sesuai kembali textbox nyaCode di TOMBOLSIMPAN sama, sesuai kembali textbox nyaCode di TOMBOL CANCEL sama, sesuai kembali textbox nya
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 211/269
Code di : Procedure
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 212/269
Code di : Procedure
'/ Combo di kosongkan dolooooComboBox1.Items.Clear()
If RS.HasRows Then
ComboBox1.Items.Add(RS("KODE_BARANG"))
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 213/269
Code di : FORM LOAD
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 214/269
Hasil running program ;
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 215/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 216/269
FORM di tambahkan
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 217/269
Transaksi menggunakan
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 218/269
CODE:
Code di TOMBOL INPUT sama, sesuai kembali textbox nyaCode di TOMBOLSIMPAN sama, sesuai kembali textbox nyaCode di TOMBOL CANCEL sama, sesuai kembali textbox nya
Code di tombol AMBIL SUPPLIER :
Code di : TOMBOL AMBIL SUPPLIER
’/ RUBAH form6 = adalah form browse data BARANG
Form6.showDialog()
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 219/269
Code : Membuat PROCEDURE
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 220/269
Code di TOMBOL
TOMBOL REFRESH
’---panggil procedure
Call table_to_lv()
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 221/269
TOMBOL EXIT
’---keluar form
Me.Close()
TOMBOL AMBIL DATA
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 222/269
#Selesai..
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 223/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 224/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 225/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 226/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 227/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 228/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 229/269
CODE di FORM
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 230/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 231/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 232/269
CODE di FORM
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 233/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 234/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 235/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 236/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 237/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 238/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 239/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 240/269
Melihat data pembelian secara per tanggal transaksi pembelian barang
Tanggal menggunakan DATETIMEPICKER,
Aturlah properties tanggal sbb :
.Format = Custom
.CustomFormat = yyyy/MM/dd
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 241/269
Code di : TOMBOL REPORT CrystalReport2 sesuai nama laporannya
Dim Laporan As New CrystalReport2
If RadioButton1.Checked = True ThenLaporan.RecordSelectionFormula = ""End If
If RadioButton2.Checked = True Then
Laporan.RecordSelectionFormula ="{BELI.TGL} >=CDATE (‘" & DateTimePicker1.Text & "’)
AND {BELI.TGL} <= CDATE (‘” & DateTimePicker2.Text & "’) “
End If
With Me.CrystalReportViewer1.ReportSource = Laporan.Refresh()
End With
Form RESIZE agar crystal report flexibel
Code di : FORM - RESIZECrystalReportViewer1.HEIGHT = Me.Height - CrystalReportViewer1.TOP - 30CrystalReportViewer1.WIDTH = Me. Width- 30
Nyambung
jd 1 baris
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 242/269
Laporan.RecordSelectionFormula =
"{BELI.TGL} >=CDATE (‘" & DateTimePicker1.Text & "’)
AND
{BELI.TGL} <=CDATE (‘” & DateTimePicker2.Text & "’)“
CDATE adalah fungsi merubah data menjadi tanggal di CR
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 243/269
Langkah2 :
●klik Make New Connection
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 244/269
●pilih: SQL Native client + NEXT
●klik : (1) [x]integrated security (2)ketik nama server (3)pilih nama DB + Finish
Nama server . atau (local) atau .\sqlexpress
(.\sqlexpress digunakan untuk sql server versi express)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 245/269
●hasilnya nama table masuk ke laporan
●klik: nama table = BARANG, lalu klik tombol >●ambil nama table lainnya: BELI, SUPPLIER + Finish
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 246/269
●hasilnya table ter-relasi, INGAT jangan salah relasi… + Finish
●ambillah FIELD2 yang dibutuhkan dalam laporan…
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 247/269
●daftar field yang diambil dalam laporan…,
● perhatikan URUTAN nya.. jika sudah selesai klik FINISH
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 248/269
Setinglah laporan menjadi sbb :
● JANGAN LUPA ●
● Format TANGGAL rubah nama bulan menjadi KATA2, misal: JAN,FEB,MAR,dll
● Format ANGKA rubah format angka dg TANPA DESIMAL
● Buatlah GRAND TOTAL dari field JUMLAH
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 249/269
● Klik kanan di FIELD JUMLAH + Insert + Summary
● muncul FORM – klik TOMBOL OK
● Pada saat PREVIEW REPORT,
HILANGKAN cek SAVE DATA IN THE REPORT (agar data refresh)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 250/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 251/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 252/269
Latihan update : TUGAS KELOMPOK
coba buat transaksi aplikasi rekening nasabah ( 1 database, 3 table)
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 253/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 254/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 255/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 256/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 257/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 258/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 259/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 260/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 261/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 262/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 263/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 264/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 265/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 266/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 267/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 268/269
7/18/2019 Tutorial Vbnet 1 - Toko Access
http://slidepdf.com/reader/full/tutorial-vbnet-1-toko-access 269/269