Jawaban no 3 (Dedy Setiawan)

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

Jawaban no 2 (Dedy Setiawan)

Form Client :

Listing Program Modul :

Public SQL As String

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
Dim IPServer As String


Sub Hapus()
    Kode.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 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"
    Call Hapus
    Kode.SetFocus
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 Kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Kode.Text = "" Then Exit Sub
    WS.SendData "SEARCH-" & Kode.Text
End If
End Sub

Private Sub CmdProses_Click(Index As Integer)
Select Case Index
    Case 0
        Call Hapus
        Kode.SetFocus
    Case 1
        If CmdProses(1).Caption = "&Simpan" Then
       
        Else
       
        End If
    Case 2
        X = MsgBox("Yakin RECORD Barang Akan Dihapus.....!", vbQuestion + vbYesNo, "Barang")
        If X = vbYesNo Then
              WS.SendData "DELETE-" & Kode.Text
        End If
        Call Hapus
        Kode.SetFocus
    Case 3
        Call Hapus
        Kode.SetFocus
    Case 4
        Unload Me
    End Select
End Sub

Private Sub Form_Load()
Call Hapus
MulaiKoneksi
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 = Kode.Text
        Call Hapus
        Kode.Text = X
        Call RubahCMD(Me, False, True, False, True)
        CmdProses(1).Caption = "&Simpan"
        Nama.SetFocus
    Case "RECORD"
        xData2 = Split(xData1(1), "/")
        Nama.Text = xData2(0)
        Harga.Text = xData2(1)
        Call RubahCMD(Me, False, True, True, True)
        CmdProses(1).Caption = "&Edit"
        Kode.Enabled = False
        Nama.SetFocus
    Case "DEL"
        MsgBox "Penghapusan Data Berhasil!"
        Call Hapus
    Case "EDIT"
        MsgBox "Pengeditan Record Berhasil!"
        Call Hapus
    End Select
End Sub


Form Server :

Listing 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:\BelajarServer\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 :


Sub hapus()
kode.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 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 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


Private Sub Form_Load()
Call OPENDB
Call hapus
MulaiServer
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 = "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"
            Db.BeginTrans
            Db.Execute xData1(1), adCmdTable
            Db.CommitTrans
            WS.SendData " INSERT-xxx"
            Adodc1.Refresh
           
         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
            WS.SendData "EDIT-xxx"
            Adodc1.Refresh
    End Select
End Sub

TUGAS CLIENT "SISWA"

Form Login

Listing Program

Private Sub Command1_Click()

If username.Text = "dedy" And pass.Text = "1234" Then

    Menu.Show

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Form siswa

Listing program:

Sub Hapus()

    Nis.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 siswa(nis,nama,alamat,ttl, tahun)" & _

        "values('" & Nis.Text & _

        "','" & Nama.Text & _

        "','" & alamat.Text & _

        "','" & ttl.Text & _

        "','" & tahun.Text & "')"

    Case 1

        SQL = "UPDATE siswa Set nama='" & Nama.Text & "'," & _

            "alamat='" & alamat.Text & "'," & _

            "ttl='" & ttl.Text & "'," & _

            "tahun='" & tahun.Text & "'," & _

            "where nis='" & Nis.Text & "'"

    Case 2

        SQL = " DELETE * FROM siswa WHERE nis='" & Nis.Text & "'"

    End Select

    MsgBox "Pemrosesan RECORD Database telah berhasil....!", vbInformation, "Data siswa"

    Call Hapus

    Nis.SetFocus

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 nis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

  If Nis.Text = "" Then Exit Sub

  WS.SendData "SEARCH-" & Nis.Text

End If

End Sub

Private Sub CmdProses_Click(Index As Integer)

Select Case Index

    Case 0

        Call Hapus

        Nis.SetFocus

    Case 1

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

       

        SQL = "Insert into siswa(nis, Nama,alamat,ttl, tahun)" & _

            "Nama='" & Nama.Text & _

            "',alamat='" & alamat.Text & _

            "',ttl='" & ttl.Text & _

            "',tahun='" & tahun.Text & _

            "'Where nis='" & Nis.Text & "'"

            WS.SendData "INSERT-" & SQL

Else

        SQL = "UPDATE siswa set " & _

            "Nama='" & Nama.Text & _

            "',alamat='" & alamat.Text & _

            "',ttl='" & ttl.Text & _

            "',tahun='" & tahun.Text & _

            "'Where nis='" & Nis.Text & "'"

            WS.SendData "UPDATE-" & SQL

            End If

    Case 2

        X = MsgBox("Yakin RECORD siswa Akan Dihapus.....!", vbQuestion + vbYesNo, "siswa")

        If X = vbYes Then

        WS.SendData "DELETE-" & Nis.Text

        End If

        Call Hapus

        Nis.SetFocus

    Case 3

        Call Hapus

        Nis.SetFocus

    Case 4

        Unload Me

    End Select

End Sub

Private Sub Form_Load()

Call Hapus

MulaiKoneksi

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, "-")

xData2 = Split(xData1(1), "/")

Select Case xData1(0)

    Case "NOTHING"

        X = Nis.Text

        Call Hapus

        Nis.Text = X

        Call RubahCMD(Me, False, True, False, True)

        CmdProses(1).Caption = "&Simpan"

        Nama.SetFocus

    Case "RECORD"

        xData2 = Split(xData1(1), "/")

        Nama.Text = xData2(0)

        alamat.Text = xData2(1)

        ttl.Text = xData2(2)

        tahun.Text = xData2(3)

        Call RubahCMD(Me, False, True, True, True)

        CmdProses(1).Caption = "&Edit"

        Nis.Enabled = False

        Nama.SetFocus

    Case "DEL"

        MsgBox "Penghapusan Data Berhasil!"

        Call Hapus

    Case "EDIT"

        MsgBox "Pengeditan Record Berhasil!"

        Call Hapus

    Case "INSERT"

        MsgBox "Penginputan Data Record Berhasil!"

        Call Hapus

    End Select

End Sub

Form Menu

Listing program

Private Sub MDIForm_Load()

Menu.Show

End Sub

Private Sub Siswa_Click()

FrmSiswa.Show

End Sub

kegiatan Sehari Hari

Kehidupan

Saya orang yang pendiam ,tidak banyak omong, mensyukuri kehidupan saya walaupun sederhana, Saya suka bercanda & tawa walaupun pada siapa pun orang itu, ,yang penting orang itu bisa menghargai orang lain dan tidak membuat orang sakit hati alamat saya tinggal di Indrapura, saya anak kedua dari dua bersaudara..

Saya mempunyai saudara perempuan bernama Titin Arianti tapi sudah berkeluarga....

 Bapak saya bekerja sebagai karyawan inalum  yang penghasilannya tidak seberapa yang hanya cukup buat kehidupan sehari-hari,sedangkan Ibu saya hanya seorang Ibu Rumah Tangga....

Hobby

            bola volly dan sepak bola adalah hoby saya,karena bagi saya bola volly sepak bola adalah olahraga yang sangat menyenang kan.

Kegiatan Sehari-hari

            Kegiatan saya sehari-hari yaitu  kuliah pagi diSTMIK BUDIDARMA MEDAN jurusan Manajemen Informatika dan saya mengambil D3 dan saya pergi kuliah dengan mengendarai sepeda motor, tempat tinggal saya sekarang di jln halat

Minat

            Saya ingin menjadi orang yang sukses dan bisa membahagiakan kedua orang tua saya yang selama ini mereka sudah susah payah untuk mendidik saya dan saya  pengen menjadi orang yang berguna bagi semua orang yang mengenal dengan saya,itulah minat saya.

DEFINISI SITSTEM BASIS DATA

SISTEM DATABASE adalah suatu sistem penyusunan dan pengelolaan record-record
dengan menggunakan komputer, dengan tujuan untuk menyimpan atau merekam serta
memelihara data operasional lengkap sebuah organisasi/perusahaan, sehingga mampu
menyediakan informasi yang optimal yang diperlukan pemakai untuk kepentingan proses
pengambilan keputusan.


KOMPONEN SISTEM BASIS DATA
Lebih lanjut lagi, dalam sebuah sistem basis data, secara
lengkap akan terdapat komponen-komponen utama sbb:

1. Perangkat Keras (Hardware)
2. Sistem Operasi (Operating System)
3. Basis Data (Database)
4. Sistem (Aplikasi/Perangkat Lunak) Pengelola Bisnis Data (DBMS)
5. Pemakai (User)
6. Aplikasi (perangkat lunak) lain (bersifat opsional)

MANAJEMEN SISTEM BASIS DATA

    Sistem Basis Data

Sistem  basis  data  dapat  diartikan   sebagai   kumpulan   file  /  table yang  saling berhubungan  (dalam  sebuah  basis  data  di  sebuah  sistem  komputer),  dan  sekumpulan program (DBMS / Database Management System) yang memungkinkan beberapa user (pemakai), dan / atau program lain  untuk mengakses dan memanipulasi file (table) tersebut. Komponen – komponen utama dari sebuah sistem basis data adalah sebagai  berikut :

1).     Perangkat keras (hardware)

2).     Sistem operasi (operating system)

3).     Basis data (database)

4).     Sistem (aplikasi/perangkat lunak) pengelola basis data (DBMS)

5).     Pemakai (user)

6).     Aplikasi (perangkat lunak) lain (bersifat optional)

Pada  gambar  1.3.  sistem  basis  data  dapat  dilihat  bahwa  basis  data  pada  intinya adalah  disimpan  pada  media  penyimpanan  elektronik  (hardisk),  sedangkan  database  adalah terdiri dari beberapa file / table yang saling berelasi (berhubungan). Basis data tersebut dikelola oleh DBMS (database  management  system) dan database tersebut dapat dimanfaatkan  oleh beberapa user (pemakai) yang dapat melakukan manipulasi pada database. Tidak semua user

dapat melakukan manipulasi data didalam database, hal ini diatur sesuai dengan hak aksesnya

Gambar 1.4. Sistem Basis Data

1.3.1.      Perangkat Keras

Perangkat  keras  yang  biasanya  terdapat  dalam  sistem  basis  data  adalah sebagai berikut:

1).     Komputer  (satu  untuk  yang  stand-alone atau  lebih  dari  satu  untuk  sistem jaringan).

1).     Memori sekunder yang on-line (harddisk).

3).     Memori sekunder yang off-line (tape) untuk keperluan backup data.

4).     Media / perangkat komunikasi (untuk sistem jaringan).

1.3.2.      Sistem Operasi

Merupakan  program yang mengaktifkan  / memfungsikan  sistem komputer, mengendalikan  seluruh  sumber  daya  dalam  komputer  dan  melakukan operasi  – operasi  dasar  dalam  komputer  (operasi  input/output),  pengelolaan  file,  dan  lain sebagainya.

Program  pengelola  basis  data  (DBMS)  akan  aktif  (running)  jika  sistem operasi yang dikehendakinya (sesuai) telah aktif.

Contoh daripada sistem operasi pada sistem komputer adalah MS-DOS, MS Windows (3.11,95,98 dan lainnya) untuk yang stand alone dan MS Windows (2000 Server, UNIX, LINUX,  Novel_Netware dan lain sebagainya) utuk yang jaringan.

1.3.3.      Basis Data

Sebuah sistem basis data dapat memiliki beberapa basis data. Setiap basis data dapat memiliki  sejumlah  objek basis data (seperti  file/table, store procedure, indeks, dan lainya). Disamping berisi / menyimpan data, setiap basis data juga mengandung  / menyimpan  definisi struktur  (baik untuk basis  data maupun  objek- objeknya secara detail).

1.3.4.      Sistem pengelola basis data (DBMS)

Pengelolaan basis data secara fisik tidak ditangani langsung oleh user (pemakai),  tetapi  ditangani  oleh  sebuah  perangkat  lunak  (sistem)  yang  khusus  / spesifik.

Perangkat  inilah  disebut  DBMS,  yang  akan  menentukan  bagaimana  data diorganisasi,   disimpan,   diubah,  dan  diambil  kembali.   Perangkat   tersebut   juga menerapkan   mekanisme   pengamanan   data  (security),   pemakaian   data  secara bersama (sharing data), pemaksaan keakuratan / konsistensi data, dan sebagainya. Perangakat  lunak  yang  termasuk  DBMS  adalah  MS-Access,  Foxpro,  Dbase-IV, Foxbase, Clipper, dan lainnya untuk kelas sederhana, dan Oracle, Informix, Sybase, MS-SQL Server, dan lainnya untuk kelas kompleks / berat.

1.3.5.      Pemakai (Users)

Ada beberapa jenis / tipe pemakai pada sistem basis data, berdasarkan cara mereka berinteraksi pada basis data, diantaranya adalah:

1).     Programmer Aplikasi

Adalah pemakai yang berinteraksi dengan basis data melalui  DML (data  manipulation  language),  yang disertakan dalam program yang ditulis dalam bahasa pemrograman   induk   (seperti   pascal,   cobol,   clipper, foxpro, dan lainnya).

2). User Mahir (casual user)

Adalah pemakai yang berinteraksi dengan sistem tanpa menulis   modul   program.   Mereka   menyatakan   query (untuk akses data), dengan bahasa query yang telah disediakan oleh suatu DBMS.

3).     User Umum (End User)

Adalah pemakai yang berinteraksi  dengan sistem basis data              melalui    pemanggilan         satu         program                 aplikasi permanen, yang telah ditulis / disediakan sebelumnya.

4).     User Khusus (Specialized User)

Adalah  pemakai  yang  menulis  aplikasi  basis  data  non konvensional  untuk keperluan   khusus,   seperti   untuk aplikasi AI, Sistem Pakar, Pengolahan Citra, dan lainnyal, yang  bisa  saja  mengakses  basis  data  dengan  / tanpa DBMS.

Untuk sebuah sistem basis data yang stand-alone,  maka pada suatu saat hanya ada satu pemakai, sedangkan  untuk jaringan pada suatu saat ada banyak pemakai  yang dapat berhubungan  (menggunakan)  basis data yang sama. Pilihan untuk  stand-alone atau  jaringan  (multiuser)  tergantung   pada (ditentukan  oleh) kebutuhan pemakai, perangkat keras yang tersedia, sistem operasi yang digunakan, serta DBMS yang dipilih.

1.3.6.      Aplikasi (perangkat lunak) lain

Aplikasi lain ini bersifat optional, ada tidaknya  tergantung  pada kebutuhan kita. DBMS yang kita gunakan lebih berperan dalam pengorganisasian  data dalam basis data, sementara bagi pemakai basis data (khususnya yang menjadi end user) dapat disediakan program khusus untuk melakukan pengisian, pengubahan dan pengambilan data.

1.4.      Sistem Manajemen Basis Data (DBMS)

DBMS adalah koleksi terpadu dari program-program  (sistem perangkat lunak) yang digunakan  untuk mendefinisikan,  menciptakan,  mengakses  dan merawat database  (basis data).   Tujuannya   adalah   menyediakan   lingkungan   yang   mudah   dan   aman   untuk penggunaan dan perawatan database. Contoh daripada DBMS adalah Ms-Access, MS Sql Server dan Oracle.