<a href='http://www.4dewa.com/user/register?ref=makmur23'><img src='http://www.4dewa.com/assets/images/banner/Banner-4Dewa.gif'></a>
MAKMUR SIHOMBING
Senin, 15 Juni 2015
Jumat, 27 Januari 2012
JAWABAN NO 3
Public Class Form1
Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
If USERNAME.Text = "MAKMUR" And PASWORD.Text = "0911410" Then
MenuUtama.Show()
Me.Hide()
Else
MsgBox("MAAF!!! YOUR PASSWORD & USER NAME IS WRONG!")
USERNAME.Text = ""
PASWORD.Text = ""
End If
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
End Class
Public Class MenuUtama
Private Sub DATAKARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAKARYAWANToolStripMenuItem.Click
KARYAWAN.SHOW()
End Sub
Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click
End
End Sub
End Class
Public Class karyawan
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
If NIP.Text = "0001" Then
NAMAKARYAWAN.Text = "PARJOLI"
ElseIf NIP.Text = "0002" Then
NAMAKARYAWAN.Text = "RUTHMEYDA"
ElseIf NIP.Text = "0003" Then
NAMAKARYAWAN.Text = "FRICLES"
End If
End Sub
Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged
If GOL.Text = "IIIA" Then
GAJI.Text = 2500000
ElseIf GOL.Text = "IIIB" Then
GAJI.Text = 2750000
ElseIf GOL.Text = "IIIC" Then
GAJI.Text = 3000000
End If
End Sub
Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
If STATUS.Text = "Menikah" Then
TUNJANGANANAK.Text = GAJI.Text * 0.016
Else
TUNJANGANANAK.Text = 0
End If
If STATUS.Text = "BELUM MENIKAH" Then
TUNJANGANANAK.Enabled = False
TUNJANGANANAK.Enabled = False
End If
End Sub
Private Sub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged
If JUMLAHANAK.Text = "1" Then
TUNJANGAN.Text = GAJI.Text * 0.1
ElseIf JUMLAHANAK.Text = "2" Then
TUNJANGAN.Text = GAJI.Text * 0.19
End If
End Sub
Private Sub PAJAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAJAK.TextChanged
TOTAL.Text = Val(GAJI.Text) + Val(TUNJANGANANAK.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text) + Val(GLEMBUR.Text)
End Sub
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
ISITABEL()
End Sub
Sub BUATTABEL()
LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
LV.Columns.Add("TUNJANGAN", 80, HorizontalAlignment.Left)
LV.Columns.Add("TUNJANGANANAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("GAJI LEMBUR", 80, HorizontalAlignment.Left)
LV.Columns.Add("LAMA LEMBUR", 80, HorizontalAlignment.Left)
LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
For i = 1 To 10
NIP.Items.Add("000" & i)
Next
GOL.Items.Add("IIIA")
GOL.Items.Add("IIIB")
GOL.Items.Add("IIIC")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("BELUM MENIKAH")
JUMLAHANAK.Items.Add(1)
JUMLAHANAK.Items.Add(2)
LEMBUR.Items.Add("1 JAM")
LEMBUR.Items.Add("2JAM")
LEMBUR.Items.Add("3JAM")
LEMBUR.Items.Add("4JAM")
LEMBUR.Items.Add("5JAM")
LEMBUR.Items.Add("6JAM")
LEMBUR.Items.Add("7JAM")
LEMBUR.Items.Add("8JAM")
LEMBUR.Items.Add("9JAM")
LEMBUR.Items.Add("10JAM")
End Sub
Private Sub TUNJANGAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUNJANGAN.TextChanged
TUNJANGANANAK.Text = GAJI.Text * 0.16
End Sub
Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
Dim sublv As New ListViewItem
sublv.Text = NIP.Text
sublv.SubItems.Add(NAMAKARYAWAN.Text)
sublv.SubItems.Add(GOL.Text)
sublv.SubItems.Add("RP. " & GAJI.Text)
sublv.SubItems.Add(STATUS.Text)
sublv.SubItems.Add("RP. " & TUNJANGANANAK.Text)
sublv.SubItems.Add(" RP. " & TUNJANGAN.Text)
sublv.SubItems.Add(JUMLAHANAK.Text)
sublv.SubItems.Add("JAM " & LEMBUR.Text)
sublv.SubItems.Add("RP. " & GLEMBUR.Text)
sublv.SubItems.Add("RP. " & PAJAK.Text)
sublv.SubItems.Add("RP. " & TOTAL.Text)
LV.Items.Add(sublv)
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
PAJAK.Text = ""
NAMAKARYAWAN.Text = ""
GOL.Text = ""
GAJI.Text = ""
STATUS.Text = ""
TUNJANGAN.Text = ""
TUNJANGANANAK.Text = ""
GLEMBUR.Text = ""
LEMBUR.Text = ""
JUMLAHANAK.Text = ""
TOTAL.Text = ""
PAJAK.Focus()
End Sub
Private Sub GAJI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI.TextChanged
PAJAK.Text = GAJI.Text * 0.3
End Sub
Private Sub GLEMBUR_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLEMBUR.TextChanged
If LEMBUR.Text = "1" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "2" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "3" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "4" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "5" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "6" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "7" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "8" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "9" Then
GLEMBUR.Text = GAJI.Text * 5000
ElseIf LEMBUR.Text = "10" Then
GLEMBUR.Text = GAJI.Text * 5000
End If
End Sub
Private Sub TOTAL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TOTAL.TextChanged
End Sub
End Class
End Class
Kamis, 26 Januari 2012
TUGAS VB-NET NO.2
- Listing Program :
Public Class Form1
Sub TABEL()
LV.Columns.Add("NPM", 100, HorizontalAlignment.Center)
LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
LV.Columns.Add("JURUSAN", 110, HorizontalAlignment.Left)
LV.Columns.Add("JENJANG", 120, HorizontalAlignment.Left)
LV.Columns.Add("TAHUN MASUK", 120, HorizontalAlignment.Left)
LV.Columns.Add("NILAI ANGKA", 120, HorizontalAlignment.Left)
LV.Columns.Add("NILAI HURUF", 120, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
Dim TBL As New ListViewItem
TBL.Text = NPM.Text
TBL.SubItems.Add(NAMA.Text)
TBL.SubItems.Add(JURUSAN.Text)
TBL.SubItems.Add(JENJANG.Text)
TBL.SubItems.Add(T_MASUK.Text)
TBL.SubItems.Add(N_ANGKA.Text)
TBL.SubItems.Add(N_HURUF.Text)
LV.Items.Add(TBL)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TABEL()
NPM.Items.Add("0911522")
NPM.Items.Add("0831533")
NPM.Items.Add("1021678")
NPM.Items.Add("0701655")
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
End Sub
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
ISITABEL()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
JENJANG.Text = ""
T_MASUK.Text = ""
'N_ANGKA.Text = ""
N_HURUF.Text = ""
End Sub
Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BERSIH.Click
LV.Items.Clear()
End Sub
Private Sub HAPUS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim xnpm As String
xnpm = Microsoft.VisualBasic.Left(NPM.Text, 2)
Select Case xnpm
Case "09"
T_MASUK.Text = "2009"
Case "08"
T_MASUK.Text = "2008"
Case "10"
T_MASUK.Text = "2010"
Case "07"
T_MASUK.Text = "2007"
End Select
xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
Select Case xnpm
Case "1"
JENJANG.Text = "Strata I"
Case "3"
JENJANG.Text = "Diploma III"
Case "2"
JENJANG.Text = "Diploma II"
Case "0"
JENJANG.Text = "Diploma I"
End Select
xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If xnpm = "11" Then
JURUSAN.Text = "Teknik Informatika"
ElseIf xnpm = "31" Then
JURUSAN.Text = "Manajemen Informatika"
ElseIf xnpm = "21" Then
JURUSAN.Text = "Komputerisasi Akuntansi"
ElseIf xnpm = "01" Then
JURUSAN.Text = "Sistem Informasi"
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
If N_ANGKA.Text >= 80 Then
N_HURUF.Text = "A"
ElseIf N_ANGKA.Text >= 70 Then
N_HURUF.Text = "B"
ElseIf N_ANGKA.Text >= 60 Then
N_HURUF.Text = "C"
ElseIf N_ANGKA.Text >= 50 Then
N_HURUF.Text = "D"
Else
N_ANGKA.Text = "E"
End If
End Sub
End Class
Selasa, 24 Januari 2012
Cara pembuatan client-server dengan menggunakan data karyawan
Server
Login
Form login
Perintah program nya
Private Sub Command1_Click()
If user.Text = "hery" And password.Text = "0902" 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
Setelah anda buat login terus anda link kan ke MDI
Form MDI
Listing program nya
Private Sub e_Click()
Unload Me
End Sub
Private Sub ldm_Click()
Datakaryawan.Show
End Sub
Lalu anda memilih laporan data karyawan
Listing program nya
Modul
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:\Users\hery siregar\Documents\db1.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
Data karyawan
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
nik.SetFocus
Case 1
If cmdproses(1).Caption = "&Simpan" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("yakin RECORD karyawan akan dihapus...!", vbQuestion + vbYesNo, "karyawan")
If X = vbYes Then prosesDB 2
Call hapus
nik.SetFocus
Case 3
Call hapus
nik.SetFocus
Case 4
Unload Me
End Select
End Sub
Sub hapus()
nik.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 karyawan(nik,nama,alamat)" & _
"values('" & nik.Text & _
"','" & nama.Text & _
"','" & alamat.Text & "')"
Case 1
SQL = "UPDATE karyawan SET nama='" & nama.Text & "'," & _
"alamat='" & alamat.Text & "' " & _
"WHERE nik='" & nik.Text & "'"
Case 2
SQL = "DELETE FROM karyawan WHERE nik='" & nik.Text & "'"
End Select
MsgBox "Pemrosesan record karyawanbase telah berhasil....!!", vbInformation, "karyawan"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Call hapus
Adodc1.Refresh
nik.SetFocus
End Sub
Sub tampilkaryawan()
On Error Resume Next
nik.Text = rs!nik
nama.Text = rs!nama
alamat.Text = rs!alamat
End Sub
Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub
Private Sub nik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If nik.Text = "" Then
MsgBox "Masukkan nik!", vbInformation, "karyawan"
nik.SetFocus
Exit Sub
End If
SQL = " SELECT * FROM karyawan WHERE nik='" & nik.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
tampilkaryawan
Call rubahcmd(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
nik.Enabled = False
Else
X = nik.Text
Call hapus
nik.Text = X
Call rubahcmd(Me, False, True, False, True)
cmdproses(1).Caption = "&Simpan"
End If
nama.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_karyawanArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xkaryawan1() As String
Dim xkaryawan2() As String
ws.Getkaryawan xkirim, vbString, bytesTotal
xkaryawan1 = Split(xkirim, "-")
Select Case xkaryawan1(0)
Case "SEARCH"
SQL = " delete * FROM karyawan " & _
" where nik= '" & xkaryawan1(1) & "'"
SQL = "SELECT * FROM karyawan WHERE nik='" & xkaryawan1(1) & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
ws.Sendkaryawan "RECORD-" & rs!nama & "/" & rs!alamat
Else
ws.Sendkaryawan "NOTHING-karyawan"
End If
Case "INSERT"
db.BeginTrans
db.Execute xkaryawan1(1), adCmdTable
db.CommitTrans
Adodc1.Refresh
ws.Sendkaryawan "INSERT-XXX"
Case "UPDATE"
db.BeginTrans
db.Execute xkaryawan1(1), adCmdTable
db.CommitTrans
Adodc1.Refresh
ws.Sendkaryawan "UPDATE-XXX"
Case "DELETE"
SQL = " delete * FROM karyawan " & _
" where nik= '" & xkaryawan1(1) & "'"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Adodc1.Refresh
ws.Sendkaryawan "DEL-xxx"
End Select
End Sub
Client
Login
Form login
Perintah program nya
Private Sub Command1_Click()If user.Text = "hery" And password.Text = "0902" 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
Setelah anda buat login terus anda link kan ke MDI
Form MDI
Listing program nya
Private Sub e_Click()
Unload Me
End Sub
Private Sub ldm_Click()
Datakaryawan.Show
End Sub
Lalu anda memilih laporan data karyawan
Form data karyawan
Listing program nya
Dim IpServer As String
Sub hapus()
nik.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(nik,nama,alamat)" & _
"values('" & nik.Text & _
"','" & nama.Text & _
"','" & alamat.Text & "')"
Case 1
SQL = "UPDATE data SET nama='" & nama.Text & "'," & _
"alamat='" & alamat.Text & "' " & _
"where nik='" & nik.Text & "'"
Case 2
SQL = "DELETE FROM data WHERE nik='" & nik.Text & "'"
End Select
MsgBox "pemrosesan RECORD database telah berhasil...!", vbInformation, "data"
Call hapus
nik.SetFocus
End Sub
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
nik.SetFocus
Case 1
If cmdproses(1).Caption = " &Simpan" Then
Else
SQL = "UPDATE data Set " & _
"nama = '" & nama.Text & _
"' , alamat= '" & alamat.Text & _
"' where nik= '" & nik.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-" & nik.Text
End If
Call hapus
nik.SetFocus
Case 3
Call hapus
nik.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 nik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If nik.Text = "" Then Exit Sub
ws.SendData "SEARCH-" & nik.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 = nik.Text
Call hapus
nik.Text = X
Call rubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&Simpan"
nama.SetFocus
Case "RECORD"
xdata2 = Split(xdata1(1), "/")
nik.Text = xdata2(0)
nama.Text = xdata2(1)
alamat.Text = xdata2(2)
Call rubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
nik.Enabled = False
nama.SetFocus
Case "DEL"
MsgBox "penghapusan data berhasil!"
Call hapus
Case "EDIT"
MsgBox "Pengeditan Record berhasil!"
Call hapus
End Select
End Sub
Cara koneksi ke database
Pertama anda harus membuat data base nya terlebih dahulu dari
Start - all program - ms office - lalu pilih ms acces
Create a new file - blank database - lalu buat nama database nya
Create table in design view - isi field nya - save(ctrl+w)
Buat nama table nya lalu kembali ke table nya dan isi record nya
Selesai lah pembuatan table nya
Lalu anda koneksikan dari
Adodc klik kanan lalu pilih Adodc properties
Klik build pada menu general
Klik connection lalu pilih dari brows dan pilih database nya
Lalu pilih menu bar - record source
Ganti command type menjadi 2-adCmd table
Dan pilih table nya dari pilihan yang no :2(table or stored procedure name)
Lalu copy kan yang ada di menu general(use connection string)
Dan pastekan di listing program modul(db.open”…”)
Adapun Langkah-langkah koneksi ke database adalah sebagai berikut:
Langkah 1
Langkah 2
Langkah 3
Langkah 4
Jumat, 14 Oktober 2011
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.
Network dan Transmisi
Server dan client dapat terkoneksi dengan sebuah media transmisi. Media transmisi ini dapat berupa kabel, wireless, atau fiber. Dengan media ini memungkinkan sebuah perusahaan untuk melakukan enterprice network lebih besar dalam sebuah workgroup atau departemen. Untuk itu dibutuhkan interoperability sebagai contoh operasi dan pertukaran informasi yang heterogen melalui berbagai perangkat software dalam jaringan. Esensinya adalah keterbukaan dalam melakukan pertukaran baik komponen dan software yang berasal dari vendor yang berbeda-beda. Dengan interoperability baik vendor dan customer akan mendapatkan keuntungan.
Interoperability memberikan dampak pada arsitektur jaringan. Awal sebuah arsitektur jaringan adalah SNA namun arsitektur ini bersifar proprietary dan tidak terbuka dengan vendor lainnya. Kemudian sebagian besar orang beralih ke OSI yang di standarkan oleh ISO ( International Standards Organization ). OSI banyak di gunakan di Eropa namun kurang berkembang di Amerika Serikat. Di Amerika Serikat muncul TCP/IP yang kemudian di dukung oleh Unix User Group.
Servers
Konektivitas adalah hal yang terpenting namun bukan satu-satunya faktor untuk mendapatkan efisiensi dan efektivitas sharing resource yang dimiliki. Dibutuhkan sebuah perangkat yang memiliki kemampuan mengontrol software, menjalankan program applikasi, dan mengakses database dengan mudah dan cepat. Untuk itulah diperlukan sebuah Server. Sebuah Server harus mendukung spesifikasi yang mendukung resource sharing seperti Network Server Operating System, Multiple User Interface, GUI ( Graphic User Interface ), dialog oriented cleint – server languange seperti SQL dan database arsitektur. Saat ini resuorce bisa tersebar secara spasial tidak hanya berada dalam batasan sebuah negara namun sudah antar negara yang membutuhkan interkoneksi yang tinggi.
Beberapa software dapat diperoleh dari vendor atau software house. Software tersebut bisa bersifat mainframe centric (sentral) atau PC server centric. Namun selain semua hal yang tersedia pada paket software tersebut tetap dibutuhkan in house sofware development. Juga perlu untuk mengintegrasikan sistem client server dengan sistem informasi yang telah ada dan menggunakan sistem tersebut tidak hanya sebagai end user tapi juga bekerja diantara group end user.
Server melakukan pemprosesan mirip dengan pemrosesan yang ada disisi client. Namun ada sedikit perbedaan, biasanya sebuah server tidak mempunyai User Interface karena didesain untuk networking, memproses database dan memproses applikasi. Pembeda antara pemrosesan client dan server ada pada tanggungjawab dan fungsi dari pemrosesan yang dilakukan. Sebagai contoh sebuah server dapat bertindak sebagai repository dan penyimpanan informasi dalam kasus pada file server. Tipe dari Server tergantung pada kebutuhan dan tujuan sistem. Dalam beberapa kasus sebuah server harus mampu melakukan multitaskting (membentuk multi fungsi secara simultan), menggunakan multiple operating system, lebih portable, memiliki skalabilitas, dan memiliki waktu respon yang cepat untuk melakukan teleprosesing . Dengan kapabilitas seperti itu menjadikan server memiliki harga yang relatif mahal. Penyebab mahalnya harga server adalah :
Network Management
Gateway function termasuk akses keluar dan e-mail publik
Penyimpanan
File Sharing
Batch processing
Bulletin Board access
Facsimile transmission
Pemrosesan Database Beberapa prinsip pemrosesan data pada server termasuk didalamnya adalah integritas, sekuriti, dan recovery data. Enterprise data yang dibutuhkan oleh sebuah perusahaan membutuhkan sebuah integrasi, pengaksesan data yang di kendalikan dan kelola dengan securiti yang baik, dan recovery data dapat dilakukan jika terjadi kegagalan sistem. Beberapa data management dilakukan secara otomatis. Biasanya dilakukan oleh DBMS yang berada di Server yang mengontrol akses diantara pemprosesan multiple sistem dan mengintegrasikan akses data melalui network management.
cilent server
Klien-server atau client-server merupakan sebuah paradigma dalam teknologi informasi yang merujuk kepada cara untuk mendistribusikan aplikasi ke dalam dua pihak: pihak klien dan pihak server. Dalam model klien/server, sebuah aplikasi dibagi menjadi dua bagian yang terpisah, tapi masih merupakan sebuah kesatuan yakni komponen klien dan komponen server. Komponen klien juga sering disebut sebagai front-end, sementara komponen server disebut sebagai back-end. Komponen klien dari aplikasi tersebut dijalankan dalam sebuah workstation dan menerima masukan data dari pengguna. Komponen klien tersebut akan menyiapkan data yang dimasukkan oleh pengguna dengan menggunakan teknologi pemrosesan tertentu dan mengirimkannya kepada komponen server yang dijalankan di atas mesin server, umumnya dalam bentuk request terhadap beberapa layanan yang dimiliki oleh server. Komponen server akan menerima request dari klien, dan langsung memprosesnya dan mengembalikan hasil pemrosesan tersebut kepada klien. Klien pun menerima informasi hasil pemrosesan data yang dilakukan server dan menampilkannya kepada pengguna, dengan menggunakan aplikasi yang berinteraksi dengan pengguna. Sebuah contoh dari aplikasi client/server sederhana adalah aplikasi web yang didesain dengan menggunakan Active Server Pages (ASP) atau PHP. Skrip PHP atau ASP akan dijalankan di dalam web server (Apache atau Internet Information Services), sementara skrip yang berjalan di pihak klien akan dijalankan oleh web browser pada komputer klien. Klien-server merupakan penyelesaian masalah pada software yang menggunakan database sehingga setiap komputer tidak perlu diinstall database, dengan metode klien-server database dapat diinstal pada suatu komputer sebagai server dan aplikasinya diinstal pada client.
Minggu, 09 Oktober 2011
Membuat Database Baru
Server database yang akan digunakan adalah SQLExpress 2005 yang sudah terintegrasi ke dalam IDE Visual Studio 2008. Untuk membuat suatu database, kita bisa membuatnya melalui panel Server Explorer. Munculkan panel Server Explorer dengan menekan kombinasi tombol ‘CTRL+W, L’ bila panel Server Explorer belum tampil.
Pada panel Server Explorer, klik kanan pada ‘Data Connection’ dan pilih ‘Create New SQL Server Database’, akan muncul dialog baru. Masukkan pada kolom ‘Server Name’ dengan (local)\SQLEXPRESS dan masukkan pada bagian ‘New Database Name’ dengan DataBarang. Klik ‘OK’.
Tampilan dalam Server Explorer akan menjadi seperti ini:
Langganan:
Postingan (Atom)