;

Client-Server Programming

Apa Sih sistem Client-Server Itu?

Sistem Client-Server biasanya setidaknya berjalan pada dua sistem komputer yang berbeda. Satu komputer bertindak sebagai client/pelanggan dan yang satunya lagi bertindak sebagai server/pelayan. Tetapi Client dan server juga bisa berada pada satu sistem komputer. Biasanya sebuah server melayani beberapa komputer client, walaupun mungkin ada juga yang hanya melayani satu client saja. Fungsi server ini biasanya dilakukan oleh file server, kecuali apabila dibutuhkan kinerja yang maksimal maka digunakanlah server yang khusus. Client biasanya berupa sebuah komputer desktop yang terhubung dalam jaringan. Apabila pemakai ingin mengambil atau menyimpan informasi, bagian aplikasi client akan mengajukan permintaan yang dimintanya melalui jaringan kepada server. Server kemudian menjalankan permintaan ini dan mengirimkan informasi kembali ke client.


Sebuat basis data/database tidak dapat menggantikan sistem client-server, walaupun sistem client server sering menggunakan database untuk melakukan aktivitas server. aplikasi yang dirancang menggunakan Access, MS-Foxpro, Paradox atau program dabase lainnya bukanlah sistem client-server (walaupun databasenya berada dalam server jaringan).

Cara Kerja Sistem Client-Server

Sistem client-server pada mulanya dirancang untuk menghasilkan kinerja jauh lebih besan dan hanya menambah sedikit biaya, dengan cara memindahkan sebagian tugas pemrosesan dari komputer cient kepada komputer server. Hal ini dapat meningkatkan kinerja tetapi biaya tetap meningkat. Sehingga daripada kita membeli 11 buah PC super dan menaruh hardisk besar pada salah satu dari komputer tersebut, serta menggunakannya sebagai server dan menjalankan aplikasi database pada 10 komputer client, anda dapat membeli 10 buah PC yang berkemampuan biasa saja dan 1 buah PC super. Lalu buat aplikasi client-server yang menggunakan komputer server yang berkekuatan super itu tadi  itu tadi sebagai sebagai pusat pengolahan data terbanyak, dan komputer-komputer client hanya digunakan untuk meminta dan menampilkan informasi kepada pemakai.

Apa yang Kita Pakai dengan Aplikasi Client-Server Kita?

Di sini kita akan mempergunakan teknologi ASP dengan script VBScript, Personal Web Server atau IIS5.0 sebagai Internet Server, MS-Access atau SQL Server sebagai database nya. Sebagai informasi, WEB kita ini dibangun dengan Sistem Operasi Windows 2000 Server, bahasa srcipt VBScript, MS SQL Server 2000 sebagai databasenya, Internet Information Server (IIS) 5.0 sebagai WEB server nya (produk Microsoft semuanya-red). Inilah yang akan kita buat sebagai servernya. Eh ada yang kelupaan, Internet Explorer 5.0 ke atas sebagai aplikasi Client nya.

Pemrograman Sisi Client
Okelah di sini kita ulangi lagi VBScript Client yang pernah kita bahas pada  VBScript dan juga dipakai sebagi script client pada pengisian buku tamu web kita ini:
<HTML>
<HEAD>
<BODY>
<H1><FONT face="Courier New">Isi Buku Tamu</FONT> </H1>
<FONT face="Courier New">
 <FORM name="frmInput">
   <BR>
   Nama &nbsp;<input name="txtNama">
   <BR>
   Email <input name="txtEmail">
   <BR>  
   <BR>
   Komentar:
   <BR><TEXTAREA name=txtKomentar rows=10 cols=60></TEXTAREA>
   <br>
   <input type="button" value="OK" name="btnSubmit">
   <input type="reset" value="Batal" name="btnReset">
   <BR>
 </form>
 </FONT>
<script LANGUAGE="VBScript">
<!--
Sub btnSubmit_OnClick
 dim kesalahan
 dim objForm
 if frmInput.txtNama.value = "" then
    kesalahan=chr(13) & "Nama harus di isi"
 end if
 if instr(frmInput.txtEmail.value,"@")=0 then
    kesalahan=kesalahan & chr(13) & "Alamat email harus memiliki tanda @"
 end if
 If frmInput.txtKomentar.value="" then
   kesalahan=kesalahan & chr(13) & "Tolong Isi Komentar..."
 end if
 if kesalahan <> "" then
    Alert "Ada kesalahan isi form: " & chr(13) & kesalahan
  Else
    frmInput.submit
  End if 
End Sub
sub btnReset_OnClick
  frmInput.txtNama.value = ""
  frmInput.txtEmail.value = ""
  frmInput.txtKomentar.value = ""
end sub
-->
</script>
</BODY>
</HTML>
Kode di atas adalah kode yang dikerjakan di sisi-client yaitu pada komputer ada, pada browser anda jika anda membuka buku tamu pada WEB ini.

Pemrograman Sisi-Server
Di bawah ini adalah kode yang dikerjakan di server WEB ini untuk menyimpan data ke database Server.
<%Option Explicit%>
<html>
<head>
</head>
<body>
<%
' ambil data dan masukkan ke database ---
dim ObjConn
dim ObjComm
dim ObjPar
dim strSQL
dim filePath
dim reqTanggal
dim reqNama
dim reqEmail
dim reqTahuDari
dim reqKomentar
reqTanggal = Date
' ambil data dari form sebelumnya
reqNama = Request.Form("txtNama")
reqEmail = Request.Form("txtEmail")
reqTahuDari= Request.Form("txtTahuDari")
reqKomentar = Request.Form("txtComment")
'deklarasi SQL
strSQL = "INSERT INTO Guest (Tanggal, Nama, Email,TahuDari, Komentar) VALUES (?,?,?,?,?)"
'buka koneksi ke database
set ObjConn = Server.CreateObject("ADODB.connection")
ObjConn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BukuTamu"
'deklarasi objek command
set ObjComm = Server.CreateObject("ADODB.command")
objComm.ActiveConnection = ObjConn
ObjComm.CommandText = strSQL
'deklarasi parameter
Set objPar = objComm.CreateParameter("", adDate, ,8, reqTanggal)
objComm.Parameters.Append objPar
Set objPar = objComm.CreateParameter("", adChar, ,30, reqNama)
objComm.Parameters.Append objPar
Set objPar = objComm.CreateParameter("", adChar, ,30, reqEmail)
objComm.Parameters.Append objPar
Set objPar = objComm.CreateParameter("", adChar, ,255, reqTahuDari)
objComm.Parameters.Append objPar
Set objPar = objComm.CreateParameter("", adLongVarChar, ,100000, reqKomentar)
objComm.Parameters.Append objPar
'eksekusi SQL
ObjComm.Execute   ()
'tutup koneksi
objConn.Close
%>
<center>
Terima Kasih<br>
Anda Telah Mengisi Buku Tamu<hr>
<A href="/DaftarTamu.asp" >Klik di sini </A> untuk melihat yang telah mengisi buku tamu
</center>
</body>
</html>

No comments:

Post a Comment

Post Comments


Do you have any suggestions ? Add comment. Do not spam!

Search By Google

About this blog

Vision and Mission
Assist each company to improve efficiency and effectiveness to achieve the objectives to serve clients in a professional, objective and sustainable and provide the best solutions for businesses in solving problems in the procurement of informatics and technology.

Excellence
With support from experts and experienced professionals and geared towards fulfilling the needs of clients who put quality in a cost competitif. We also work as partners culter tailored to your company's corporate and can also provide an applicable and practical advice for clients.

New

 

WELCOME

Welcome to the Thomas IPT Blog - Thank you being here, and hope you come back often. Please surf here and read more about the world of computers and various articles of the world that I experienced. There are many things about, you'll probably find something interesting.

ABOUT ME

Working as a Management Information System Design And Development Operations Accounting. Specializing in the manufacture of Retail Database Desktop Applications, ERP / MRP, KSP / KSU, Warehouse, etc by using VB, SQL, Access, Crystal Report

NAVIGASI

SOCIAL STUFF

Info