Sistem Informasi Pengiriman Kayu Menggunakan VB Net

Malam agan - agan semua....

sudah lama admin tidak posting, maklum lah lagi sibuk nyusun tugas akhir :D

hari ini admin mau share gimana caraya membuat Sistem Informasi pengiriman Barang menggunakan VB Net, sebekumnya admin sudah posting membuat module koneksi di vb net 2008, 

ini adalah lanjutan dari module sebelumnya, oh ia admin disini menggunakan database mysql.

ok saat nya dimulai

pertama rancang sebuah form seperti gambar dibawah ini :

form diiatas terdiri dari :

1. lima buah button
2. tujuh buah textbox
3.  satu buah listview 

nama dari masing - masing komponen tersebut bisa anda sesuaikan dari koding dibawah ini :

Imports MySql.Data.MySqlClient
Public Class DataKayu
    Sub Bersih()
        BersihForm(Me)
        Kunci(Me)
        Simpan.ImageKey = "Simpan.Ico"
        RubahTombol(0, Baru, Simpan, Hapus, Batal, Keluar)
        Cari.Enabled = True
    End Sub
    Sub TampilData()
        LV.Items.Clear()
        SQL = "SELECT * FROM Kayu ORDER BY KodeKayu ASC "
        BacaData()
        While RS.Read
            Dim AZ As New ListViewItem
            With AZ
                .Text = RS("KodeKayu")
                .SubItems.Add(RS("JenisKayu"))
                .SubItems.Add(RS("Ukuran"))
                .SubItems.Add(RS("Harga"))
                .SubItems.Add(RS("Stok"))
                .SubItems.Add(RS("Satuan"))
                LV.Items.Add(AZ)
            End With
        End While
        RS.Close()
    End Sub
    Private Sub DataKayu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Bersih()
        TampilData()
    End Sub
    Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click
        KodeKayu.Enabled = True
        KodeOtomatis(KodeKayu, "Kayu", "KodeKayu", "BR-000", "BR-0001", 4)
        KodeKayu.Focus()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        If KodeKayu.Text <> "" And JenisKayu.Text <> "" And Ukuran.Text <> "" Then
            If Simpan.Text = "Simpan" Then
                SQL = "INSERT INTO Kayu VALUES ('" & KodeKayu.Text & _
                "','" & JenisKayu.Text & _
                "','" & Ukuran.Text & _
                 "','" & Harga.Text & _
                  "','" & Stok.Text & _
                "','" & Satuan.Text & "')"
                MsgBox("Kayu " & JenisKayu.Text & vbCrLf & " Telah Berhasil Disimpan ", MsgBoxStyle.Information, "Sukses")
                EksekusiData()
            ElseIf Simpan.Text = "Edit" Then
                SQL = "Update Kayu Set JenisKayu='" & JenisKayu.Text & "', " & _
                     " Ukuran='" & Ukuran.Text & "', Harga='" & Harga.Text & "', Stok='" & Stok.Text & "', Satuan='" & Satuan.Text & " ' " & _
                     "Where KodeKayu='" & KodeKayu.Text & "'"
                MsgBox("Kayu " & JenisKayu.Text & vbCrLf & " Telah Berhasil Diperbahurui ", MsgBoxStyle.Information, "Sukses")
                EksekusiData()
            End If
            TampilData()
            Bersih()
        Else
            MsgBox("Data Tidak Lengkap", MsgBoxStyle.Exclamation, "Perhatikan")
        End If
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Dim X As String
        X = MsgBox("Yakin Ingin Menghapus Kayu ", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi")
        If X = MsgBoxResult.Yes Then
            SQL = "DELETE FROM Kayu WHERE KodeKayu='" & KodeKayu.Text & "'"
            EksekusiData()
            MsgBox(JenisKayu.Text & vbCrLf & "Berhasil Dihapus", MsgBoxStyle.Information, "Sukses")
        End If
        Bersih()
        TampilData()
    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
        Bersih()
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub
    Private Sub KodeKayu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KodeKayu.KeyPress
        If e.KeyChar = Chr(13) Then
            If KodeKayu.Text = "" Then
                MsgBox("Kode Kayu Tidak Boleh  Kosong", MsgBoxStyle.Exclamation, "Perhatikan")
            Else
                CekKayu()
            End If
        End If
    End Sub
    Sub CekKayu()
        SQL = "SELECT * FROM Kayu WHERE KodeKayu='" & KodeKayu.Text & "'"
        BacaData()
        If RS.HasRows = True Then
            RS.Read()
            KodeKayu.Text = RS("KodeKayu")
            JenisKayu.Text = RS("JenisKayu")
            Ukuran.Text = RS("Ukuran")
            Harga.Text = RS("Harga")
            Stok.Text = RS("Stok")
            Satuan.Text = RS("Satuan")
            RubahTombol(2, Baru, Simpan, Hapus, Batal, Keluar)
            Simpan.ImageKey = "Edit.Ico"
        Else
            RubahTombol(1, Baru, Simpan, Hapus, Batal, Keluar)
            Simpan.ImageKey = "Simpan.Ico"
        End If
        RS.Close()
        BukaKunci(Me)
        KodeKayu.Enabled = False
        JenisKayu.Focus()
    End Sub
    Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
        KodeKayu.Text = LV.SelectedItems(0).Text
        Call CekKayu()
    End Sub
    Private Sub Harga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Harga.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
    Private Sub Stok_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Stok.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
    Private Sub JenisKayu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JenisKayu.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        If (e.KeyChar Like "[A-Za-z]" _
                OrElse KeyAscii = Keys.Back _
                OrElse KeyAscii = Keys.Return _
                OrElse KeyAscii = Keys.Space _
                OrElse KeyAscii = Keys.Delete) Then
            KeyAscii = 0
        End If
        e.Handled = CBool(KeyAscii)
    End Sub

    Private Sub Satuan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Satuan.KeyPress
        e.KeyChar = Chr(13)
    End Sub

    Private Sub Cari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cari.TextChanged
        LV.Items.Clear()
        SQL = "SELECT * FROM KAYU  WHERE JENISKAYU LIKE '%" & Cari.Text & "%'"
        BacaData()
        While RS.Read
            Dim AZ As New ListViewItem
            With AZ
                .Text = RS("KodeKayu")
                .SubItems.Add(RS("JenisKayu"))
                .SubItems.Add(RS("Ukuran"))
                .SubItems.Add(RS("Harga"))
                .SubItems.Add(RS("Stok"))
                .SubItems.Add(RS("Satuan"))
                LV.Items.Add(AZ)
            End With
        End While
        RS.Close()
        CMD.Dispose()
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
End Class

Ok  selesai form data kayu nya, tunggu postingan selanjutnya untuk penyelesaian program ini.Happy Coding :D

Related Posts:

Tweet

Validasi Ukuran Gambar Menggunakan Vb NET 2008

Selamat malam teman - teman semua,
maaf admin udah lama gak posting,,
hari ini saya bakal buat validasi gimana cara membatasi ukuran gambar di vb net, untuk contoh nya dapat dilihat seperti gambar dibawah ini

seperti itulah tampilannya untuk koding nya dapat dilihat dibawah ini :

Protected Function UkuranGambar () As Booelan
Dim FileUpload1 =My.Computer.Filesystem..GetFileInfo(OpenFileDialog1.FileName)
Dim FileSize As Integer = FileUpload1.Lenght.ToString

If (FileSize) > 0 And FileSize(1000000) Then
Return True
else
MsgBox("Maaf Gambar Terlalu Besar")
Return False
End If
End Function


Sebagai catatan ukuran gambar nya dihitung byte bukan kilobyte
terima kasih
Happy Coding

Related Posts:

Tweet

Download Notepad Ver.6.6.8.

Ketemu Kembali agan-agan semua,hari ini saya akan membagikan sebuah aplikasi multi fungsi yaitu Notepad ++ atau kata temen-temen saya notepad tambah-tambah heheheh :D
Aplikasi notepad ini berbeda dengan notepad bawaan windows dari segi interface dan lainnya
kita banyak mendapatkan kemudahan dalam mengunakkan aplikasi ini
ok tanpa ragu saya bagikan kepada teman - teman semua
silahkan Download dibawah ini

Notepad  Ver.6.6.8.

Related Posts:

Tweet

Download CSS Menu Generator

Selamat pagi agan agan semua
hari ini saya mau share sebuah aplikasi
nah aplikasi ini digunakan untuk membuat menu di dalam php
contoh nya seperti ini

dala penggunaann nya pun sangat lah mudah,tanpa perlu basa basi lagi silahkan saja Download  dengan gratis.
Happy Coding

Related Posts:

Tweet

Validasi Abjad Pada Textbox Vb Net

Dalam membuat suatu sistem informasi atau sebuah program diperlukan adanya sebuah validasi,validasi dibuat supaya mengurangi kesalahan pada saat kita menggunakan sebuah program
kali ini saya akan membbagikan bagaimana sebuah textbox hanya dapat diisi dengan huruf saja
pertama rancang lah sebuah form
Contoh :

Langkah Selanjutnya Double Click Textbox tersebut,lalu pada pendeklarasainnya pilih KeyPress dan isikan kode berikut :
 Dim KeyAscii As Short = Asc(e.KeyChar)
        If (e.KeyChar Like "[A-Za-z]" _
                OrElse KeyAscii = Keys.Back _
                OrElse KeyAscii = Keys.Return _
                OrElse KeyAscii = Keys.Space _
                OrElse KeyAscii = Keys.Delete) Then
            KeyAscii = 0
        End If
        e.Handled = CBool(KeyAscii)

Ok sekian,itulah cara bagaimanamembuat validasi huruf pada textbox Di vb Net

Related Posts:

Tweet

Membuat Module Koneksi Di Vb Net 2008 Database Mysql

Ya hari ini saya akan memposting bagaimana cara membuat module koneksi di vb net,tanpa basa basi langsung saja kita mula1
Langkah 1.
Klik kanan di Solution Explorer nya nama project yang kita buat

langkah Selanjutanya Mengisi Apa saja yang dibutuhkan
OK
Imports MySql.Data.MySqlClient 

Related Posts:

Tweet

BIlangan Ganjil Genap Di PHP

Selamat pagi semuanya
hari ini saya mau sharing
ini materi pelajaran ane sebenarnya waktu semester 4 tentang PHP ,
nah kebetulan ini salah tugas kuis kemaren gan.
nah untuk pembelajaran saya akan membagikan Source Kode Nya
Happy Coding

<html>
<head>
<title>OUTPUT</title>
</head>

<body>
<?
$bilangan = $_POST['bilangan'];
if($bilangan != ""){
if($bilangan%2 == 0){
echo "$bilangan adalah Bilangan Genap";
} else {
echo "$bilangan adalah Bilangan Ganjil";
}
}
else{
echo "Inputkan Angka!";
}
?>
</body>
</html>

Related Posts:

Tweet

About Me

Sekilas tentang admin, admin berasal dari daerah Langkat, Sumatera Utara, Saya alumni D3 komputer di salah satu universitas swasta dikota Medan, admin lulus pada tahun 2016.

Tujuan dibuat nya blog ini adalah untuk sharing dan berbagi ilmu mengenai seputara  pemrograman, dan photoshop

Untuk kontak lebih lanjut bisa email admin
E-mail : danielbadung73@gmail.com

Related Posts:

Tweet

Salah satu penyebab kanker adalah tidur terlalu malam dan bangun terlalu siang.

Beberapa dokter di National Taiwan Hospital kerjakan penemuan paling baru, penyebab paling utama rusaknya hati yaitu tidur terlalu malam serta bangun terlalu siang.
Tidur Terlampau Malam Serta Bangun Terlalu Siang Penyebab Paling utama Kanker Hati
Jangan sempat tidur melalui dari jam 10 malam, karena malam hari jam 11 s/d awal hari jam 1 yaitu System Detox di bagian hati, mesti berjalan dalam keadaan tidur nyenyak.
Jam 1 s/d 3, system Detox di bagian Empedu dalam keadaan tidur.
Jam 3 s/d 5, system Detox sisi Paru-paru.
Jam 5 s/d 7, system Detox sisi Usus Besar, baiknya buang air besar.
Jam 7 s/d 9, sistem penyerapan gizi untuk Usus Halus, jadi harus makan pagi.
Tidur hingga larut malam dan bangun terlalu siang mengacaukan Metabolisme badan, selain itu dari tengah malam s/d jam 4 awal hari yaitu waktu untuk Sumsum Tulang Belakang untuk membuahkan darah.
Menurut Dennis G West, pengarang buku Kesehatan Best Seller, banyak hal yang perlu di perhatikan :
Jawablah telephone menggunakan telinga samping kiri
Jangan sampai minum Obat dengan Air Dingin
Jangan sampai mengkonsumsi makanan berat sesudah jam 6 malam
Minum makin banyak Air Putih saat pagi hari, malam lebih sedikit
Jam tidur yang Paling Baik jam 10 malam hingga jam 5 pagi
Jangan sampai terlalu cepat berbaring sesudah minum obat
Waktu Batterai HP tinggal satu janganlah angkat telpon lantaran Radiasi bertambah hingga 100 kali.
Mari INFO INI KITA BAGIKAN pada teman ataupun keluarga anda dirumah

Sumber : http://updateterbaruu.tk/index.php/2015/12/28/baca-sampai-selesai-tidur-terlalu-malam-dan-bangun-terlalu-siang-penyebab-utama-kanker-hati/

Related Posts:

Tweet