Sebagaimana artikel sebelumyam Membuat Key Otomatis 1 Jenis Saja. Kali ini kita akan menambahkan variasi, misalkan nama-nama buah. Sebagai mana gambar diatas. Jika anda belum faham dengan artikel sebelumnya silakhan dibuka terlebih dahulu :
Baca : Membuat Premery Key Otomatis
Fungsi ini digunakan untuk memvariasikan jenis-jenis yang tersedia, misalkan
- Buah dengan Kode "B"
- Daging dengan Kode "D"
- Sayur Dengan Kode "S"
- Ikan Dengan Kode "I"
- Lain-Lain Dengan Kode "L"
Source Code project Premery Key Otomatis pada VB.Net Banyak Jenis
Dim DR As DataRow
Dim Kode, s As String
Select Case cmbJenis.Text 'menentukan kode
Case "Buah" : Kode = "B"
Case "Daging" : Kode = "D"
Case "Sayur" : Kode = "S"
Case "Ikan" : Kode = "I"
Case "Lain-lain" : Kode = "L"
End Select
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
'kemudian hasilnya d tampung d field buatan dgn nama Nomor
DR = SQLTable("select max(right(ID,4)) as Nomor from tblPenjualan2 where Jenis='" & cmbJenis.Text & "'").Rows(0)
'jika berisi null atau tdk ditemukan
If DR.IsNull("Nomor") Then
s = Kode & "-0001" 'member nilai awal
Else
s = Kode & "-" & Format(DR("Nomor") + 1, "0000")
End If
txtID.Text = s
Dim Kode, s As String
Select Case cmbJenis.Text 'menentukan kode
Case "Buah" : Kode = "B"
Case "Daging" : Kode = "D"
Case "Sayur" : Kode = "S"
Case "Ikan" : Kode = "I"
Case "Lain-lain" : Kode = "L"
End Select
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
'kemudian hasilnya d tampung d field buatan dgn nama Nomor
DR = SQLTable("select max(right(ID,4)) as Nomor from tblPenjualan2 where Jenis='" & cmbJenis.Text & "'").Rows(0)
'jika berisi null atau tdk ditemukan
If DR.IsNull("Nomor") Then
s = Kode & "-0001" 'member nilai awal
Else
s = Kode & "-" & Format(DR("Nomor") + 1, "0000")
End If
txtID.Text = s
Button Tambah :
If ExecSQL("insert into tblPenjualan2 (ID, Pelanggan, Jenis) values ('" & txtID.Text & "', '" & txtPelanggan.Text & "', '" & cmbJenis.Text & "')") = True
Then
MsgBox("Sukses !!!")
Close()
End If
Then
MsgBox("Sukses !!!")
Close()
End If
Langsung saja silahkan download Scoure Code untuk dikembangkan. dan Jangan lupa kalo hubungi kami jika ada proyek dan link download rusak. :) he he . . .
Download project Premery Key Otomatis pada VB.Net Banyak Jenis
Download : Membuat Key Otomatis 2 Via Google DrivePassword : vbeducation
Komentar untuk bertanya, memberikan masukan, atau saran. saya akan memalas pesan anda segera EmoticonEmoticon