Cara membuat kode otomatis pada project Visual Studio


Membuat sebuah aplikasi salah satu tujuannya yaitu mempercepat kinerja manusia. Salah satunya yaitu aplikasi jual-beli yang didalamnya terkait antara penjual, barang, dan pembeli. Untuk sebuah aplikasi ini tentunya kita membutuhkan kode otomatis sebagai pembeda antara penjual yang satu dan penjual lainnya. Atau jika di supermarket kita sering menyebutnya sebagai nomber struck.

Nah nomber struck inilah yang akan saya peragakan sebagai cara pembuatan kode otomatis pada project aplikasi Visual Studio.

Sebelum masuk ketahap pembuatan kode otomatis Anda harus terlebih dahulu melakukan beberapa hal berikut ini.

  • Membuat Database.
  • Menkoneksikan Projek aplikasi dengan Database.
  • Men-design sesuai kebutuhan, dan memilih satu item/objek yang nantinya akan diisi oleh kode otomatis. Anda bisa memilih Text box.

Jika beberapa tahap diatas sudah dilakukan maka selanjutnya kita langsung kepada tahap pembuatan kode otomatis.

Baca Juga : (Sampai direpost Selebgram) Tutorial vector Arafah Rianti di android (infinite design) PART 1 (Mata – Bibir)

1. Double klik pada from

Double kliklah pada from yang terdapat item/objek yang nantinya akan diisi kode otomatis. Maka akan tampil script seperti dibawah ini.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Call kodeotomatis()

End Sub

Selanjutnya ketiklah “Call kodeotomatis()” seperti diatas.

2. Buat Script baru

Setelah memanggil Script yang nantinya dibuat, maka sekarang kita masuk ketahap pembuatan kode otomatis. Silahkan Copy dan Pastekan script dibawah ini di script baru atau dibawah script diatas.

Sub kodeotomatis()
Call koneksi()

Dim tahun As String
tahun = Format(Now, “yyyy”)
Dim DR As MySqlDataReader

cmd = New MySqlCommand(“select * from tbl_pelanggan where kode_pelanggan in(select max(kode_pelanggan) from tbl_pelanggan) order by kode_pelanggan desc”, conn)

DR = cmd.ExecuteReader
DR.Read()

If DR.HasRows = 0 Then
TxtKodePelanggan.Text = “G-” & tahun & “0001”
DR.Close()
End If

If Not DR.HasRows Then
TxtKodePelanggan.Text = “G-” & tahun & “0001”
DR.Close()
Else

TxtKodePelanggan.Text = Val(Microsoft.VisualBasic.Mid(DR.Item(“kode_guru”).ToString, 7, 4)) + 1

If Len(TxtKodePelanggan.Text) = 1 Then
TxtKodePelanggan.Text = “G-” & tahun & “000” & TxtKodePelanggan.Text
ElseIf Len(TxtKodePelanggan.Text) = 2 Then

TxtKodePelanggan.Text = “G-” & tahun & “00” & TxtKodePelanggan.Text
ElseIf Len(TxtKodePelanggan.Text) = 3 Then

TxtKodePelanggan.Text = “G-” & tahun & “0” & TxtKodePelanggan.Text
End If
DR.Close()

End If
End Sub

3. Ubahlah beberapa script diatas sesuai kebutuhan Projek Anda.

Silahkan ubah script diatas sesuai kebutuhan projek Anda berdasarkan berikut ini.

cmd = New MySqlCommand(“select * from tbl_pelanggan where kode_pelanggan in(select max(kode_pelanggan) from tbl_pelanggan) order by kode_pelanggan desc”, conn)

Ubahlah script diatas dimana :
– tbl_pelanggan = adalah tabel yang menyimpan kode otomatis yang nantinya dibuat dan terbuat.
– kode_pelanggan = adalah column pada tabel tbl_pelanggan yang menampung/menyimpan kode otomatis.

If DR.HasRows = 0 Then
TxtKodePelanggan.Text = “G-” & tahun & “0001”
DR.Close()

End If If Not DR.HasRows Then
TxtKodePelanggan.Text = “G-” & tahun & “0001”
DR.Close()
Else

Ubah juga script diatas berdasarkan berikut.
– TxtKodePelanggan.Text = Item/Objek pada design yang menampung kode otomatis Anda.

Ubahlah pada script lainnya juga.

Jika Anda sudah mengikuti prosedur diatas dengan baik, silahkan isi pada database Anda tepatnya pada tabel dan column yang nantinya akan terisi kode otomatis dengan kode otomatis pertama yaitu “G-0001” atau yang lainnya.

Jika Anda ingin awalannya bukanlah “G” tetapi “A” atau yang lainnya silahkan ubah juga pada script diatas.

Jika sudah diikuti, silahkan dirunning dan cek apakah sudah berhasil atau tidak. Jika terdapat error atau tidak muncul, silahkan cek kembali apakah ada kesalahan.

Mungkin cukup sekian Cara membuat kode otomatis pada project Visual Studio menurut Jejak Kaki yang bisa disampaikan. Jika ada yang ingin Anda ditanyakan, silahkan Anda bisa menggunakan kolom komentar dibawah artikel ini.

Semoga bermanfaat, dan jangan lupa dishare ya.

Leave a Comment