Oleh: admin | 14/01/2013

Selamat Datang

Jika tujuan Anda untuk Belajar Bahasa Pemrograman Visual,

maka Anda tidak salah alamat …………….

Di Blog ini tersedia Source Code Bahasa Pemrograman Visual

yang mudah dipelajari

untuk Anda programmer pemulah dan Tingkat Lanjut. Jadi ingat,  hanya 

Khusus Programmer Pemula dan Tingkat Lanjut

Untuk menjalankan Source Code Yang ada di Blog ini, Di Komputer Anda harus terinstal Software Visual Basic 6, Visual Foxpro 9 dan Visual Delphi 7 serta didukung Software Lain yaitu CrystalReport 8.5, Active Report dan Component DLL (VB6)

NONTON TV ONLINE
Order Source Code SMS ke : 085756231035
download yuk

Web bisnis online dengan sistim terbaru, KOMISI 100% untuk ANDA

KLIK DISINI UNTUK BACA LEBIH DETAIL AGAR PAHAM


Sebelumnya buat database terlebih dahulu dengan nama dblatihan1 pada Ms.Access 2007. Simpan dengan format 2002-2003, kemudian lanjutkan buat tabel dengan nama tbbarang dengan struktur tabel seperti gambar dibawah ini:

tbbarang

Selanjutnya buat project baru, kemudian rancang form barang seperti dibawah ini:

form barang vbnet 2010

 

Tambahkan model untuk koneksi, masukkan source dibawah ini:

Imports System.Data.OleDb
Module Module1
 Public Conn As OleDbConnection
 Public LokasiDB As String
 Sub Koneksi()
 LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=dblatihan1.mdb"
 Conn = New OleDbConnection(LokasiDB)
 If Conn.State = ConnectionState.Closed Then Conn.Open()
 End Sub
End Module

Selanjutnya, ketik source penyimpan, edit, hapus dan batal dibawah ini:

Imports System.Data.OleDb
Public Class Form1
 Dim da As OleDbDataAdapter
 Dim RD As OleDbDataReader
 Dim ds As DataSet
 Dim CMD As OleDbCommand
 Dim ada1 As Boolean

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Koneksi()
 tampil()
 tidakaktif()
 btnsimpan.Text = "Tambah"
 tutuptombol
 End Sub

 Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
 If btnsimpan.Text = "Tambah" Then
 Call btnbatal_Click(sender, e)
 Exit Sub
 End If
 If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
 MsgBox("Data belum lengkap, Pastikan Kode Admin 6 Digit dan Semua form terisi")
 Exit Sub
 Else
 If ada1 = False Then
 Call Koneksi()
 Dim simpan As String = "insert into tbBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "'," & TextBox3.Text & "," & TextBox4.Text & ",'" & TextBox5.Text & "')"
 CMD = New OleDbCommand(simpan, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
 Call tampil()
 Call btnbatal_Click(sender, e)
 End If
 If ada1 = True Then
 Call Koneksi()
 Dim edit As String = "update tbBarang set NamaBarang='" & TextBox2.Text & "',hargabarang=" & TextBox3.Text & ",jumlahbarang=" & TextBox4.Text & ", satuan='" & TextBox5.Text & "' where KodeBarang='" & TextBox1.Text & "'"
 CMD = New OleDbCommand(edit, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")
 tampil()
 Call btnbatal_Click(sender, e)
 End If
 End If
 End Sub
 Sub tampil()
 da = New OleDbDataAdapter("Select * from tbbarang", Conn)
 ds = New DataSet
 ds.Clear()
 da.Fill(ds, "tbBarang")
 DataGridView1.DataSource = (ds.Tables("tbBarang"))
 DataGridView1.Columns(0).HeaderText = "Kode Barang"
 DataGridView1.Columns(1).HeaderText = "Nama Barang"
 DataGridView1.Columns(2).HeaderText = "Harga Barang"
 DataGridView1.Columns(3).HeaderText = "Jumlah Barang"
 DataGridView1.Columns(4).HeaderText = "Satuan"
 End Sub

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 If e.KeyChar = Chr(13) Then
 'Call Koneksi()
 CMD = New OleDbCommand("Select * from tbBarang where kodebarang='" & TextBox1.Text & "'", Conn)
 RD = CMD.ExecuteReader
 RD.Read()
 If Not RD.HasRows Then
 tutuptombol()
 ada1 = False
 TextBox2.Text = ""
 TextBox3.Text = ""
 TextBox4.Text = ""
 TextBox5.Text = ""
 TextBox2.Focus()
 Else
 ada1 = True
 bukatombol()
 TextBox2.Text = RD.Item("NamaBarang")
 TextBox3.Text = RD.Item("hargabarang")
 TextBox4.Text = RD.Item("jumlahbarang")
 TextBox5.Text = RD.Item("satuan")
 End If
 End If
 End Sub

 Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

 Call Koneksi()
 CMD = New OleDbCommand("Select * from tbBarang where kodebarang='" & TextBox1.Text & "'", Conn)
 RD = CMD.ExecuteReader
 RD.Read()
 If Not RD.HasRows Then
 tutuptombol()
 ada1 = False
 bersih()
 TextBox2.Focus()
 Else
 bukatombol()
 ada1 = True
 TextBox2.Text = RD.Item("NamaBarang")
 TextBox3.Text = RD.Item("hargabarang")
 TextBox4.Text = RD.Item("jumlahbarang")
 TextBox5.Text = RD.Item("satuan")
 TextBox2.Focus()
 End If

 End Sub
 Private Sub bersih()
 TextBox2.Text = ""
 TextBox3.Text = ""
 TextBox4.Text = ""
 TextBox5.Text = ""
 End Sub
 Private Sub tidakaktif()
 TextBox2.Enabled = False
 TextBox3.Enabled = False
 TextBox4.Enabled = False
 TextBox5.Enabled = False
 End Sub
 Private Sub aktif()
 TextBox2.Enabled = True
 TextBox3.Enabled = True
 TextBox4.Enabled = True
 TextBox5.Enabled = True
 End Sub
 Private Sub bukatombol()
 btnedit.Enabled = True
 btnhapus.Enabled = True
 End Sub
 Private Sub tutuptombol()
 btnedit.Enabled = False
 btnhapus.Enabled = False
 End Sub
 Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
 btnsimpan.Text = "Tambah"
 bersih()
 tidakaktif()
 tutuptombol()
 TextBox1.Enabled = True
 TextBox1.Focus()
 End Sub

 Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
 aktif()
 btnedit.Enabled = False
 TextBox1.Enabled = False
 TextBox2.Focus()
 btnsimpan.Text = "Simpan"
 End Sub

 Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
 If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
 Dim hapus As String = "delete * from tbBarang where KodeBarang='" & TextBox1.Text & "'"
 CMD = New OleDbCommand(hapus, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
 Call tampil()
 Call btnbatal_Click(sender, e)
 Exit Sub
 Else
 Call btnbatal_Click(sender, e)
 Exit Sub
 End If
 End Sub
End Class

Hasilnya seperti berikut:

form barang vb 2010

Semoga bermanfaat,,, dapatkan source code lebih banyak untuk vbNet (2008,2010) DISINI.

2 (dua) bulan gak posting lagi, lagi lagi karena agenda padat :) :). Posting kali ini menjawab pertanyaan teman yang menanyakan “cara menampilkan fhoto/gambar dari database pada crystal report 8.5

gambar di crystal report

Yuk download video caranya dari pakar VB6 langsung, KLIK DISINI.

source code sms gatewayTak terasa berjalannya waktu, 8 (delapan) bulan lamanya saya tidak lagi memposting artikel di blog ini. Agenda yang padat itulah penyebabnya.

Ok, kali ini saya memposting artikel source code sistem informasi nilai sekolah berbasis SMS Gateway.  Source code ini bukan buatan saya. Beberapa fasilitas yang ada didalamnya yaitu:

1.  Login. user: 123 pasword: 123

2.  Data Siswa

3. Data Nilai

4. Kirim SMS per kelas, mata pelajaran dan jenis ulangan.

5. Pengaturan User

6. Laporan pesan masuk, pesan terkirim, dan nilai.

7. Setting SMS Gateway (ON/OFF)

Sisfo ini sangat menarik. Dapat anda gunakan sebagai referensi pembelajaran untuk Tugas Akhir atau Project anda yang lain. Disini saya hanya membagikan informasinya tuk anda. Link downloadnya, KLIK DISINI

Oleh: admin | 25/02/2014

menjawab pertanyaan member [koneksi]

Sudah lama kayanya saya tidak posting lagi. Hari ini saya posting seputar pertanyaan member sourcecode dan jawabannya. Ini salah satunya:

pertanyaanKarena kesibukkan saya, maka baru kemarin saya menjawabnya. Jawaban ini sesuai file project yang dikirimkan ke saya.

1.  Buat modul koneksi. Berikut sourcenya:


Public Koneksi As New ADODB.Connection
Public Rssiswa As New ADODB.Recordset
Public Rslogin As New ADODB.Recordset
Public Rstampil As New ADODB.Recordset
Public pathh As String

Sub BukaDatabase()

On Error GoTo PesanError

Set Koneksi = New Connection

pathh = frmDb.txtPath.Text

With Koneksi
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathh & ";Persist Security Info=False"
.Open
End With

Rssiswa.Open "[siswa]", Koneksi, adOpenDynamic, adLockOptimistic
Rslogin.Open "[login]", Koneksi, adOpenDynamic, adLockOptimistic

PesanError:
Select Case Err.Number
Case -2147467259
MsgBox "File database sudah tidak ada pada folder instalasi", vbInformation, "Peringatan"
End
'Exit Sub
End Select
End Sub

2.  Source pengaturan menu utama


Private Sub DATASISWA_Click()
Frminput.Show
End Sub

Private Sub MDIForm_Load()
INPUTD.Enabled = False
MLOGOUT.Enabled = False
End Sub

Private Sub MKONEKSI_Click()
frmDb.Show
End Sub

Private Sub MLOGOUT_Click()
INPUTD.Enabled = False
MKONEKSI.Enabled = True
MLOGOUT.Enabled = False
Koneksi.Close
End Sub

3.  Buat form masukkan database. Berikut sourcenya:


Private Sub cmdLoad_Click()
BukaDatabase
frmlogin.Show
Unload Me
End Sub
Private Sub cmdbrowse_Click()
On Error Resume Next
dlgPath.Filter = "File database (mdb)|*.mdb"
dlgPath.ShowOpen
txtPath.Text = dlgPath.FileName
cmdLoad.Enabled = True
End Sub

Private Sub Form_Load()
cmdLoad.Enabled = False
End Sub

Lebih lengkap, download PROJECTnya DISINI.

Sebenarnya hal ini sudah banyak dimuat di blog-blog yang lain. Supaya menambah keragaman, maka saya publish source code hasil modifikasi saya untuk anda.
Untuk menggunakan source code ini dikomputer anda harus diinstal aplikasi mysql-connector-odbc-3.51.28-win32. Kemudian buat 1 modul baru untuk menempatkan sourcecode koneksi database mysql dibawah ini

Public koneksi As Connection
Public Konek As String
Public Buka As Boolean
Dim Rssiswa As New ADODB.Recordset
Sub BukaDatabase()
On Error GoTo PesanError
   ' svr, db, us, pass adalah variabel
   ' buat 1 form tuk login dan gunakan variabel tersebut
   ' sebagai media inputan
    svr = "localhost"
    db = "privat"
    us = "root"
    pass = ""

   '---------------------------------------------------
    Konek = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & svr & _
            ";PORT=3306;" & _
            "DATABASE=" & db & _
            ";USER=" & us & _
            ";PASSWORD=" & pass & _
            ";OPTION=3;"
    Set koneksi = New Connection
    koneksi.CursorLocation = adUseClient
    koneksi.Open Konek
   '---------------------------------------------------
    Rssiswa.Open "select * from tblsiswa;", koneksi, adOpenDynamic, adLockOptimistic
    '--------------------------------------------------------------------------------
    Buka = False
PesanError:
Select Case Err.Number
Case 0
Exit Sub
Case -2147467259
MsgBox "Koneksi Gagal ! Periksa settingan ODBCnya!", , "Peringatan"
End
Exit Sub
Case Else
MsgBox "Nomor Error : " & Err.Number & Chr(13) & _
"Deskripsi Error : " & Err.Description
Resume Next
Exit Sub
End Select
End Sub

Lebih lengkap silahkan download source codenya disini.

Aplikasi ini saya buat menggunakan Bahasa Pemrograman Visual Basic 6.0 dengan Database Ms. Access 2003 serta laporannya menggunakan CrystalReport 8.5. Source code ini cocok bagi programmer pemula dan tingkat lanjut. Berikut screenshootnya :

Ribbon Office 2007 vb6

Sudah hampir 1 bulan saya gak posting artikel source code. Kali ini saya posting sebuah source code membuat menu utama dengan tampilan ribbon office 2007 dengan visual basic 6 seperti gambar diatas. Source codenya mudah untuk anda pelajari dan kembangkan. Untuk tempat download source codenya KLIK DISINI.

Older Posts »

Kategori

Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.