Langsung saja kita bahas bersama Tutorial Vb.net Program INSERT, UPDATE, DELETE dan Cetak A3 Part I
Untuk penjelasan nama button dan semua yang ada pada di frmUtama dapat dilihat pada Tutorial Video tentang Create Project INSERT, UPDATE, DELETE & Print A3 VB.Net - Part I pada video paling bawah sendiri saya hanya menampilkan Source Code agar tidak perlu mengetik tinggal copy dan paste.
Langkah pertama buka Visual studio, buat project baru "File-New-Project" pilih Templates-Visual Basic-Windows-Windows Form Application
frmUtama
Jadikan Form1.vb pada Solution Explorer menjadi frmUtama.vb buat dan sesuaikan form seperti pada gambar dibawah ini :
Imports System.ComponentModel
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.XtraBars.Ribbon
Public Class frmUtama
Private Sub btnInput_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnInput.ItemClick
With frmTitikKontrolDetail
''.MdiParent = Me
'.Show()
'.Activate()
.ShowDialog(Me)
.Dispose()
End With
End Sub
'''
''' Metode untuk mengaktifkan atau me-non-aktifkan button di ribbon
'''
'''
'''
Friend Sub SetCetakEnabled(Optional ByVal blnEnabled As Boolean = True)
'btnPhoto.Enabled = blnEnabled
btnCetak.Enabled = blnEnabled
End Sub
Private Sub btnCetak_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCetak.ItemClick
ssmUtama.ShowWaitForm()
With frmCetakKontrol
.MdiParent = Me
.Show()
.Activate()
.LoadReport()
End With
ssmUtama.CloseWaitForm()
End Sub
Private Sub btnCari_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCari.ItemClick
frmFilterAgenda.ShowDialog(Me)
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
With frmTitikKontrol
.MdiParent = Me
.Show()
.Activate()
.LoadKrk()
End With
End Sub
End Class
Berikut ini saya sampaikan video penjelasaan lebih lanjut tentang Membuat Program INSERT, UPDATE, DELETE dan Cetak A3







