Loading...

Minggu, 17 November 2013

Baiklah teman2.. kali ini saya akan share  sedikit tentang VB NET 2010. mungkin sebagian teman2 telah mengetahuinya..  namun mungkin ada juga rekan2 kita yang belum menemukan cara menambahkan script untuk membuat faktur,nomor dan kode otomatis tanpa harus di inputkan pada form.

Langsung saja.. Untuk membuat kode otomatis, maka teman2 harus membuat class terlebih dahulu pada halaman code...

selanjutnya teman2 copy script program dibawah ini kedalam halaman code program kalian :

Sub kode_otomatis()
tbladmin = proses.ExecuteQuery(“Select * From Tabel_Admin order by Kode_Admin desc”)
If tbladmin.Rows.Count = 0 Then
txtkodeadmin.Text = “AD-001?
Else
With tbladmin.Rows(0)
txtkodeadmin.Text = .Item(“Kode_admin”)
End With
txtkodeadmin.Text = Val(Microsoft.VisualBasic.Mid(txtkodeadmin.Text, 4, 3)) + 1
If Len(txtkodeadmin.Text) = 1 Then
txtkodeadmin.Text = “AD-00? & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 2 Then
txtkodeadmin.Text = “AD-0? & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 3 Then
txtkodeadmin.Text = “AD-” & txtkodeadmin.Text & “”
End If
End If
End Sub

setelah teman2 buat class diatas... maka pada FormLoadnya teman2 panggil class tersebut:

sub kode_otomatis()

dan pada TextBox nya klik 2x lalu pada code programnya teman2 panggil juga class yang sama :

sub kode_otomatis()

untuk isian kode , nomor faktur bisa teman2 kreasikan sendiri sesuai dengan kebutuhan,,yang terpenting jumlah size nya harus 5. teman2 bisa merubah size nya dengan menyesuaikan inputan yang dibutuhkan.

semoga bermanfaat.. terima kasih :)

0 komentar:

Posting Komentar

ICBS PAYAKUMBUH NEWS

CERITA ASIK

INFO BMKG

BERITA IT

Obrolan

OLAH RAGA

DUNIA

Foto Leo

Foto Leo

ALQURAN TERJEMAHAN

JADWAL SHOLAT

jadwal-sholat

Popular Posts

DOKUMENTASI

TAMU