Tangisan Hati

Ingin rasa_y q menangisi.....
Q sedih knp nie haruz trjadi,,,
Andai saja bisa terulang kembali
Q tag ingin nie terjadi padaku......

Teramat sakit eang Q rasakan,
pI aQ haruz bsa bErtahan N bersabar
nerima nie semua,,Q tau nIe hanya cObaan
Smga aQ bsa mElewati_y.........

Walaupun Pedih Eang Q
rasakan pi aQ haruz bsa tetap Tersenyum dmn pun
aQ berada N dgn sIapapun,,,...

Q ingin menagis sekuat2nya
pi q g`bsa Q g`tw dmn t4nya Q
mnangis,,.........
bgtu bny eang q pendam,mgkn suatu saat
Q akn mngatakan smw_y,,...........
smga aq bsa,,..............:)

Postingan 2 :

Quis Online 3
 Jawaban No.3(Fitri Suryani)
Kasus Disini


Listing Program
                                          PROGRAM SERVE
Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer

Sub MulaiServer()
        WS(0).LocalPort = 3000
        WS(0).Listen
        cRequest = 1
        ClientIndex = 1
End Sub

Private Sub Form_Load()
        MulaiServer
        GD.Rows = 41
        For i = 1 To 40
            GD.Col = 0
            GD.Row = i
            GD.Text = i
        Next i
        iGD = 1
End Sub

Private Sub Timer1_Timer()

    For i = 1 To GD.Rows - 1
        GD.Row = i
        GD.Col = 4
        If GD.Text = "START" Then
            GD.Col = 3
            GD.Text = Time
        End If
    Next i
End Sub

Private Sub Timer2_Timer()
WS.SendData "PAKAI-" & Pakai.Value & "/" & 3000
End Sub

Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
        Load WS(cRequest)
        WS(cRequest).Close
        WS(cRequest).Accept requestID
        cRequest = cRequest + 1 '
Timer1.Enabled = True
Timer2.Enabled = True

End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
        WS(index).GetData cData, vbString, bytesTotal
        Call CekData(index)
     
End Sub

Sub CekData(index)
        Dim kata() As String
        kata = Split(cData, "-")
        Select Case kata(0)
        Case "START"
                        GD.Row = iGD
                        GD.Col = 1
                        GD.Text = kata(1) 'WS(index).RemoteHostIP
                        GD.Col = 2
                        GD.Text = Time
                        GD.Col = 4
                        GD.Text = "START"
                        GD.Col = 5
                        GD.Text = kata(2)
                        iGD = iGD
        Case "STOP"
            For i = 1 To GD.Rows - 1
                GD.Row = i
                GD.Col = 1
                If GD.Text = kata(1) Then
                        GD.Col = 4
                        GD.Text = "STOP"
                End If
            Next i
        End Select
End Sub
     
Private Sub WS_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)
        WS(index).Close
End Sub


PROGRAM CLIENT

Dim IPS As String
Dim User As String

Private Sub Command1_Click()
    WS.SendData "START-" & User & "-Linda Wati"
End Sub

Private Sub Command2_Click()
    WS.SendData "STOP-" & User
End Sub

Private Sub Form_Load()
    IPS = "127.0.0.1"
    User = WS.LocalIP
    WS.Connect IPS, 3000
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData xKirim, vbString, bytesTotal
Call CheckData
End Sub

Sub CheckData()
xdata1 = Split(xKirim, "-")
xdata2 = Split(xdata1(1), "/")

Select Case xdata1(0)
    Case "PAKAI"
    mulai.Value = xdata2(0)
    selesai.Value = xdata2(1)
    pakai.Value = xdata2(2)
    biaya.Text = (Val(Hour(pakai.Value) * 60) + Val(Minute(pakai.Value) * 50))
    End Select
End sub

Soal Quiz online 2

Postingan Soal Nomr 2
Soal 2

SERVER

MODULE

Public db As New ADODB.Connection

Public rs As New ADODB.Recordset

Public rs2 As New ADODB.Recordset

Public SQL As String

Sub opendb()

    If db.State = adStateOpen Then db.Close

    db.CursorLocation = adUseClient

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Sony\My Documents\belajar server\test2.mdb;Persist Security Info=False"

End Sub

Sub clearform(f As Form)

    Dim ctl As Control

    For Each ctl In f

        If TypeOf ctl Is TextBox Then ctl.Text = ""

        If TypeOf ctl Is ComboBox Then ctl.Text = ""

    Next

End Sub

Sub center(f As Form)

    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

   

End Sub

Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdproses(0).Enabled = L0

    f.cmdproses(1).Enabled = L1

    f.cmdproses(2).Enabled = L2

    f.cmdproses(3).Enabled = L3

End Sub

LISTING PROGRAM SERVER

Private Sub cmdproses_Click(Index As Integer)

Select Case Index

    Case 0

        Call hapus

        kode.SetFocus

    Case 1

        If cmdproses(1).Caption = "&Simpan" Then

            Call prosesDB(0)

        Else

            Call prosesDB(1)

        End If

    Case 2

        X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")

        If X = vbYes Then prosesDB 2

        Call hapus

        kode.SetFocus

    Case 3

        Call hapus

        kode.SetFocus

    Case 4

    Unload Me

End Select

       

End Sub

Sub hapus()

kode.Enabled = True

clearform Me

Call rubahcmd(Me, True, False, False, False)

cmdproses(1).Caption = " &Simpan"

End Sub

Private Sub Form_Load()

Call opendb

Call hapus

mulaiserver

End Sub

Sub prosesDB(log As Byte)

Select Case log

    Case 0

        SQL = "INSERT INTO barang(kode,nama,harga)" & _

        "values('" & kode.Text & _

        "','" & nama.Text & _

        "','" & harga.Text & "')"

    Case 1

        SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _

            "harga='" & harga.Text & "' " & _

            "WHERE kode='" & kode.Text & "'"

    Case 2

        SQL = "DELETE  FROM barang WHERE kode='" & kode.Text & "'"

    End Select

MsgBox "Pemrosesan  record Database telah berhasil....!!", vbInformation, "Data Barang"

    db.BeginTrans

    db.Execute SQL, adCmdTable

    db.CommitTrans

    Call hapus

    Adodc1.Refresh

    kode.SetFocus

End Sub

Sub tampilbarang()

    On Error Resume Next

    kode.Text = rs!kode

    nama.Text = rs!nama

    harga.Text = rs!harga

   

End Sub

Private Sub kode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If kode.Text = "" Then

        MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"

        kode.SetFocus

        Exit Sub

End If

SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

If rs.RecordCount <> 0 Then

    tampilbarang

    Call rubahcmd(Me, False, True, True, True)

    cmdproses(1).Caption = "&Edit"

    kode.Enabled = False

    Else

        X = kode.Text

        Call hapus

        kode.Text = X

        Call rubahcmd(Me, False, True, False, True)

          cmdproses(1).Caption = "&Simpan"

End If

nama.SetFocus

End If

  

End Sub

Sub mulaiserver()

ws.LocalPort = 1000

ws.Listen

End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)

ws.Close

ws.Accept requestID

Me.Caption = "server-client" & ws.RemoteHostIP & "connect"

End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim xkirim As String

Dim xData1() As String

Dim xData2() As String

ws.GetData xkirim, vbString, bytesTotal

xData1 = Split(xkirim, "-")

Select Case xData1(0)

    Case "SEARCH"

    SQL = " delete * FROM barang " & _

    " where kode= '" & xData1(1) & "'"

    SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"

    If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

If rs.RecordCount <> 0 Then

    ws.SendData "RECORD-" & rs!nama & "/" & rs!harga

   

    Else

        ws.SendData "NOTHING-DATA"

    End If

    Case "INSERT"

   

    Case "EDIT"

   

    Case "DELETE"

    SQL = " delete * FROM barang " & _

    " where kode= '" & xData1(1) & "'"

    db.BeginTrans

    db.Execute SQL, adCmdTable

    db.CommitTrans

    Adodc1.Refresh

    ws.SendData "DEL-xxx"

   

    Case "UPDATE"

    db.BeginTrans

    db.Execute xData1(1), adCmdTable

    db.CommitTrans

   End Select

End Sub

CLIENT

MODULE

Public db As New ADODB.Connection

Public rs As New ADODB.Recordset

Public rs2 As New ADODB.Recordset

Public SQL As String

Sub opendb()

    If db.State = adStateOpen Then db.Close

    db.CursorLocation = adUseClient

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Fitri\vb2\vb\test.mdb;Persist Security Info=False"

End Sub

Sub clearform(f As Form)

    Dim ctl As Control

    For Each ctl In f

        If TypeOf ctl Is TextBox Then ctl.Text = ""

        If TypeOf ctl Is ComboBox Then ctl.Text = ""

    Next

End Sub

Sub center(f As Form)

    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

   

End Sub

Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdproses(0).Enabled = L0

    f.cmdproses(1).Enabled = L1

    f.cmdproses(2).Enabled = L2

    f.cmdproses(3).Enabled = L3

End Sub

LISTING PROGRAM SERVER

Private Sub cmdproses_Click(Index As Integer)

Select Case Index

    Case 0

        Call hapus

        kode.SetFocus

    Case 1

        If cmdproses(1).Caption = "&Simpan" Then

            Call prosesDB(0)

        Else

            Call prosesDB(1)

        End If

    Case 2

        X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")

        If X = vbYes Then prosesDB 2

        Call hapus

        kode.SetFocus

    Case 3

        Call hapus

        kode.SetFocus

    Case 4

    Unload Me

End Select

       

End Sub

Sub hapus()

kode.Enabled = True

clearform Me

Call rubahcmd(Me, True, False, False, False)

cmdproses(1).Caption = " &Simpan"

End Sub

Private Sub Form_Load()

Call opendb

Call hapus

mulaiserver

End Sub

Sub prosesDB(log As Byte)

Select Case log

    Case 0

        SQL = "INSERT INTO barang(kode,nama,harga)" & _

        "values('" & kode.Text & _

        "','" & nama.Text & _

        "','" & harga.Text & "')"

    Case 1

        SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _

            "harga='" & harga.Text & "' " & _

            "WHERE kode='" & kode.Text & "'"

    Case 2

        SQL = "DELETE  FROM barang WHERE kode='" & kode.Text & "'"

    End Select

MsgBox "Pemrosesan  record Database telah berhasil....!!", vbInformation, "Data Barang"

    db.BeginTrans

    db.Execute SQL, adCmdTable

    db.CommitTrans

    Call hapus

    Adodc1.Refresh

    kode.SetFocus

End Sub

Sub tampilbarang()

    On Error Resume Next

    kode.Text = rs!kode

    nama.Text = rs!nama

    harga.Text = rs!harga

   

End Sub

Private Sub kode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If kode.Text = "" Then

        MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"

        kode.SetFocus

        Exit Sub

End If

SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

If rs.RecordCount <> 0 Then

    tampilbarang

    Call rubahcmd(Me, False, True, True, True)

    cmdproses(1).Caption = "&Edit"

    kode.Enabled = False

    Else

        X = kode.Text

        Call hapus

        kode.Text = X

        Call rubahcmd(Me, False, True, False, True)

          cmdproses(1).Caption = "&Simpan"

End If

nama.SetFocus

End If

  

End Sub

Sub mulaiserver()

ws.LocalPort = 1000

ws.Listen

End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)

ws.Close

ws.Accept requestID

Me.Caption = "server-client" & ws.RemoteHostIP & "connect"

End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim xkirim As String

Dim xData1() As String

Dim xData2() As String

ws.GetData xkirim, vbString, bytesTotal

xData1 = Split(xkirim, "-")

Select Case xData1(0)

    Case "SEARCH"

    SQL = " delete * FROM barang " & _

    " where kode= '" & xData1(1) & "'"

    SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"

    If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

If rs.RecordCount <> 0 Then

    ws.SendData "RECORD-" & rs!nama & "/" & rs!harga

   

    Else

        ws.SendData "NOTHING-DATA"

    End If

    Case "INSERT"

   

    Case "EDIT"

   

    Case "DELETE"

    SQL = " delete * FROM barang " & _

    " where kode= '" & xData1(1) & "'"

    db.BeginTrans

    db.Execute SQL, adCmdTable

    db.CommitTrans

    Adodc1.Refresh

    ws.SendData "DEL-xxx"

   

    Case "UPDATE"

    db.BeginTrans

    db.Execute xData1(1), adCmdTable

    db.CommitTrans

   End Select

   End sub

Belajar Server

1.    Pengertian jaringan Client – Server
Server adalah komputer yang menyediakan fasilitas bagi komputer- komputer lain di dalam jaringan
client adalah komputer-komputer yang menerima atau menggunakan fasilitas yang disediakan oleh server.
Server di jaringan tipe client-server disebut dengan Dedicated Server karena murni berperan sebagai server yang menyediakan fasilitas kepada workstation dan server tersebut tidak dapat berperan sebagai workstation.

2.    Program server
Langkah - langkah pembuatan program server yang menggunakan program Microsoft Office Acces 2003 dan program Microsoft Visual Basic 6.0 yaitu :
a.    Rancanglah pembuatan data base pada program Microsoft Office Acces 2003.
Nama database    : Mahasiswa
Nama table        : Data
Start, program, pilih Microsoft Office Acces 2003. Pada sebelah kanan bawah tampilan terdapat icon – icon. Klik create a new file. Ketik blank database. Lalu ketik nama database Mahasiswa dengan nama tabel data. Double klik table data isilah field name dan data typenya. Seperti tampilan dibawah ini.

 

 b.    Start, program, pilih Microsoft Visual Basic 6.0, Microsoft Visual Basic 6.0, standard Exe, klik Open.

 c.    Rancang tampilan pada Form Login.

Ketik listing program pada form login.
Private Sub Command1_Click()
    If user.Text = "nurjannah" And password.Text = "0902119" Then
    MDIForm1.Show
    ElseIf user.Text = "" & password.Text = "" Then
    MsgBox "Silahkan masukkan password login", vbCritical, "info"
    user.SetFocus
    Else
    MsgBox "Password yang anda inputkan salah", vbCritical, "info"
    user.Text = ""
    password.Text = ""
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    user.Text = ""
    password.Text = ""
    password.PasswordChar = "*"
End Sub

d.    Rancang tampilan pada Form MDIForm1.

 Ketik listing program pada form MDIForm1.
Private Sub e_Click()
    Unload Me
End Sub

Private Sub ldm_Click()
    formbarang.Show
End Sub

Rancang tampilan seperti tampilan dibawah ini dengan menggunakan Microsoft Visual Basic 6.0.

 e.    Ketik listing program pada Form1.
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
            Case 0
        Call hapus
        npm.SetFocus
            Case 1
        If cmdproses(1).Caption = "&Simpan" Then
        Call prosesDB(0)
            Else
        Call prosesDB(1)
        End If
            Case 2
        X = MsgBox("yakin RECORD data akan dihapus...!", vbQuestion + vbYesNo, "data")
        If X = vbYes Then prosesDB 2
        Call hapus
        npm.SetFocus
            Case 3
        Call hapus
        npm.SetFocus
            Case 4
        Unload Me
End Select
End Sub

Sub hapus()
npm.Enabled = True
clearform Me
Call rubahcmd(Me, True, False, False, False)
cmdproses(1).Caption = " &Simpan"
End Sub

Private Sub Form_Load()
Call opendb
Call hapus
mulaiserver
End Sub

Sub prosesDB(log As Byte)
Select Case log
            Case 0
SQL = "INSERT INTO data(npm,nama,group,jurusan)" & _
       "values('" & npm.Text & _
       "','" & nama.Text & _
       "','" & group.Text & _
       "','" & jurusan.Text & "')"
            Case 1
SQL = "UPDATE data SET nama='" & nama.Text & "'," & _
       "group='" & group.Text & "' " & _
"jurusan='" & jurusan.Text & "' " & _
       "WHERE npm='" & npm.Text & "'"
            Case 2
       SQL = "DELETE  FROM data WHERE npm='" & npm.Text & "'"
       End Select
MsgBox "Pemrosesan  record Database telah berhasil....!!", vbInformation, "data"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Call hapus
       Adodc1.Refresh
npm.SetFocus
End Sub

Sub tampildata()
On Error Resume Next
npm.Text = rs!npm
nama.Text = rs!nama
group.Text = rs!group
jurusan.Text = rs!jurusan
End Sub

Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub
Private Sub npm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
        If npm.Text = "" Then
       MsgBox "Masukkan npm!", vbInformation, "data"
       npm.SetFocus
       Exit Sub
End If
SQL = " SELECT * FROM data WHERE npm='" & npm.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
        tampildata
        Call rubahcmd(Me, False, True, True, True)
        cmdproses(1).Caption = "&Edit"
        npm.Enabled = False
     Else
       X = npm.Text
       Call hapus
       npm.Text = X
       Call rubahcmd(Me, False, True, False, True)
       cmdproses(1).Caption = "&Simpan"
End If
npm.SetFocus
End If
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xkirim, vbString, bytesTotal
xData1 = Split(xkirim, "-")
Select Case xData1(0)
            Case "SEARCH"
        SQL = " delete * FROM data " & _
        " where npm= '" & xData1(1) & "'"
        SQL = "SELECT * FROM data WHERE npm='" & xData1(1) & "'"
        If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
        ws.SendData "RECORD-" & rs!nama & "/" & rs!group & "/" & rs!jurusan
        Else
       ws.SendData "NOTHING-DATA"
        End If
            Case "INSERT"
       db.BeginTrans
       db.Execute xData1(1), adCmdTable
       db.CommitTrans
       Adodc1.Refresh
       ws.SendData "INSERT-XXX"
            Case "UPDATE"
        db.BeginTrans
        db.Execute xData1(1), adCmdTable
        db.CommitTrans
        Adodc1.Refresh
        ws.SendData "UPDATE-XXX"
            Case "DELETE"
        SQL = " delete * FROM data " & _
        " where npm= '" & xData1(1) & "'"
        db.BeginTrans
        db.Execute SQL, adCmdTable
        db.CommitTrans
        Adodc1.Refresh
        ws.SendData "DEL-xxx"
       End Select
End Sub

f.    Ketik listing program pada Module.
Klik kanan pada Form1, pilih add, Module, open. Double klik pada tampilan Module, lalu ketikkan listing programnya.

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public SQL As String
Sub opendb()
        If db.State = adStateOpen Then db.Close
        db.CursorLocation = adUseClient     db.Open”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\belajarserver\server\mahasiswa.md;    Persist Security Info=False"
End Sub

Sub clearform(f As Form)
        Dim ctl As Control
        For Each ctl In f
            If TypeOf ctl Is TextBox Then ctl.Text = ""
            If TypeOf ctl Is ComboBox Then ctl.Text = ""
            Next
End Sub

Sub center(f As Form)
        f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub

Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
        f.cmdproses(0).Enabled = L0
        f.cmdproses(1).Enabled = L1
        f.cmdproses(2).Enabled = L2
        f.cmdproses(3).Enabled = L3
End Sub

Pada tool box tampilan rancangan program terdapat Project, pilih project1 properties, pada startup object, pilih login. Agar tampilan layar setelah di jalankan akan muncul form login terlebih dahulu.seperti gambar dibawah ini.

  

 Sehingga tampilan setelah dimasukkan password akan tampil seperti di bawah ini.

 Lalu muncullah tampilan yang dapat mengasilkan output, seperti gambar ini.

 

 3.    Program Client

Langkah - langkah pembuatan program client tidak pelu merancang database lagi, dikarenakan pada database sudah terdapat pada Server, yang akan terkoneksi ke program client. Jadi program client hanya menggunakan bahasa pemograman  Microsoft Visual Basic 6.0 yaitu :
a.    Start, program, pilih Microsoft Visual Basic 6.0, Microsoft Visual Basic 6.0, standard Exe, klik Open.

 b.    Rancang tampilan pada Form Login.

 Ketik listing program pada form login.
Private Sub Command1_Click()
    If user.Text = "fitri" And password.Text = "0902160" Then
    MDIForm1.Show
    ElseIf user.Text = "" & password.Text = "" Then
    MsgBox "Silahkan masukkan password login", vbCritical, "info"
    user.SetFocus
    Else
    MsgBox "password yang anda inputkan salah", vbCritical, "info"
    user.Text = ""
    password.Text = ""
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    user.Text = ""
    password.Text = ""
    password.PasswordChar = "*"
End Sub

c.    Rancang tampilan pada Form MDIForm1.

Ketik listing program pada form MDIForm1.
Private Sub e_Click()
    Unload Me
End Sub

Private Sub ldm_Click()
    Form1.Show
End Sub



Selanjutnya Rancang tampilan seperti tampilan dibawah ini dengan menggunakan Microsoft Visual Basic 6.0.

Ketik listing program pada Form1.
Dim IpServer As String
Sub hapus()
    npm.Enabled = True
    ClearFORM Me
    Call rubahCMD(Me, True, False, False, False)
    cmdproses(1).Caption = "&Simpan"
End Sub

Sub prosesDB(log As Byte)
    Select Case log
        Case 0
    SQL = "INSERT INTO data(npm,nama,group,jurusan)" & _
    "values('" & npm.Text & _
    "','" & nama.Text & _
    "','" & group.Text & _
    "','" & jurusan.Text & "')"
        Case 1
    SQL = "UPDATE data SET nama='" & nama.Text & "'," & _
    "group='" & group.Text & "' " & _
    "jurusan='" & jurusan.Text & "' " & _
    "where npm='" & npm.Text & "'"
        Case 2
    SQL = "DELETE FROM data WHERE npm='" & npm.Text & "'"
    End Select
    MsgBox "pemrosesan RECORD database telah berhasil...!", vbInformation, "data"
    Call hapus
    npm.SetFocus
End Sub

Private Sub cmdproses_Click(Index As Integer)
    Select Case Index
        Case 0
    Call hapus
    npm.SetFocus
        Case 1
    If cmdproses(1).Caption = " &Simpan" Then
    Else
    SQL = "UPDATE data Set " & _
    "nama = '" & nama.Text & _
    "group = '" & group.Text & _
    "' , jurusan= '" & jurusan.Text & _
    "' where npm= '" & npm.Text & "'"
    ws.SendData "UPDATE-" & SQL
    End If
        Case 2
    X = MsgBox("yakin RECORD data akan dihapus...!", vbQuestion + vbYesNo, "data")
    If X = vbYes Then
    ws.SendData "DELETE-" & npm.Text
    End If
    Call hapus
    npm.SetFocus
        Case 3
    Call hapus
    npm.SetFocus
        Case 4
    Unload Me
    End Select
End Sub



Private Sub Form_Load()
    Call hapus
    mulaikoneksi
End Sub

Sub mulaikoneksi()
    IpServer = "192.168.10.1"
    IPClient = ws.LocalIP
    ws.Connect IpServer, 1000
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    DoEvents
    End
End Sub

Private Sub npm_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If npm.Text = "" Then Exit Sub
    ws.SendData "SEARCH-" & npm.Text
    End If
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim xkirim As String
    Dim xdata1() As String
    Dim xdata2() As String
    ws.GetData xkirim, vbString, bytesTotal
    xdata1 = Split(xkirim, "-")
    Select Case xdata1(0)
         Case "NOTHING"
     X = npm.Text
     Call hapus
     npm.Text = X
     Call rubahCMD(Me, False, True, False, True)
     cmdproses(1).Caption = "&Simpan"
     nama.SetFocus
        Case "RECORD"
     xdata2 = Split(xdata1(1), "/")
     npm.Text = xdata2(0)
     group.Text = xdata2(1)
     jurusan.Text = xdata2(2)
     Call rubahCMD(Me, False, True, True, True)
     cmdproses(1).Caption = "&Edit"
     npm.Enabled = False
     nama.SetFocus
        Case "DEL"
     MsgBox "penghapusan data berhasil!"
     Call hapus
         Case "EDIT"
     MsgBox "Pengeditan Record berhasil!"
     Call hapus
     End Select
End Sub

Pada tool box tampilan rancangan program terdapat Project, pilih project1 properties, pada startup object, pilih login. Agar tampilan layar setelah di jalankan akan muncul form login terlebih dahulu.seperti gambar dibawah ini.

Sehingga tampilan setelah dimasukkan password akan tampil seperti di bawah ini.

 Lalu muncullah tampilan yang dapat mengasilkan output, seperti gambar dibawah ini.

Komponen dan Fungsi Sistem Client Server

Gambaran umum konfigurasi Client Server diperlihatkan pada gambar 2. Dengan pendekatan Client Server setiap PC dapat melakukan secara independen sebuah pemrosesan lokal dan mensharing perangkat enterprise melalui LAN. Untuk kasus yang lebih luas kemampuan akses dapat dilakukan melalui MAN ( Metropolita Area Network ) atau WAN ( Wide Area Network ). Sebuah database dan program applikasi enterprise misalnya diletakan pada sebuah server dimana setiap end user dapat melakukan akses melalui Client Processo r, LAN dan Server.

User

User disini adalah end user yang mengakses client untuk mendapatkan sebuah layanan. End user bisa saja seorang manager perusahaan, professional, karyawan di sebuah perusahaan, atau pelanggan. Ada timbul sedikit kerancuan. Pelanggan dalam sebuah bisnis atau perdagangan disebut dengan client , tapi client ini adalah manusia, jangan dibingungkan dengan istilah client pada pemrosesan komputer. Dapat kita katakan sebuah user atau end user adalah ketika melakukan proses akhir menggunakan sistem client server.

Client

Client dapat berupa sebuah pemproses yang powerful atau dapat juga berupa terminal tua dengan kemampuan proses yang terbatas. Secara mendasar client adalah sebuah PC dengan sistem operasinya sendiri. Sebagian besar pemrosesan banyak dilakukan di sebuah server dimana bagian-bagian dalam lingkup pekerjaannya ditentukan oleh program komputer, inilah yang menyebabkan sistem client server berbeda dengan sistem transaksi tradisional. Sistem client server memungkinkan sebuah teknologi dan applikasinya digunakan bersamaan.

Applikasi disini termasuk didalamnya adalah pemroses pesan seperti e-mail, pemproses file lokal seperti DBMS untuk browsing dan penghitungan, atau sharing resource seperti sistem image processing, sistem optical character, sistem advance grafic processing, plotter warna, atau sebuah printer. Perangkat-perangkat ini bisa saja berasal dari berbagai vendor yang ada.

Untuk memfasilitasi query pemprosesan dari client, sebagian besar sistem client server menggunkaan Structured Query Language (SQL) yang merupakan struktur bahasa tingkat tinggi. SQL dengan database relationalnya adalah standar de facto untuk hampir sebagian besar sistem client server. Salah satu komponen terpenting sistem client server adalah User Interface (UI), yang digunakan user untuk berkomunikasi. Bagi user yang seorang programmer, UI tidak mesti user friendly, tapi untuk end user yang bukan programmer sangat dibutuhkan UI yang user friendly. Dibutuhkan Graphical User Interface (GUI) untuk end user karena GUI menampilkan grafis untuk melakukan akses dengan icon-icon tanpa perlu memasukan perintah pemrograman. Kedepannya GUI tidak hanya digunakan untuk menggantikan akses perintah pemprograman tapi juga digunakan untuk grafik, voice, video, animasi, untuk selanjutnya menjadi sebuah teminal multimedia.