Hari Ke Sembilan PKL "Menerima Login Dari Client Server Mencari Nama dan Database"

Dari database yang sudah kita buat pada hari ke Empat, Untuk aplikasi ini adalah dari client mengirim data nama dan pasword Untuk login , data diterima Server kemudian server memroses dan mencari apakah Nama dan pasword yang dikirim ada di database atau tidak, jika nama dan pasword salah maka serever akan menolak dan Client tidak dapat masuk atau melanjutkan ke Proses berikutnya (CHAT).

Aplikasi tersebut dibuat pada VB6 dengan tampilan dan koding berikut:
Pada Project kita membutuhkan
1. adodc
2. Dua Text Box
3. Satu winsock
4. Satu data Grid
 dapat dilihat pada gambar:

 kemudian masukkan source code berikut:
Option Explicit
Private intSockCnt As Integer ' mendeklarassikan sebagai integer karena menyatakan jumlah
Private Sub Form_Load()
With wnsck(0)
   .Close            ' setelah winsock conneck lalu ditutup agar tidak terjadi eror
    .LocalPort = 70
       .Listen            ' menerima data yang masuk
          End With
              form1.Refresh
End Sub

Private Sub wnsck_ConnectionRequest(Index As Integer, ByVal requestID As Long)
       intSockCnt = intSockCnt + 1        ' jika ada klient masuk/conect lebih dari satu maka winsock+1
             Load wnsck(intSockCnt)             ' memanggil winsock
                wnsck(intSockCnt).Accept requestID ' winsock menerima permintaan sambungan dari klient
End Sub

Private Sub wnsck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   Dim strData As String
   Dim vector() As String
   Dim intcnt As Integer
 
       For intcnt = 1 To intSockCnt 'memanggil winsock untuk setiap klient yang login
         Next intcnt
           wnsck(Index).GetData strData, vbString ' mengambil data dari klient
              vector() = Split(strData, ",") ' membagi data
       Text1.Text = ""
       Text2.Text = ""

        Text1.Text = vector(1) & " "

         Adodc1.Recordset.MoveFirst
         Adodc1.Recordset.Find "nama = '" & vector(1) & "'" ' mencari nama di database
         Adodc1.Recordset.Find "ID = '" & vector(2) & "'" ' mencari id di data base
          If Adodc1.Recordset.EOF Then ' jika data tidak ditemukan maka server mengirim "login,fail"
           wnsck(Index).SendData ("login,fail;")
            Else
              wnsck(Index).SendData ("login,ok;") ' data ditemukan

    End If
    End If 
End Sub

 Private Sub wnsck_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
          MsgBox ("Eror!" & vbCrLf & Description) 'jika terjadi eror akan keluar msgbox eror
      End Sub
source code ini masih dalam proses pengerjaan, nanti jika semua sudah fiks akan saya berikan bentuk jadinya dalam bentuk rar, jadi temen2 tinggal download aja...