Membuat Nomor Transaksi Otomatis

Salam sukses,

Tutorial kali ini saya akan mencoba berbagi ilmu tentang bagaimana membuat nomor transaksi otomatis di dalam form program. Siapkan teh hangat, sm cemilan terlebih dahulu agar belajarnya enak, hehehe...

OK? sudah siap? kita mulai...


Langkah-langkahnya:

Kita asumsikan pembuatan database dan koneksinya sudah selesai dibuat (mohon sabar sebentar, :) jangan marah ya)

Selanjutnya kita buat form programnya seperti gambar ini:

1_form

Properti Name TexBox nya seperti berikut:

Deposit Id = Deposit_IdTextBox

Date = DateDateTimePicker

Untuk yang lain bisa sesukanya

kemudian masuk ke dataset editor (belum lupa kan cara masuknya? ada di tutorial yang pertama :)), trus klik kanan pada tabel adapternya, kemudian pilih Add Query. gambarnya seperti ini

2_query

Buat query seperti berikut

3_queryAdapter

Maksud dari query tersebut adalah kita mengkondisikan bahwa kita memilih semua kolom di tabel deposit dengan kondisi kolom Deposit_Id diambil 2 karakter dari baris ke 5 sebagai tahun, dan 2 karakter lagi dari baris ke 7 sebagai bulan, dan diurutkan dari yang paling akhir. kira-kira begitu penjelasannya :) (mumet mode=ON, hahaha...)

Setelah itu simpan dengan mana FillByMonthLastTrxId. Query ini yang nantinya akan dipakai di dalam pengkodean nomor transaksi.

Selanjutnya kita ketikkan kode program untuk membuat nomot otomatisnya, kodenya seperti ini

Private Sub GetTrxId()
        Dim LastTrxId As Integer
        Dim Year, Month As String
        Dim tmp_Dep_Id As String

        tmp_Dep_Id = ""
        Year = Microsoft.VisualBasic.Right(Me.DateDateTimePicker.Value.Year.ToString, 2)
        Month = Me.DateDateTimePicker.Value.Month.ToString.PadLeft(2, "0")

        Me.DepositTableAdapter.FillByMonthLastTrxId(Me.BillingDataSet.Deposit, Year, Month)
        If Me.BillingDataSet.Deposit.Rows.Count > 0 Then
            tmp_Dep_Id = "DEP-" & Microsoft.VisualBasic.Right(Me.DateDateTimePicker.Value.Year.ToString, 2) & Me.DateDateTimePicker.Value.Month.ToString.PadLeft(2, "0")
            LastTrxId = CInt(Microsoft.VisualBasic.Right(Me.BillingDataSet.Deposit.Item(0).Deposit_Id, 4)) + 1
            tmp_Dep_Id = tmp_Dep_Id & "-" & LastTrxId.ToString.PadLeft(5, "0")
            Me.Deposit_IdTextBox.Text = tmp_Dep_Id
        Else
            tmp_Dep_Id = "DEP-" & Microsoft.VisualBasic.Right(Me.DateDateTimePicker.Value.Year.ToString, 2) & Me.DateDateTimePicker.Value.Month.ToString.PadLeft(2, "0") & "-" & "00001"
            Me.Deposit_IdTextBox.Text = tmp_Dep_Id
        End If
    End Sub

Ok, sedah selesai? kalau sudah kita lanjutkan kembali. Kemudian kita buat eventnya agar pada saat form program muncul maka nomor otomatis akan tampil di kolom Deposit_IdTextBox. Paham kan??

Untuk membuat eventnya, perhatikan dahulu gambar ini

4_event

Cara cepat unutk membuat sebuah event salah satunya seperti ini, di kotak sebelah kiri kita klik segitiga hitamnya, kemudian pilih Events. Kemudian di kotak sebelah kanan kita pilih event yang hendak kita pakai.

Karena kita ingin menjalankan kode program pada saat form muncul, maka kita pilih event Load.

Sekarang kita ketikan kode program seperti berikut ke area kerja, kodenya seperti ini

GetTrxId()

Maksudnya adalah kita memanggil fungsi GetTrxId() yang sudah dibuat sebelumnya. OK, sudah paham kan?

Jika kode yang diketikan tadi sudah benar makan hasilnya adalah seperti berikut

5_hasilnya

 

Selamat, kita sudah membuat penomoran otomatis berdasarkan tahun dan bulan saat transaksi dilakukan.

Semoga tutorial singkat ini bermanfaat untuk pembaca sekalian. Terimakasih.

Berita Terkait