TESTING PERINTAH SQL Part I

Sebenarnya ini adalah materi Ujian Basis Data Penulis, dikarenakan kurang yakin apakah bisa diterapkan sisalah satu bahasa pemrograman, maka Penulis mencoba untuk mengujinya dengan Bahasa Visual Basic Versi 6. Semoga dengan sedikit perintah SQL ini dapat di coba juga oleh rekan-rekan semua yang baru belajar perintah SQL. dengan Database engine yang penulis gunakan adalah mysql.

Step I : Tabel design

Pada tahap pertama ini dengan mendesain tabel dengan struktur sbb :
Desain tabel soal :


Desain tabel dosen :


Desain tabel jadwal :


Desain tabel kuliah :


Desain tabel kurikulum :


Desain tabel mahasiswa :


Desain tabel matakuliah :


Demikian Testing perintah SQL Part I (Desain tabel), dan to Continue di Part II (Perintah Select)............Bye..................

KONEKSI ADODB dengan Ms. Acces 2003 (Form View)

Contoh Studi Kasus--> Pengolahan Data Master Konsumen

Step I :
Buat Database menggunakan MS. Acces dengan struktrur sebagai berikut :
Nama database = konsumen.mdb
Nama table = konsumen

No Field name Type Size
1 kd_pelanggan text 5
2 nm_pelangan text 65
3 Kota text 40
4 Telp text 20

Step II
Desain Sebuah dan konekkanlah dengan Form_menu utama denagn desain form sbb Form dengan sebagai berikut :



Properties frm_konsumen

No Object Properties Value
1 Form Name Frm_konsumen
Startupposition 2. CenterScreen
2 CommodButton Name Cmdnew
Caption Addnew
3 CommodButton Name Cmdedit
Caption Edit
4 CommodButton Name Cmdrefresh
Caption Refresh
5 CommodButton Name Cmdexit
Caption Exit
6 TextBox Name Txtnama
7 Label1 Caption Cari Menurut Nama
8 DataGrid Name DataGrid1

Step III :
Ketikkan KOde Programnya sebagai berikut :

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.CursorLocation = adUseClient
cn.Open App.Path & "\konsumen.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen order by kd_pelanggan", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
Call Dg
cmd_refresh_Click
End Sub
Sub Dg()
DataGrid1.Columns(0).Caption = "Kode"
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Caption = "Nama"
DataGrid1.Columns(1).Width = 3000
DataGrid1.Columns(2).Caption = "Telp."
DataGrid1.Columns(2).Width = 1600
DataGrid1.Columns(3).Caption = "Kota"
DataGrid1.Columns(3).Width = 2000
End Sub
Private Sub txtnama_Change()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen where nama_pelangan like '%" & Trim(txtnama.Text) & "%' order by kd_pelanggan", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
Call Dg
End Sub
Private Sub cmd_refresh_Click()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen ", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
Call Dg
End Sub
Private Sub cmdnew_Click()
frmmskonsumen.Show
frmmskonsumen.txtkd_pelanggan.Enabled = True
frmmskonsumen.txtkd_pelanggan.SetFocus
frmmskonsumen.txtkd_pelanggan.Text = ""
frmmskonsumen.txtnama_pelanggan.Text = ""
frmmskonsumen.txtalamat.Text = ""
frmmskonsumen.txttelepon.Text = ""
Me.Hide
End Sub
Private Sub cmdedit_Click()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen ", cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "Maaf, Database masih kosong", vbInformation, "PERINGATAN"
Else
frmmskonsumen.txtkd_pelanggan.Enabled = False
frmmskonsumen.Show
frmmskonsumen.txtkd_pelanggan.Text = Trim(DataGrid1.Columns(0).Text)
End If
Me.Hide
End Sub
Private Sub Datagrid1_DblClick()
cmdedit_Click
End Sub
Private Sub Form_Activate()
cmd_refresh_Click
cmd_refresh_Click
cmdnew.SetFocus
End Sub

Step IV
Buat Form Ms unttuk fasilitas input sbb :



Properties Form
No Objeck Properties Value
1 Form Name Frmmskonsumen
Stratupposition 2. CenterScreen
2 Label Caption Kode Pelanggan
3 Label Caption Nama Pelanggan
4 Label Caption Alamat
5 Label Caption Telepon
6 Textboxt Name txtkd_pelanggan
7 Textboxt Name Txtnm_pelangan
8 Textboxt Name txtalamat
9 Textboxt Name txtaelepon
10 CommandButton Name CmdSimpan
Caption Simpan
11 CommandButton Name CmdHapus
Caption Hapus
12 CommandButton Name cmdTutup
Caption Tutup

Step V
Ketik Kode Programnya Sbb :

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Private Sub cmdTutup_Click()
Me.Hide
frm_konsumen.Show
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.CursorLocation = adUseClient
cn.Open App.Path & "\konsumen.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen ", cn, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Form_Activate()
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen where kd_pelanggan ='" & Trim(txtkd_pelanggan.Text) & "'", cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount = 0 Then
Call kosong
SendKeys "{Home}+{End}"
Else
Call Tampil
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub kosong()
txtnama_pelanggan.Text = ""
txtalamat.Text = ""
txttelepon.Text = ""
End Sub
Sub Tampil()
On Error Resume Next
txtnama_pelanggan.Text = rs("nama_pelangan")
txtalamat.Text = rs("kota")
txttelepon.Text = rs("telp")
End Sub
Private Sub cmdSimpan_Click()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from konsumen where kd_pelanggan ='" & Trim(txtkd_pelanggan.Text) & "'", cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.AddNew
rs("kd_pelanggan") = Trim(txtkd_pelanggan.Text)
rs("nama_pelangan") = Trim(txtnama_pelanggan.Text)
rs("kota") = Trim(txtalamat.Text)
rs("telp") = Trim(txttelepon.Text)
rs.Update
Else
rs("nama_pelangan") = Trim(txtnama_pelanggan.Text)
rs("kota") = Trim(txtalamat.Text)
rs("telp") = Trim(txttelepon.Text)
rs.Update
End If
MsgBox "Proses Simpan Telah Selesai", vbInformation, "PERINGATAN"
cmdTutup_Click
End Sub
Private Sub cmdHapus_Click()
If txtkd_pelanggan.Text = "" Or txtnama_pelanggan.Text = "" Then
MsgBox "Maaf, Ada Field Yang Masih Kosong", vbInformation, "PERINGATAN"
Exit Sub
End If
X = MsgBox("Yakin Akan Menghapus Data Ini", vbYesNo, "HAPUS DATA")
If X = vbYes Then
Set rs = New ADODB.Recordset
rs.Open "Delete * from konsumen where kd_pelanggan ='" & Trim(txtkd_pelanggan.Text) & "'", cn, adOpenDynamic, adLockOptimistic
Call kosong
cmdTutup_Click
End If
End Sub
'---------------------> Source Program Variasi
Private Sub txtkd_pelanggan_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
SendKeys "{Tab}"
txtnama_pelanggan.SetFocus
End If
End Sub
Private Sub txtnama_pelanggan_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
SendKeys "{Tab}"
txtalamat.SetFocus
End If
End Sub
Private Sub txtalamat_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
SendKeys "{Tab}"
txttelepon.SetFocus
End If
End Sub
Private Sub txttelepon_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
cmdSimpan.SetFocus
End If
End Sub

Enkripsi Data

Enkripsi digunakan untuk menyandikan data-data atau informasi sehingga tidak dapat dibaca oleh orang yang tidak berhak. Dengan enkripsi data anda disandikan (encrypted) dengan menggunakan sebuah kunci (key). Untuk membuka (decrypt) data tersebut digunakan juga sebuah kunci yang dapat sama dengan kunci untuk mengenkripsi (untuk kasus private key cryptography) atau dengan kunci yang berbeda (untuk kasus public key cryptography).

Elemen dari Enkripsi
Ada beberapa elemen dari enkripsi yang akan dijabarkan dalam beberapa paragraf di bawah ini.

Algoritma dari Enkripsi dan Dekripsi. Algoritma dari enkripsi adalah fungsi-fungsi yang digunakan untuk melakukan fungsi enkripsi dan dekripsi. Algoritma yang digunakan menentukan kekuatan dari enkripsi, dan ini biasanya dibuktikan dengan basis matematika. Berdasarkan cara memproses teks (plaintext), cipher dapat dikategorikan menjadi dua jenis: block cipher and stream cipher. Block cipher bekerja dengan memproses data secara blok, dimana beberapa karakter / data digabungkan menjadi satu blok. Setiap proses satu blok menghasilkan keluaran satu blok juga. Sementara itu stream cipher bekerja memproses masukan (karakter atau data) secara terus menerus dan menghasilkan data pada saat yang bersamaan.

Kunci yang digunakan dan panjangnya kunci. Kekuatan dari penyandian bergantung kepada kunci yang digunakan. Beberapa algoritma enkripsi memiliki kelemahan pada kunci yang digunakan. Untuk itu, kunci yang lemah tersebut tidak boleh digunakan. Selain itu, panjangnya kunci, yang biasanya dalam ukuran bit, juga menentukan kekuatan dari enkripsi. Kunci yang lebih panjang biasanya lebih aman dari kunci yang pendek. Jadi enkripsi dengan menggunakan kunci 128-bit lebih sukar dipecahkan dengan algoritma enkripsi yang sama tetapi dengan kunci 56-bit. Semakin panjang sebuah kunci, semakin besar keyspace yang harus dijalani untuk mencari kunci dengan cara brute force attack atau coba-coba karena keyspace yang harus dilihat merupakan pangkat dari bilangan 2. Jadi kunci 128-bit memiliki keyspace 2128, sedangkan kunci 56-bit memiliki keyspace 256. Artinya semakin lama kunci baru bisa ketahuan.

Plaintext. Plaintext adalah pesan atau informasi yang akan dikirimkan dalam format yang mudah dibaca atau dalam bentuk aslinya.

Ciphertext. Ciphertext adalah informasi yang sudah dienkripsi. Kembali ke masalah algoritma, keamanan sebuah algoritma yang digunakan dalam enkripsi atau dekripsi bergantung kepada beberapa aspek. Salah satu aspek yang cukup penting adalah sifat algoritma yang digunakan. Apabila kekuatan dari sebuah algoritma sangat tergantung kepada pengetahuan (tahu atau tidaknya) orang terhadap algoritma yang digunakan, maka algoritma tersebut disebut “restricted algorithm”. Apabila algoritma tersebut bocor atau ketahuan oleh orang banyak, maka pesan-pesan dapat terbaca. Tentunya hal ini masih bergantung kepada adanya kriptografer yang baik. Jika tidak ada yang tahu, maka sistem tersebut dapat dianggap aman (meskipun semu).

Meskipun kurang aman, metoda pengamanan dengan restricted algorithm ini cukup banyak digunakan karena mudah implementasinya dan tidak perlu diuji secara mendalam. Contoh penggunaan metoda ini adalah enkripsi yang menggantikan huruf yang digunakan untuk mengirim pesan dengan huruf lain. Ini disebut dengan “substitution cipher”.

Substitution Cipher dengan Caesar Cipher
Salah satu contoh dari “substitution cipher” adalah Caesar Cipher yang digunakan oleh Julius Caesar. Pada prinsipnya, setiap huruf digantikan dengan huruf yang berada tiga (3) posisi dalam urutan alfabet. Sebagai contoh huruf “a” digantikan dengan huruf “D” dan seterusnya.
Transformasi yang digunakan adalah:
plain : a b c d e f g h i j k l m n o p q r s t u v w x y z
cipher: D E F G H I J K L M N O P Q R S T U V W X Y Z A B C

Dengan Menggunakan Visual Basic 6.0, berikut adalah function untuk Transformasi kelipatan 3 tersebut :
{
Public Function NextChar(Text As String) As String
Dim Ret As String
Dim Char
Dim i As Long
Dim nxt

Text = Replace(Text, vbNewLine, Chr(0))

For i = 1 To Len(Text)
Char = Mid(Text, i, 1)
If Char = " " Then Ret = Ret & " ": GoTo nxt
Char = Asc(Char)

Select Case Char
Case 0
Ret = Ret & vbNewLine
Case 1 To 46
Ret = Ret & Chr(Char + 3)
Case 47
Ret = Ret & Chr(1)
Case 48 To 56
Ret = Ret & Chr(Char + 3)
Case 57
Ret = Ret & Chr(48)
Case 58 To 63
Ret = Ret & Chr(Char + 3)
Case 64
Ret = Ret & Chr(58)
Case 65 To 89
Ret = Ret & Chr(Char + 3)
Case 90
Ret = Ret & Chr(65)
Case 91 To 95
Ret = Ret & Chr(Char + 3)
Case 96
Ret = Ret & Chr(91)
Case 97 To 121
Ret = Ret & Chr(Char + 3)
Case 122
Ret = Ret & Chr(97)
Case 123 To 254
Ret = Ret & Chr(Char + 3)
Case 255
Ret = Ret & Chr(123)
End Select
nxt:
Next i

NextChar = Ret
End Function

}