Vb .Net - Cara Menciptakan Aba-Aba Otomatis Di Vb .Net

Pada Tutorial Visual Basic .Net kali ini, kami akan membahas tentang Cara Membuat Kode Otomatis Pada VB .Net. Kami memakai VB .Net versi 2010 dan Database SQL Server.

Berikut Langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI ialah ibarat gambar dibawah ini :

Jika sudah silahkan Save lalu anda dapat mengisi data ibarat gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :

Pada Form1 diatas, kami menawarkan Label, TextBox1, TextBox2, TextBox3, TextBox4, Button1, Button2, dan DatagridView1.

Jika sudah selesai menciptakan Form1 ibarat gambar diatas, silahkan masukan koding dibawah ini :

  Imports System.Data.SqlClient Public Class Form1     Dim Conn As SqlConnection     Dim da As SqlDataAdapter     Dim ds As DataSet     Dim CMD As SqlCommand     Dim RD As SqlDataReader     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"         Conn = New SqlConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Sub KondisiAwal()         Koneksi()         da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "TBL_PEGAWAI")         DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))          TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = ""         TextBox1.Enabled = False         Button1.Text = "Input"     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call KondisiAwal()     End Sub      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If Button1.Text = "Input" Then             Button1.Text = "Simpan"             Call Koneksi()             CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP in (select max(NIP) from TBL_PEGAWAI)", Conn)             Dim urutan As String             Dim hitung As Long             RD = CMD.ExecuteReader             RD.Read()             If Not RD.HasRows Then                 urutan = "NIP" + "001"             Else                 hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1                 urutan = "NIP" + Microsoft.VisualBasic.Right("000" & hitung, 3)             End If             TextBox1.Text = urutan          Else             If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then                 MsgBox("Data belum lengkap, Pastikan Semua form terisi")                 Exit Sub             Else                 Call Koneksi()                 Dim simpan As String = "insert into TBL_PEGAWAI values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"                 CMD = New SqlCommand(simpan, Conn)                 CMD.ExecuteNonQuery()                 MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")                 Call KondisiAwal()             End If         End If     End Sub      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End     End Sub End Class 

Jika sudah, anda dapat Run atau Jalankan Project VB .Net anda, Caranya ialah :

Silahkan Klik Input, maka Tombol input akan menjadi Simpan. Kemudian pada NIP akan menjadi otomatis terisi sesuai nomor urut. Kemudian isi data dan terakhir Klik Simpan.

Note :
Silahkan samakan aba-aba yang berwarna kuning dengan nama komputer anda


Tutorial diatas memakai VB .NET Database SQL Server. Anda juga dapat memakai Database MySQL maupun Database Access, dibawah ini aku sudah buatkan versi database Access.
Silahkan KLIK DISINI untuk download Project Source Code Diatas

Demikian Tutorial VB .NET - Cara Membuat Kode Otomatis, semoga bermanfaat untuk anda. Jika ada yang kurang terang silahkan berkomentar dibawah, atau anda dapat Like dan Shre tutorial kami semoga teman anda juga dapat mendapat manfaatnya.Untuk index mencar ilmu VB .NET lainnya, silahkan Klik Link Ini.

Share this post