Step 2 : Form Master

Malam Sobat Coding rencana nya saya mau Nulis Beberapa sih tapi berhubung hari sudah malam dan saya besok kerja...jadi sedikit dulu .
tancap gas deh saya mulai dari pembagian form master di aplikasi saya ini...walaupun sedikit dasar sih tapi dari pada lupa !!!!!!!!!!!!!!!!!!!!!!!

1. Form Pemasok
2. Form Jenis barang
3. Form karyawan

nah saya start dari Step 2.1 dulu yah : yaitu form Pemasok berikut adalah screen shoot nya



nah kita start untuk pembuatan no faktur otomatis terlebih dahulu dan letakkan dibawah class :

Sub nofaktur()
        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 kodepemasok FROM pemasok ORDER BY kodepemasok DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("kodepemasok")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "P-" + Format(no, "0000") + tgl
            txtidpemasok.Text = kodebaru
        Else
            txtidpemasok.Text = "P-0001-" + tgl
        End If
        cek.Close()
        kon.Close()
    End Sub

dan dibawah ini lagi tambahkan beberapa sub yang dibutuhkan seperti sub tampil,sub proses dll

gak ribet kok cuma tinggal panggil ajja disetiap event nta

Note : sambung dibawah end sub coding faktur otomatis yah

Sub tampil(ByVal sql As String)
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = sql
        mda.SelectCommand = perintah
        ds.Tables.Clear()
        mda.Fill(ds, "data")
        dg.DataSource = ds.Tables("data")
        kon.Close()
    End Sub

    Sub proses(ByVal sql As String)
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = sql
        perintah.ExecuteNonQuery()
        kon.Close()
    End Sub
    Sub setdg()
        dg.Columns(0).HeaderText = "Kode"
        dg.Columns(1).HeaderText = "Nama"
        dg.Columns(2).HeaderText = "Alamat"
        dg.Columns(3).HeaderText = "Telpon/Hp"
        dg.Columns(4).HeaderText = "Email"
        dg.Columns(0).Width = 100
        dg.Columns(1).Width = 100
        dg.Columns(2).Width = 100
        dg.Columns(3).Width = 100
        dg.Columns(4).Width = 100
    End Sub

    Sub tidakaktif()
        txtidpemasok.Enabled = False
        nama.Enabled = False
        alamat.Enabled = False
        hp.Enabled = False
        email.Enabled = False
        txtidpemasok.BackColor = Color.Gray
        nama.BackColor = Color.Gray
        alamat.BackColor = Color.Gray
        hp.BackColor = Color.Gray
        email.BackColor = Color.Gray
        cmdsimpan.Enabled = False
        cmddelete.Enabled = False
        cmdupdate.Enabled = False
    End Sub

    Sub aktif()
        txtidpemasok.Enabled = True
        nama.Enabled = True
        alamat.Enabled = True
        hp.Enabled = True
        email.Enabled = True

        txtidpemasok.BackColor = Color.White
        nama.BackColor = Color.White
        alamat.BackColor = Color.White
        hp.BackColor = Color.White
        email.BackColor = Color.White
    End Sub
    Sub bersih()
        txtidpemasok.Text = ""
        nama.Text = ""
        alamat.Text = ""
        hp.Text = ""
        email.Text = ""
    End Sub

    Sub cekkode()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT * FROM pemasok where kodepemasok='" & txtidpemasok.Text & "'"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            txtidpemasok.Enabled = False
            nama.Text = cek.Item("namapemasok")
            alamat.Text = cek.Item("alamat")
            hp.Text = cek.Item("telpon")
            email.Text = cek.Item("email")
            'cmdsimpan.Text = "update"
        Else
            cmdsimpan.Text = "simpan"

        End If
        cek.Close()
        Call aktif()
        nama.Focus()
        cmdsimpan.Enabled = True
        cmdupdate.Enabled = True
        cmddelete.Enabled = True
        kon.Close()
    End Sub

Nah sekarang kita panggil no faktur otomastis di button + tadi..klik 2 x



ketikan : call nofaktur()
setelah itu Button tambah klik 2 x dan copikan coding ini

If cmdtambah.Text = "Tambah" Then
            cmdtambah.Text = "Batal"
            txtidpemasok.Enabled = True
            nama.Enabled = True
            alamat.Enabled = True
            hp.Enabled = True
            email.Enabled = True
            txtidpemasok.BackColor = Color.White
            nama.BackColor = Color.White
            alamat.BackColor = Color.White
            hp.BackColor = Color.White
            email.BackColor = Color.White
            txtidpemasok.Focus()
            cmdsimpan.Enabled = True
            bersih()
        Else
            cmdtambah.Text = "Tambah"
            Call tidakaktif()
            Call bersih()
            cmdsimpan.Enabled = False
        End If
        cmdsimpan.Text = "Simpan"

setelah itu tombol simpan klik 2 x dan copikan coding ini :

Call proses(" INSERT INTO pemasok VALUES('" & txtidpemasok.Text & "','" & nama.Text & "','" & alamat.Text & "','" & hp.Text & "','" & email.Text & "') ")
        MsgBox("data sukses disimpan", MsgBoxStyle.Information, "informasi")
        Call bersih()
        Call tampil("select * from pemasok order by kodepemasok")
        Call setdg()
        txtidpemasok.Enabled = True
        txtidpemasok.Focus()

setelah itu tombol update klik 2x kopikan coding ini :

Call proses("UPDATE pemasok SET namapemasok='" & nama.Text & "',alamat='" & alamat.Text & "',telpon='" & hp.Text & "',email='" & email.Text & "' WHERE kodepemasok='" & txtidpemasok.Text & "'")
        Call tampil("select * from pemasok order by kodepemasok")
        Call setdg()

setelah itu tombol delete klik 2 x dan copikan coding ini :

Call proses("DELETE FROM pemasok WHERE kodepemasok='" & txtidpemasok.Text & "'")
        Call tampil("select * from pemasok order by kodepemasok")
        Call setdg()

setelah itu tombol keluar  klik 2 x dan ini yang paling mudah  coding nya :

me.close()

nah bikin perintah CRUD kita udah selesai dan selanjutnya kita membuat event load nya agar sewaktu dijalankan bisa tampil dan ada juga event actived nya

event actived klik 2x di form dan ambil disudut kanan actived :
dan copikan coding ini :

call tidakaktif()

setelah itu event load

copikan coding ini :

Call tampil("select * from pemasok order by kodepemasok ")
        Call setdg()

nah ini yang terakhir klik 2 x di datagridwiew dan ambil event  dgcellclick dan copikan coding ini dibawahnya :

Dim i As Integer
        i = dg.CurrentRow.Index
        txtidpemasok.Text = dg.Rows.Item(i).Cells(0).Value
        Call cekkode()


nah sampai disini dulu tutorial step 2.1 tentang form master yang pertama dan semoga berguna bagi yang lain  dan saya sendiri terutama...

wassalam bg io pw

Tugas Magang : Sistem inventarisasi housekeeping di Hotel Hangtuah Padang

Assalamua'laikum Wr.Wb

Memulai cerita kita nih tentang aplikasi desktop memakai visual studio 2005 dengan database mysql...
Capek ngetik lanjut ajja

Step 1 : Rancangan Database yang Saya Buat Adalah sebagai Berikut :




Download Databasenya Disini : http://downloads.ziddu.com/download/24184601/magang.rar.html

source Code nya :

CREATE TABLE barang(kodebarang VARCHAR(10)PRIMARY KEY,namabarang VARCHAR(25),jenisbarang VARCHAR(5),satuan VARCHAR(10),stok INT,FOREIGN KEY(jenisbarang)REFERENCES jenis(jenisid))ENGINE INNODB;

CREATE TABLE jenis(jenisid VARCHAR(5)PRIMARY KEY,jenisnama VARCHAR(25))ENGINE INNODB;

CREATE TABLE pemasok(kodepemasok VARCHAR(10)PRIMARY KEY,namapemasok VARCHAR(25),alamat VARCHAR(25),telpon CHAR(12),email VARCHAR(25))ENGINE INNODB;

CREATE TABLE barangmasuk(kodebm VARCHAR(10)PRIMARY KEY,nofakbm VARCHAR(10),tglinputbm DATETIME,tglfakbm DATETIME,kodebarangbm VARCHAR(10),
kodepemasokbm VARCHAR(10),jumlahbm INT,FOREIGN KEY(kodebarangbm)REFERENCES barang(kodebarang),FOREIGN KEY(kodepemasokbm)REFERENCES pemasok(kodepemasok))ENGINE INNODB;

CREATE TABLE unit(unitkode VARCHAR(10)PRIMARY KEY,namaunit VARCHAR(25),jabatan VARCHAR(20))ENGINE INNODB;

CREATE TABLE barangkeluar(kodebk VARCHAR(10)PRIMARY KEY,tglinvoicebk DATETIME,kodebarangbk VARCHAR(10),unitkodebk VARCHAR(10),
jumlahbk INT,FOREIGN KEY(kodebarangbk)REFERENCES barang(kodebarang),FOREIGN KEY(unitkodebk)REFERENCES unit(unitkode))ENGINE INNODB;


Sampai Disini dulu Step 1 nya yah guys...besok sambung lagi...Wassalam Rio Pw.X