Mengimport Database MySQL ke Hosting - Bagian-02

Setelah sukses dengan pendaftaran yang diposting disini, mari kita lanjutkan latihan pembuatan website dengan memanfaatkan script PHP serta database MySQL yang sudah ada (kunjungi sumber).

Pertama yang harus kita lakukan adalah mendownload seluruh file di bawah ini:

• database.zip
• muhdela01.zip
• muhdela02.zip

selanjutnya ekstraklah file database.zip, kemudian masuk ke control panel dengan mengklik icon Go to CPanel seperti yang terdapat pada gambar di bawah ini:

Gambar: Icon cPanel 000webhost.com

selanjutnya Anda akan dibawa ke halaman kontrol panel. Klik icon menu yang bertuliskan phpMyAdmin seperti pada gambar di bawah ini:

Gambar: Icon menu phpMyAdmin

tahap berikutnya adalah membuat database, klik terlebih dahulu tautan yang bertuliskan MySQLManagement seperti yang terdapat pada gambar di bawah ini:

Gambar: Tautan MySQLManagement

isi form yang terdapat pada gambar di bawah ini dengan nama user, nama database, dan password database. Harap diingat bahwa seluruh data situs e-Learning yang akan Anda buat akan disimpan disini.

Gambar: Form pengisian untuk pembuatan database

setelah seluruh textbox pada form di atas diisi maka klik tombol Create database, dan hasilnya tampak seperti gambar di bawah ini:

Gambar: nama database, nama user, dan nama hosting

kemudian kita kembali ke phpMyAdmin dan klik icon menu phpMyAdmin:

Gambar: phpMyAdmin

dilanjutkan dengan mengklik tautan Enter phpMyAdmin seperti pada gambar di bawah ini:

Gambar: Tautan Enter phpMyAdmin

Gambar: Halaman phpMyAdmin

tampak pada gambar di atas, kita telah memiliki database tetapi tidak memiliki tabel satupun alias tabelnya masih kosong, maka klik tab Import, dan lakukan pengimporan database dengan mengklik tombol Choose File dan pilihlah file database (dbmuhdela.sql) yang telah diekstrak tadi. Klik tombol Go, maka hasilnya tampaknya seperti pada gambar di bawah ini:

Gambar: Tabel-tabel database yang diperlukan oleh situs

Selamat! sampai disini kita telah menyelesaikan dua tahap (seluruhnya ada 3 tahap):

1. Pendaftaran
2. Import database
3. Konfigurasi untuk menghubungkan situs dengan database
4. Selesai, situs sudah bisa digunakan

Mengenai tahap ke-3 (konfigurasi untuk menghubungkan situs dengan database), maka akan dibahas pada posting selanjutnya (Insya Allah), sedangkan tahap ke-4 (selesai, situs sudah bisa digunakan) tidak akan dibahas lebih lanjut, karena memang sudah selesai. Semoga bermanfaat.

 

READ MORE - Mengimport Database MySQL ke Hosting - Bagian-02

Membuat WebSite/Situs di 000WebHost - Bagian-01

Mengenai cara membuat website atau situs di 000WebHost - Pertama yang harus kita lakukan adalah mendaftar di 000WebHost. Adapun langkah-langkah untuk mendaftar adalah sebagai berikut:

• Buka 000WebHost klik disini
• Selanjutnya kita akan bertemu dengan halaman ini. Klik tombol Sign-Up.

Gambar: 000WebHost Sign-Up

• Setelah meng-klik tombol Sign-Up, maka kita akan bertemu dengan halaman ini:

Gambar: Form yang harus diisi pada saat pendaftaran

Penjelasan cara pengisian:

• Pada gambar di atas ada dua pilihan pengisian nama domain, seperti gambar di bawah ini:

Gambar: 000WebHost, pilihan domain berbayar atau gratis

• Isi pada baris pertama (I want to host my own domain) jika Anda sudah memiliki domain berbayar/terdaptar
• Isi baris kedua (or, I will choose your free subdomain (recommended)) jika Anda belum memiliki domain (gratis, disarankan)
• Your name = di isi dengan nama Anda
• Your email (account details will be sent there) = diisi dengan alamat email Anda.
• Password (at least 6 symbols, both letters and numbers) = diisi dengan password Anda yang digunakan untuk login ke 000WebHost. Password merupakan campuran angka dan huruf minimal 6 karakter.
• Type password again = diisi dengan cara mengetik ulang password yang tadi telah ditulis
• Beri centang pada tulisan I agree to Terms Of Service
• Terakhir adalah klik tombol Create My Account
• Jika pada pengisian di atas tidak ada yang salah maka Anda akan di bawa ke halaman seperti gambar di bawah ini:

Gambar: 000WebHost, email belum dikonfirmasi

Perhatikan gambar di atas, pada kolom status terdapat tulisan Waiting for email confirmation. artinya Anda belum mengkonfirmasi lewat email, konfirmasilah dengan cara membuka email yang digunakan pada form pengisian di atas, seperti pada gambar di bawah ini:

Gambar: 000WebHost, email konfirmasi

Gambar: 000WebHost, tautan link konfirmasi lewat email

Sekarang buka lagi situs 000WebHost, dan lihat status domain Anda, dan selamat domain Anda sudah aktif, seperti gambar di bawah ini:

Gambar: 000WebHost, domain telah aktif

Selanjutnya buka alamat situs gratisan Anda pada browser (Mozilla Firefox, Internet Explorer, Google Chrome, atau apa saja) dengan cara mengetikan alamat situs Anda pada AddressBar, seharusnya jika sudah aktif gambarnya adalah seperti di bawah ini:

Gambar: 000WebHost, tampilan situs awal setetah aktif

Selanjutnya, apa yang bisa kita perbuat dengan domain gratisan (percobaan) yang sudah aktif tersebut? oh, banyak tentu saja banyak, posting kali ini dicukupkan sekian dulu, semoga bermanfaat. bersambung pada bagian-02

READ MORE - Membuat WebSite/Situs di 000WebHost - Bagian-01

VB6 DataGrid: Mouse Wheel Scroll Horizontal ScrollBar +SHIFT

Jika kita mencari source code untuk men-scroll DataGrid dari atas ke bawah (vertikal) tentu tidak akan kesulitan, tetapi bagaimana jika scroll-nya menyamping dari kiri ke kanan (horizontal) yang disertai dengan menekan tombol SHIFT? Nah, di bawah ini merupakan salah satu contoh source codenya, dengan mengimplentasikan SubClassing menggunakan komponen SSubTmr6.dll seperti yang telah diposting sebelumnya. 

Form:

Option Explicit 
 
Dim WithEvents cMouse As cDataGridScroll 
 
'-------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' menggunakan component VBAccelerator SSubTmr6.dll Steve McMahon 
'-------------------------------------------------------------------------- 
 
Private Sub Form_Activate() 
    If DataGrid1.hWndEditor <> 0 Then cMouse.AttacthHWNDEditor 
End Sub 
 
Private Sub Form_Load() 
    With Adodc1 
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb;Persist Security Info=False" 
        .RecordSource = "Select * from [titles]" 
        .Refresh 
        .Recordset.MoveFirst 
    End With 
    Set DataGrid1.DataSource = Adodc1 
    DataGrid1.Refresh 
    Set cMouse = New cDataGridScroll 
    With cMouse 
        .DataGrid = DataGrid1 
    End With 
End Sub 
 
Private Sub Form_Resize() 
    On Error Resume Next 
    DataGrid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    Set cMouse = Nothing 
End Sub 

Class (cDataGridScroll.cls):

Option Explicit 
 
Implements ISubclass 
 
'-------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' menggunakan component VBAccelerator SSubTmr6.dll Steve McMahon 
'-------------------------------------------------------------------------- 
 
Private Const WM_MOUSEWHEEL = &H20A 
Private Const WHEEL_DELTA = 120 
Private Const MK_SHIFT = &H4 
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal cbSrc As Long) 
 
Public Event MouseScroll(Shift As Integer) 
Private WithEvents dtGrid As DataGrid 
Dim GSubclass As New GSubclass 
 
Public Sub AttacthHWNDEditor() 
    GSubclass.AttachMessage Me, dtGrid.hWndEditor, WM_MOUSEWHEEL 
End Sub 
 
Public Property Let DataGrid(New_DataGrid As DataGrid) 
    Set dtGrid = New_DataGrid 
    GSubclass.AttachMessage Me, dtGrid.hwnd, WM_MOUSEWHEEL 
End Property 
 
Private Property Let ISubclass_MsgResponse(ByVal RHS As SSubTimer6.EMsgResponse) 
' 
End Property 
 
Private Property Get ISubclass_MsgResponse() As SSubTimer6.EMsgResponse 
' 
End Property 
 
Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
    Dim fwKeys As Integer, zDelta As Integer 
    Static intHScroll As Integer 
    Select Case iMsg 
        Case WM_MOUSEWHEEL 
            fwKeys = LoWord(wParam) 
            zDelta = HiWord(wParam) / WHEEL_DELTA 
            'Debug.Print "fwKeys: " & fwKeys 
            'Debug.Print "zDelta: " & zDelta 
            If fwKeys = 4 Then '+SHIFT 
                intHScroll = intHScroll + 1 
                If intHScroll > 5 Then 'memperlambat horizontal scroll 
                    If zDelta > 0 Then 
                       dtGrid.Scroll -1, 0 
                    Else 
                       dtGrid.Scroll 1, 0 
                    End If 
                    intHScroll = 0 
                End If 
            ElseIf fwKeys = 0 Then 
                If zDelta > 0 Then 
                   dtGrid.Scroll 0, -1 
                Else 
                   dtGrid.Scroll 0, 1 
                End If 
            ElseIf fwKeys = 8 Then '+CTRL 'ZOOM 
                If zDelta > 0 Then 
                   dtGrid.Font.Size = dtGrid.Font.Size + 1 
                Else 
                    If dtGrid.Font.Size > 2 Then 
                        dtGrid.Font.Size = dtGrid.Font.Size - 1 
                    End If 
                End If 
            End If 
    End Select 
End Function 
 
Private Sub Class_Terminate() 
    GSubclass.DetachMessage Me, dtGrid.hwnd, WM_MOUSEWHEEL 
    Set GSubclass = Nothing 
    Set dtGrid = Nothing 
End Sub 
 
Function LoWord(ByVal dwDoubleWord As Long) As Integer 
    Call CopyMemory(LoWord, dwDoubleWord, 2) 
End Function 
 
Function HiWord(ByVal dwDoubleWord As Long) As Integer 
    Call CopyMemory(HiWord, ByVal VarPtr(dwDoubleWord) + 2, 2) 
End Function 

READ MORE - VB6 DataGrid: Mouse Wheel Scroll Horizontal ScrollBar +SHIFT

Cara Menggunakan Komponen SubClassing SSubTmr6.dll

SSubTmr6.dll merupakan komponen yang dibuat oleh Steve McMahon. Tujuan utamanya adalah untuk mengimplementasikan subclassing dengan mudah, stabil, dan aman. Selengkapnya bisa Anda baca disini.

Di bawah ini merupakan langkah mudah cara menggunakan komponen subclassing SSubTmr6.dll. Setelah menambahkan referensi dll SSubTmr6.dll (vbAccelerator VB6 Subclassing And Timer Assistant...) selanjutnya, buatlah kerangkan kodenya seperti di bawah ini:

Option Explicit  
 
'--------------------------------------------------------------------------  
' http://khoiriyyah.blogspot.com  
' kerangka kode Subclassing SSubTmr6.dll Steve McMahon  
'--------------------------------------------------------------------------   
Dim GSubclass As New GSubclass  
Implements ISubclass  
  
Private Property Let ISubclass_MsgResponse(ByVal RHS As SSubTimer6.EMsgResponse)  
    'Kode ini boleh dikosongkan tetapi tidak boleh dihapus  
End Property  
  
Private Property Get ISubclass_MsgResponse() As SSubTimer6.EMsgResponse  
    'Kode ini boleh dikosongkan tetapi tidak boleh dihapus  
End Property  
  
Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
    Select Case iMsg  
        Case Message1  
        Case Message2  
        Case Etc  
    End Select  
End Function  
 

Di bawah ini merupakan contoh paling sederhana subclassing menggunakan komponen SSubTmr6.dll. Kode di bawah, digunakan untuk mengganti menu yang ditampilkan pada saat mengklik kanan komponen TextBox standar:

Option Explicit 
  
'--------------------------------------------------------------------------  
' http://khoiriyyah.blogspot.com  
' kerangka kode Subclassing SSubTmr6.dll Steve McMahon  
'--------------------------------------------------------------------------   
Dim GSubclass As New GSubclass  
Implements ISubclass  
  
'message windows yang akan dilampirkan (klik kanan)  
Private Const WM_RBUTTONUP = &H205  
  
Private Property Let ISubclass_MsgResponse(ByVal RHS As SSubTimer6.EMsgResponse)  
    'Kode ini boleh dikosongkan tetapi tidak boleh dihapus  
End Property  
  
Private Property Get ISubclass_MsgResponse() As SSubTimer6.EMsgResponse  
    'Kode ini boleh dikosongkan tetapi tidak boleh dihapus  
End Property  
  
Private Sub Form_Load()  
    'melampirkan message WM_RBUTTONUP-nya Text1 pada komponen      
    GSubclass.AttachMessage Me, Text1.hwnd, WM_RBUTTONUP  
End Sub  
  
Private Sub Form_Unload(Cancel As Integer)  
    'menghilangkan message WM_RBUTTONUP-nya Text1 dari komponen      
    GSubclass.DetachMessage Me, Text1.hwnd, WM_RBUTTONUP  
    Set GSubclass = Nothing 'bersihkan memory  
End Sub  
  
Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
    Select Case iMsg  
        Case WM_RBUTTONUP  
        'tampilkan menu mnuTest pada saat klik kanan di Text1              
        PopupMenu mnuTest  
    End Select  
End Function 

Maka sekarang, pada saat kita mengklik kanan TextBox diganti menjadi seperti gambar di bawah ini:

Gambar: Menu klik kanan default yang terdapat pada TextBox kita ganti dengan menu buatan kita sendiri

READ MORE - Cara Menggunakan Komponen SubClassing SSubTmr6.dll