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


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.

Oleh: admin | 11/11/2013

Source code Aplikasi Pendanaan BOS

aplikasi BOS Karena kesibukan menyelesaikan pekerjaan offline maupun online, jadi gak sempat berbagi source code kepada anda semua.

Hari ini saya berbagi source code yaitu Aplikasi Pendanaan (Penerimaan dan Pengeluaran Dana BOS). Source code ini berasal dari kawan saya sesama pecinta pemrograman visual basic6.

Semoga membantu kawan-kawan yang mungkin sedang membuat program tugas akhir sejenis ini. Dapatkan source codenya DISINI.

Oleh: admin | 23/06/2013

Menambahkan rupiah dalam grid foxpro 9

Ada beberapa pertanyaan via HP yang dikirimkan kepada saya, salah satunya “Bagaimana menambahkan rupiah dalam grid pada foxpro 9″.  Karena kesibukkan yang padat, maka di hari minggu ini saya akan memposting jawabannya. Pertanyaan lain menyusul jawabannya jika ada kesempatan.

rupiahdalamgridfoxproMasukkan coding dibawah ini pada bagian Form – Init

SELECT Gol,’Rp.’ + TRANSFORM(gapok,”9,999,999,999″);
from ;
dbgajipegawai!tblgolongan;
INTO CURSOR tmpby ORDER BY gol
WITH thisform
.grid1.RecordSource=”
SELECT * FROM tmpby INTO CURSOR tmpby1 ORDER BY gol
.grid1.RecordSource=’tmpby1′
ENDWITH

Semoga membantu,,,,

Source code ini berasal dari sahabat sesama programmer yang hobi bahasa pemrograman visual. fitur-fitur lengkap yang berhubungan dengan cuti kepegawaian / karyawan.

ScreenShot004Jika anda pelajar, mahasiswa yang sedang membuat tugas akhir/skripsi yang berhubungan dengan cuti pegawai/karyawan, silahkan download source codenya DISINI.

Semoga bermanfaat,,,

Older Posts »

Kategori

Ikuti

Get every new post delivered to your Inbox.