Senin, 18 November 2013

Bahasa Query Komersil


SQL (Structure Query Language)

1.Sejarah SQL

Sejarah dari SQL tidak lepas dari sejarah project dari IBM yang bernama System R. Tujuan dari project ini adalah untuk penelitian Relational ( hubungan ) Databases Server. Project ini dibuat pada laboratorium penelitian IBM di San Jose California. Project tersebut diniatkan untuk mendemonstrasikan keunggulan penggunaan fitur dari relasi pemodelan yang akan diterapkan pada suatu sistem untuk memenuhi kebutuhan database modern server.
Project System R ini telah memecahkan permasalahan yaitu permasalahan tentang tidak adanya bahasa baku pada relasional database. Sehingga dengan adanya bahasa yang baku, setiap database dapat diacu dengan mudah. Sequel adalah nama bahasa yang diasung oleh adanya project System R ini yang didesain oleh R.F Boyce dan D.D. Chamberlin. Dalam pembuatan project tersebut, bahasa Sequel berganti nama menjadi SQL karena kata “Sequel” bermasalah dalam trademark.
Project System R terbentuk dari 3 tahap, tahap pertama dinamakan tahap ke-0 sekitar tahun 1974-1975. Pada tahap ini hanya sebagian kecil yang di-implementasikan pada SQL. Sebagai contoh, fungsi JOIN ( menggunakan data dari beberapa table) belum diterapkan namun hanya single user version yang dulu diterapkan. Tujuan pada tahap ini adalah untuk mengetahui apakah implementasi pada beberapa sistem dapat diterapkan.
Tahap ke-1 dimulai pada tahun 1976-1977. Semua kode program ditulis pada tahap ke-0 sebagai awalan. Pada tahap ke-1 ini terdiri dari keseluruhan sistem, hal ini berarti pada tahap ini telah banyak hal baru dibuat. Sebagai contoh telah terbentuknya multiuser dan penggunaan JOIN.Tahap terakhir dari System R adalah sistem ini telah terinstal di beberapa komponen dalam IBM dan sebagian besar dari client IBM. Tahap ini terjadi sekitar tahun 1978-1979.
Para pengembang menggunakan pengetahuan yang dimiliki dan teknologi dari penerapan pada 3 tahap untuk membuat SQL/DS. SQL/DS adalah relational database server yang bersifat komersil pertama milik IBM. Pada tahun 1981, SQL/DS menjadi paket penjualan dari sistem operasi DOS/VSE, dan versi VM/CMS muncul tahun 1983. Pada tahun yang sama DB2 juga telah dilauncing. Sekarang ini DB2 telah banyak digunakan oleh beberapa sistem operasi.
IBM telah mempublikasikan idenya mengenai pengembangan dari System R pada suatu konferensi atau seminar mengenai relational database server sehingga perusahaan lain seperti Oracle menggunakan SQL sebagai bahasa databasenya. Dalam beberapa tahun sekarang ini telah muncul produk dari SQL pada dunia IT. Dan akhirnya SQL menjadi bahasa yang compatible dengan semua sistem operasi baik yang besar maupun yang kecil.

2.Jenis SQL
1.Interactive  :    langsung dapat dioperasikan.
2.Embedded :     disisipkan ke dalam sebuah program
( Cobol, C, Fortran )

3.Steatmen SQL
1. Data Definition Language ( DDL )
2. Data Manipulation Language ( DML )
3. Data Access
4. Data Integrity
5. Auxiliry


1. DDL atau Data Definition Language adalah kumpulan perintah SQL yang dapat digunakan untuk membuat dan mengubah struktur dan definisi tipe data dari objek-objek database seperti tabel, index, trigger, view, dan lain-lain.
Contoh perintah DDL :
  • Membuat tabel
CREATE TABLE
Digunakan untuk membuat tabel. Syntax umumnya sebagai berikut :
CREATE TABLE [schema, ] table
( column datatype [DEFAULT expr][,...]);
  • Menghapus tabel
DROP TABLE
Digunakan untuk melakukan penghapusan tabel. Melakukan penghapusan table dengan perintah DROP, berarti mengerjakan hal berikut :
Semua data dan struktur dari table akan dihapus Semua transaksi pending akan di-commit Semua indeks akan dihapus Perintah drop ini tidak bisa di-rollback Sebagai contoh, jika kita ingin menghapus tabel dept, maka yang harus dilakukan adalah :
DROP TABLE dept;

  • Menambah /menghapus kolom
  • Statemen ALTER TABLE digunakan untuk :
    ~ Menambahkan kolom baru
    Untuk menambah kolom baru, syntax umumnya sebagai berikut :
ALTER TABLE table
ADD         (column datatype [DEFAULT expr]
 [, column datatype]...);

~ Memodifikasi kolom yang sudah ada
Kita dapat memodifikasi kolom dengan mengubah tipe datanya, ukuran dan nilai defaultnya.
Sintaks dari perintah ALTER TABLE untuk memodifikasi kolom sebagai berikut :
ALTER TABLE table
MODIFY      (column datatype [DEFAULT expr]
 [, column datatype] ... );

View adalah tabel bayangan. Tidak menyimpan data secara fisik. Biasanya berupa hasil query dari tabel-tabel dalam sebuah database. Syntax untuk melakuakn VIEW adalah :
CREATE VIEW <namaTabel> AS
 <SQLQuery>

Trigger adalah sebuah obyek dalam database yang berupa prosedur yang merespon setiap kali terdapat proses modifikasi pada tabel. Proses modifikasi berupa: Insert, Update dan delete. Syntax pembuatan Trigger:
CREATE TRIGGER <namaTrigger> ON TABLE <namaTabel>
FOR [DELETE] [,] [INSERT] [,] [UPDATE]
AS <perintahSQL>




 2. DML atau Data Manipulation Language adalah kumpulan perintah SQL yang berhubungan dengan pekerjaan mengolah data di dalam table.
  • Penambahan data pada sebuah tabel
Syntax:
INSERT INTO nama_tabel(field ke-1, ….. field ke-n)
VALUES(nilai_field_ke-1, …. nilai_field_ke-n);

  • Pembaruan data  pada sebuah tabel
Syntax:
UPDATE nama_tabel
SET nama_field = data_baru
WHERE nama_field = data_lama;

  • Penghapusan data pada sebuah tabel
Syntax:
DELETE FROM nama_tabel
[ WHERE kondisi];

  • Pemilihan data dari satu atau beberapa tabel
Syntax :
SELECT [DISTINCT] select_list
FROM table_source
[WHERE search_condition]
[GROUP BY group_by_expression]
[HAVING search_condition]
[ORDER BY order_expression [ASC | DESC] ]


3.  Data Access Yaitu perintah yang digunakan untuk mengontrol hak akses pada suatu database.
Perintah Data Control Language (DCL) :
  • GRANT
  • REVOKE
Contoh penggunaan perintah DCL :
  • Memberikan hak akses UPDATE pada tabel MHS terhadap user FAIZ
GRANT UPDATE ON MHS TO FAIZ;
  • Mencabut Hak Akses UPDATE pada tabel MHS dari user FAIZ
REVOKE UPDATE ON MHS FROM FAIZ;


4. Data Integrity (Recover Table) Yaitu perintah yang digunakan untuk mengembalikan data sebelum terjadi kerusakan.
Perintah Recover Tabel
  • RECOVER TABLE
Contoh penggunaan perintah recover table
  • Kembalikan keadaan data mahasiswa seperti pada saat sebelum terjadi kerusakan
RECOVER TABLE MHS;
5. Auxiliry Yaitu Perintah yang digunakan untuk mengubah data maupun kolom pada tabel.

Perintah Auxiliary :
  • UNLOAD
  • LOAD
  • RENAME
Contoh penggunaan Perintah Auxiliary :
  • Ubah semua data mahasiswa ke bentuk ASCII dan disimpak ke file text di directory /home/indra/
UNLOAD TO "home/indra" DELIMITER "|" SELECT * FROM MHS;
  • Merubah file text ke tabel MHS_2 di directory home/indra;
LOAD FROM "home/indra" DELIMITER "|" INSERT INTO MHS_2;
  • Merubah nama tabel MHS menjadi KELAS
RENAME TABLE MHS TO KELAS;

Kamis, 07 November 2013

Use Case Diagram Sis-Jrs



MAHASISWA MELAKUKAN JRS MATA KULIAH KE KAJUR

*    USE DIAGRAM : SIS - JRS­­­­­­

KETERANGAN
DIAGRAM DISAMPING MENGAMBARKAN HUBUNGAN ANTARA AKTOR MAHASISWA DAN KAJUR DENGAN USECASE “MELAKUKAN KRS MATAKULIAH DALAM JRS”
*    Class Diagram : SIS – JRS
Class diagram menggambarkan struktur dan deskripsi class, package dan objek beserta hubungan satu sama lain seperti containment, pewarisan, asosiasi, dan lain-lain.
MAHASISWA
KRS
MATA KULIAH
Nim 061
Nim 061
Nama Mata Kuliah 061
Nama 061
Kode Mata kuliah  061
Kode Mata Kuliah 061
Jenis Kelamin 061
Mata Kuliah 061

Alamat 061
Tgl Kelas 061


*    Skema Relasi :
Mahasiswa (Nim 061, Nama 061, Jenis Kelamin 061, Alamat 061)
Krs (Nim 061, Kode Mata kuliah  061,Mata Kuliah 061,Tgl Kelas 061)
Mata Kuliah (Nama Mata Kuliah 061, Kode Mata Kuliah 061)

Jumat, 04 Oktober 2013

23.16 - No comments

Program Gaji Pegawai Mengunakan Visual Basic 6.0




CODING PROGRAM NYA =
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        JABATAN.Items.Add("Mandor")
        JABATAN.Items.Add("Kepala Bagian")
        JABATAN.Items.Add("Staff")
        STATUS.Items.Add("Menikah")
        STATUS.Items.Add("Tidak Menikah")
        For i = 1 To 4
            Jlh_Anak.Items.Add(i)
        Next i
        For i = 1 To 10
            Jam_Lembur.Items.Add(i)
        Next i
        BuatTabel()
    End Sub
    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        Select Case JABATAN.Text
            Case "Mandor" : GAJI.Text = 1750000
            Case "Kepala Bagian" : GAJI.Text = 2500000
            Case "Staff" : GAJI.Text = 1250000
        End Select
        Pajak.Text = 0.015 * GAJI.Text
    End Sub
    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        Select Case STATUS.Text
            Case "Menikah" : Tunjangan_Istri.Text = 0.09 * GAJI.Text
            Case "Tidak Menikah" : Tunjangan_Istri.Text = 0
        End Select
    End Sub
    Private Sub Jlh_Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jlh_Anak.SelectedIndexChanged
        If Jlh_Anak.Text >= 2 And STATUS.Text = "Menikah" Then
            Tunjangan_Anak.Text = 0.07 * GAJI.Text
        ElseIf Jlh_Anak.Text = 1 And STATUS.Text = "Tidak Menikah" Then
            Tunjangan_Anak.Text = 0.03 * GAJI.Text
        Else
            Tunjangan_Anak.Text = 0
        End If
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If JABATAN.Text = "Mandor" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 7500
        ElseIf JABATAN.Text = "Kepala Bagian" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 310000
        ElseIf JABATAN.Text = "Staff" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 5000
        Else
            Honor_Lembur.Text = 0
        End If
        Total.Text = Val(Honor_Lembur.Text) + Val(GAJI.Text) + Val(Tunjangan_Istri.Text) + Val(Tunjangan_Anak.Text) + Val(Pajak.Text)
    End Sub
    Private Sub BtnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click
        NAMA.Text = ""
        NIK.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        Tunjangan_Istri.Text = ""
        Jlh_Anak.Text = ""
        Tunjangan_Anak.Text = ""
        Jam_Lembur.Text = ""
        Honor_Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub
    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        IsiTabel()
        NIK.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        Tunjangan_Istri.Text = ""
        Jlh_Anak.Text = ""
        Tunjangan_Anak.Text = ""
        Jam_Lembur.Text = ""
        Honor_Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub
    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Center)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Honor Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nik.Text
        Lst.SubItems.Add(NAMA.Text)
        Lst.SubItems.Add(JABATAN.Text)
        Lst.SubItems.Add(GAJI.Text)
        Lst.SubItems.Add(STATUS.Text)
        Lst.SubItems.Add(Tunjangan_Istri.Text)
        Lst.SubItems.Add(Jlh_Anak.Text)
        Lst.SubItems.Add(Tunjangan_Anak.Text)
        Lst.SubItems.Add(Jam_Lembur.Text)
        Lst.SubItems.Add(Honor_Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : NAMA.Text = "Ramadani Zuanda"
            Case "002" : NAMA.Text = "haris Lesmana"
            Case "003" : NAMA.Text = "jhon carlos"
            Case Else
                NAMA.Text = ""  'Apabila tidak ada yang sama
        End Select
    End Sub
End Class

Kamis, 03 Oktober 2013

22.23 - No comments

Mengaktifkan view thumbnails file gambar di windows 7

Fitur thumbnails pada windows explorer sangat berguna sekali untuk memudahkan pencarian file dalam bentuk gambar. Dengan menggunakan fitur thumbnails maka preview gambar akan tampil pada jendela explorer, sehingga akan lebih memudahkan user untuk mencari file gambar yang diinginkan.

Pada windows xp, fasilitas atau fitur thumbnails ini bisa langsung kita atur di jendela explorer pada menu views di toolbar. Disana biasanya terdapat beberapa pilihan yaitu thumbnails, tiles, icons, list dan details. Klik saja pada thumbnails, maka preview gambar sudah akan langsung tampil.

Berbeda dengan windows xp, di windows 7 secara default tampilan gambar pada jendela explorer adalah gambar default dari windows 7. Jadi gambar yang diinginkan tidak langsung bisa kelihatan di jendela windows explorer, sedangkan pilihan thumbnails pada menu views di toolbar juga tidak ada. Otomatis hal ini akan membuat lambat pencarian file-file gambar pada jendela explorer.


Agar file gambar bisa langsung dilihat secara thumbnails di jendela explorer, ikutilah langkah-langkah berikut ini :
  1. Buka jendela windows explorer ( tombol windows + E pada keyboard )
  2. Klik pada Organize kemudian pilih folder and search options
  3. Pada jendela folder options pilih tab view kemudian hilangkan tanda centang pada always show icons, never thumbnails
  4. Klik OK
Sekarang coba buka file gambar di windows explorer dan atur menu views di toolbar menjadi medium icons atau elarge icons, maka file gambar sahabat akan sudah tampil dengan preview, bukan dengan gambar default lagi.




sumber