Transaksi Laundry

Assalamualaikum,mau posting tampilan dulu coz codingnya masih ada perombakan dikit,,.,.hehehe

ngilangin kebingungan karena libur kuliah

Coding nya insaallah akan saya lanjutkan....

Coding No slip otomatis

Selamat malam,mumpung gak ada kerjaan nih saya mau posting cara membuat no slip otomatis..
1. siapkan sebuah button
2. siapkan sebuah textbox=txtnoslip
dan pastinya saudara telah membuat sebuah database yang berisikan sebuah table
database : terserah
table : gaji
field : gajislip char(10)
pada button masukan koding berikut:::
mudah kan !!!!!
oyaaa disini formatnya pake tanggal yg diset otomatis oleh windows



Sub buatslip()
        Dim kode, kodebaru, tgl As String
        Dim no As Integer
        tgl = Format(Now, "ddMMyy")
        kon.Close()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT gajislip FROM gaji ORDER BY gajislip DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("gajislip")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "S-" + Format(no, "0000") + tgl
            txtnoslip.Text = kodebaru
        Else
            txtnoslip.Text = "S-0001" + tgl
        End If
        cek.Close()
        kon.Close()

    End Sub