Visual Basic 6.0 Pembahasan Kuis Kelas malam ~ EAS Article

Keterangan :

Tools = Adodc, Data grid dan Cystal report

Kode botol = textBox (name = text1)

Nama botol = comboBox (name = combo1)

Harga = textBox (name = text2)

Jumlah = textBox (name = text3)

satuan = comboBox (name = combo2)

&tambah = command button (name = cmdtambah)

&simpan = command button (name = cmdsimpan)

&edit = command button (name = cmdedit)

&preview = command button (name = cmdpreview)

&hapus = command button (name = cmdhapus)

&keluar = command button (name = cmdkeluar)

Database Microsoft Acces 2002/2003

Nama database = dbbotol

Nama table = tbbotol

Field = kode_botol => type = text => size = 6 => PrimaryKey

Field = nama_botol => type = text => size = 15

Field = harga => type = text => size = 15

Field = jumlah => type = text => size = 10

Field =satuan => type = text => size = 10

Lakukan koneksi

Baca disini => Visual Basic 6.0 cara koneksi database Ms Acces 2002/2003

Contoh membuat laporan => Visual Basic 6.0 membuat laporan (preview)

Koding

(General) => Declarations

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset (Tanpa End Sub)

Private Sub Form_Load() <= Koding Form Load

Private Sub Form_Load()

Dim koneksi As String

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vbkuis260718\dbbotol.mdb;Persist Security Info=False" <=Dari Adodc properties

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vbkuis260718\dbbotol.mdb;Persist Security Info=False" <=Dari Adodc properties

Adodc1.Refresh

cmdtambah.Enabled = True

cmdsimpan.Enabled = False

cmdedit.Enabled = False

cmdpreview.Enabled = True

cmdhapus.Enabled = False

cmdkeluar.Enabled = True

End Sub

(General) <= Untuk Prosedure

Sub nonaktif()

Text1.Enabled = False

Combo1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Combo2.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Combo1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Combo2.Enabled = True

End Sub

Sub kosong()

Text1 = ""

Combo1 = ""

Text2 = ""

Text3 = ""

Combo2 = ""

End Sub

Sub tampil()

Text1 = kode_botol

Combo1 = nama_botol

Text2 = harga

Text3 = jumlah

Combo2 = satuan

End Sub

Click button Tambah <= Koding Btn Tambah

Private Sub cmdtambah_Click()

Call aktif

Call kosong

Text1.SetFocus

cmdtambah.Enabled = False

cmdsimpan.Enabled = True

cmdedit.Enabled = True

cmdpreview.Enabled = True

cmdhapus.Enabled = False

cmdkeluar.Enabled = True

End Sub

Click button Simpan <=Koding Btn Simpan

Private Sub cmdsimpan_Click()

Dim mysql As String

Dim konfirmation As String

If Text1 <> "" Then

cnn.BeginTrans

If Text1.Enabled = True Then

pesan = MsgBox("data akan di simpan", vbYesNo + vbInformation, "pesan")

If pesan = vbYes Then

'klo ketemu simbol & jangan lupa di pisah pake spasi

mysql = "insert into tbbotol(kode_botol,nama_botol,harga,jumlah,satuan)" & _

"values('" & Text1 & "','" & Combo1 & "','" & Text2 & "','" & Text3 & "','" & Combo2 & "')"

cnn.Execute (mysql)

Adodc1.Refresh

End If

cnn.CommitTrans

Adodc1.Refresh

Call nonaktif

Call kosong

cmdtambah.Enabled = False

cmdsimpan.Enabled = True

cmdedit.Enabled = False

cmdpreview.Enabled = True

cmdhapus.Enabled = False

cmdkeluar.Enabled = True

End If

End Sub

Click button Edit <= Koding Btn Edit

Private Sub cmdedit_Click()

Call aktif

Text1.Enabled = False

cmdtambah.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

cmdpreview.Enabled = True

cmdhapus.Enabled = True

cmdkeluar.Enabled = True

End Sub

Click button Hapus <= Koding Btn Hapus

Private Sub cmdhapus_Click()

Dim mysql As String

If Text1 <> "" And Text1.Enabled = False Then

cnn.BeginTrans

konfirmasi = MsgBox("data akan di hapus", vbYesNo + vbQuestion, "pesan")

If konfirmasi = vbYes Then

mysql = "delete * from tbbotol where kode_botol = '" & Text1 & "'"

cnn.Execute (mysql)

Adodc1.Refresh

End If

cnn.CommitTrans

Adodc1.Refresh

Call nonaktif

Call kosong

cmdtambah.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

cmdpreview.Enabled = True

cmdhapus.Enabled = False

cmdkeluar.Enabled = True

End If

End Sub

Click button Previewr <= Koding Btn Preview

Private Sub cmdpreview_Click()

CrystalReport1.ReportFileName = "D:\vbkuis260718\lapbotol.rpt" <= Dari Crystal properti

CrystalReport1.RetrieveDataFiles

CrystalReport1.WindowState = crptMaximized

CrystalReport1.ReportTitle = Reportbotol

CrystalReport1.WindowTitle = "Laporan Botol"

CrystalReport1.PrintReport

End Sub

Click button Keluar <= Koding Btn Keluar

Private Sub cmdkeluar_Click()

Dim pesan As String

pesan = MsgBox("apakah yakin anda ingin keluar..?", vbYesNo + vbInformation, "pesan")

If vbYes Then

Unload Me

Else

End If

End Sub

Click Text 1 => LostFocus <= Koding LostFocus

Private Sub Text1_LostFocus()

Dim mysql As String

If Text1 <> "" Then

mysql = "select * from tbbotol where kode_botol='" & Text1 & "'"

Set rs = cnn.Execute(mysql)

If Not rs.EOF Then

Combo1 = rs.Fields("nama_botol")

Text2 = rs.Fields("harga")

Text3 = rs.Fields("jumlah")

Combo2 = rs.Fields("satuan")

Call nonaktif

cmdtambah.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = True

cmdpreview.Enabled = False

cmdhapus.Enabled = False

cmdkeluar.Enabled = True

Else

Combo1.ListIndex = 0

Text2 = ""

Text3 = ""

Combo2.ListIndex = 0

End If

End Sub

Maaf apabila ada kesalahan dalam mengetik/langkah di blog ini.