Phasmina Rainbow

Phasmina Rainbow dengan bahan rajut tersedia banyak warna

harga :

5pcs : 175.000 (35.000/pcs)
10pcs : 340.000 (34.000/pcs)
20pcs : 660.000 (33.000/pcs)

hubungi : 081377460601

barang readi jakarta

Grosir Phasmina

Phasmina Polos dengan bahan kaos tersedia banyak warna

harga :

5pcs : 105.000 (21.000/pcs)
10pcs : 190.000 (19.000/pcs)
20pcs : 360.000 (18.000/pcs)

hubungi : 081377460601

barang readi jakarta

Phasmina Polos dengan bahan sifon tersedia banyak warna

harga :

5pcs : 105.000 (21.000/pcs)
10pcs : 190.000 (19.000/pcs)
20pcs : 360.000 (18.000/pcs)

hubungi : 081377460601

barang readi jakarta

Phasmina Motiv LV dengan bahan sifon tersedia banyak warna

harga :

5pcs : 105.000 (21.000/pcs)
10pcs : 190.000 (19.000/pcs)
20pcs : 360.000 (18.000/pcs)

hubungi : 081377460601

barang readi jakarta

Quis Online Soal No.3

Postingan 2 :

Jawaban soal no.3  (elysa yamin)

listing program dibawah ini mengarah pada SOAL INI

Listing program

SERVER

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 & "-ElysaYamin"
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

Quis Online No.2

SOAL NO 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

Hasil Program

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=\\Sriwahyu-a562c3\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

Cara Mengatasi Masuk Angin

Sebelum menuju Cara Mengatasi Masuk Angin, saya ingin meminta maaf terlebih dulu kepada semua pengunjung blog ini karna selama 3 bulan lebih saya tidak menelurkan postingan, dikarenakan kesibukan saya dikampus (alhamdulillah minggu depan mau ujian sidang Tugas Akhir). Tak lupa juga kepada yang telah meninggalkan kometar diblog ini, maaf komentarnya tidak saya balas.

Mengawali perjumpaan kita ditahun 2011 ini, saya akan menuliskan tips untuk mengobati masuk angin.

Sebenarnya apa sih masuk angin itu? dana apa penyebab masuk angin?

Masuk angin! Sebenarnya, angin tidak benar-benar masuk ke dalam tubuh. Yang benar adalah, tiupan angin menyebabkan suhu tubuh menurun. Lalu, muncul gejala seperti pusing, meriang, pegal-pegal, perut kembung, batuk-pilek dan demam. Dalam dunia kedokteran, istilah masuk angin adalah bagian dari gejala flu, khususnya yang sering terjadi pada pergantian musim (pancaroba).

Untuk mengatasi penyakit masuk angin ini, saya akan menuliskan beberapa resep tradisional yang tidak ada salahnya untuk anda coba.

Obat Untuk Masuk Angin ke-1

Bahan:
- Daun Jinten (5 lembar)
- Air Panas (1/2 gelas)

Pemakaian:
Cuci bersih daun jinten, kemudian haluskan. Masukan (seduh ) daun jinten yang sudah halus tersebut pada 1/2 gelas air panas. Saring ramuan tersebut dan minum 1 kali sehari.

Obat Untuk Masuk Angin ke-2

Bahan:
- Daun kayu putih kering (6-10 gram)
- Air (2 gelas)

Pemekaian:
Rebus daun kayu putih dalam 2 gelas air, hingga tersisa 1 gelas. setelah dingin, saring airnya dan minum 1 kali sehari.

[Ramuan obat untuk masuk angin diatas bisa juga digunakan untuk mengobati perut kembung].

Sekian Cara mengatasi masuk angin yang alami dan murah, semoga bisa bermanfaat bagi anda yang sedang mengalami masalah dengan penyakit masuk angin dan perut kembung.

sistem basis data

  PENGERTIAN SISTEM BASIS DATA

                Basis data terdiri dari 2 kata, yaitu basis & data. Basis dapat diartikan sebagai markas / gudang, tempat berkumpul. Sedangkan data adalah fakta yang mewakili suatu objek seperti manusia, barang, hewan peristiwa, keadaan dan sebagainya, yang direkam dalam bentuk angka, huruf simbol, teks gambar, bunyi atau kombinasinya.

Basis data sendiri dapat di definisikan dalam sejumlah sudut pandang seperti :

1.       Himpunan kelompok data / arsip yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat & mudah.

2.       Kumpulan data yang saling berhubungan yang disimpan secara bersama sedemikian rupa dan tanpa pengulangan/ penumpukan (redundansi), untuk memenuhi berbagai kebutuhan.

3.       Kumpulan file/ tabel /arsip yang saling berhubungan yang disimpan dalam media penyimpanan elektronis.

• Basis data (database) adalah kumpulan dari berbagai data yang saling berhubungan satu dengan yang lainnya. Basis data tersimpan di perangkat keras, serta dimanipulasi dengan menggunakan perangkat lunak. Pendefinisian basis data meliputi spesifikasi dari tipe data, struktur dan batasan dari data atau informasi yang akan disimpan. Database merupakan salah satu komponen yang penting dalam sistem informasi, karena merupakan basis dalam menyediakan informasi pada para pengguna atau user.

 • Penyusunan basis data meliputi proses memasukkan data kedalam media penyimpanan data dan diatur dengan menggunakan perangkat Sistem Manajemen Basis Data (Database Management System DBMS). Manipulasi basis data meliputi pembuatan pernyataan (query) untuk mendapatkan informasi tertentu, melakukan pembaharuan atau penggantian (update) data, serta pembuatan report data.

 • Tujuan utama DBMS adalah untuk menyediakan tinjauan abstrak dari data bagi user. Jadi sistem menyembunyikan informasi mengenai bagaimana data disimpan dan dirawat, tetapi data tetap dapat diambil dengan efisien. Pertimbangan efisien yang digunakan adalah bagaimana merancang struktur data yang kompleks, tetapi tetap dapat digunakan oleh pengguna yang masih awam, tanpa mengetahui kompleksitas struktur data. Basis data menjadi penting karena munculnya beberapa masalah bila tidak menggunakan data yang terpusat, seperti adanya duplikasi data, hubungan antar data tidak jelas, organisasi data dan update menjadi rumit.

Jadi tujuan dari pengaturan data dengan menggunakan basis data adalah : 

• Menyediakan penyimpanan data untuk dapat digunakan oleh organisasi saat sekarang dan masa yang akan datang.

 • Kemudahan pemasukan data, sehingga meringankan tugas operator dan menyangkut pula waktu yang diperlukan oleh pemakai untuk mendapatkan data serta hak-hak yang dimiliki terhadap data yang ditangani. 

• Pengendalian data untuk setiap siklus agar data selalu up-to-date dan dapat mencerminkan perubahan spesifik yang terjadi di setiap sistem. 

• Pengamanan data terhadap kemungkinan penambahan, pengubahan, pengerusakan dan gangguan-gangguan lain.

Alasan mengapa mempelajari basisdata :

1.       Perpindahan dari komputasi ke informasi

2.       Himpunan elemen data semakin banyak dan beragam

·       Perpustakaan digital. Video interaktif

·       Kebutuhan untuk memperluas DBMS

3.       DBMS mencakup bidang ilmu lain

                      Sistem operasi, bahasa pemrograman, teori komputasi, AI, logika, multimedia.

Operasi dasar pembuatan Basis data :

·       Pembuatan Basis Data (Create Database)

·       Yang identik dengan pembuatan lemari arsip yang baru.

·       Penghapusan Basis Data (Drop Database)

·       Yang identik dengan perusakan lemari arsip (sekaligus beserta isinya, jika ada)

·       Pembuatan File/Table baru ke suatu basis data (Create Table)

·       Yang identik dengan penambahan map arsip baru ke sebuah lemari arsip yang telah ada.

·       Penghapusan File/Table dari suatu basis data (Drop Table)

·       Yang identik dengan perusakan map arsip lama yang ada di sebuah lemari arsip.

·       Penambahan data baru ke suatu file/table di sebuah basis data (insert)

·       Identik dengan penambahan lembaran arsip baru kesebuah map arsip.

·       Pengambilan data dari sebuah file/table (Retrieve/Search)

·       Identik dengan pencarian lembaran arsip dari sebuah map arsip.

·       Pengubahan data dari sebuah file/table (Update)

·       Identik dengan perbaikan isi lembaran arsip yang ada di sebuah map arsip.

·       Penghapusan data dari sebuah file/table (Delete)

·       Identik dengan penghapusan sebuah lembaran arsip yang ada di sebuah map arsip.

B.  Hirarki Data

                      Berdasarkan tingkat kompleksitas nilai data, tingkatan data dapat disusun kedalam sebuah hirarki, mulai dari yang paling sederhana hingga yang paling komplek.

1.        Basis data, merupakan sekumpulan dari bermacam-macam tipe record yang memiliki hubungan antar record.

2.        Berkas/file, merupakan sekumpulan rekaman data yang berkaitan denngan suatu objek.

3.        Record , merupakan sekumpulan field/atribut/data item yang saling berhubungan terhadap obyek tertentu

a.       Fixed length record, semua field dalam record memiliki ukuran yang tetap.

b.       Variabel length record, field-field dalam record dapat memiliki ukuran berbeda (metode penandaan yang digunakan adalah : end of record marker, indikator panjang, dan tabel posisi record)

4.       Field/atribut/data item, merupakan unit terkecil yang disebut data,yang tidak dapat dipecah lagi menjadi unit lain yang bermakna.

a.       Fixed length field, memiliki ukuran yang tetap

b.       Variabel length field, field-field dalam record dapat memiliki ukuran berbeda.

5.       Byte, adalah bagian terkecil yang dialamatkan dalam memori.  

     Byte merupakan sekumpulan bit yang secara konvensional terdiri atas kombinasi delapan bit yang menyatakan sebuah karakter dalam memori (I byte= I karakter)

6.       Bit, adalah sistem binner yang terdiri atas dua macam nilai, yaitu 0 dan 1. sistem binner merupakan dasar yang dapat digunakan untuk komunikasi antara manusia dan mesin, yang merupakan serangkaian komponen elektronik dan hanya dapat membedakan 2 macam keadaan, yaitu ada tegangan dan tidak ada tegangan yang masuk ke rangkaian tersebut.

.  Konsep DBMS (database management system)

Database Management System (DBMS) merupakan paket program (Software) yang dibuat agar memudahkan dan mengefisienkan pemasukan, pengeditan, penghapusan dan pengambilan informasi terhadap database.

Software yang tergolong kedalam DBMS antara lain, Microsoft SQL, MySQL, Oracle, MS. Access, dan lain-lain

   

K  omponen utama DBMS :

1.       Perangkat keras

Berupa komputer dan bagian-bagian didalamnya, seperti prosesor, memori & harddisk. Komponen inilah yang melakukan pemrosesan dan juga untuk menyimpan basis data.

2.       Basisdata

Sebuah DBMS dapat memiliki beberapa basisdata, setiap basis data dapat berisi sejumlah obyek basisdata (file,tabel,indeks dsb). Disamping berisi data,setiap basisdata juga menyimpan definisi struktur (baik untuk basis data maupun obyek-obyeknya secara detail).

3.       Perangkat lunak

Perangkat lunak ini terdiri dari sistem operasi dan perangkat lunak/program pengelola basisdata. Perangkat lunak inilah yang akan menentukan bagaimana data diorganisasi,disimpan, diubah dan diambil kembali. Ia juga menerapkan mekanisme pengamanan data, pemakaian data secara bersama, pemaksaan keakuratan/konsistensi data, dan sebagainya.

Contoh perangkat lunak DBMS : MS access, SQL Server, Oracle dsb.

4.       Pengguna/user

Pengguna dapat digolongkan menjadi 3 :

·       Pengguna akhir / end user, Dapat dibagi menjadi 2 :

a.       Pengguna aplikasi : adalah orang  yang mengoperasikan program aplikasi yang dibuat oleh pemrogram aplikasi.

b.       Pengguna interaktif : adalah orang yg dpt memberikan perintah-perintah pada antar muka basisdata, misalnya SELECT, INSERT dan sebagainya.

·       Pemrogram aplikasi adalah orang yang membuat program aplikasi yang menggunakan basisdata.

·       Administrator database / DBS (database administrator) adalah orang yang bertanggungjawab terhadap pengelolaan basisdata.