Tutorial Vb.net INSERT, UPDATE, DELETE dan Cetak A3 Part-I

Kali ini saya memberikan tutorial lengkap step by step bagaimana membuat program tentang input data titik geodetik dengan Visual Studio 2013 menggunakan bahasa pemrograman Vb.net dengan database SQL Server. Dimana program yang nantinya akan dibuat ini tentunya dapat melakukan INSERT, UPDATE, DELETE serta yang paling penting dapat di cetak dalam bentuk A3 dengan menggunakan DevExpress sebagai platfom desain nya.

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 :

Berikut ini saya berikan Code nya sebagai berikut :

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