artikel 22. Koneksi Database pada Delphi

Koneksi Database pada Delphi

Posted by Aa on Nov 28, 2012 in Delphi | 9 comments

kali ini kita akan membahas Bagaimana caranya membuat koneksi ke database pada Delphi.

Fungsi dari mengapa kita membuat koneksi ke database jika kita akan membuat sebuah aplikasi desktop. Tujuannya jika kita melakukan input data pada aplikasi desktop tersebut, data akan tersimpan ke dalam database. Agar data dapat tersimpan kedalam database, kita perlu melakukan koneksi ke database terlebih dahulu.

Tahap awal adalah siapkan terlebih dahulu database dan table yang akan digunakan untuk menampung data yang akan kita input nanti. Berikut ini adalah cara membuat sebuah database dan tabel (dalam hal kita menggunakan Microsoft Access 2003) :

Langkah 1
Buka ms.acces dan tentukan lokasi penyimpanan database (dengan mengklik lambing folder), kemudian pilih format 2003 , lalu klik create :

Langkah 2
Buat table dengan klik kanan tabel -> pilih desain view -> save tabel dengan nama : tb_barang ->buatlah tabel dengan field-field seperti gambar dibawah ini :

Langkah 3
Selesai membuat table, sekarang coba kita isi data pada tabel secara manual saja, dengan mengklik 2x tb_barang :table, minimal 2 data saja.

Tahap kedua adalah membuka aplikasi Delphi, dan membuat koneksi database pada Delphi dengan menggunakan 3 komponen (AdoConnection, AdoQuery, dan DataSource). Berikut ini adalah langkah-langkahnya :

Langkah 1
Buka aplikasi Delphi -> pilih new project -> vcl form. Kemudian Desain form input data, dan tombol navigasi (text menggunakan label, inputan menggunakan edit, sedangkan tombol navigasi menggunakan Button).

Langkah 2
Selanjutnya tambahkan DBGRIB (terdapat pada komponen data Controls ) untuk menampilkan data yang ada pada database dan masukkan 3 komponen untuk koneksi ke database (AdoConnection : terletak pada komponen DBGO / ADO, AdoQuery : terletak pada komponen DBGO / ADO, dan DataSource terletak pada komponen data Access).

Langkah 3
Langkah berikutnya adalah setting ke-4 komponen diatas agar dapat terkoneksi ke dengan database, berikut ini adalah langkah-langkahnya BGRID

a. Setting AdoConnection

Pada properties yang perlu kita setting adalah Connection String, Login Prompt.

- Klik connection string, lalu klik build,lalu pilih jenis provider yang digunakan, lalu pilih Next, Lalu pilih database yang akan dikoneksikan / digunakan, lalu klik OPEN.

Keterangan :

Microsoft jet 4.0 OLE Provider (untuk database access 2003).

Microsoft Off 12.0 Acces Database Engine OLE DB Provider (untuk Access 2007).

- Kemudian pada properties klik login prompt, lalu pilih false

b. Setting AdoQuery

Pada properties Adoquery yang perlu disetting adalah Connection, SQL, dan Active.

- Klik AdoQuery kemudian pada properties,

- Pilih Connectio : AdoConnection1

- Pilih SQL : select * from barang

- Pilih Active : true

c. Setting Datasource

Pada DataSource yang perlu di setting hanya dataset : adoquery1.

d. Setting DBGRIB

Pada DBGrid yang disetting hanya datasource : datasource1.

Jika ke-4 komponen diatas berhasil anda setting maka pada DBGRID akan tampil data berdasarkan apa yang ada pada database, seperti gambar dibawah ini :

Dalam hal ini jika program tersebut di jalankan maka kitaklik tombol save, datanya belum akan ter-input(masuk ke database), karna kita belum membuat proses utnuk input data ke database.

sumber:http://www.aaezha.com/2012/11/koneksi-database-pada-delphi.html

artikel 21. KALKULATOR SEDERHANA dengan Visual Basic.NET

KALKULATOR SEDERHANA dengan Visual Basic.NET

Component yang akan kita gunakan :

Name                Text
Label1           Angka Pertama
Label2           Operator
Label3           Angka Kedua
Label4           Hasil
Label5           KALKULATOR SEDERHANA
Label6           Perbandingan
TextBox1       Kosongkan
TextBox2       Kosongkan
TextBox3       Kosongkan
ComboBox1    Kosongkan
ComboBox2    Kosongkan
Button1          Hitung
Button2          Perbandingan
Button3          Quit

Berikut desaign formnya :

Logika untuk tombol Perbandingan : jika kita masukan nilai pada textbox Angka Pertama dan Angka Kedua kemudian kita pilih combobox Perbandingan ( =, <>, <, >, <=, dan >= ), dan klik tombol / button Perbandingan, maka akan tampil MsgBox Benar atau Salahnya hasil perbandingan.

Logika untuk tombol Hitung : jika kita masukan nilai pada textbox Angka Pertama dan Angka Kedua kemudian kita pilih combobox Operator (+, -, / , ^, dan mod), dan klik tombol / button HITUNG, maka proses akan ditampilkan hasilnya pada textbox Hasil

Berikut saya tuliskan view code dari program aplikasi kalkulator sederhana tersebut :

Public Class kalkulator

    Private Sub kalkulator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("+")
        ComboBox1.Items.Add("*")
        ComboBox1.Items.Add("-")
        ComboBox1.Items.Add("/")
        ComboBox1.Items.Add("^")
        ComboBox1.Items.Add("Mod")
        ComboBox1.Items.Add("&")
        ComboBox2.Items.Add("=")
        ComboBox2.Items.Add("<>")
        ComboBox2.Items.Add("<")
        ComboBox2.Items.Add(">")
        ComboBox2.Items.Add(">=")
        ComboBox2.Items.Add("<=")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        Select Case ComboBox1.Text
            Case "+"
                c = a + b
            Case "*"
                c = a * b
            Case "-"
                c = a - b
            Case "/"
                c = a / b
            Case "^"
                c = a ^ b
            Case "Mod"
                c = a Mod b
            Case Else
                c = a & b
        End Select
        TextBox3.Text = c
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b As Integer
        Dim c As Boolean
        Dim d As String
        TextBox3.Clear()
        a = TextBox1.Text
        b = TextBox2.Text
        Select Case ComboBox2.Text
            Case "="
                c = a = b
            Case "<>"
                c = a <> b
            Case "<"
                c = a < b
            Case ">"
                c = a > b
            Case ">="
                c = a >= b
            Case Else
                c = a <= b
        End Select
        If c = "True" Then d = "Benar" Else d = "Salah"
        MsgBox("Pernyataan operator perbandingan adalah ? " & d & "", MsgBoxStyle.Information, "Tri Aprila S.Kom")
        TextBox3.Clear()
    End Sub

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

End Class

sumber:http://mugi.or.id/blogs/tri_aprila/archive/2012/01/10/kalkulator-sederhana-dengan-visual-basic-net.aspx

artikel 20. Cara Membuat Chart/Grafik/Kurva Dengan Ms.Chart di VBNET

Cara Membuat Chart/Grafik/Kurva Dengan Ms.Chart di VBNET

Untuk membuat sebuah chart/grafik/kurfa/dll pertama kita harus menentukan dulu komponen apa yang ingin digunakan. Banyak sekali komponen diluar sana dan kebanyakan berbayar (trial/shareware). Kali ini saya akan mencontohkan dengan komponen yang gratis, yaitu MSCHART. Tahapannya adalah:

1.Download MSChart (Setup untuk update Ms.Netframework 3.5 SP1)
2.Download MSChart (Add-On untuk update ToolBox visual studio 2008)
3.Buat project baru, add mschart ke form

Sekarang perhatikan ada 3 hal dasar yang harus diketahui dan difahami yaitu : X, Y dan Series :

Contoh pertama, saya ingin membuat grafik seperti dibawah ini (tanpa database/manual) :

Sintaknya sangat singkat, pertama tambahkan ini dipaling atas :

Imports System.Windows.Forms.DataVisualization.Charting

selanjutnya taruh ini di event form_load() :

        With Chart1 '=Nama Group

            .Series.Clear()

            .Series.Add("Mahasiswa MI")

            'Format Series/Chart

            .ChartAreas(0).AxisX.Interval = 1

            .ChartAreas(0).AxisX.IsStartedFromZero = True

            .Series(0).ChartType = SeriesChartType.Column 'Bentuk chart

            .Series(0).XValueType = ChartValueType.String

            .Series(0).YValueType = ChartValueType.Double

            'Isi Nilai Series/Chart (X,Y)

            .Series(0).Points.AddXY("Matematika", 10)

            .Series(0).Points.AddXY("Akuntansi", 7)

            .Series(0).Points.AddXY("Jaringan", 15)

            .Series(0).Points.AddXY("Algoritma", 5)

        End With

Bentuk chart yang disediakan sangat banyak, contohnya jika saya ubah menjadi :
.Series(0).ChartType = SeriesChartType.Pie 'Bentuk chart
maka akan langsung (otomatis) berubah menjadi :

OK, contoh selanjutnya adalah Multi Series (lebih dari satu) contoh chart-nya seperti dibawah ini :

Untuk sintaknya seperti dibawah ini :

With Chart1 '=Nama Group

            Dim prodi() As String = {"Mahasiswa MI", "Mahasiswa TI"}

            .Series.Clear()

            For i As Integer = 0 To prodi.Length - 1

                .Series.Add(prodi(i))

            Next

            'Format Series/Chart

            .ChartAreas(0).AxisX.Interval = 1

            .ChartAreas(0).AxisX.IsStartedFromZero = True

            For Each seri As Series In .Series

                seri.ChartType = SeriesChartType.Column

                seri.XValueType = ChartValueType.String

                seri.YValueType = ChartValueType.Double

            Next

            'Isi Nilai Series/Chart (X,Y)

            .Series(0).Points.AddXY("Matematika", 100)

            .Series(0).Points.AddXY("Akuntansi", 70)

            .Series(0).Points.AddXY("Jaringan", 45)

            .Series(0).Points.AddXY("Algoritma", 60)

            .Series(1).Points.AddXY("Matematika", 90)

            .Series(1).Points.AddXY("Akuntansi", 25)

            .Series(1).Points.AddXY("Jaringan", 80)

            .Series(1).Points.AddXY("Algoritma", 60)

        End With

 Download contoh mschart full source code

Selain itu juga saya membuat contoh chart yang Realtime dengan menggunakan timer, jadi contoh berikut ini adalah chart yang bergerak/refresh setiap 1 detik sekali, berikut ini screenshot nya :

Download contoh mschart realtime/timer full source code

Dan terakhir saya membuat contoh chart dengan database, seperti biasa saya menggunakan ma.access northwind.accdb. Contoh kasus berikut ini adalah bagaimana cara menampilkan data order product, jadi dari setiap tanggal transaksi akan dihitung berapa quatity order nya. berikut ini screenshot di ms.access nya:

dan ini adalah chart nya :

Download contoh mschart database full source code

Tags:
contoh chart vbnet, download chart ocx, tutorial mschart vbnet, cara membuat grafik chart vbnet, sintak function chart/grafik di vbnet, reference untuk chart vbnet, dll/ocx chart, example chart vbnet, making chart in vbnet, mschart datasource, using mschart in vbnet with datasource database, cara add mschart controls di vbnet, tambah komponen mschart visual basic, membuat laporan dengan mschart vb, reporting with mschart vb.

sumber:http://djiesoft.blogspot.com/2012/10/cara-membuat-chartgrafikkurva-dengan.html

artikel 19. Cara Play Audio (*.wav) dan SystemSound (Beep,Asterisk,Exclamation,Hand,Question) VBNET

Cara Play Audio (*.wav) dan SystemSound (Beep,Asterisk,Exclamation,Hand,Question) VBNET

Kali ini saya posting yang ringan saja, bagaimana cara play sound wav dan play system sound di VBNET dengan mudah ?.Pertama kita bisa pasang systemsound pada aplikasi kita, misalnya saat tekan button, saat text_change dan lain sebainya, systemsound adalah suara default windows seperti bunyi beep, asterik dan sebagainya (contoh jika ada MessageBox suka ada bunyi "Ting"), berikut ini contoh sintaknya :

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep) 'suara beep

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)'suara pesan warning

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question)'suara pesan pertanyaan / yes no / ok cancel

Nah selanjutnya jika ada punya file music dengan type data wav, anda bisa gunakan sintak yang sederhana ini untuk memutar (play dan stop) file tersebut :

My.Computer.Audio.Play("C:\DJIESOFT_files\sample.wav")
Untuk stop gunakan sintak ini :

My.Computer.Audio.Stop()

Tags:

Play wav file in vb.Net,How do I play a .wav file from Resources,Playing sounds in VB.NET,Play A Wav Sound, PlaySound function,Play audio files(.wav) in VB.net , cara play audio vbnet.

sumber:http://djiesoft.blogspot.com/2012/12/cara-play-audio-wav-dan-systemsound.html

artikel 18. Membuat Sub Routin/Procedure/Function Dengan Nama Yang Sama (Same Name) di VBNET

Membuat Sub Routin/Procedure/Function Dengan Nama Yang Sama (Same Name) di VBNET

Tentu anda pernah melihat beberapa methode pada object bisa memiliki parameter yang berbeda beda, maksudnya? saya contohkan saat anda ingin addItem Listview anda dapat banyak pilihan kan? lihatlah gambar dibawah ini :

Nah kita pun bisa membuat sub routin atau function dengan nama yang sama di VBNET, pembeda dari sub routin atau function itu adalah parameternya. Jika Di VB6 ini tidak bisa bisa dilakukan. Saya buat contoh function hitung, dimana satu nama hitung tersebut bisa mengalikan, membagi, menambah, mengurangi nilai. Contoh :

Public Function hitung(ByVal tambah_val1 As Short, ByValtambah_val2 As Short) As Short

        Return tambah_val1 + tambah_val2

End Function

Public Function hitung(ByVal kurang_val1 As Integer, ByValkurang_val2 As Integer) As Integer

        Return kurang_val1 - kurang_val2

End Function

Public Function hitung(ByVal bagi_val1 As Double, ByVal bagi_val2As Double) As Double

        Return bagi_val1 / bagi_val2

End Function

Public Function hitung(ByVal kali_array_val() As Integer) AsInteger

        Dim hasil As Integer = 0

        For Each nilai As Integer In kali_array_val

            hasil = hasil * nilai

        Next

        Return hasil

End Function

Akhirnya saat anda panggil function hitung tersebut, maka anda dapat memiliki banyak pilihan seperti gambar dibawah ini :

 Tags:
cara membuat function multi parameter, how to create sub function , kelebihan membuat sub function du vbnet, make dub function multi parameter, create the same function vbnet, make sub or function with same name vbnet, trik membuat sub function di vbnet.

sumber:http://djiesoft.blogspot.com/2013/01/membuat-sub-routinprocedurefunction.html

artikel 17. Pentingnya Membuat Comment/Komentar Pada Sintak Editor VB/VB.NET

Pentingnya Membuat Comment/Komentar Pada Sintak Editor VB/VB.NET

Saya akan berbagi sedikit tips dalam menulis sintak/coding khususnya vidual basic, hal ini mungkin/biasanya dianggap sepele/kecil tapi sebenarnya sangat berdampak besar yaitu : Comment (komentar) pada editor yang diawali dengan tanda petik 1 ('). Dengan comment ini kita dapat menulis sesuatu dan sesuka hati kita baik itu berupa keterangan tambahan mengenai sintak/logika/variable/date edit,created by dan sebagainya. Misalnya :

'Form Name      : hitung_transaksi

'Function       : Untuk menginput transaksi retur penjualan

'Created by     : djie 2012-09-01

'Last Edited By : pandji 2012-09-05

Public Class Form_Transaksi

  'variable untuk hitung bilangan

        Dim n1 As Integer = 0

        Dim n2 As Integer = 1

     Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As  System.EventArgs) Handles Button1.Click

        'jika kode a maka update qty barang

        ' a adalah barang yang di retur

        If kode = "a" Then

            '...sintak update anda

        Else

            'jika kode <> a maka insert barang baru

            '...sintak insert anda

      End Sub

End Class

Hal ini sangat penting karena misalkan program vb nya sudah selesai dan sudah lama/jarang dibuka lagi (misal 1 bulan/6 bulan/1 tahun), lalu anda ingin mengedit atau menambahkan menu/form/komponen/report baru dan sebagainya, maka jika tanpa adanya Comment anda akan bingung dan meraba raba kembali untuk apa variable ini/itu? bagaimana logikanya? parameternya apa? untuk apa fungsinya dan sebagainya, walaupun dulu anda sendiri yang membuat sintak tersebut (pengalaman sendiri). Selain itu Comment seperti contoh diatas sangat baik dan berguna saat anda membuat project bersama sama (misalnya di kantor/software house) agar mudah difahami oleh orang lain jika anda misalnya sakit/tidak masuk kerja dan bahkan jika anda berhenti bekerja sehingga orang baru (pengganti) akan lebih mudah melajutkan sintak anda karena adanaya Comment yang anda buat.

Tags:
cara membuat comment di vb, fungsi dari comment / komentar pada code editor, tutorial vbnet, cara terstruktur membuat sintak, panduan membuat sintak vbnet.

sumber:http://djiesoft.blogspot.com/2012/09/Pentingnya-Membuat Comment/Komentar-Pada-Sintak-Editor-VB/VB.NET-vbnet.html

artikel 16. Cara Membuat Folder Locker Dengan VBNET

Cara Membuat Folder Locker Dengan VBNET

Banyak sekali software2 diluar sana yang berfungsi untuk mengunci folder (folder locker), tetapi anda pun bisa membuat folder locker sendiri dengan VBNET dan sintaknya pun sangat pendek dan mudah. Dengan seperti ini anda dapat mengunci folder2 rahasi anda (biasanya untuk file2 penting). Saya sudah buatkan contohnya :

Maka jika nanti anda klik folder yang telah terkunci oleh program ini dari windows explorer, maka tidak akan bisa dibuka dan muncul pesan "Access is denied", seperti dibawah ini :

Tetapi jujur saja saya buka sedikit rahasia, sebenarnya masih bisa dibuka dengan mengeset attribut : Special Permission pada user yang bersangkutan (login) dengan cara klik "remove" (special permission harus TIDAK checked).

Untuk orang awam dan orang yang tidak membaca ini dan orang yang tidak suka "ngulik/oprek" maka folder tersebut akan aman aman saja (tetap terkunci). Mungkin anda dapat menambahkan lagi sintak khusus lain pada source code ini untuk membuat program ini menjadi lebih SECURE.

Download full source project

Tags:

cara mengunci folder via vb, lock folder by vb, folder locker software, download folder locker terbaru, sintak/fungsi untuk mengunci folder dan file visual basic

sumber:http://djiesoft.blogspot.com/2012/09/cara-membuat-folder-locker-dengan-vbnet.html