Program Visual Basic: Membuat No. Faktur Otomatis atau No. Order Otomatis atau Penomberan Otamatis

Diposting pada 670 views
Sekarang kita akan membuat program membuat No Faktur atau Penomberan secara otomatis, sangat berguna pada saat kita menginputkan sebuah data. Dengan adanya penomberan otomatis maka kecil kemungkinan kita akan salah menginputkan sebuah penomberan karena akan otamatis melakukan sebuah penambahan.

Kita Menggunakan Project Yang sudah pernah kita buat di Tutor Cara Koneksi Visual Basic dengan Database SQL

Buat Project seperti di bawah ini:

Sekarang kita mulai Pengcodingan:
1. Untuk generalisasi

10px; background-color: #c3fdb8; text-align: left;”>Public Sub koneksi()
Set cn = New ADODB.Connection
‘cn.Open “FILE NAME=koneksi_TblMhs.udl”
‘untuk nampilin tabel di sql tadi,buka koneksi_TblMhs.udl dg notepad trus copy deh kesini
cn.Open “Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=DatabaseMhs;Data Source=TOSHIBA-PC”
End Sub

3. Buat Sub Kode_Otomatis


jika tabel tidak kosong maka, maka tambahkan no urut (angka yang paling tinggi) + 1 dari nilai string 6, dan penambahan di string 9 sebanyak 1
Else
NoUrut = 1
TxtNIM.Text = “080010” + Format(NoUrut, “000”)
jika tidak maka penambahan langsung 1

4. Cmd New

10px; background-color: #c3fdb8; text-align: left;”>
Private Sub Form_Load()
TxtNIM.Text = “”
txtNama.Text = “”
TxtAlamat.Text = “”

koneksi

Set rsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = “select*from TblMhs”
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs

CmdAdd.Enabled = False
CmdUpdate.Enabled = True
CmdEdit.Enabled = True

CmdDelete.Enabled = True
TxtNIM.Locked = True
txtNama.Locked = True
TxtAlamat.Locked = True
End Sub

Koneksi di taruh disini, jadi setiap di load database langsung terkoneksi di visual basic.

6. Sub CmdAdd

10px; background-color: #c3fdb8; text-align: left;”>Private Sub CmdDelete_Click()
TxtNIM.Locked = False
txtNama.Locked = False
TxtAlamat.Locked = False
TxtNIM.Text = rsTblMhs(“NIM”)
txtNama.Text = rsTblMhs(“NAMA”)
TxtAlamat.Text = rsTblMhs(“ALAMAT”)
If MsgBox(“apakah yakin ingin dihapus?”, vbYesNo, “KONFIRMASI”) = vbYes Then
Set rsTblMhs = cn.Execute(“Delete from TblMhs where NIM='” & TxtNIM.Text & ” ‘ “)
MsgBox “Data telah dihapus”, vbInformation, “PESAN”
End If
‘untuk me-refresh datagrid setelah delete data
If cn.State = adStateOpen Then
setrsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = “select * from TblMhs”
rsTblMhs.CursorLocation = adUseClient
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs
End If
End Sub

Menghapus database

8.Cmd Refresh

sini

Selamat Mencoba

9 thoughts on “Program Visual Basic: Membuat No. Faktur Otomatis atau No. Order Otomatis atau Penomberan Otamatis

  1. halo, lagi nyusun TA dan bingung soal penomoran otomatis, tapi kami diminta menggunakan class >.< bisa dibantu gx ya :m

  2. mas, kok di bagian ini saya error trs ya??
    If Not rs!NIM = "" Then

    notifikasi error nya "item cannot be found in the collection corresponding to the requested name or ordinal"

    gmn cara ngatasinnya ya??

  3. Unut koding Modul disini saya kasih kodingnya penambahan no secara otomatis menyesuaikan rekord database
    nofaktur(Maksudnya yang nama yang ada di textboox) = "000000" & Format(rdetail_transaksi_penjualan.RecordCount + 1, "0")

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *