GMComputindo

Membuat Class Terbilang

noreply@blogger.com (Heri Hasan) — Sun, 16 Dec 2018 08:43:00 +0700

Buat Class baru dan berinama Class Terbilang.vb, lalu isikan kode sebagai berikut :

Public Class ClassTerbilang
    Enum style
        Lower
        Upper
        Proper
    End Enum

    Public Shared Function Ratusan(cData As String) As String
        Dim DataDepan, nLenData, nCount As Integer
        Dim SisaData, cHuruf As String
        Dim satuan() As String = {" nol", " satu", " dua", " tiga", " empat", " lima", " enam", " tujuh", 
                                  " delapan", " sembilan"}
        Dim imbuhan() As String = {"", "", " puluh", " ratus"}
        nLenData = Len(cData)
        SisaData = ""
        cHuruf = ""
        For nCount = nLenData To 1 Step -1
            DataDepan = Val(Mid(cData, 1, 1))
            SisaData = Mid(cData, 2, Len(cData))
            If Not (DataDepan = 0) Then
                If ((nCount = 2) And (CInt(Val(cData)) > 10) And (CInt(Val(cData)) < 20)) Then
                    cHuruf = cHuruf + IIf(CInt(Val(SisaData)) = 1, " se", satuan(CInt(Val(SisaData))))
                    cHuruf = cHuruf + IIf(CInt(Val(SisaData)) = 1, "", " ") + "belas"
                    Exit For
                Else
                    cHuruf = cHuruf + IIf((DataDepan = 1) And (Not (nCount = 1)), " se", satuan(DataDepan))
                    cHuruf = cHuruf + IIf((DataDepan = 1) And (Not (nCount = 1)), Trim(imbuhan(nCount)), _
                             imbuhan(nCount))
                End If
            End If
            cData = SisaData
        Next
        Ratusan = cHuruf
    End Function

    Public Shared Function Isi(cAngka As String) As String
        Dim nCount, nLenData As Integer
        Dim cHuruf, cData As String
        Dim akhiran() As String = {"", "", " ribu", " juta", " milyar", " triliun", " biliun", " ziliun"}
        cHuruf = ""
        cData = ""
        nLenData = Fix(Len(cAngka) / 3) + IIf((Len(cAngka) Mod 3) = 0, 0, 1)
        For nCount = nLenData To 1 Step -1
            cData = Mid(cAngka, 1, IIf(Len(cAngka) - (3 * (nCount - 1)) > 0, _
                    Len(cAngka) - (3 * (nCount - 1)), 1))
            If Not (Fix(Val(cData)) = 0) Then
                cHuruf = cHuruf + IIf((nCount = 2) And (CInt(Val(cData)) = 1), " se", Ratusan(cData))
                cHuruf = cHuruf + IIf((nCount = 2) And (CInt(Val(cData)) = 1), Trim(akhiran(nCount)), _
                         akhiran(nCount))
                cHuruf = Replace(cHuruf, "se ribu", "seribu")
            End If
            cAngka = Right(cAngka, 3 * (nCount - 1))
        Next
        Isi = cHuruf
    End Function

    Public Shared Function TerbilangHuruf(nNumber As Double, StringStyle As style, _
                                          Optional SatuanMataUang As String = "") As String
        Dim cDecsNumber As String
        Dim cHuruf, cNumber, cFullNumber As String
        Dim koma As String = Nothing


        Dim nPosDecs As Integer
        If VarType(nNumber) = 2 Then
            nNumber = CDbl(CStr(Fix(nNumber)) + _
            System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator + "0")
        Else
            nNumber = nNumber
        End If
        cHuruf = ""
        If nNumber < 0 Then
            cHuruf = " minus"
            cNumber = Trim(CStr((nNumber * -1)))
        Else
            cNumber = Trim(CStr(nNumber))
        End If
        nPosDecs = InStr(cNumber, System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        cFullNumber = Mid(cNumber, 1, IIf(nPosDecs = 0, Len(cNumber), nPosDecs - 1))
        cDecsNumber = Right(cNumber, Len(cNumber) - IIf(nPosDecs = 0, Len(cNumber), nPosDecs))
        If Not cDecsNumber = Nothing Then
            koma = cDecsNumber.Substring(0, cDecsNumber.Length - 1)
        End If
        If Not (Fix(Val(cFullNumber)) = 0) Then
            cHuruf = cHuruf + Isi(CStr(cFullNumber))
        Else
            cHuruf = " nol"
        End If
        If Not (cDecsNumber = "") Then
            If Not (Fix(Val(cDecsNumber)) = 0) Then
                If koma = "0" Then
                    cHuruf = cHuruf + " koma nol" + Isi(cDecsNumber)
                ElseIf Not koma = "0" Or koma = "" Then
                    cHuruf = cHuruf + " koma" + Isi(cDecsNumber)
                End If
            End If
        End If

        Select Case StringStyle
            Case style.Upper
                cHuruf = StrConv(cHuruf & " " & SatuanMataUang, VbStrConv.Uppercase)
            Case style.Proper
                cHuruf = StrConv(cHuruf & " " & SatuanMataUang, VbStrConv.ProperCase)
            Case style.Lower
                cHuruf = StrConv(cHuruf & " " & SatuanMataUang, VbStrConv.Lowercase)
        End Select
        TerbilangHuruf = cHuruf
    End Function
End Class

Bagaimana cara penggunaannya ?
Buat Form berisi tool Textbox kontrol dan label
lalu codenya sebagai berikut :

Private Sub TextEdit1_EditValueChanged(sender As System.Object, e As System.EventArgs) _
        Handles TextEdit1.EditValueChanged
        Dim nNumber As Double = 0.0
        Dim ATot As Single
        Dim MTerblg as String
        ATot = System.Convert.ToSingle(Me.TextEdit1.Text)
        Dim flag As Boolean = Double.TryParse(ATot, nNumber)
        If flag Then
            MTerblg = ClassTerbilang.TerbilangHuruf(nNumber, ClassTerbilang.style.Proper, "Rupiah")
            Label1.Text = MTerblg
        End If
    End Sub

Jalankan Project (F5), Isi Textbox dengan angka, maka label akan menampilkan terbaca.
Selamat mencoba.

Encrypt dan Decrypt

noreply@blogger.com (Heri Hasan) — Sun, 20 May 2018 18:27:00 +0700

Dalam waktu senggang ini saya ingin berbagi bagaimana cara memanipulasi data masukkan agar tidak sesuai saat data itu disimpan.

Penggunaan Encrypt adalah kebalikannya Decrypt biasanya digunakan untuk memanipulasi data password pengguna.

Untuk praktek penggunaan fungsi ini, silahkan buat Modul lalu masukkan code dibawah ini :

Import System.Text

Module Module1
 Public Function Encrypt(ByVal password As String) As String
    Dim strmsg As String = String.Empty
    Dim encode As Byte() = New Byte(password.Length - 1) {}
    encode = Encoding.UTF8.GetBytes(password)
    strmsg = Convert.ToBase64String(encode)
    Return strmsg
 End Function

 Public Function Decrypt(ByVal encryptpwd As String) As String
    On Error Resume Next
    Dim decryptpwd As String = String.Empty
    Dim encodepwd As New UTF8Encoding()
    Dim Decode As Decoder = encodepwd.GetDecoder()
    Dim todecode_byte As Byte() = Convert.FromBase64String(encryptpwd)
    Dim charCount As Integer = Decode.GetCharCount(todecode_byte, 0, _
                                 todecode_byte.Length)
    Dim decoded_char As Char() = New Char(charCount - 1) {}
    Decode.GetChars(todecode_byte, 0, todecode_byte.Length, decoded_char, 0)
    decryptpwd = New [String](decoded_char)
    Return decryptpwd
 End Function
End Module

Lalu buat Form (saya pribadi diberi nama file frmDE.vb silahkan sesuai keinginan anda) dan masukkan Toolbox Textbox sebanyak 4 buah, seperti contoh gambar dibawah ini :

Double Klik pada kotak masukkan Teks, lalu masukkan kode dibawah ini :

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox2.Text = Encrypt(TextBox1.Text)
End Sub

Lalu Double Klik pada kotak masukkan Teks Encrypt, lalu masukkan kode dibawah ini :

Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged
        TextBox4.Text = Decrypt(TextBox3.Text)
End Sub

Lalu double Klik pada form dan masukkan code ini :

Private Sub frmDE_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Form Encrypt VS Decrypt"
End Sub

Demikian semoga bermanfaat.

Koneksi Data

noreply@blogger.com (Heri Hasan) — Fri, 11 May 2018 18:08:00 +0700

Contoh Koneksi MySQL dengan VB Net, buatlah satu form, tambah button1 lalu masukkan code seperti dibawah ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Imports System.Data
Public Class Form1
    '-- MySQL Koneksi
    Public connDB As New MySql.Data.MySqlClient.MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
        Call conecDB()
        'nonaktifkan Database
        connDB.Close()
    End Sub
 
    Public Sub conecDB()
        Try
            Dim strServer As String = "localhost"
            Dim strDbase As String = "mysql" 'Nama Database 
            Dim strUser As String = "root"  'Database user
            Dim strPass As String = ""     'Database password
             'MySQL Connection String
            If connDB.State <> ConnectionState.Open Then _ 
connDB.ConnectionString = "server=" & strServer.Trim & _ 
";database=" & strDbase.Trim & ";user=" & strUser.Trim & "; _
password=" & strPass
            If connDB.State <> ConnectionState.Open Then connDB.Open() _ 
Else connDB.Close()
            MsgBox("Connected")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Kemudian jalankan program dan tekan button1, jika terdapat messege box berisi Connected, berarti step yang dilakukan sudah benar.

contoh koneksi SQL Server dengan Code VB Net, buat sebuah modul lalu isikan code dibawah ini :

Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection
Public cmd As SqlCommand
Public ds As DataSet
Public adapter As SqlDataAdapter
Public rd As SqlDataReader
Public db As StringPublic Sub koneksi()
  db = "Data Source=GMC\SQLEXPRESS;Initial _
       Catalog=NAMA DATABASE;Persist Security Info=True;User ID=sa; password=12345"
  con = New SqlConnection(db)
  Try
     If con.State = ConnectionState.Closed Then
        con.Open()
        MsgBox("Koneksi ke database berhasil", MsgBoxStyle.Information, "Informasi")
     End If
  Catch ex As Exception
       MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
  End Try
End Sub
End Module

Ganti tulisan GMC\SQLSERVER sesuai dengan nama server PC anda dan NAMA DATABASE Sesuai nama database yang akan dikoneksikan.

Contoh koneksi Access (accdb) dengan code VB Net.

Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBGMC.accdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from SISWA", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "SISWA")
        DataGridView1.DataSource = (ds.Tables("SISWA"))
    End Sub
End Class

Contoh diatas data accessnya saya kasih nama DBGMC.accdb, silahkan sesuaikan dengan nama data anda.

Selamat mencoba.

XtraTabControl DevExpress dengan VB Net

noreply@blogger.com (Heri Hasan) — Thu, 10 May 2018 17:37:00 +0700

Menampilkan Form dalam XtraTabControl melalui code dengan mengabaikan set propertinya.
Saya membuat dua form diberinama Lat_Tab dan FrmBebas :
1. Buat Module baru (Saya kasih nama ModuleTabulasi), dengan Code dibawah ini :

Module ModuleTabulasi
Public NmForm As Form

Public Sub tutupXTab(ByVal TabName As String)
Dim Pagex As XtraTabPage
Dim xExist As Boolean
  For Each Pagex In Lat_Tab.XtraTabControl1.TabPages
     If Pagex.Text = tabname Then
        xExist = True
        Lat_Tab.XtraTabControl1.SelectedTabPage = Pagex
        Lat_Tab.XtraTabControl1.TabPages.Remove(Pagex)
        Exit For
     End If
  Next Pagex
End Sub

End Module

Lalu pada Lat_Tab mengisi code sebegai berikut :

Imports DevExpress.XtraTab
Public Class Lat_Tab
    Dim xPage As XtraTabPage
    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) _
Handles SimpleButton1.Click
        nmform = frmBebas 'memanggil form 
        xTab("Tab_FrmBebas") 'Nama Tab
    End Sub

    Sub xTab(ByVal TabName As String)
       Dim xExist As Boolean
       Try
        For Each Me.xPage In XtraTabControl1.TabPages
         If xPage.Text = TabName Then
          xExist = True
          XtraTabControl1.SelectedTabPage = xPage
          Exit For
         End If
        Next xPage
      If xExist = False Then
         xPage = XtraTabControl1.TabPages.Add(TabName)
         XtraTabControl1.SelectedTabPage = xPage
         nmform.TopLevel = False
         nmform.Parent = XtraTabControl1.SelectedTabPage
         nmform.Dock = DockStyle.Fill
         nmform.Show()
      End If
    Catch ex As Exception
      MsgBox("Tabulasi bermasalah !", vbInformation, "GMComputindo")
      Exit Sub
    End Try
  End Sub
End Class

Sekarang pada form yang diberinama FrmBebas isi code seperti berikut :

Public Class frmBebas

    Private Sub frmBebas_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub

    Private Sub frmBebas_FormClosing _
(sender As Object, e As System.Windows.Forms.FormClosingEventArgs)
Handles Me.FormClosing
        tutupXTab("Tab_FrmBebas")
    End Sub

    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) _
Handles SimpleButton1.Click
        Me.Close()
    End Sub
End Class

Demikian latihan membuat TabControl DevExpress dengan VB Net, yang kami tulis tebal silahkan ganti sesuai keinginan anda.

Hasilnya bisa dilihat pada video dibawah ini :

Sub System SPA

noreply@blogger.com (Heri Hasan) — Thu, 19 Apr 2018 19:20:00 +0700

Telah dibangun Software (Sub System SPA) dimana mengolah data transaksi Treatment dan penjualan Food and Beverage.
Paket dalam CD :
1. Setup Printing
2. SQL Server Search engine 2012
3. User Manual

Bisa di Install di OS Win 7 up
x64 atau x32

Kebutuhan :
Harddisk : 320 GB atau lebih
RAM : 2 GB atau lebih
Bisa dijalankan Online server Luar atau Lokal
Aplikasi sangat ringan dan database sangat kecil.

Bentuk aplikasi bisa dilihat pada video dibawah ini :

System ini dibagi penggunaannya sebanyak 5 (lima) Komputer, namun semua saling terkait ke Server Data, pengguna disesuaikan dengan user dan kewenangannya, antara lain :

Operator Kasir (Front Office)
Operator Treatment (CSO/GRO) dibantu Monitoring oleh Petugas Housekeeping.
Operator Food and Beverage
Operator Keuangan
Operator Admin

Operator Kasir

Khusus menangani Informasi Data Locker, Check In Tamu dan Check Out Tamu. Dengan dibagi 2 Shift Kerja (Shift 1 dari Jam 9 pagi s/d Jam 5 Sore, dilanjut Shift 2) Shift 1 harus selalu melaporkan penerimaan (Overhand) kepada Shift 2 dan Shift 2 melakukan Closing untuk di stor kepada pejabat yang Incharge saat itu.

Operator CSO/GRO

Menangani Check In tamu ke Room Treatment sesuai data yang sudah dientry oleh Kasir dan Check Out data yang sudah selesai Treatment.

Untuk eksekusi Room menjadi siap digunakan, harus ada laporan / monitoring dari housekeeping bahwa kamar tersebut sudah siap digunakan.

Operator Food n Beverage

Menangani pengisian data stock dan penjualan kepada tamu yang sudah masuk dari Front Office dan masih berada di lingkungan Outlet atau belum Check Out. Invoice Penjualan sudah masuk ke Invoice yang dibuat kasir. Sehingga tidak melakukan penagihan pembayaran (Tidak menerima Keuangan Pembayaran dari Penjualan)

Operator Keuangan

Menangani Data Pengeluaran sesuai No Rekening yang sudah dibuat, Mengontrol penerimaan dari transasksi yang sudah terekam, Validasi Data Overhand adalah data penerimaan gabungan dari Treatment dan Food and Beverage, lalu proses Data Biaya Rencana dan Realisasi setiap bulannya.

Semua segala perhitungan yang harus dilaporkan sudah menggunakan system ini, tinggal Operator melaksanakan langkah-langkah pengolahannya saja.

Admin.

Menangani pendataan karyawan (Therapis) dan mengolah data pokok, Harga Room, Harga Food and Beverage, Tarif Session dan Tarif Extend.

Yang paling utama bisa membantu semua Operator melalui olah data yang ada, apabila terjadi kesalahan pengisian data.

Demikan penjelasan singkatnya, untuk user manual bagaimana cara mengoperasikan system ini, sudah include di dalam system pada menu Help.

Namun kami pun menyediakan toturial / petunjuk kerja system ini diblog

Cara Insert Data SQL Server dari Tabel lain

noreply@blogger.com (Heri Hasan) — Sun, 25 Mar 2018 13:19:00 +0700

Perintah tanpa syarat :
USE Nama_Database
INSERT INTO NamaTabel_1 (Var1,Var2) SELECT Var1,Var2 FROM NamaTabel_2
GO

Perintah Bersyarat :
USE Nama_Database
INSERT INTO NamaTabel_1 (Var1,Var2) SELECT Var1,Var2 FROM NamaTabel_2 WHERE Var1='Syarat'
GO

Perintah Bersyarat ganda :
USE Nama_Database
INSERT INTO NamaTabel_1 (Var1,Var2) SELECT Var1,Var2 FROM NamaTabel_2 WHERE Var1='Syarat_1' and Var2='Syarat_2'
GO

yang ditulis miring tebal sesuaikan dengan data anda.

Aplikasi Olah Data Konsumen Printing

noreply@blogger.com (Heri Hasan) — Thu, 15 Jun 2017 04:30:00 +0700

Aplikasi (Sub System) untuk mengolah data transaksi di Printing dan Offset telah dibangun sesuai dengan kebijakan perusahaan Danish Digital Printing.

Paket dalam CD :
1. Setup Printing
2. SQL Server Search engine 2012
3. User Manual

Bisa di Install di OS Win 7 up
x64 atau x32

Kebutuhan :
Harddisk : 320 GB atau lebih
RAM : 2 GB atau lebih
Bisa dijalankan Online server Luar atau Lokal

Aplikasi sangat ringan dan database sangat kecil.

Bagaimana gambaran aplikasi ini
silahkan,

Menampilkan Data Script ke Datagrid

noreply@blogger.com (Heri Hasan) — Fri, 11 Nov 2016 00:05:00 +0700

Cara untuk menampilkan data yang ditentukan script code VB Net, untuk memenuhi pertanyaan group Programer VB Net di Facebook, saya berikan contoh sebagai berikut : Buat form baru dan codenya seperti ini :

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
Inherits System.Windows.Forms.Form
Private buttonPanel As New Panel
Private WithEvents KontakDataGridView As New DataGridView
Private WithEvents addNewRowButton As New Button
Private WithEvents deleteRowButton As New Button

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Tampilan_Form()
Tentukan_DataGrid()
Populasi_Data()
End Sub

Private Sub KontakDataGridView_CellFormatting(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
Handles KontakDataGridView.CellFormatting
   If e IsNot Nothing Then
      If Me.KontakDataGridView.Columns(e.ColumnIndex).Name = _
         "Nama Lengkap" Then
         If e.Value IsNot Nothing Then
            Try
               e.Value = DateTime.Parse(e.Value.ToString()) _
                .ToLongDateString()
               e.FormattingApplied = True
            Catch ex As FormatException
              Console.WriteLine("{0} Penulisan nama tidak benar.", e.Value.ToString())
            End Try
         End If
       End If
    End If
End Sub

Private Sub addNewRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles addNewRowButton.Click
Me.KontakDataGridView.Rows.Add()
End Sub 

Private Sub deleteRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles deleteRowButton.Click
If Me.KontakDataGridView.SelectedRows.Count > 0 AndAlso _
   Not Me.KontakDataGridView.SelectedRows(0).Index = _
   Me.KontakDataGridView.Rows.Count - 1 Then
       Me.KontakDataGridView.Rows.RemoveAt( _
       Me.KontakDataGridView.SelectedRows(0).Index)
End If
End Sub

Private Sub Tampilan_Form()
Me.Size = New Size(600, 500)
With addNewRowButton
   .Text = "Tambah Baris"
   .Location = New Point(10, 10)
End With
With deleteRowButton
   .Text = "Hapus Baris"
   .Location = New Point(100, 10)
End With
With buttonPanel
   .Controls.Add(addNewRowButton)
   .Controls.Add(deleteRowButton)
   .Height = 50
   .Dock = DockStyle.Bottom
End With
Me.Controls.Add(Me.buttonPanel)
End Sub 

Private Sub Tentukan_Datagrid()
Me.Controls.Add(KontakDataGridView)
KontakDataGridView.ColumnCount = 3
With KontakDataGridView.ColumnHeadersDefaultCellStyle
   .BackColor = Color.Navy
   .ForeColor = Color.White
   .Font = New Font(KontakDataGridView.Font, FontStyle.Bold)
End With
With KontakDataGridView
   .Name = "KontakDataGridView"
   .Location = New Point(8, 8)
   .Size = New Size(500, 250)
   .AutoSizeRowsMode = _
    DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
   .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
   .CellBorderStyle = DataGridViewCellBorderStyle.Single
   .GridColor = Color.Black
   .RowHeadersVisible = False
   .Columns(0).Name = "Nama Lengkap"
   .Columns(1).Name = "Alamat"
   .Columns(2).Name = "No.Phone"
   .Columns(2).DefaultCellStyle.Font = _
    New Font(Me.KontakDataGridView.DefaultCellStyle.Font, FontStyle.Italic)
   .SelectionMode = DataGridViewSelectionMode.FullRowSelect
   .MultiSelect = False
   .Dock = DockStyle.Fill
End With
End Sub

Private Sub Populasi_data()
Dim row0 As String() = {"Dadang", "Jalaksana", "01234567890"}
Dim row1 As String() = {"Dedeng", "Jeleksene", "11111111111"}
Dim row2 As String() = {"Diding", "Jiliksini", "22222222222"}
Dim row3 As String() = {"Dodong", "Joloksono", "33333333333"}
Dim row4 As String() = {"Dudung", "Juluksunu", "44444444444"}
With Me.KontakDataGridView.Rows
   .Add(row0)
   .Add(row1)
   .Add(row2)
   .Add(row3)
   .Add(row4)
End With
With Me.KontakDataGridView
   .Columns(0).DisplayIndex = 0
   .Columns(1).DisplayIndex = 1
   .Columns(2).DisplayIndex = 2
End With
End Sub 

Public Shared Sub Main()
     Application.EnableVisualStyles()
     Application.Run(New Form1())
End Sub
End Class

Demikian semoga membantu, untuk lebihnya silahkan tambah kurang / rubah sesuai kebutuhan.

Hasilnya akan tampil seperti gambar dibawah ini, jika dijalankan.

Apabila kesulitan copas dari Blog ini, silahkan buka file di Github kami

Code Export Xls to SQL Server

noreply@blogger.com (Heri Hasan) — Sun, 30 Oct 2016 23:01:00 +0700

Sebelumnya saya sudah menulis Export Data SQL Server ke Excel, melalui datagrid yang dibuat dengan VB Net, kini saya tulis kembali untuk kebalikannya.

Imports System.Data.OleDb 
Imports System.Data.SqlClient

Misalnya data yang akan di export dari Excel mempunyai variabel (KodeBarang, NamaBarang, Satuan,Harga,Stock) maka harus ditentukan dulu array sebagai berikut :
Dibawah Public Class frmXLS2SQL

Dim TKodeBrg As String
 Dim TNabar As String
 Dim TSat As String
 Dim AHrg As Single
 Dim AStock As Single
 Dim DtXLS, DtSQL As String
 Dim tblImport As DataTable

Array yg dibuat untuk memudahkan type data yang akan di proses, sepeti contoh diatas TKodeBrg menggambarkan type data adalah text / string, kemudian AHrg atau AStock menggambarkan type data adalah Angka / Single.

Buat Form seperti dibawah ini :

Sertakan tool kedalam form :

OpenFileDialog ProgressBar Lalu dobel klik pada form hingga muncul layar code editor. Masukkan kode dibawah ini pada event form_Load :

Private Sub frmXLS2SQL_Load _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles MyBase.Load
  DtSQL = "DBS_Brg"
  Tampilkan_Data_SQL()
End Sub

Ada Sub yang diperlukan/dipanggil saat load form yaitu menampilkan Data SQL, codenya seperti dibawah ini :

Sub Tampilkan_Data_SQL()
 Dim myCommand As New SqlCommand
 Dim myAdapter As New SqlDataAdapter
 Dim myData As New DataTable
 Dim SQL As String
 Try
    Koneksi()
    SQL = "Select * From " & DtSQL
    myCommand.Connection = con
    myCommand.CommandText = SQL
    myAdapter.SelectCommand = myCommand
    myAdapter.Fill(myData)
    DataGridView1.DataSource = myData
    con.Close()
 Catch myerror As SqlException
    MessageBox.Show("Error: " & myerror.Message)
 Finally
    con.Dispose()
 End Try
 End Sub

Kemudian dobel klik pada tombol cari data Excel, masukkan code seperti dibawah ini :

With OpenFileDialog1
   .FileName = String.Empty
   .InitialDirectory = "D:\cafe_onin\"
   .Title = "Open Excel File"
   .Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"
 End With

 Dim result As DialogResult = OpenFileDialog1.ShowDialog()
 If result = Windows.Forms.DialogResult.OK Then
 Try
    DtXLS = OpenFileDialog1.FileName
    GetExcelSheetNames(DtXLS)
 Catch ex As Exception
    MsgBox("Error : " & ex.Message)
    exit sub
 End Try
 End If

Dari perintah diatas ada fungsi yang harus ditambahkan "GetExcelSheetNames", maka harus dibuat code fungsi itu dan codenya seperti dibawah ini :

Sub GetExcelSheetNames(ByVal FileName As String)
Dim sConn As String
sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
FileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

Dim conn As New OleDbConnection(sConn)
conn.Open()
Dim dtSheets As DataTable = _
conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
Dim drSheet As DataRow
ListBox1.Items.Clear()
For Each drSheet In dtSheets.Rows
   ListBox1.Items.Add(drSheet("TABLE_NAME").ToString())
Next
LoadExcel2Grid(FileName, ListBox1.Items(0).ToString)
conn.Close()
End Sub

Dari perintah diatas ada fungsi yang harus ditambahkan "LoadExcel2Grid", maka harus dibuat code fungsi itu dan codenya seperti dibawah ini :

Sub LoadExcel2Grid(ByVal FileName As String, ByVal SheetName As String)
 Dim exConn As OleDbConnection
 Dim dt As DataSet
 Dim cmd As OleDbDataAdapter

 Dim sConn As String
 sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
 FileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

 exConn = New System.Data.OleDb.OleDbConnection(sConn)
 cmd = New System.Data.OleDb.OleDbDataAdapter( _
 String.Format("select * from [{0}]", SheetName), exConn)
 cmd.TableMappings.Add("Table", SheetName)
 dt = New System.Data.DataSet
 cmd.Fill(dt)
 tblImport = dt.Tables(0)
 DataGridView2.DataSource = tblImport
 exConn.Close()
 End Sub

Kemudian dobel klik pada tombol "Export", lalu masukkan codenya sebagai berikut :

Try
 ProgressBar1.Value = 0
 ProgressBar1.Maximum = tblImport.Rows.Count
 For i As Integer = 0 To tblImport.Rows.Count - 1
    ProgressBar1.Value = i
    Label1.Text = "Status Proses : " & i
    TKodeBrg = tblImport.Rows(i).Item(0).ToString 'KodeBarang
    TNabar = tblImport.Rows(i).Item(1).ToString 'NamaBarang
    TSat = tblImport.Rows(i).Item(2).ToString 'Satuan
    AHrg = tblImport.Rows(i).Item(3).ToString 'Harga
    AStock = tblImport.Rows(i).Item(4).ToString 'Stock

    If TKodeBrg <> "" Then
       DoInsert_SQL()
    End If
  Next
  Label4.Text = "Status Proses : Import Selesai!"
  Tampilkan_Data_SQL()
Catch ex As Exception
  MsgBox(ex.ToString)
End Try

Buat sub untuk exekusi "DoInsert_SQL", code-nya sebagai berikut:

Dim myCommand As New SqlCommand
Dim myAdapter As New SqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
 Try
    Koneksi()
    SQL = String.Format("INSERT INTO 
    DBS_Brg(KodeBarang,NamaBarang,Satuan,Harga,Stock) VALUES " & _
    "('{0}','{1}','{2}',{3},{4})", TKodeBrg, TNabar, TSat, AHrg, AStock)

    myCommand.Connection = con
    myCommand.CommandText = SQL
    myCommand.ExecuteNonQuery()
    con.Close()
 Catch myerror As SqlException
    MessageBox.Show("Error: " & myerror.Message)
 Finally
    con.Dispose()
 End Try

Demikian sekiranya dapat membantu. Jika ada yang tidak difahami, silahkan komentar dibawah ini :

Cara membuat Kode Supplier Autocode

noreply@blogger.com (Heri Hasan) — Sat, 29 Oct 2016 23:11:00 +0700

Dim Inis, Inis2 As String
Private Sub NmSpl_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles NmSpl.LostFocus
Hrf = Len(NmSpl.Text)
Call cariNamaSPL()
End Sub

Sub cariNamaSPL()
 If NmSpl.Text = "" Then MsgBox("Nama Supplier masih kosong, tentukan Namanya") : Exit Sub
 Try
    Call koneksi()
    tblSpl = Proses.ExecuteQuery(String.Format("select * from dbsupplier " & _
                     where NamaSupplier = '{0}'", NmSpl.Text))
    If tblSpl.Rows.Count = 0 Then
       Call CrInisial()
       Call Cari_Kode_SPL()
    Else
       Tid.Text = tblSpl.rows(0).item("ID")
       BKdSpl.Text = tblSpl.rows(0).item("KodeSupplier")
       TAlmt.Text = tblSpl.Rows(0).Item("AlamatLengkap")
       TKontak.Text = tblSpl.Rows(0).Item("NamaKontak")
       Phone1.Text = tblSpl.Rows(0).Item("NoPhoneSupplier")
       Phone2.Text = tblSpl.Rows(0).Item("NoPhoneKontak")
       Baru.Text = "Rubah"
       Baru.Focus()
     End If
 Catch ex As Exception
     MsgBox(ex.Message)
 End Try
End Sub

Sub CrInisial()
   aksara = 1
   Inis = Mid(NmSpl.Text, aksara, 1)
   Do While Not aksara = Hrf
      If Mid(NmSpl.Text, aksara, 1) = " " Then
         aksara = aksara + 1
         Inis = Inis & Mid(NmSpl.Text, aksara, 1)
      Else
         aksara = aksara + 1
      End If
      If aksara >= Hrf Then
         Inis2 = Mid(Inis, 1, 3)
         Tid.Text = Inis2
         Exit Sub
      End If
   Loop
End Sub

Sub Cari_Kode_SPL()
 cn = New SqlConnection(String.Format("Data Source={0};Initial Catalog=NamaDatabase; _
        Integrated Security=True", "./SQLEXPRESS"))
 cn.Open()
 Dim strSemen As String = ""
 Dim strIsi As Single
 Try
    cmd = New SqlCommand("select Top 1 from DbSupplier WHERE ID = '" & Inis2 & _
                  "' order by KodeSupplier desc", cn)
    rdr = cmd.ExecuteReader
    If rdr.Read Then
       strSemen = Mid(rdr.Item("KodeSupplier"), 5, 4)
       strIsi = Val(strSemen) + 1
       If strIsi < 10 Then BKdSpl.Text = Inis2 & "-000" & strIsi  
       If strIsi > 9 And strIsi < 100 Then BKdSpl.Text = Inis2 & "-00" & strIsi  
       If strIsi > 99 And strIsi < 1000 Then BKdSpl.Text = Inis2 & "-0" & strIsi  
       If strIsi > 999 And strIsi < 10000 Then BKdSpl.Text = Inis2 & "-" & strIsi  
       If strIsi > 9999 Then
          MsgBox("Data Supplier sudah penuh, rubah data Supplier yang sudah tidak aktif !")
       End If
    Else
       BKdSpl.Text = Inis2 & "-0001"
       cn.Close()
    End If
 Catch ex As Exception
    BKdSpl.Text = Inis2 & "-0001"
    cn.Close()
 End Try
End Sub

Bagi yang kurang jelas bisa menulis di komentar,.. semoga membantu !

Mengolah Data Access dengan VB Net

noreply@blogger.com (Heri Hasan) — Sat, 29 Oct 2016 19:59:00 +0700

VB Net mampu mengolah berbagai jenis data, namun yang sering digunakan adalah SQL Server, MySQL dan Access, kali ini saya berbagi code mengolah data access (Northwind.accdb). Baik tidak banyak basa-basi, codenya saya tampilkan sebagai berikut :

Imports System.Data.OleDb       ' menggunakan MS Access database
 
Public Class Form1
    Const CONN_STRING As String = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=D:\Databases\AccessDatabases\Northwind.accdb;" &
                            "Persist Security Info=False;"
 
    Private bs As New BindingSource
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        With DGV
            '.Dock = DockStyle.Fill
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = True
            .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
            .Anchor = (AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom)
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
            .BorderStyle = BorderStyle.Fixed3D
            .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
            .ReadOnly = True
            .ColumnHeadersDefaultCellStyle.Font =
                New Font(.ColumnHeadersDefaultCellStyle.Font, FontStyle.Bold)
        End With
    End Sub
 
    Memasang filter dan mengurut database untuk ditampilkan di datagridview.
    Private Sub SearchToolStripButton_Click(sender As Object, e As EventArgs) 
        Handles SearchToolStripButton.Click
        Dim query As String = "SELECT Company, [Last Name], [First Name], " &
                                    "[Job Title], [Business Phone], [Fax Number] " &
                                "FROM Customers " &
                                "WHERE [Last Name] Like @p1 " &
                                "ORDER BY [Last Name], [First Name];"
 
        Try
            Using con As New OleDbConnection(CONN_STRING)
              Using cmd As New OleDbCommand(query, con)
             ' ANSI-89 wildcard character is the asterisk (*).
             ' ANSI-92 wildcard characters is the percent sign (%).
              cmd.Parameters.AddWithValue("@p1", LastNameToolStripTextBox.Text & "%")
              con.Open()
              Using rdr As OleDbDataReader = cmd.ExecuteReader
                If rdr.HasRows Then
                   bs.DataSource = rdr
                   InquiryDGV.DataSource = bs
                Else
                   MessageBox.Show("Search criteria yielded no records.",
                                  Me.Text,
                                  MessageBoxButtons.OK,
                                  MessageBoxIcon.Information)
                End If
              End Using
             End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message,
                            Me.Text,
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Error)
        End Try
        LastNameToolStripTextBox.SelectAll()
        LastNameToolStripTextBox.Focus()
End Sub
End Class

Saya tidak merasa pintar, maka dari itu jika ada kekurangan dalam kesederhanaan code, mohon berbagi informasi di kolom komentar.

Menampilkan Data Script ke Datagrid

noreply@blogger.com (Heri Hasan) — Sat, 29 Oct 2016 19:44:00 +0700

Imports System Imports System.Drawing 
Imports System.Windows.Forms 
Public Class Form1 
Inherits System.Windows.Forms.Form 
Private buttonPanel As New Panel 
Private WithEvents KontakDataGridView As New DataGridView 
Private WithEvents addNewRowButton As New Button 
Private WithEvents deleteRowButton As New Button

Private Sub Form1_Load(ByVal sender As System.Object, _ 
 ByVal e As System.EventArgs) Handles MyBase.Load 
Tampilan_Form() 
    Tentukan_DataGrid() 
    Populasi_Data() 
End Sub 

Private Sub KontakDataGridView_CellFormatting(ByVal sender As Object, _ 
 ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _ 
 Handles KontakDataGridView.CellFormatting 
    If e IsNot Nothing Then 
       If Me.KontakDataGridView.Columns(e.ColumnIndex).Name = _ "Nama Lengkap" Then 
          If e.Value IsNot Nothing Then 
              Try e.Value = DateTime.Parse(e.Value.ToString()) _ 
                   .ToLongDateString() e.FormattingApplied = True 
              Catch ex As FormatException 
                   Console.WriteLine("{0} Penulisan nama tidak benar.", e.Value.ToString()) 
              End Try 
          End If 
        End If 
     End If 
End Sub 

Private Sub addNewRowButton_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles addNewRowButton.Click 
     Me.KontakDataGridView.Rows.Add() 
End Sub 

Private Sub deleteRowButton_Click(ByVal sender As Object, _ 
 ByVal e As EventArgs) Handles deleteRowButton.Click 
    If Me.KontakDataGridView.SelectedRows.Count > 0 AndAlso _ 
       Not Me.KontakDataGridView.SelectedRows(0).Index = _ 
       Me.KontakDataGridView.Rows.Count - 1 Then 
       Me.KontakDataGridView.Rows.RemoveAt( _ 
       Me.KontakDataGridView.SelectedRows(0).Index) 
    End If 
End Sub 

Private Sub Tampilan_Form() 
    Me.Size = New Size(600, 500) 
    With addNewRowButton 
       .Text = "Tambah Baris" 
       .Location = New Point(10, 10) 
    End With 
    With deleteRowButton 
       .Text = "Hapus Baris" 
       .Location = New Point(100, 10) 
    End With 
    With buttonPanel 
       .Controls.Add(addNewRowButton) 
       .Controls.Add(deleteRowButton) 
       .Height = 50 
       .Dock = DockStyle.Bottom 
    End With 
    Me.Controls.Add(Me.buttonPanel) 
End Sub 

Private Sub Tentukan_Datagrid() 
    Me.Controls.Add(KontakDataGridView) 
    KontakDataGridView.ColumnCount = 3 
    With KontakDataGridView.ColumnHeadersDefaultCellStyle 
       .BackColor = Color.Navy 
       .ForeColor = Color.White 
       .Font = New Font(KontakDataGridView.Font, FontStyle.Bold) 
    End With 
    With KontakDataGridView 
       .Name = "KontakDataGridView" 
       .Location = New Point(8, 8) 
       .Size = New Size(500, 250) 
       .AutoSizeRowsMode = _ 
        DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders 
       .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single 
       .CellBorderStyle = DataGridViewCellBorderStyle.Single 
       .GridColor = Color.Black .RowHeadersVisible = False 
       .Columns(0).Name = "Nama Lengkap" 
       .Columns(1).Name = "Alamat" 
       .Columns(2).Name = "No.Phone" 
       .Columns(2).DefaultCellStyle.Font = _ 
        New Font(Me.KontakDataGridView.DefaultCellStyle.Font, FontStyle.Italic) 
      .SelectionMode = DataGridViewSelectionMode.FullRowSelect 
      .MultiSelect = False 
      .Dock = DockStyle.Fill 
    End With 
End Sub 

Private Sub Populasi_data() 
Dim row0 As String() = {"Dadang", "Jalaksana", "01234567890"} 
Dim row1 As String() = {"Dedeng", "Jeleksene", "11111111111"} 
Dim row2 As String() = {"Diding", "Jiliksini", "22222222222"} 
Dim row3 As String() = {"Dodong", "Joloksono", "33333333333"} 
Dim row4 As String() = {"Dudung", "Juluksunu", "44444444444"} 
     With Me.KontakDataGridView.Rows 
       .Add(row0) 
       .Add(row1) 
       .Add(row2) 
       .Add(row3) 
       .Add(row4) 
     End With 
     With Me.KontakDataGridView 
       .Columns(0).DisplayIndex = 0 
       .Columns(1).DisplayIndex = 1 
       .Columns(2).DisplayIndex = 2 
     End With 
End Sub

Public Shared Sub Main() 
   Application.EnableVisualStyles() 
   Application.Run(New Form1()) 
End Sub 
End Class

Demikian semoga membantu, untuk lebihnya silahkan tambah kurang / rubah sesuai kebutuhan. Hasilnya akan tampil seperti gambar dibawah ini, jika dijalankan.

Mencatat Interaksi User Program

noreply@blogger.com (Heri Hasan) — Sat, 29 Oct 2016 11:05:00 +0700

Setiap user yang diberikan kewenangan untuk mempergunakan program komputer (Pengolahan Data Khususnya), sering tidak terkontrol data yang ada diapain oleh user. Dengan ini saya memperkenalkan cara mencatat interaksi user (diutamakan pada eksekusi Login, Perubahan Data dan Penghapusan Data). Database menggunakan SQL SERVER dan bentuk source code VB Net nya seperti ini :

Buat Modul
Buat Form
Buat Table (saya beri nama Logs, silahkan terserah keinginan) dengan Fields (UserID, Date, Operation)

Code untuk di Modul :

 Imports System.Data.Sql  
 Module Module1  
 Public con As SqlConnection  
 Public tuser, UserAksi As String  
 Public Sub Koneksi()  
  con = New SqlConnection("Integrated Security=SSPI;" &amp; _  
              "Persist Security Info=True;" &amp; _  
              "UID=sa;PWD=xxxxxxx;" &amp; _  
              "Initial catalog=datakamu;"&amp; _  
              "data source=NamaServer/SQLEXPRESS")  
  Try  
   If con.State = ConnectionState.Closed Then  
   con.Open()  
  End If  
  Catch ex As Exception  
   MsgBox("Koneksi tidak ada !", MsgBoxStyle.Critical, "Error Connection")  
   Me.dispose()  
   Application.Exit()  
  End Try  
  End Sub  
 Public Sub LogFunc(ByVal tuser As String, ByVal tdesc As String)  
  Try  
   Koneksi()  
   sql = "insert into Logs(UserID,Date,Operation) VALUES (@d1,@d2,@d3)"  
   cmd = New SqlCommand(sql, con)  
   cmd.Parameters.AddWithValue("@d1", tuser)  
   cmd.Parameters.AddWithValue("@d2", System.DateTime.Now)  
   cmd.Parameters.AddWithValue("@d3", tdesc)  
   cmd.ExecuteReader()  
   con.Close()  
  Catch ex As Exception  
   MsgBox("Data Log tidak dapat diakses !", vbOKOnly, "Error Koneksi")  
   Exit Sub  
  End Try  
  End Sub   
 End Module

Kemudian buat form seperti dibawah ini :

 Private Sub frmlog_Load(sender As System.Object, e As System.EventArgs) _  
 Handles MyBase.Load  
    tuser = "Nama User" 'sesuai user pada saat login  
    SimpleButton1.Enabled = False  
    tampil_Data_Log() 'Menampilkan data Log ke GridControl  
 End Sub

Ada permintaan pada saat form aktif (Tampilkan Data Log ke Gridcontrol) kodenya dibawah ini :

 Sub tampil_Data_Log()  
 Dim Da As SqlDataAdapter  
 Try   
   Koneksi()  
   Da = New SqlDataAdapter("SELECT * FROM Logs order by Date", con)  
   ds = New DataSet  
   ds.Clear()  
   Da.Fill(ds, "Logs")  
   GridControl1.DataSource = (ds.Tables("Logs"))  
   GridControl1.Enabled = True  
   GridView1.BestFitColumns()  
   Da.Dispose()  
   con.Close()  
 Catch ex As Exception  
   MsgBox("Load Data Log tidak dapat diakses !", vbOKOnly, "Error Koneksi")  
   Exit Sub  
  End Try  
 End Sub

Untuk menghapus Data Log bila sudah terlalu lama / banyak. Klik ganda pada simplebutton1. Lalu masukkan kode dibawah ini :

 Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) _  
 Handles SimpleButton1.Click  
     Dim result As System.Windows.Forms.DialogResult  
     result = MessageBox.Show("Yakin Data Log Pengguna : " + 
              TextEdit1.Text &amp; " Akan Dihapus?",   
              "Konfirmasi", MessageBoxButtons.OKCancel, 
               MessageBoxIcon.Warning)  
     If result = System.Windows.Forms.DialogResult.OK Then  
       Dim SQLCmd As New SqlCommand  
       sql = String.Format("Delete from Logs where UserID='{0}'", TextEdit1.Text)  
       Try  
         Koneksi()  
         SQLCmd.Connection = con  
         SQLCmd.CommandType = CommandType.Text  
         SQLCmd.CommandText = sql  
         SQLCmd.ExecuteNonQuery()  
         SQLCmd.Dispose()  
         con.Close()  
         ' Nyatakan bentuk /peritah Interaksi pada array "UserAksi"  
         UserAksi = String.Format("Menghapus Data Log pada jam {0}", Format(Date.Now, "HH:mm:ss"))  
         LogFunc(tuser, UserAksi) 'Penggunaan Rekam Interaksi  
         TextEdit1.Text = ""  
         SimpleButton1.Enabled = False  
         tampil_Data_Log()  
       Catch ex As Exception  
         MsgBox("Data Log gagal dihapus !")  
         Exit Sub  
       End Try  
     End If  
   End Sub

Klik Ganda pada GridControl masukkan kode dibawah ini :

Private Sub GridControl1_DoubleClick(sender As System.Object, e As System.EventArgs)
Handles GridControl1.DoubleClick
    TextEdit1.Text = GridView1.Columns.View.GetFocusedRowCellValue("UserID").ToString
    SimpleButton1.Enabled = True
End Sub

Terakhir kode untuk eksekusi menutup Form :

Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs)
Handles SimpleButton2.Click
        Me.Close()
End Sub

Demikian share saya untuk rekam data interaksi user program.

Perintah Olah Data SQL Server

noreply@blogger.com (Heri Hasan) — Mon, 10 Oct 2016 22:47:00 +0700

Berbagi sedikit tentang Perintah Database SQL Server, karena sedikit banyaknya Perintah Database SQL Server ini akan berguna, khususnya bagi pemula yang ingin membuat program berbasis Database menggunakan SQL Server. Berikut ini perintah-perintah SQL pada Database SQL Server. Materi pelatihan berupa contoh-contoh perintah SQL dasar mulai dari CREATE, SELECT, UPDATE, DELETE, sampai PROCEDURE dan TRIGGER.

Membuat Database

CREATE DATABASE GMComputindo

Menghapus Database

DROP DATABASE GMComputindo

Menggunakan Database

USE GMComputindo

Membuat Tabel

CREATE TABLE Karyawan(
nip nvarchar(50) NOT NULL, 
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL,
PRIMARY KEY (nip))

CREATE TABLE jabatan(
idjabatan nvarchar(50) NOT NULL PRIMARY KEY, 
namajabatan nvarchar(200) NULL)

Menambah Kolom pada tabel

ALTER TABLE Karyawan ADD idjabatan nvarchar(50) NULL

Menambah Data

INSERT INTO Karyawan (nip, nama, alamat, tgllahir, tunjangan) VALUES
('222', 'Dewi', 'Solo', '1983-02-20', 1500000);

Merubah data (UPDATE)

UPDATE Karyawan SET nip = '333', nama = 'Dr. Asri', alamat = 'Jogja', 
tgllahir = '1984-03-14', tunjangan = 2000000 WHERE nip = '222'

Menghapus Data

DELETE FROM Karyawan WHERE nip = '222'

Memfilter Data dengan Klausa WHERE

SELECT * FROM Karyawan WHERE nip = '111' 
SELECT * FROM Karyawan WHERE nama = 'Hasan'
SELECT * FROM Karyawan WHERE nama LIKE '%Hasan%'
SELECT * FROM Karyawan WHERE tunjangan = 1000000
SELECT * FROM Karyawan WHERE tunjangan >= 1000000
SELECT * FROM Karyawan WHERE tunjangan <= 1000000
SELECT * FROM Karyawan WHERE tunjangan IS NULL
SELECT * FROM Karyawan WHERE NOT tunjangan IS NULL
SELECT * FROM Karyawan WHERE tunjangan > 10000 AND alamat LIKE '%Yogya%'
SELECT * FROM Karyawan WHERE tgllahir > '1980-12-27'

Fungsi Menambah Tanggal atau Mengurangi Tanggal dengan Hari, Bulan, atau Tahun

SELECT nip,DATEADD(day,30,TglLahir) AS Kadaluarsa FROM Karyawan 
SELECT nip,DATEADD(day,-30,TglLahir) AS Kadaluarsa FROM Karyawan
SELECT nip,nama,DATEADD(year,60,TglLahir) AS Pensiun FROM Karyawan
SELECT nip,nama,tgllahir FROM Karyawan WHERE GETDATE() > DATEADD(day,30,tgllahir)

Menggabungkan Dua Buah Tabel dengan Penggabungan Biasa

SELECT * FROM Karyawan, jabatan WHERE karyawan.idjabatan = jabatan.idjabatan>

Menggabungkan Dua Buah Tabel dengan JOIN

SELECT * FROM karyawan JOIN jabatan ON karyawan.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan LEFT JOIN

SELECT * FROM karyawan LEFT JOIN jabatan ON karyawan.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan RIGHT JOIN

SELECT * FROM karyawan RIGHT JOIN jabatan ON karyawan.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan FULL JOIN

SELECT * FROM karyawan FULL JOIN jabatan ON karyawan.idjabatan = jabatan.idjabatan

Menghapus Kolom dalam suatu Tabel ALTER TABLE karyawan

DROP COLUMN idjabatan

Membuat Tabel dengan Foreign Key

CREATE TABLE karyawan( nip nvarchar(50) NOT NULL, 
nama nvarchar(200) NULL, 
alamat text NULL, 
tgllahir datetime NULL, 
tunjangan float NULL, 
PRIMARY KEY (nip) , 
CONSTRAINT fk_kryjab FOREIGN KEY (idjabatan) 
REFERENCES jabatan(idjabatan))

Mengubah kolom Tabel dan menambahkan Foreign Key setelah Tabel dibuat.

ALTER TABLE karyawan ADD idjabatan nvarchar(50) 
ALTER TABLE karyawan ADD 
CONSTRAINT fk_kryjab 
FOREIGN KEY (idjabatan) 
REFERENCES jabatan(idjabatan)

Mengetes Foreign Key sudah Bekerja atau Belum

UPDATE karyawan SET idjabatan = 'KEP' WHERE nip = '111' 
UPDATE karyawan SET idjabatan = 'MANN' WHERE nip = '222' 
UPDATE karyawan SET idjabatan = NULL WHERE nip = '111' 
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP' 
UPDATE jabatan SET idjabatan = 'STF' WHERE idjabatan = 'STA' 
UPDATE statement conflicted with the FOREIGN KEY constraint "fk_kryjab"

Menghapus Foreign Key

ALTER TABLE karyawan DROP CONSTRAINT fk_kryjab

Menambah Foreign Key dengan On Update Cascade

ALTER TABLE karyawan ADD CONSTRAINT fk_kryjab 
FOREIGN KEY (idjabatan) 
REFERENCES jabatan(idjabatan) 
ON UPDATE CASCAD

Mengetes Foreign Key dengan Cascade Update

UPDATE jabatan SET idjabatan = 'KPL' 
WHERE idjabatan = 'KEP'

Menghapus Foreign Key

ALTER TABLE karyawan DROP CONSTRAINT fk_kryjab

Menambah Foreign Key dengan On Delete Cascade

ALTER TABLE karyawan 
ADD CONSTRAINT fk_kryjab 
FOREIGN KEY (idjabatan) 
REFERENCES jabatan(idjabatan) 
ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade

Delete DELETE jabatan WHERE idjabatan = 'KPL'

Menambah Foreign Key dengan Cascade Delete dan Cascade Update

ALTER TABLE karyawan 
ADD CONSTRAINT fk_kryjab 
FOREIGN KEY (idjabatan) 
REFERENCES jabatan(idjabatan) 
ON UPDATE CASCADE 
ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade Delete dan Cascade Update

UPDATE jabatan SET idjabatan = 'KPL' 
WHERE idjabatan = 'KEP' 
DELETE jabatan WHERE idjabatan = 'KPL'

Membuat Tabel Baru Untuk Mempraktekkan Gabungan Join 3 Tabel

CREATE TABLE spesialis( idspesialis nvarchar(50) NOT NULL PRIMARY KEY, 
namaspesialis nvarchar(200) NULL)

Menambahkan Kolom pada Tabel

ALTER TABLE karyawan ADD idspesialis nvarchar(50) NULL

Gabungan Join 3 Tabel dengan Cara Sederhana

SELECT * FROM karyawan, jabatan, spesialis 
WHERE karyawan.idjabatan = jabatan.idjabatan 
AND karyawan.idspesialis = spesialis.idspesialis

Join Penggabungan 3 Tabel dengan JOIN

SELECT * FROM karyawan 
JOIN jabatan ON karyawan.idjabatan = jabatan.idjabatan 
JOIN spesialis ON karyawan.idspesialis = spesialis.idspesialis

Menghapus Kolom pada suatu Tabel

ALTER TABLE karyawan DELETE COLUMN idspesialis

Mengubah Tipe data dari suatu Kolom pada Tabel

ALTER TABLE karyawan ALTER COLUMN idspesialis nvarchar(50) NULL

Agregat Penjumlahan, Hitung Baris, Maksimum, Minimum, dan Rata-rata

SELECT SUM(tunjangan), 
MIN(tunjangan), 
MAX(tunjangan), 
COUNT(nip), 
AVG(tunjangan) FROM karyawan

Memberi Nama Kolom dengan Klausa AS

SELECT SUM(tunjangan) as total FROM karyawan

Menjumlahkan Tunjangan Per Jabatan

SELECT idjabatan, SUM(tunjangan) as total 
FROM karyawan GROUP BY idjabatan

Menampilkan Tunjangan dan Total Semua Tunjangan karyawan dengan SubQuery

SELECT nip, tunjangan, 
(SELECT SUM(tunjangan) as total FROM karyawan 
WHERE idjabatan = d.idjabatan) FROM karyawan

Menampilkan Tunjangan dan Persentase terhadap Total Semua Tunjangan karyawan dengan SubQuery

SELECT nip, (tunjangan/(SELECT SUM(tunjangan) 
FROM karyawan WHERE idjabatan = d.idjabatan))*100 as persentase 
FROM karyawan d

Menampilkan karyawan dengan Persentase terhadap Total Semua Tunjangan karyawan yang lebih dari 30% per Jabatan dengan SubQuery

SELECT nip FROM karyawan d WHERE (tunjangan/(SELECT SUM(tunjangan) 
FROM karyawan WHERE idjabatan = d.idjabatan))*100 > 30

Menampilkan Beberapa karyawan dengan Klausa IN

SELECT nip, nama FROM karyawan d WHERE nip IN (‘001’,’002’,’003’)

Menampilkan karyawan dengan Tunjangan Terbesar dengan IN

SELECT nip, nama FROM karyawan d 
WHERE nip IN (SELECT TOP 3 * FROM karyawan ORDER BY tunjangan DESC)

Daftar Semua Teman karyawan sama spesialis dari 2 orang karyawan spesialis yg mempunyai tunjangan terbesar

SELECT nip, nama FROM karyawan WHERE idspesialis 
IN (SELECT TOP 2 idspesialis FROM karyawan ORDER BY tunjangan DESC)
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM karyawan)) * 100 
AS persentase, tunjangan FROM karyawan 
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM karyawan)) * 100 
AS persentase, tunjangan FROM karyawan 
WHERE ((tunjangan / (SELECT SUM(tunjangan) FROM karyawan)) * 100) > 30

Contoh lain SubQuery Berlapis-lapis

SELECT * FROM (SELECT nip, nama, 
(tunjangan/(SELECT SUM(tunjangan) FROM karyawan)) * 100 AS persentase, 
tunjangan FROM karyawan) d WHERE d.persentase > 30 SELECT nip, nama, 
(tunjangan / (SELECT SUM(tunjangan) FROM karyawan) 
WHERE idspesialis = d.idspesialis) * 100 AS persentase, tunjangan FROM karyawan d

Mengkopi suatu Tabel ke Tabel lain atau Memasukkan hasil Query menjadi sebuat Tabel Temporary

SELECT * INTO backupkaryawan FROM karyawan 
SELECT * FROM backupkaryawan DROP TABLE backupkaryawan

Membuat Tabel untuk Backup Data

CREATE TABLE backupkaryawan( 
id int NOT NULL PRIMARY KEY IDENTITY, 
waktu datetime NULL, 
nip nvarchar(50) NULL, 
nama nvarchar(200) NULL, 
alamat text NULL, 
tgllahir datetime NULL, 
tunjangan float NULL)

Menggandakan Tabel ke Tabel Backup atau Memasukkan hasil sebuah Query ke Tabel Backup

INSERT INTO backupkaryawan (
waktu, nip, nama, alamat, tgllahir, tunjangan) 
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan 
FROM karyawan SELECT * FROM backupkaryawan

Membuat Stored Procedure CREATE PROCEDURE sp_totaltunjangan AS

SELECT SUM(tunjangan) AS total FROM karyawan

Menjalankan Stored Procedure

EXECUTE sp_totaltunjangan

Membuat Stored Procedure dengan Parameter Masukan

CREATE PROCEDURE sp_totaljabatan 
@idjab nvarchar(50) AS SELECT SUM(tunjangan) AS total 
FROM karyawan WHERE idjabatan = @idjab

Menjalankan Stored Procedure dengan Parameter Input

EXECUTE sp_totaljabatan 'KEP'

Membuat Stored Procedure dengan Parameter Input dan Output

CREATE PROCEDURE tertinggiterendah 
@idjab varchar(10), 
@tunjtertinggi float 
OUTPUT, @tunjterendah float 
OUTPUT AS SELECT @tunjtertinggi=(SELECT MAX(tunjangan) 
FROM karyawan 
WHERE idjabatan = @idjab) 
SELECT @tunjterendah=(SELECT MIN(tunjangan) 
FROM karyawan 
WHERE idjabatan = @idjab)

Menyiapkan Parameter dan Memanggil Stored Procedure yang Menggunakan Parameter Input Output

DECLARE @idjabcari varchar(10); 
DECLARE @hsltertinggi float; 
DECLARE @hslterendah float; 
SET @idjabcari='MAN' 
EXECUTE tertinggiterendah @idjab=@idjabcari, @tunjtertinggi=@hsltertinggi 
OUTPUT, @tunjterendah=@hslterendah 
OUTPUT SELECT @hsltertinggi AS "tertinggi", @hslterendah AS "terendah"

Menambah Kolom pada Tabel untuk mempraktekkan Trigger

ALTER TABLE jabatan ADD totaltunjangan float NULL;

Mengetes perintah SUM

SELECT SUM(tunjangan) FROM karyawan WHERE idjabatan = ‘MAN’

Mengetes perintah SubQuery untuk Mengupdate Semua Baris dalam Suatu Tabel

UPDATE jabatan SET totaltunjangan = (SELECT SUM(tunjangan) 
FROM karyawan d WHERE d.idjabatan = jabatan.idjabatan) SELECT * FROM jabatan

Membuat Trigger untuk Mengupdate Total Tunjangan ketika Ada Tunjangan Diubah, Ditambah atau Dihapus

CREATE TRIGGER updatetotaltunjangan 
ON karyawan AFTER INSERT, UPDATE, DELETE AS BEGIN UPDATE jabatan 
SET totaltunjangan = (SELECT SUM(tunjangan) FROM karyawan d 
WHERE d.idjabatan = jabatan.idjabatan) END;

Mengubah kolom bertipe TEXT menjadi bertipe NVARCHAR agar bisa dipakai di Trigger

ALTER TABLE karyawan ALTER COLUMN alamat nvarchar(1000) NULL 
ALTER TABLE backupkaryawan 
ALTER COLUMN alamat nvarchar(1000) NULL

Membuat Trigger untuk Membackup Data yang Dihapus (Deleted)

CREATE TRIGGER backupdelete ON karyawan 
AFTER DELETE AS BEGIN INSERT INTO backupkaryawan(
waktu, nip, nama, alamat, tgllahir, tunjangan) 
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan 
FROM deleted; END;

Mengetes Trigger untuk Membackup Data yang Dihapus (Deleted)

SELECT * FROM karyawan; DELETE FROM karyawan WHERE nip='444'; 
SELECT * FROM backupkaryawan;

Mengembalikan Data karyawan yang Telah Dihapus

INSERT INTO karyawan (nip, nama, alamat, tgllahir, tunjangan) 
SELECT TOP 1 nip, nama, alamat, tgllahir, tunjangan FROM backupkaryawan 
WHERE nip='444' ORDER BY waktu DESC

Membuat Trigger untuk Membackup Data yang Diedit (Updated)

CREATE TRIGGER backupupdate ON karyawan 
AFTER UPDATE AS BEGIN 
INSERT INTO backupkaryawan (waktu, nip, nama, alamat, tgllahir, tunjangan) 
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan FROM updated; END;

Membuat Trigger untuk Membackup Data yang Ditambahkan (Inserted)

CREATE TRIGGER backupinsert ON karyawan AFTER INSERT AS BEGIN 
INSERT INTO backupkaryawan (waktu, nip, nama, alamat, tgllahir, tunjangan) 
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan FROM inserted; END;

Semoga postingan ini mengenai Perintah Database SQL Server dapat bermanfaat.

Aplikasi Penjualan

noreply@blogger.com (Heri Hasan) — Sat, 8 Oct 2016 20:21:00 +0700

Dalam pembangunan aplikasi mengacu kepada standarisasi manajemen bidangnya. Yang kami jelaskan disini adalah bidang penjualan, secara standard adalah mengolah data mulai dari Supplier, Master Barang dan Stock Barang. Sementara dilengkapi dengan Transaksi Pembelian, Penjualan dan Return.

Standard yang kami maksud disini adalah menangani olah data tersebut diatas tanpa ada olah data sirkulasi keuangan namun hanya mengolah sirkulasi data barang saja.

Logika standar Olah data penjualan bilamana :

Melakukan transaksi pembelian maka stock barang bertambah
Melakukan transaksi penjualan dan atau Return maka stock barang berkurang.

Dilengkapi dengan modul :

Supplier Autocode
Master Barang Autocode
Stock Barang kode barang ikut sesuai master barang
Bill / Nota AutoNumber

Pengembangan bisa kami buat sesuai permintaan, apabila pengguna ingin secara lengkap dengan mengolah data sirkulasi keuangannya.

Modul tambahan (Pengembangan) yang kami akan jelaskan pada permintaan Toko Al-Fatih adalah :

Olah Data Member
Stock Barang AutoBarcode

Report Kas (Pengeluaran VS Penjualan)
Penjualan untuk Member

Adapun Output/Laporan - laporan :

Laporan Penjualan Harian
Laporan Pengeluaran Harian
Laporan Kas
Nota Kontan
Processing Order
Form Return Item

Aplikasi ini dibangun menggunakan Microsoft Visual Studio dan menggunakan data SQL Server 2012.

Semoga pengantar yang singkat ini dapat difahami dan diucapkan terimakasih kepada yang sudah menggunakan jasa kami.

Bagi yang mau menggunakan aplikasi bisa di

Besarnya file download = 624.18 Kb

Besarnya File setelah Extract = 1,7 Mb

Besarnya file setelah Install = 2,8 Mb

Cara Sehat menata Data Stock Barang dalam aplikasi

noreply@blogger.com (Heri Hasan) — Mon, 4 Jul 2016 13:26:00 +0700

Saya membaca dari beberapa pertanyaan yang ada di facebook "Grup VB Net", bahwa Design DB terkadang bingung harus bagaimana untuk bisa sesuai dengan kondisi suatu aturan perusahaan.

Salah satu kasus yang terjadi :

Bagaimana bila Type bisnis barang konsinyasi / tidak ?
Bagaimana Stock berkurang /tidak saat terjadi transaksi penjualan ?
Barang type konsinyasi kapan dimasukkan ke stock ?
Bagaimana jika ada masuk barang yang sama tapi beda supplier sekaligus beda type bisnis barangnya ?

Kita urut satu-persatu untuk ketertiban Identitas barangnya.

Buat Kode SUPPLIER

Kode supplier sangat penting untuk mendampingi kode barang, hal ini untuk memudahkan Identifikasi barang, siapa yang memasok (Supplier darimana dan Siapa).

Struktur variable / fields nya cukup sederhana atau sesuaikan dengan kebutuhan.

- Kode Supplier

- Nama Supplier

- Alamat Supplier

- No Phone Supplier

- Nama Kontak

Misalnya :
Nama Supplier PT. ANGIN RIBUT diberi kode supplier adalah PAR01

Nama Supplier PT. ANGIN SEPOYY diberi kode Supplier adalah PAS01

Buat Kode Barang untuk MASTER BARANG.

Kode Barang ini yang akan digabung dengan kode supplier, strukturnya secara sederhana

- Kode Barang

- Nama Barang

- Satuan

- Harga Beli

- Harga Jual

- Stock Minimal

- Konsinyasi (Ya / Tidak)

Misalkan saya buat 2 nama barang yang sama dan beda type :

*Kode barang harus PRYMARY INDEX dan auto increment

Nama Barang = Papan penolak angin ribut

Kode Barang = 001 (Menyediakan spasi 999 record jika terjadi input untuk barang yang sama)

Konsinyasi = Ya

Nama Barang = Papan penolak angin ribut

Kode Barang = 002

Konsinyasi = Tidak

Buat Kode Barcode di STOCK BARANG

- Kode Supplier (Boleh dibuat boleh tidak)

- Kode Barang (Boleh dibuat boleh tidak)

- Kode Barcode (Gabungan dari Kode Supplier + Kode Barang Master)

- Nama Barang

- Satuan

- Harga Beli

- Harga Jual

- Stock Minimal

- Stock Akhir

- Konsinyasi (Ya / Tidak)

Saat input stock barang kode barcode adalah gabungan dari Kode Supplier + Kode Barang Master, maka jika ada barang sama masuk tapi beda supplier, data akan menjadi :
Kode barcode = PAR01001 >>> Identifikasi :
Barang dari PT. Angin Ribut, Jenis Barang = Papan penolak angin ribut, Konsinyasi = Ya

Kode barcode = PAS01002 >>> Identifikasi :
Barang dari PT. Angin Sepoyy, Jenis Barang = Papan penolak angin ribut, Konsinyasi = Tidak

Pertanyaan : Bagaimana jika PT. Angin Ribut mempunyai barang yang sama, masuk bersama-sama, namun separuh jumlah supply Konsinyasi, lalu separuh jumlah tidak. (Ini jarang terjadi, namun kita buat seolah akan terjadi).

Jawab : Tinggal Input di Stock Barang, dengan Kode Barcode PAR01002 dan Konsinyasi Tidak, lalu tentukan Quantitasnya.

Terlihat dengan Nama Barang yang sama, lalu Supplier Beda dan Type Bisnisnya Beda.

Kode Barcode = PAS01001 ??? masih bisa mngingatkah ?
Kode Barcode = PAR01002 ???
Kode Barcode = PAS01002 ???......... pasti masih ingat bukan ?
Lalu coba tebak jika ada Kode Barcode PAR01001 ?

Mudah-mudahan dengan singkat saya jelaskan diatas dapat difahami.

Selanjutnya untuk apa ada Stock minimal baik di master barang maupun di stock barang ?

Jawab : Di Master Barang hanya untuk memudahkan saat input ke Stock Barang bahwa identitas barang lebih dari satu syarat kriteria identitasnya dan di stock barang untuk kontrol disaat melakukan transaksi penjualan.

Bilamana Stock Akhir lebih kecil (<) dari Stock Minimal, maka aplikasi harus memberikan informasi sekaligus menanyakan, misalnya :
PAR01001, Stock minimal = 5, Stock Akhir 7, lalu saat transaksi terjual 3, maka stock akhir = 4.

Pesan aplikasi :
"Stock Papan penolak angin ribut tinggal 4, apakah mau di order ? "
Jika ya >>> Rekam ke Data Order,........ Jika tidak abaikan.

Hal ini untuk memudahkan saat mau belanja tidak bongkar-bongkar atau menghitung masuk gudang mencari-cari barang yang akan dibeli, cukup mencetak data order, itulah barang yang kurang. Tinggal menambah item jika mau ada yang dibeli baru atau dikurangi jika perlu dan tinggal menentukan quantity ordernya sesuai pengetahuan selama berjualan, apakah barang tersebut Slow moving atau fast moving.

Lalu kapan stock barang ini di input, karena terganggu oleh type bisnis barang itu sendiri. ?
Jawabannya : Setiap barang masuk gudang / display, maka sebelumnya harus masuk stock. Jika Stock barang tidak terinput, maka saat terjadi penjualan karena type bisnis barangnya konsinyasi, perusahaan seolah memberi peluang kepada pegawai untuk melakukan KORUP. (Ada yang bilang ini menyalahi aturan)

Demikian Cara Sehat menata Data Stock Barang dalam aplikasi, lain waktu saya sambung kembali..

Mudah-mudahan ada yang berkomentar untuk menambahkan / memberikan solusi yang terbaik.

Adobe Photoshop CC 2015 portable overview

noreply@blogger.com (Heri Hasan) — Mon, 4 Apr 2016 22:53:00 +0700

Adobe Photoshop adalah aplikasi yang perlu diperkenalkan seperti yang telah digunakan secara luas untuk mengedit dan meningkatkan gambar . Dampak dari Adobe Photoshop adalah seperti yang mengedit foto telah diberi photoshopped jangka . Adobe Photoshop sejak diluncurkan pertama telah datang dalam berbagai versi dan Adobe Photoshop CC 2015 adalah yang terbaru yang telah mendapat alat-alat canggih untuk bekerja dengan gambar . Anda juga dapat men-download Adobe Photoshop CC 2015.

Adobe Photoshop CC 2015 Portable Technical Setup Details
Software Full Name: Adobe Photoshop CC 2015 Portable
Setup File Name: Adobe_Photoshop_CC_2015_FULL_Portable.exe
Full Setup Size: 485 MB
Setup Type: Offline Installer / Full Standalone Setup
Compatibility Architecture: 32 Bit (x86) / 64 Bit (x64)
Latest Version Release Added On: 09th Feb 2016
License: Free Trial
Developers: Adobe Photoshop CC 2015 Portable Homepage

Fix It Utility

noreply@blogger.com (Heri Hasan) — Mon, 4 Apr 2016 22:05:00 +0700

Fix It Utilities Profesional Gratis Download versi terbaru untuk windows. Sedang offline penuh installer standalone setup atau memperbaikinya profesional utilitas.

Perbaiki - itu Utilities Professional adalah perangkat lunak yang kuat yang memberikan Anda dengan berbagai alat yang meningkatkan kinerja PC Anda . Hal ini juga melindungi komputer Anda dari ancaman dan entitas berbahaya . Saat ini ada banyak pengembang yang menyediakan komputer Anda alat optimasi dan perlindungan dari ancaman tapi Fix- it Utilities Professional adalah sesuatu yang sangat langka dan sangat berharga . Anda juga dapat men-download.

Fix-it Utilities Professional Technical Setup Details

Software Full Name: Fix It Utilities Professional
Setup File Name: Fix-It_Professional_ENU_15.0.32.28.exe
Full Setup Size: 70 MB
Setup Type: Offline Installer / Full Standalone Setup
Compatibility Architecture: 32 Bit (x86) / 64 Bit (x64)
Latest Version Release Added On: 3rd Dec 2015
License: Free Trial
Developer : Fix it Homepage

Operating System: Windows XP/Vista/7/8/10

Memory (RAM): 256MB

Hard Disk Space: 40MB

Processor: Intel Pentium III or faster

Fix It Utility Download now

Aplikasi Bengkel

noreply@blogger.com (Heri Hasan) — Mon, 28 Mar 2016 22:11:00 +0700

Aplikasi olah data bengkel yang saya buat mengolah data Service kendaraan dan penjualan sparepart, dengan identitas konsumen adalah Nomor Polisi (Kendaraan).

Transaksi konsumen terrinci menjadi 2 (dua) bagian yaitu : Suku Cadang dan Jasa (Ongkos Kerja).

Konsumen dapat dijadikan member bengkel untuk mengolah perhitungan, apabila bengkel akan memberikan service (Bonus) kepada konsumen misalnya 3 (lima) kali ganti oli dapat bonus Kanebo.

Di Blog ini tidak saya jelaskan secara detail mengenai aplikasi ini, namun bisa di download petunjuk kerja / cara pakai aplikasi ini.

Gambar dibawah ini salah satu output aplikasi berupa Bill atau Nota transaksi :

Lebih jelas dapat dibaca pada petunjuk olah data, silahkan download

Contoh Aplikasinya seperti ini

Source code Form Login

noreply@blogger.com (Heri Hasan) — Mon, 28 Mar 2016 19:53:00 +0700

Perintah Koneksi Database

Perintah Saat aktif form

Perintah Masuk Login

Perintah meng-update data user

Maaf source codenya saya buat dalam versi gambar, ini adalah suatu pembelajaran buat anda, agar terbiasa membuat code dengan cara mengetik, bukan copas,.. :)

Cara membuat form login

noreply@blogger.com (Heri Hasan) — Mon, 28 Mar 2016 19:39:00 +0700

Form login (ijin akses) biasanya dibuat sebagai pintu gerbangnya sebuah program, jika ijin masuk diterima / sesuai dengan aturan, maka akan diteruskan ke form Utama.

Ujicoba form login bisa tanpa database, dengan database Access, database SQL atau MySql.

Membuat Project VB NET

noreply@blogger.com (Heri Hasan) — Mon, 28 Mar 2016 19:36:00 +0700

Project VB adalah nama file yang akan terbentuk oleh Visual Studio saat kita membuatnya yang dapat dikurangi atau ditambah sesuai kebutuhan pembangunan program itu sendiri. Sementara output dari project tersebut akan berdiri sendiri dengan extensi "exe" setelah di build yang berada pada Subdirektory "bin\Debug"

Mencatat Interaksi User Program

noreply@blogger.com (Heri Hasan) — Fri, 9 Oct 2015 01:58:00 +0700

Setiap user yang diberikan kewenangan untuk mempergunakan program komputer (Pengolahan Data Khususnya), sering tidak terkontrol data yang ada diapain oleh user.
Dengan ini saya memperkenalkan cara mencatat interaksi user (diutamakan pada eksekusi Login, Perubahan Data dan Penghapusan Data).
Database menggunakan SQL SERVER dan bentuk source code VB Net nya seperti ini :

Buat Modul
Buat Form
Buat Table

(saya beri nama Logs, silahkan terserah keinginan) dengan Fields (UserID, Date, Operation)

Imports System.Data.Sql
Module Module1
Public con As SqlConnection
Public tuser, UserAksi As String

Public Sub Koneksi()
 con = New SqlConnection("Integrated Security=SSPI;" & _
 "Persist Security Info=True;" & _
 "UID=sa;PWD=xxxxxxx;" & _
 "Initial catalog=datakamu;"& _
 "data source=NamaServer/SQLEXPRESS")
 Try
   If con.State = ConnectionState.Closed Then
      con.Open()
   End If
 Catch ex As Exception
   MsgBox("Koneksi tidak ada !", MsgBoxStyle.Critical, "Error Connection")
   Me.dispose()
   Application.Exit()
 End Try
 End Sub

Public Sub LogFunc(ByVal tuser As String, ByVal tdesc As String)
 Try
   Koneksi()
   sql = "insert into Logs(UserID,Date,Operation) VALUES (@d1,@d2,@d3)"
   cmd = New SqlCommand(sql, con)
   cmd.Parameters.AddWithValue("@d1", tuser)
   cmd.Parameters.AddWithValue("@d2", System.DateTime.Now)
   cmd.Parameters.AddWithValue("@d3", tdesc)
   cmd.ExecuteReader()
   con.Close()
 Catch ex As Exception
   MsgBox("Data Log tidak dapat diakses !", vbOKOnly, "Error Koneksi")
   Exit Sub
 End Try
End Sub 
End Module

Konfigurasi SQL Server agar terbaca Client

noreply@blogger.com (Heri Hasan) — Wed, 8 Jul 2015 08:39:00 +0700

Banyak yang bertanya tanya, bagaimana sih koneksi ke database server untuk database SQL Server. Pada postingan ini akan saya jelaskan cara termudah untuk mengkoneksikan aplikasi kita ke database SQL Server yang berada di komputer server kita.

Sebelum memulai siapkan virtual box untuk komputer client anda yang nantinya akan melakukan koneksi ke database yang berada di server. Atau jika terdapat 2 komputer anda dapat mempraktekan langsung melewati koneksi peer to peer atau dalam 1 jaringan.

Pada post ini kita akan menggunakan protocol Named Pipe untuk melakukan koneksi dari client ke server. Sedangkan untuk database engine yang akan diguakan adalah SQL Server 2012 Express. Asumsikan PC sever menggunakan IP Address : 192.168.1.1 dan PC Client mengugnakan IP Address : 192.168.1.10 Entah bagai mana caranya pastikan 2 komputer anda dapat terhubung. Lakukan ping dari komputer client ke komputer server, jangan ikuti petunjuk dibawah ini jika belum sukses namun jika ping sukses ikuti petunjuk-petunjuk dibawah ini :

1. Konfigurasi Pada PC Server

a. Konfigurasi Service

Untuk melakukan konfigurasi server pertama, buka SQL Server Configuration Manager Start - >All Program -> Microsoft SQL Server 2012 -> Configration Tools -> SQL Server Configuration Manager

Setelah terbuka jendela ‘SQL Server Configuration Manager’ Pilih Tree dengan nama ‘SQL Server Service’ pastikan service ‘SQL Server’ dan juga ‘SQL Server Browser’running. Secara default untuk service SQL Server Browser tidak aktif/running. Untuk membuat service tersebut running dan akan running secara otomatis ketika PC Server dinyalakan. Klik kanan Service ‘SQL Server Browser’ pilih properties, setelah muncul dialog baru, pilih ‘Tab Service’, ubah ‘Start Mode’ menjadi ‘Automatic’ lalu pada tab Log On ubah tekan tombol ‘Start’. Jika selesai maka pada Icon ‘SQL Server Browser’ akan memiliki Segitiga Hijau seperti service ‘SQL Server’.

2. Konfigurasi Client Protocol

Pastikan Client Protocol ‘Named Pipes’ pada ‘Sql Native Client Configuration’ dan ‘SQL Server Network Configuration’ adalah Enable.

SQL Native Client 10.0 Configuration (32bit) dan juga SQL Native Client 10.Configuration :

SQL Server Network Configuration :

Jika ditemui kondisi status ‘Named Pipes’ =’ Disabled’ maka cukup klik kanan ‘Name Pipes’ dan pilih ‘Enable’.

3. Konfigurasi Lanjut

Setelah selesai pada tahap a dan b diatas, buka ‘SQL Server Management Studio’
Start ->All Program -> Microsoft SQL Server 2012 -> SQL Server Management Studio kemudian masuk ke ‘Database Enggine’ anda. Setelah masuk ke Management Studio, klik kanan ‘Database Enggine’ anda, kemudian pilih properties. Setelah muncul jendela baru pilih ‘Page Security’ kemudian ubah Server Authentication menjadi SQL Server and Windows Authentication Mode’ anda tidak dapat melakukan koneksi ke server dari pc client menggunakan Integrated Security=TRUE, maka dari itu perlu untuk mengubah Authentication tersebut dan juga membuat satu user untuk login ke Database Enggine ini, untuk membuat user akan dibahas kemudian.

4. Koneksi Data

Setelah selesai, masuk ke ‘Page Connections’ perhatikan checkbox ‘Allow remote connection to this Server’ dan pastikan tercentang.

Allow remote connection to this server

Setelah semua selesai tekan ok untuk menyimpan perubahan.

Membuat User Untuk Masuk Ke Database Enggine

Karena kita tidak dapat konek ke database jika string koneksi pada PC Client seperti ini :

Data Source =.\SQLEXPRESS;Initial Catalog=Database_Anda;Integrated Security=TRUE;

Atau yang lebih sering saya gunakan :

Server=.\SQLEXPRESS;Database=Database_Anda;Integrated Security=TRUE;

Maka untuk client string koneksi harus seperti ini :

Data Source=192.168.1.1\SQLEXPRESS;Initial Catalog=Database_Anda; User ID=Username_Anda;Password=Password_Anda;

5. Matikan Firewall

Untuk tutorial kali ini kita matikan saja Firewall PC Server anda. Atau anda dapat juga membuat exception pada Firewall anda. Untuk mematikan Firewall masuk ke‘Control Pannel’dan pilih ‘Windows Firewall’ lalu pilih ‘Turn Windows Firewall On or Off’ lalu tekan OK.

Sekian Tutorial yang cukup panjang dari saya. Saya harap mudah dipahami karena banyaknya gambar yang di tampikan yang akan membantu anda memahami tutorial ini.

Aplikasi Olah Data Kepemilikan Lahan/Tanah

noreply@blogger.com (Heri Hasan) — Tue, 6 Jan 2015 15:24:00 +0700

Pengolahan data Kepemilikan lahan/tanah yang ada di Desa umumnya disebut DATA PERSIL, menurut keterangan dari pihak Desa sudah berumur puluhan tahun, namun belum ada perbaikan baik secara manual (Buku) maupun Elektronik (Digital).

Kami termotivasi oleh keadaan tersebut sehingga kami ciptakan system atau aplikasi untuk mengolah data tersebut.

Gambaran pengolahan datanya kami rinci sebagai berikut :

Data dapat dikoneksikan secara Online atau Offline

Jika untuk mengolah data sementara, baiknya menggunakan aplikasi secara offline.

Namun jika sudah benar-benar lengkap, untuk perubahan data baiknya menggunakan OnLine

**Off Line Data berada pada komputer Desa, sedangkan OnLine Data berada pada Server / Kecamatan / Kabupaten (Tergantung permintaan Installasinya)

Pengolahan diteruskan dengan pengisian Peta Hasil Ukur(PHU) dapat menggunakan aplikasi tambahan ArcView atau hasil gambar di scan dengan format jpg, bmp atau png.

Data gambar harus sesuai dengan Nomor Persil, kode persil dan nomor urut, perhatikan gambar diatas.

OUTPUT DAFTAR PERSIL :

Output ini kami sesuaikan dengan format yang sudah ada di Desa.

Cetakan dapat menggunakan parameter/pilihan

OUTPUT PETA :

Peta yang diarsir, adalah lokasi yang dimaksud pada Legenda.

Skala1 : 200 artinya 1cm pada peta = 2mtr dilapangan.

Bagaimana cara mendapatkan aplikasi ini dengan gratis dan mendapatkan bonus dari kami : Silahkan kunjungi alamat ini

lihat disini Harga Aplikasi ini atau mau langsung Order ?