Selasa, 21 Juli 2009

Kamus Mini Menggunakan VB 0.6

Membuat Database Kamus Mini

Database yang digunakan adalah Microsoft Access.Ikuti langkah2 berikut ya...

  1. Buka aplikasi MS Access, caranya : dari Start, pilih All Program , pilih Microsoft Office, pilih Microsort Access.
  2. Buat database baru, caranya : klik menu File →New(Ctrl+N)
  3. Dari jendela yang muncul disebelah kanan, Klik Blan k Database.

  4. Ketikkan nama database Kamus.mdb. Tentukan juga tempat penyimpanan pada folder progaram yang akan dibuat.

  5. Klik tombol Create
  6. Buat tabel baru dengan mengklik 2 x menu Create table in Design Vew.
  7. Buatlah beberapa kolom berikut pada Design Vie w
  8. Arahlan pointer pada kolom id_kata. Klik kanan dan pilih menu Primary Key . Ne contoh hasilnya.
  9. Simpan database yang telah dibuat, cara : File → Save
  10. Ganti Table1 menjadi Kamus, & klik tombol OK
  11. Tabel Kamus telah terbentuk dalam database kamus.db. ne tampilannya

Membuat Aplikasi Kamus

Setelak kita buat databasenya, selanjutnya buat aplikasi kamus menggunakan Visual Basic 6.0. Untuk membuatnya ikuti langkah2 dibawah ini yak...

  1. Buka Proyek baru dengan Standar.Exe
  2. Tambah komponen Microsoft Ado Data Control 6.0 yg akan digunakan utk pemroses database
  3. Tambahkan Adodc pada form sperti gbr brkt:
  4. Klik ikon Run untuk menjalankan program. Untuk ADODB pada proyek yang baru dibuat
  5. Hentikan form yang telah dijalankan, dan hapus Adodc1 dari form.
  6. Tambahkan pada form dengan beberapa objek, yaitu 4 o bjek TextBox, 4 objek CommandButton, 2 objek Frame, dan 4 objek Label. Ne cth desain formnya...

Ketikkan Kode Berikut Pada Form Codenya

Option Explicit

Private Konekdb As ADODB.Connection

Private Rs_Kamus As ADODB.Recordset

Private StrKonek, TOMBOL As String

Private SqlSimpan, SqlCari As String

Sub FormBersih()

TxtAsing.Text = ""

TxtIndo.Text = ""

End Sub

Sub BukaDb()

Set Konekdb = New ADODB.Connection

StrKonek = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " _

& "Security Info=False;Data Source=" _

& App.Path + "./Kamus.mdb"

If Konekdb.State = adStateOpen Then

Konekdb.Close

Set Konekdb = New ADODB.Connection

Konekdb.Open StrKonek

Else

Konekdb.Open StrKonek

End If

End Sub

Private Sub Form_Load()

Call BukaDb

End Sub

Private Sub TbKeluar_Click()

Unload Me

End Sub

Private Sub TbSimpan_Click()

If TxtAsing.Text = "" Then

MsgBox "Isi Dulu Bhs Inggrisnya.!", _

vbCritical, "Info"

TxtAsing.SetFocus

ElseIf TxtIndo.Text = "" Then

MsgBox "Isi Dulu Bhs Indonesianya..!", _

vbCritical, "Info"

TxtIndo.SetFocus

Else

SqlSimpan = ""

SqlSimpan = "Insert Into kamus(kata_asing,kata_indo)" _

& " Values('" & TxtAsing.Text _

& "','" & TxtIndo.Text & "')"

Konekdb.Execute SqlSimpan, , adCmdText

MsgBox "Kata baru telah ditambahkan dalam kamus", _

vbInformation, "Info"

Call FormBersih

End If

End Sub

Private Sub TbTambah_Click()

TxtAsing.Text = ""

TxtIndo.Text = ""

End Sub

Private Sub TbTrans_Click()

If TxtIn.Text = "" Then

MsgBox "Kata belum dimasukan..!", _

vbCritical, "Info"

TxtIn.SetFocus

Else

SqlCari = ""

SqlCari = "select kata_indo from kamus " _

& " WHERE kata_asing LIKE '" _

& TxtIn.Text & "'"

Set Rs_Kamus = New ADODB.Recordset

Rs_Kamus.Open SqlCari, Konekdb, _

adOpenDynamic, adLockBatchOptimistic

If Rs_Kamus.EOF And Rs_Kamus.BOF Then

MsgBox "kata yang Anda cari tidak ada..!", _

vbCritical, "Info"

Exit Sub

Else

TxtOut.Text = Rs_Kamus!kata_indo

End If

End If

End Sub

Private Sub TxtIn_Change()

Call FormBersih

End Sub


0 komentar:

About This Blog

Seguidores

  © Template Lar Doce Lar por Emporium Digital Graphics Jenny's Grandchild and Irene's Corner

TOPO