.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Cara Membuat Chart / Grafik PHP dengan Mudah

0 komentar
setelah lama sharing yang udah jadi-jadi. kali ini mau share tulisan saya lagi. yaitu e-book. gemblung
seperti judulnya, yaitu membuat chart atau grafik di php dengan mudah dengan bantuan libchart.
contoh hasil jadinya
gimana ? cukup keren kan :D
untuk peralatannya silahkan download disini (lib chart)
yang lainnya seperti APACHE dan code editor silahkan search di google.
jika sudah. silahkan unduh, ebook karya saya ini :D

terimakasih :)
Suni

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

0 komentar
Hari ini :

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


Suni

Tawk.to