Friday, 24 October 2014

Giving Opinion and Thanks of support

Terima kasih atas para narasumber saya berikut ini :


semoga makin bermanfaat yaaa atas ilmunya. amiiiin 

Btw......
yaa ampuuuunn saya lupa memberitahukan mengenai code untuk form master pelanggan tadi.

disitu terdapat kata "1312503731" pada pemberian object seperti label, textboxt,dll
itu adalah NIM saya. jadi anda bebas dalam pemberian nama asalkan disesuaikan dengan apa yg tersetting properties di masing-masing Form anda. 

so, Good Luck All

Kalo ada yang mau ditanyakan, silahkan Comment yaa. insyaallah akan saya bantu. 
Thank you of all 

wassalamualaikum wr.wb
Posted by at No comments:
Labels:

code Form Master Pelanggan - 2

Code selanjutnya Sist dan bro....


Private Sub IdMember1312503731TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles IdMember1312503731TextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            IdMember1312503731TextBox.Enabled = False
            objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text
            If objPelanggan1312503731.cari = True Then
                IdMember1312503731TextBox.Text = objPelanggan1312503731.PIdMember
                NamaPelanggan1312503731TextBox.Text = objPelanggan1312503731.PNmPelanggan
                AlamatPelanggan1312503731TextBox.Text = objPelanggan1312503731.PAlmtPelanggan
                Telepon1312503731TextBox.Text = objPelanggan1312503731.PTlpPelanggan
                TempatLahir1312503731TextBox.Text = objPelanggan1312503731.PTmptLhr
                TanggalLahir1312503731DateTimePicker.Text = objPelanggan1312503731.PTglLhr

                If LakiLaki1312503731RadioButton.Text = objPelanggan1312503731.PJenKel Then
                    LakiLaki1312503731RadioButton.Checked = True
                Else
                    Perempuan1312503731RadioButton.Checked = True
                End If
                Simpan1312503731Button.Enabled = False
            Else
                Ubah1312503731Button.Enabled = False
                Hapus1312503731Button.Enabled = False
            End If
            CariPelanggan1312503731.Enabled = True
            NamaPelanggan1312503731TextBox.Focus()
        End If
    End Sub

    Private Sub Telepon1312503731TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Telepon1312503731TextBox.KeyPress
        If Not (Asc(e.KeyChar) >= Asc("0") And Asc(e.KeyChar) <= Asc("9") Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 13) Then
            e.KeyChar = Chr(0)
            MessageBox.Show("Harus Masukan Angka!")
        End If
    End Sub

    Private Sub CariPelanggan1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CariPelanggan1312503731.Click
        Dim PopPelanggan As New FrmPopUpPelanggan1312503731
        PopPelanggan.ShowDialog()
        If PopPelanggan.PopIdMember1312503731 <> "" Then
            IdMember1312503731TextBox.Text = PopPelanggan.PopIdMember1312503731
            NamaPelanggan1312503731TextBox.Text = PopPelanggan.POpNmPelanggan1312503731
            AlamatPelanggan1312503731TextBox.Text = PopPelanggan.PopAlmtPelanggan1312503731
            Telepon1312503731TextBox.Text = PopPelanggan.PopTlpPelanggan1312503731
            TempatLahir1312503731TextBox.Text = PopPelanggan.PopTmptLhr1312503731
            TanggalLahir1312503731DateTimePicker.Text = PopPelanggan.PopTglLhr1312503731

            If PopPelanggan.PopJenKel1312503731 = "Perempuan" Then
                Perempuan1312503731RadioButton.Checked = True
            Else
                LakiLaki1312503731RadioButton.Checked = True
            End If

            IdMember1312503731TextBox.Enabled = False
            Simpan1312503731Button.Enabled = False
            NamaPelanggan1312503731TextBox.Focus()
        End If
    End Sub
End Class
Posted by at No comments:
Labels:

Code untuk Form Master Pelanggan pada Project Sistem bengkel mobil

Back to :*

Project Sistem Bengkel mobil 

waktu itu kiat sudah membuat tampilan form master pelanggan yaa???

naaahhh nih tinggal tambahkan code untuk menyempurnakan Form master Pelanggan :

Imports System.Data.OleDb
Public Class MasterPelanggan1312503731Form
    Dim objPelanggan1312503731 As New Pelanggan1312503731

    Private Sub bersih()
        NamaPelanggan1312503731TextBox.Clear()
        AlamatPelanggan1312503731TextBox.Clear()
        Telepon1312503731TextBox.Clear()
        TempatLahir1312503731TextBox.Text = ""
        TanggalLahir1312503731DateTimePicker.Text = ""
        Perempuan1312503731RadioButton.Checked = True
    End Sub

    Private Sub MasterPelanggan1312503731_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        NamaPelanggan1312503731TextBox.Focus()
    End Sub

    Private Sub MasterPelanggan1312503731_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
    End Sub

    Private Sub Simpan1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan1312503731Button.Click
        Try
            If IdMember1312503731TextBox.Text = "" Or NamaPelanggan1312503731TextBox.Text = "" Or TempatLahir1312503731TextBox.Text = "" Or AlamatPelanggan1312503731TextBox.Text = "" Or Telepon1312503731TextBox.Text = "" Then
                MsgBox("Terdapat Data Kosong")
            Else
                objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text
                objPelanggan1312503731.PNmPelanggan = NamaPelanggan1312503731TextBox.Text
                objPelanggan1312503731.PAlmtPelanggan = AlamatPelanggan1312503731TextBox.Text
                objPelanggan1312503731.PTlpPelanggan = Telepon1312503731TextBox.Text
                objPelanggan1312503731.PTmptLhr = TempatLahir1312503731TextBox.Text
                objPelanggan1312503731.PTglLhr = TanggalLahir1312503731DateTimePicker.Value.Date

                If LakiLaki1312503731RadioButton.Checked = True Then
                    objPelanggan1312503731.PJenKel = LakiLaki1312503731RadioButton.Text
                Else
                    objPelanggan1312503731.PJenKel = Perempuan1312503731RadioButton.Text
                End If

                If objPelanggan1312503731.simpan = 1 Then
                    MessageBox.Show("Data Berhasil Disimpan", "Berhasil")
                    bersih()
                    IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
                Else
                    MessageBox.Show("Data Gagal Disimpan", "Gagal")
                End If
                bersih()
                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
                IdMember1312503731TextBox.Enabled = True
                CariPelanggan1312503731.Enabled = True
                IdMember1312503731TextBox.Focus()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Ubah1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ubah1312503731Button.Click
        Try
            If IdMember1312503731TextBox.Text = "" Or NamaPelanggan1312503731TextBox.Text = "" Or TempatLahir1312503731TextBox.Text = "" Or AlamatPelanggan1312503731TextBox.Text = "" Or Telepon1312503731TextBox.Text = "" Then
                MsgBox("Terdapat Data Kosong")
            Else
                objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text
                objPelanggan1312503731.PNmPelanggan = NamaPelanggan1312503731TextBox.Text
                objPelanggan1312503731.PAlmtPelanggan = AlamatPelanggan1312503731TextBox.Text
                objPelanggan1312503731.PTlpPelanggan = Telepon1312503731TextBox.Text
                objPelanggan1312503731.PTmptLhr = TempatLahir1312503731TextBox.Text
                objPelanggan1312503731.PTglLhr = TanggalLahir1312503731DateTimePicker.Value.Date

                If LakiLaki1312503731RadioButton.Checked = True Then
                    objPelanggan1312503731.PJenKel = LakiLaki1312503731RadioButton.Text
                Else
                    objPelanggan1312503731.PJenKel = Perempuan1312503731RadioButton.Text
                End If
                If objPelanggan1312503731.ubah = 1 Then
                    MessageBox.Show("Data Berhasil DiUbah", "Berhasil")
                    bersih()
                    IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
                Else
                    MessageBox.Show("Data Gagal DiUbah", "Gagal")
                End If
                bersih()
                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
                IdMember1312503731TextBox.Enabled = True
                CariPelanggan1312503731.Enabled = True
                IdMember1312503731TextBox.Focus()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Hapus1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus1312503731Button.Click
        Try
            objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text
            If objPelanggan1312503731.hapus = 1 Then
                MessageBox.Show("Data Berhasil Dihapus", "Berhasil")
                bersih()
                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
            Else
                MessageBox.Show("Data Gagal Dihapus", "Gagal")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Batal1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal1312503731Button.Click
        If (MessageBox.Show("BATALKAN PENGISIAN MASTER PELANGGAN, YAKIN?", "Konfirmation", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes) Then
            End
        End If
        bersih()
        IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()
        IdMember1312503731TextBox.Enabled = True
    End Sub

    Private Sub Keluar1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar1312503731Button.Click
        Me.Close()
    End Sub

   
Posted by at No comments:
Labels:

DataGridView Cell Formating VB.Net



barusan saya searching2 menegenai pembahasan VB.NET. 
nah di dapatlah sebuah tema yang menarik untk di share kembali yakni : 

DataGridView Cell Formating VB.Net

Mengubah warna pada Cell DataGridView menurut nilai yang didapatkan. Di sini nilai yg admin info terbaru kasih yakni jika pada DataGridView kolom Qty ada value 0.
  • Untuk langkah pertama buat database baru serta beri nama DbCoba, lalu buat tabel pada database cobalah serta beri nama TabelBarang dengan fields : Kode_Barang, Nama_Barang & Qty.
  • Sesudah database serta tabel anda bikin, bukalah project Visual Studio 2005, click file, tentukan New Project, Visual Basic, Windows Application, Ok.
  • Drag n drop DataGridView ke form.
  • Double click form, pada moment load, copy-paste code tersebut :
cn = New SqlConnection(”server=(local)\sqlexpress;database=DbCoba;uid=UserId Anda;pwd=PasswordAnda”)
cn.Open()
da = New SqlDataAdapter(”select Kode_Barang as [KODE BARANG],Nama_Barang as [NAMA BARANG],QTY from TabelBarang”, cn)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
  • Pada object DataGridView1 dan event CellFormatting copas code berikut :
If DataGridView1 .Columns(e.ColumnIndex).Name = “QTY” Then
If e.Value IsNot Nothing Then
If e.Value.ToString = “0″ Then
e.CellStyle.BackColor = Color.Red
End If
End If
End If

Sumber referensi : http://farray.blogdetik.com/index.php/2014/03/datagridview-cell-formating-vbnet/ 
Posted by at No comments:
Labels:

Cara Membuat Generate Auto Number/No Urut/No Bukti VB.NET

Cara Membuat Generate Auto Number/No Urut/No Bukti VBNET

Ini merupakan penjelasan tambahan (lebih lanjut) dari postingan saya tentangBasic Generate Auto Number, Kali ini saya akan sedikit menjelaskan untuk beberapa kasus dan jenis No Urut yang biasa ada dalam aplikasi sehari hari. Baiklah saya langsung contohkan ke coding vbnet dan cara melakukan SELECT query untuk mendapatkan No urut terakhir dari database.

Function djie_AutoNumber() As String
        Dim v_sql As String
        'No Bukti Dengan Format Biasa 001,002,003
        v_sql = "SELECT NO_BUKTI FROM TBL_HEAD ORDER BY NO_BUKTI DESC"
        Using con As New SqlClient.SqlConnection("DATA SOURCE=djiesoft;INITIAL CATALOG=test_db;USER ID=sa;PASSWORD=123"
            con.Open()
            Dim cmd As New SqlClient.SqlCommand(v_sql, con)
            Dim reader As SqlClient.SqlDataReader
            reader = cmd.ExecuteReader
            If reader.HasRows Then
                reader.Read()
                Return Mid("000",1,3-(Val(Trim(reader.Item(0).ToString)) + 1).ToString.Length) + (Val(Trim(reader.Item(0).ToString)) + 1).ToString
            Else
                Return "001"
            End If
        End Using
End Function

Untuk kasus lain yang sedikit lebih rumit, misalanya ada kombinasi karakter, tahun, bulan,hari dan sebagainya anda cukup ganti saja pada bagian ini :
        'Contoh Custom No Bukti A001, A002, B001, C001, C002
        'Jadi Setiap Karakter Masing2 A,B,C punya no urut masing2
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE LEFT(NO_BUKTI,1)='A' ORDER BY RIGHT(NO_BUKTI,3) DESC"
        If reader.HasRows Then
            reader.Read()
             Return "A" + Mid("000",1,3-(Val(Trim(reader.Item(0).ToString)) + 1).ToString.Length) +(Val(Trim(reader.Item(0).ToString)) + 1).ToString
        Else
            Return "A001"
        End If

        'Contoh No Bukti yyyymmdd-xxx : 20120801-001,20120801-002
        'Jika Ingin Setiap TAHUN Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))=YEAR(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        'Jika Ingin Setiap BULAN Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))+MONTH(LEFT(NO_BUKTI,8))=YEAR(GETDATE())+MONTH(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        'Jika Ingin Setiap HARI Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))+MONTH(LEFT(NO_BUKTI,8))+DAY(LEFT(NO_BUKTI,8))=YEAR(GETDATE())+MONTH(GETDATE())+DAY(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        If reader.HasRows Then
            reader.Read()
            Return Format(Now.Date, "yyyyMMdd") + "-" + (Val(Trim(reader.Item(0).ToString)) + 1).ToString
        Else
            Return Format(Now.Date, "yyyyMMdd") + "-001"
        End If

Ini adalah cara saya sendiri yang biasa saya lakukan dan tentu harus ada modifikasi sesuai dengan kasus dan kebutuhan anda, dan sebenarnya masih banyak "Jalan/Cara" lain untuk melakukan generate No Urut ini, Mungkin anda bisa lebih menyingkat/menyederhanakan lagi sintak diatas atau mungkin anda mempunya cara lain yang lebih praktis yang bisa share (berbagi) melalui comment dibawah atau mungkin juga anda ingin bertanya tentang kasus No Urut lain yang saya tidak sebutkan diatas. 

sumber referensi : http://djiesoft.blogspot.com/2012/08/cara-memebuat-generate-auto-numberno.html

SELAMAT MENGCODING ^_^
Posted by at No comments:
Labels:

Request

berdasarkan request dari temqn-teman di kampus, malam ini saya akan memposting berkaitan dengan AutoNumber (penomoran secara otomatis)

hehehehe 

tadi kan saya sudah memposting Cara membuat AutoNumber berdasarkan Bulan dan Tahun, 
sekarang yukkk di liat bagaimana ,
(Cara Membuat Generate Auto Number/No Urut/No Bukti VBNET)

http://djiesoft.blogspot.com/2012/08/cara-memebuat-generate-auto-numberno.html

cekidottss :p
Posted by at No comments:
Labels:

lanjutan (3)

2.2 Setelah Class Koneksi dibuat, maka sekarang masuk ke inti dari program ini. Yaitu koding untuk Form1-nya :
Coding :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
Dim SQL As String
Dim SQL2 As String
Dim Proses As New ClsKoneksi
Dim tblMerk As DataTable
'Dim Da As SqlClient.SqlDataAdapter
Sub Data_Record()
tblMerk = Proses.ExecuteQuery("Select * From purchasing_order")
DataGridView1.DataSource = tblMerk
DataGridView1.Columns(1).Width = 130
End Sub
'Kode otomatis untuk buat invoice
Sub Kode_Otomatis()
Dim date1 As String
date1 = Format(Now, "yy")
Dim date2 As String
date2 = Format(Now, "MM")
tblMerk = Proses.ExecuteQuery("Select * From purchasing_order order by no_invoice desc")
If tblMerk.Rows.Count = 0 Then
 
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00001"
Else
With tblMerk.Rows(0)
TextBox1.Text = .Item("no_invoice")
End With
TextBox1.Text = Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 15, 5)) + 1
If Len(TextBox1.Text) = 1 Then
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0000" & TextBox1.Text & ""
ElseIf Len(TextBox1.Text) = 2 Then
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/000" & TextBox1.Text & ""
ElseIf Len(TextBox1.Text) = 3 Then
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00" & TextBox1.Text & ""
ElseIf Len(TextBox1.Text) = 4 Then
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0" & TextBox1.Text & ""
ElseIf Len(TextBox1.Text) = 5 Then
TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/" & TextBox1.Text & ""
End If
 
End If
End Sub
 
Sub bersih()
Call Data_Record()
Call Kode_Otomatis()
BtnTambah.Enabled = True
TextBox1.Enabled = False
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
End Sub
 
Private Sub DGJenisBrg_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
TextBox1.Text = DataGridView1.SelectedCells(0).Value
TextBox2.Text = DataGridView1.SelectedCells(1).Value
TextBox3.Text = DataGridView1.SelectedCells(2).Value
BtnTambah.Enabled = False
End Sub
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
 
Try
If (Me.TextBox1.Text = "") Then
MsgBox("Data Wajib Diisi Lengkap!", MsgBoxStyle.Information, "Perhatian")
Me.TextBox2.Focus()
Exit Sub
Else
SQL = "Insert Into purchasing_order Values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
Proses.ExecuteNonQuery(SQL)
MessageBox.Show("Proses Data Berhasil!", "Sukses saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call bersih()
End If
Catch ex As SqlException
MsgBox(ex.Message, MsgBoxStyle.Information, "Perhatian")
 
End Try
 
End Sub
Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
Call bersih()
End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Me.WindowState = FormWindowState.Maximized
Call bersih()
DataGridView1.Columns(0).HeaderText = "No. Invoice"
DataGridView1.Columns(1).HeaderText = "Nama Customer"
DataGridView1.Columns(2).HeaderText = "Alamat Customer"
 
Me.DataGridView1.DefaultCellStyle.ForeColor = Color.Coral
' Change back color of each row
Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.AliceBlue
' Change GridLine Color
Me.DataGridView1.GridColor = Color.Blue
' Change Grid Border Style
Me.DataGridView1.BorderStyle = BorderStyle.Fixed3D
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.LightGray
End Sub
End Class
Keterangan properties untuk Form1
Textbox1.Text = Untuk input no.invoice
Textbox2.Text = Untuk input nama customer
Textbox3.Text = Untuk input alamat customer
BtnTambah = Eksekusi data
DatagridView1 = Binding data
BtnBatal = Membersihkan textbox dan refresh data


sumber referensi :http://herosetyanofario.wordpress.com/2011/06/17/membuat-autonumber-menggunakan-kombinasi-bulan-tahun-di-vb-net/
Posted by at No comments:
Labels:
Subscribe to: Posts (Atom)