Langkah - Langkah membuat program enkripsi dan deskripsi yang menggabungkan dengan database MySQL 5, Oracle, SQL server dalam bahasa pemrograman Visual Basic 6.0

LANGKAH 1

Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini.

Setelah terbuka seperti ini gambar di bawah ini.

Kita bisa mengatur besarnya tampilan program dengan menarik ke bawah atau ke samping Project1-Form1(Form) dan Form1.

LANGKAH 2

Buka koneksi ODBC dengan cara run – ketikan Data Sources ODBC, kemudian Klik ADD seperti gambar dibawah ini :

Setelah itu pilih database yang akan digunakan seperti dibawah ini:

                                             MySQL                                         Oracle

            

                                                   SQL Server

Sebelum melakukan koneksi ODBC diharapkan sudah membuat atau memiliki Database dimasing-masing aplikasi Database yang akan digunakan.

LANGKAH 3

Setelah berhasil melakukan koneksi ODBC selanjutnya kembali ke Visual Basic yang sebelumnya telah dibuat.

Kemudian lakukan Add-ins – Add-in manager – double klik pada Data Form Wizard sehingga muncul tulisan load seperti gambar dibawah ini :

Lalu Buka Data Form Wizard setelah muncul seperti dibawah ini lakukan next

Dan pilih Format Databese Remote(ODBC) setelah itu lakukan next

Isikan data untuk seperti data saat membuat ODBC lalu lakukan next

Pilih Form Layout yang diinginkan kemusian lakukan next

Kemudian pilih tabel yang di inginkan dan pindahkan kolom yang ingin digunakan, lalu lakukan next

Kemudian Pilih centang available control yang ingin digunakan kemudian next dan finish

             

  

Setelah selesei maka akan muncul Form dari database yang di pilih seperti dibawah ini :

Dan hapus form1 karena tidak akan digunakan

Lakukan Edit form agar lebih menarik

LANGKAH 3

Buka SourceCode program dan lakukan penambahan SourceCode untuk Enkripsi dan Deskripsi

SourceCode Enkripsi

'Enkrip

'KODE_BARANG

Dim Enkrip, Output1, Output2, Output3, Output4, Inputan As String 

Dim Panjang_Input As Integer

Inputan = kode.Text

Panjang_Input = Len(kode.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = (Enkrip + 100) - 20

Enkrip = Chr(Enkrip) 'ubah kembali ke karakter

Output1 = Output1 & Enkrip

Next i

txtFields(0).Text = Output1 ' tampilkan enkrip

'NAMA_BARANG

Inputan = nama.Text

Panjang_Input = Len(nama.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = (Enkrip + 20) - 30

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output2 = Output2 & Enkrip

Next i

txtFields(1).Text = Output2 ' tampilkan enkrip

'HARGA_BARANG

Inputan = harga.Text

Panjang_Input = Len(harga.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = (Enkrip + 30) - 40

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output3 = Output3 & Enkrip

Next i

txtFields(2).Text = Output3 ' tampilkan enkrip

'PERSEDIAAN

Inputan = persediaan.Text

Panjang_Input = Len(persediaan.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = (Enkrip + 40) - 50

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output4 = Output4 & Enkrip

Next i

txtFields(3).Text = Output4 ' tampilkan enkrip 

--------------------------------------------------------------------------------------                   SourceCode Deskripsi

 'DEKRIP

'KODE_BARANG

Dim Dekrip, Output1, Output2, Output3, Output4, Inputan As String

Dim Panjang_Input As Integer

Inputan = txtFields(0).Text

Panjang_Input = Len(txtFields(0).Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1) 'ambil karakter input

Dekrip = Asc(Dekrip) 'ubah karakter ke ascii

Dekrip = (Dekrip - 100) + 20

Dekrip = Chr(Dekrip) ' ubah kembali ke karakter

Output1 = Output1 & Dekrip

Next i

kode.Text = Output1 ' tampilkan Dekrip

'NAMA_BARANG

Inputan = txtFields(1).Text

Panjang_Input = Len(txtFields(1).Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1) 'ambil karakter input

Dekrip = Asc(Dekrip) 'ubah karakter ke ascii

Dekrip = (Dekrip - 20) + 30

Dekrip = Chr(Dekrip) ' ubah kembali ke karakter

Output2 = Output2 & Dekrip

Next i

nama.Text = Output2 ' tampilkan Dekrip

'HARGA_BARANG

Inputan = txtFields(2).Text

Panjang_Input = Len(txtFields(2).Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1) 'ambil karakter input

Dekrip = Asc(Dekrip) 'ubah karakter ke ascii

Dekrip = (Dekrip - 30) + 40

Dekrip = Chr(Dekrip) ' ubah kembali ke karakter

Output3 = Output3 & Dekrip

Next i

harga.Text = Output3 ' tampilkan Dekrip

'PERSEDIAAN

Inputan = txtFields(3).Text

Panjang_Input = Len(txtFields(3).Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1) 'ambil karakter input

Dekrip = Asc(Dekrip) 'ubah karakter ke ascii

Dekrip = (Dekrip - 40) + 50

Dekrip = Chr(Dekrip) ' ubah kembali ke karakter

Output4 = Output4 & Dekrip

Next i

persediaan.Text = Output4 ' tampilkan Dekrip

Letakan sourcecode Deskripsi di atas pada di antara NEXT-mbDataChanged=False pada Sub Form Load 

Letakan sourcecode Enkripsi di atas pada di antara line On Error-adoPrimaryRS  pada privatesub cmdUpdate

  

Letakan sourcecode Deskrip di atas pada di antara mbDataChanged = False - Exit Sub pada Sub Form cmdFirs

Letakan sourcecode Deskrip di atas pada di antara mbDataChanged = False - Exit Sub pada Sub Form cmdLast

Letakan sourcecode Deskrip di atas pada di antara mbDataChanged = False - Exit Sub pada Sub Form cmdNext

Letakan sourcecode Deskrip di atas pada di antara mbDataChanged = False - Exit Sub pada Sub Form cmdPrevious

Setelah Selasei lakukan Start dan pada program jika akan menembahkan data maka lakukan ADD

Isikan data yang ingin dimasukkan setelah selesei lakukan update maka data akan akan mendeskripsi pada tampilan program namun pada database data akan mengenkripsi

MySQL Database

Oracle Database