Minggu, 31 Agustus 2014

Source Code Pendaftaran Member Klub Bola (VB 6 dan MYSQL)



Program Pendaftaran Member Club Bola  adalah salah satu program yang saya buat dengan mengunakan VB 6 dengan database MYSQL. Ya, menggunakan tipe database yang biasanya digunakan untuk Web Programming.  Program ini termasuk jenis program yang sederhana, tetapi tetap komplek seperti program-program lainnya.


Terdiri atas 4 buah tabel antara lain :
TblAnggota, menampung data member yang sudah terdaftar


TblJabatan, menampung data jabatan yang ada di dalam Klub

TblLogin, menampung data siapa saja yang berhak untuk mengakses sistem.


TblPemain, menampung data para pemain barcelona





Untuk menghubungkan VB 6 dengan database MYSQL diperlukan reference Microsoft Activex Data Objects 2.5 Library dan tambahan koding berikut di bagian Modul koneksinya:
Public conn As ADODB.Connection
Public HubungDB As ADODB.Connection
Public sql As String
Public VarUsername As String
Public VarPassword As String
Public rsCari As ADODB.Recordset
Public rsCetak As ADODB.Recordset
Public rsBaca As ADODB.Recordset
Public rsSimpan As ADODB.Recordset
Public rsEdit As ADODB.Recordset
Public rsHapus As ADODB.Recordset


Public Sub Main()
Set conn = New ADODB.Connection

On Error GoTo Kesalahan
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;Mode=ReadWrite;DATABASE=db_Daftar;UID=root;PWD=;PORT=3306;OPTION=3"
Utama.Show
Login.Show vbModal
Pendaftaran.Show
VarUsername = "admin"
Kesalahan:
If Err.Number = -2147467259 Then
    MsgBox "Komputer Server tidak aktif." & Chr(13) & _
    "Aktifkan komputer Server terlebih dahulu." & vbCrLf & _
    "Atau hubungi Administrator", vbExclamation, "Koneksi Error"
End If
End Sub
Pastikan untuk Project -> PrjPendaftaran Propertis -> Start Up Object yang dipilih adalah “Sub Main”
Halaman Utama + Login


masih banyak form lainnya yang belum sempat saya tampilkan karena keterbatasan Quota.
==========================================================================
Buat yang berminat dengan source code diatas, anda bisa memilikinya hanya dengan mengganti biaya pengiriman Rp 50.000,- sudah termasuk bonus-bonus (Installer Vb 6 + Installer Crystal report 8  + Installer SQL SERVER 2000  + Installer VsFlexGrid + Installer XAMPP  +  Installer XtremeSkin  + Installer MySqldb Connector  )

Jumlah yang dibayar adalah Rp 50.xxx dengan xxx diisi dengan 3 digit no hp anda
Transfer ke Rek. BCA  saya : 8200287151 atas nama Dimas Arie P.
 
Format SMS Konfirmasi :
transfer#jumlah yang dibayar#nama di rekening#alamat email

Cth : transfer#50.438#dimas arie p#dimasindigoband@gmail.com

konfirmasi ke 0856 5811 438

Langsung saya kirim paling lambat 2 jam setelah konfirmasi..

Contact Person:
    Ø  085658111438 (Telpon & SMS)
    Ø  dimasindigoband@gmail.com
==========================================================================