Translate

12 November 2006

Tipe Data Rekaman (Record Data Type)

Sibuk apa hari ini? Sibuk bikin program untuk merekam data, atau sedang bingung bagaimana membuat, menyimpan dan menggunakan kembali data yang disimpan dalam ekstensi sesuai dengan keinginan kita? Nah inilah beberapa langkah jika kita ingin membuat simpanan data tetapi bukan dalam sebuah database. Kegunaannya untuk apa, toh sudah banyak sistem basis data yang mumpuni untuik digunakan secara gratis?
Nih contoh sederhana penggunaanya. Data yang tersimpan seperti no kontak pada handphone yang tidak memerlukan sistem DBMS (database management systems). Kode program sederhana ini menggunakan Visual Basic 6.0, sedangkan file yang akan dibuat nantinya berekstensi “.txt”. Ayo ikuti alur cerita “tipe data rekaman” berikut jika ingin membuatnya. Untuk praktek tipe data rekaman, ikuti langkah-langkah berikut;
1.      User menjalankan Form
2.      Pada saat Form dipanggil, terjadi proses pembuatan dua tipe data record yaitu NIM dan Nama dengan tipe keduanya adalah huruf. Ukuran maksimal NIM adalah 9 digit dan Nama 30 digit. Kedua jenis tipe rekaman tersebut disimpan dalam sebuah file dengan nama Rekaman.txt.
3.      User mengisi data NIM dan Nama pada objek textbox yang telah disediakan.
4.      Untuk menyimpan data dalam memori, user menekan tombol Rekam. Secara otomatis kedua textbox kosong dan user siap untuk mengisi kembali dan menekan tombol rekam begitu seterusnya sampai data selesai di inputkan.
5.      Setelah user selesai merekam, maka ingin menampilkan seluruh data yang telah direkam ke form atau object yang lain (misalnya ListBox, DataGrid, ListView, dll). pada contoh ini ditampilkan ke Form.
6.      User keluar dari aplikasi.
Agar aplikasi yang diinginkan tersebut dapat berjalan dengan lancar, ikuti langkah-langkah berikut:

Langkah 1. 
1. Buat Project Standar EXE
2. Tambahkan Referensi yang berupa ActiveX Data Object 2.1 Library dari menu References dengan cara Menu Project, Pilih References. (lihat Gambar 1.)
Gambar 1 Mengaktifkan Referensi Tipe Data Rekaman

3. Simpan Form dengan nama frmRekaman dan Project-nya dengan nama prjRekaman.
4. Buat Object 2 CommandButton dan 2 TextBox atur tampilan dan propertinya sehingga tampak sebagai berikut;

Gambar 2 Pengaturan form dan object-objectnya

3. Atur properti dari object yang ada, sbb;            
                        
Langkah 2. 
Sebelum mengetik kode program, pastikan Anda sudah menyimpan program, selanjutnya ikuti sbb;
  1. Buat Variabel dengan nama dan tipe data sebagai berikut;
Option Explicit
Dim RS1 As New ADODB.Recordset
Dim NamaDir As String
Keterangan;
Option Explicit à agar deklarasi semua variabel lebih pasti
Dim RST As New ADODB.Recordset à deklarasi variabel dengan nama RST dengan tipe set rekaman dari ActiveX Data Object
Dim NamaDir As String à deklarasi variabel dengan nama NamaDir dengan tipe Huruf yang fingsinya untuk menunjukkan lokasi penyimpanan (direktori/folder) dengan tepat.
  1. Ketikkan kode berikut dalam event Form_Load 
Private Sub Form_Load()
    NamaDir = App.Path                                                      'Mengarahkan direktori yg aktif
    Me.Caption = NamaDir                                                  'cek direktori di title bar
   
    If Dir(NamaDir & "\Rekaman.txt") = "" Then            ‘menguji apakah file Rekaman.txt sudah terbentuk, jika
                                                                                                ‘belum akan memproses kode menambahkan Atribut
        RS1.Fields.Append "NIM", adChar, 9    
        RS1.Fields.Append "Nama", adChar, 30
        RS1.Fields.Refresh
        RS1.Open                                                                     ‘à metode Open untuk mengaktifkan file
        RS1.Save NamaDir & "\Rekaman.txt", adPersistADTG                    ‘proses menyimpan struktur data
    Else
        RS1.Open NamaDir & "\Rekaman.txt"                  ‘menguji jika file Rekaman.txt sudah ada,  maka cukup
    End If                                                                                  ‘diarahkan dan diaktifkan
End Sub
Tips : untuk menguji Reference sudah aktif/belum pada saat deklarasi variabel ADODB akan muncul otomatis jika sudah aktif dan tidak akan muncul jika belum aktif.

Langkah 3.  
Tergantung kreativitas Anda, jika sudah menekan tombol Rekam, maka txtNIM akan aktif dan isi kedua textbox menjadi tidak ada.

Langkah 4. 
Ketikkan kode berikut dalam event cmdRekam_click
Private Sub cmdRekam_Click()
    RS1.AddNew                                                    'Metode untuk tambah baris baru
    RS1.Fields(0) = txtNIM.Text                          'Dua Baris untuk menambil isi dari objek
    RS1.Fields(1) = txtNama.Text
    RS1.Update                                                      'Metode untuk menyimpan setiap perubahan
End Sub
Langkah 5. 
Menampilakan data ke form dengan metode Print. Tulis kode program berikut pada event cmdTampil_click
Private Sub cmdTampil_Click()
    Me.Cls                                                                               'Membersihkan tampilan form
    If RS1.RecordCount <= 0 Then Exit Sub                    'menguji, jika jumlah rekaman tidak ada, maka tdk
                                                                                                ‘memproses kode dibawahnya
    RS1.MoveFirst                                                 'Meletakkan kursor pada baris pertama
    Do While Not RS1.EOF                                    'melakukan perulangan terus menerus jika BELUM akhir
                                                                                                ‘dari file
        Me.Print RS1.Fields(0).Value & RS1.Fields(1).Value                          'menampilkan data pada form
      
        RS1.MoveNext                                             'agar dapat berulang, maka menunjuk rekaman
                                                                                                ‘berikutnya
    Loop
End Sub

No comments:

Post a Comment

Silahkan memberikan komentar, saran, pertanyaan atau apapun yang penting sesuai dengan etika.

Posting Popular