LAB TI Gunadarma : membuat database pada visual basic 6.0

LAPORAN AKHIR

Mata Praktikum        : ALGORITMA & PEMROGRAMAN 2A

Kelas                          : 1IA11

Praktikum ke-            : 7

Tanggal                     : 25 April 2016

Materi                         : Database Visual Basic 6.0

NPM                           : 55415187

Nama                         : NUR IRFAN EKA FADHILAH

Ketua Asisten           : BUDHI UTAMA

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 22 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2016

LISTING PROGRAM

Listing Program Form1: Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset!Kode = Text1.Text Adodc1.Recordset!MataKuliah = Text2.Text Adodc1.Recordset!Dosen = Text3.Text Adodc1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command2_Click() A = MsgBox("Apakah Anda Yakin Ingin Menghapus Tabel?", vbYesNo, "Tabel") If A = vbYes Then Adodc1.Recordset.Delete End If End Sub Private Sub Command3_Click() Unload Me Form2.Show End Sub

 

Listing Program Form2 : Private Sub Command1_Click() If Text1.Text = "irfan" And Text2.Text = "1234" Then A = MsgBox("Selamat Datang Orang Ganteng", vbOKOnly, "LOGIN") Unload Me Form1.Show Else A = MsgBox("Anda Bukan Orang Ganteng", vbCritical, "LOGIN") Unload Me End If End Sub

 

LOGIKA PROGRAM

            Pada pertemuan minggu ke 7 kali ini kita akan memebuat Database menggunakan Visual Basic 6.0 . dalam pembuatabn pemrograman kali ini kita membutuhkan 2 Form dan komponen-komponen nya yaitu :

-       5 Label

-       5 TextBox

-       4 CommandButton

-       1 Microsoft ADO Data Control 6.0 (OLEDB)

-       1 Microsoft Data Grid Control 6.0 (OLEDB)

            Pertama kita harus menambahkan satu Form telebih dahulu, cara menambahkan Form adalah sebagai berikut :

  

-       Pertama kita klik kiri Menu Bar Project

-       Lalu kita klik Add Form

-       Lalu setelah muncul pilihan, kita pilih Form

-       Setelah itu klik Open

            Setelah kita menambahkan Form, lalu kita membuat Database nya yaitu pada program kali ini kita membuat Database nya menggunakan Microsoft Access yaitu dengan cara sebagai berikut:

 

-       Pertama kita klik menu bar Add-Ins

-       Lalu pada Sub Menu kita klik Visual Data Manager

-       Setelah muncul Visual Data Manager, kita klik file

-       Lalu pilih new

-       Lalu pilih Microsoft Access

-       Setelah itu kita klik Version 7.0 MDB

-       Setelah itu masukkan nama file name, lalu klik save

 

-       Setelah muncul Database Window, klik kanan properties

-       Lalu klik New Table

-       Setelah muncul Table Structure, kita masukkan Table Name yang di inginkan

-       Setelah itu klik Add Field

-       Setelah selesai klik Add Field, lalu kita masukkan nama Field, pada name kita isikan Kode

-       Lalu kita ganti ukuran Field nya, lalu klik ok

  

-       Lalu kita masukkan kembali nama Field, lalu kita isikan name MataKuliah

-       Lalu kita ganti ukuran Field nya, lalu klik OK

 

-       Lalu kita masukkan kembali nama Field, lalu kita isikan name MataKuliah

-       Lalu kita ganti ukuran Field nya, lalu klik OK

-       Lalu kllik Close

-       Lalu klik Build the Table

-       Lalu kita Close Visual Data Manager nya

            Setelah kita selesai membuat Database nya kita buat, taruh komponen yang dibutuhkan pada Form2. Pada Form2 kita membutuhkan beberapa komponen yaitu:

-       2 Label

-       2 TextBox

-       1 CommandButton

            Pertama kita taruh komponen Label1 ke dalam Form2 yaitu dengan cara klik kiri komponen Label yang terdapat pada ToolBox lalu kita taruh ke dalam Form2 setelah itu ke properties Label1 lalu kita ganti isi dari caption label1 menjadi username, lalu kita taruh komponen Label2 ke dalam Form2 yaitu dengan cara klik kiri komponen Label yang terdapat pada ToolBox lalu kita taruh ke dalam Form2 setelah itu ke properties Label2 lalu kita ganti isi dari caption label2 menjadi Password, lalu kita taruh komponen TextBox1 ke dalam Form2 yaitu dengan cara klik kiri komponen TextBox yang terdapat pada ToolBox lalu kita taruh ke dalam Form2 setelah itu ke properties TextBox1 lalu kita kosongkan isi dari caption TextBox1, lalu kita taruh komponen TextBox2 ke dalam Form2 yaitu dengan cara klik kiri komponen TextBox yang terdapat pada ToolBox lalu kita taruh ke dalam Form2 setelah itu ke properties TextBox2 lalu kita kosongkan isi dari caption TextBox2, lalu kita taruh komponen CommandButton1 ke dalam Form2 yaitu dengan cara klik kiri komponen CommandButton yang terdapat pada toolbox lalu kita taruh ke dalam Form2 setelah itu ke properties CommandButton1 lalu kita ganti isi dari caption CommandButton1 menjadi Login. Setelah kita selesai memasukkan komponen-komponen yang dibutuhkan ke dalam Form2 lalu kita susun komponen-komponen yang terdapat pada Form2 seperti gambar di bawah ini:

            Setelah kita selesai membuat Form2 maka kita akan membuat Form1, komponen-komponen yang dibutuhhkan adalah sebagai berikut:

-       3 Label

-       3 TextBox

-       3 CommandButton

-       1 Microsoft ADO DataControl 6.0 (OLEDB)

-       1 Micro

soft DataGrid Control 6.0 (OLEDB)

            Lalu kita masukkan komponen Label1 ke dalam Form1 yaitu dengan cara klik Label pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties Label1 lalu kita ganti isi dari caption Label1 menjadi Kode, lalu kita masukkan komponen Label2 ke dalam Form1 yaitu dengan cara klik Label pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties Label2 lalu kita ganti isi dari caption Label2 menjadi Mata Kuliah, Lalu kita masukkan komponen Label3 ke dalam Form1 yaitu dengan cara klik Label pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties Label3 lalu kita ganti isi dari caption Label3 menjadi Dosen, lalu kita masukkan komponen TextBox1 ke dalam Form1 yaitu dengan cara klik TextBox pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties TextBox1 lalu kita kosongkan isi dari caption TextBox1, lalu kita masukkan komponen TextBox2 ke dalam Form1 yaitu dengan cara klik TextBox pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties TextBox2 lalu kita kosongkan isi dari caption TextBox2, lalu kita masukkan komponen TextBox3 ke dalam Form1 yaitu dengan cara klik TextBox pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties TextBox3 lalu kita kosongkan isi dari caption TextBox3, lalu kita masukkan komponen CommandButton1 ke dalam Form1 yaitu dengan cara klik CommandButton pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties CommandButton1 lalu kita ganti isi dari caption CommandButton1 menjadi Tambah, lalu kita masukkan komponen CommandButton2 ke dalam Form1 yaitu dengan cara klik CommandButton pada Toolbox lalu kita taruh ke dalam Form1 lalu kita ke properties CommandButton2 lalu kita ganti isi dari caption CommandButton2 menjadi Tambah, lalu kita masukkan komponen Microsoft ADO DataControl 6.0(OLEDB) dan Microsoft DataGrid Control 6.0(OLEDB) ke dalam Form2 di karenakan komponen tersebut tidak tersedia pada Toolbox jadi kita harus menambahkan secara manual yaitu dengan menekan tombol Ctrl+T lalu kita pilih checklist Microsoft ADO DataControl 6.0(OLEDB) dan Microsoft DataGrid Control 6.0(OLEDB) lalu klik Apply, setelah kita tambahkan 2 komponen tersebut ke toolbox, lalu kita masukkan komponen Microsoft ADO DataControl 6.0(OLEDB) ke dalam Form1 yaitu dengan cara klik kiri Microsoft ADO DataControl 6.0 (OLEDB) pada Toolbox lalu kita taruh komponen tersebut ke dalam Form1, lalu kita masukkan komponen Microsoft DataGrid Control 6.0(OLEDB) ke dalam Form1 yaitu dengan cara klik kiri Microsoft DataGrid Control 6.0 (OLEDB) pada Toolbox lalu kita taruh komponen tersebut ke dalam Form1. Setelah kita selesai memasukkan komponen-komponen yang dibutuhkan Form1 kita harus mengkoneksikan antara Database dengan Visual Basic yaitu cara nya sebagai berikut:

-       klik kanan Microsoft ADO DataControl 6.0(OLEDB)

-       lalu kita klik ADODC properties

-       Setelah muncul Property Pages, lalu kita klik menu bar General

-       Lalu klik Build

-       Setelah muncul Data Link Properties, lalu pilih Microsoft Jet 4.0 OLE DB Provider

-       Lalu klik Next

-       Lalu kita klik browse, setelah itu kita pilih file yang Database yang kita buat sebelumnya

-       Lalu kita klik Test Connection

-       Jika kita telah klik test connection jika berhasil maka akan muncul MessageBox “Test Connection Succeded”

-       Lalu klik OK

-       

     Jika telah di klik OK maka akan kembali ke property pages, lalu kita klik menu bar RecordSource

-       Lalu kita ganti isi dari Command Type menjadi 2 – adCmdTable

-       Lalu kita isikan table or stored procedure name dengan nama table yang telah kita buat sebelumnya

            Setelah kita selesai menyambungkan data tersebut kita klik komponen Microsoft DataGrid Control 6.0(OLEDB) lalu ke properties kita isikan DataSource dengan Adodc1.

            Setelah itu kita tuliskan codingan pada Form2 yaitu dengan klik 2  kali CommandButton1, lalu kita tuliskan sintaks:

Private Sub Command1_Click()

If Text1.Text = "irfan" And Text2.Text = "1234" Then

A = MsgBox("Selamat Datang Orang Ganteng", vbOKOnly, "LOGIN")

Unload Me

Form1.Show

Else

A = MsgBox("Anda Bukan Orang Ganteng", vbCritical, "LOGIN")

Unload Me

End If

End Sub

            Fungsi dari sintaks If Text1.Text = "irfan" And Text2.Text = "1234" Then ini adalah digunakan untuk pengkondisian jika Text1 di isi dengan irfan dan text2 di isi dengan 1234 maka, lalu fungsi dari sintaks ini adalah  A = MsgBox("Selamat Datang Orang Ganteng", vbOKOnly, "LOGIN") digunakan untuk memunculkan message box yang isinya selamat datang orang ganteng sedangkan vbOKOnly digunakan untuk memunculkan tombol OK dan fungsi dari sintaks “LOGIN” digunakan sebagai title dari message box, lalu fungsi dari sintaks Unload Me adalah digunakan untuk keluar dari Form tersebut, lalu fungsi dari sintaks Form1.Show adalah digunakan untuk menampilkan Form1,  lalu fungsi dari sintaks else adalah digunakan untuk masuk ke dalam pengkondisian yang lain, lalu fungsi dari sintaks A = MsgBox("Anda Bukan Orang Ganteng", vbCritical, "LOGIN")

Adalah jika masuk ke dalam kondisi else maka akan memunculkan message box yang isi nya adalah Anda Bukan Orang Ganteng sedangkan fungsi dari sintaks vbCritical adalah agar memunculkan gambar/ikon ke dalam message box sedangkan fungsi dari sintaks LOGIN adalah digunakan sebagai title dari LOGIN, lalu fungsi dari sintaks Unload Me adalah digunakan untuk keluar dari Form, sedangkan sintaks End If adalah digunakan untuk mengakhiri dari pengkondisian, lalu fungsi dari sintaks End Sub adalah untuk mengakhiri sebuah blok program.

            Setelah kita selesai menuliskan sintaks pada Form1, lalu kita tuliskan sintaks Form2 yaitu dengan klik kiri 2 kali CommandButton1 lalu kita tuliskan sintaks sebagai berikut:

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!Kode = Text1.Text

Adodc1.Recordset!MataKuliah = Text2.Text

Adodc1.Recordset!Dosen = Text3.Text

Adodc1.Recordset.Update

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

            Fungsi dari sintaks Adodc1.RecordSet.AddNew adalah digunakan untuk menambahkan record baru pada Adodc1, lalu fungsi dari sintaks Adodc1.Recordset!Kode = Text1.Text adalah digunakan untuk jika pada Text1 kita masukkan record maka secara otomatis record tersebut akan masuk ke dalam field Kode, lalu fungsi dari sintaks Adodc1.Recordset!MataKuliah = Text2.Text adalah digunakan untuk jika pada Text2 kita masukkan record maka secara otomatis record tersebut akan masuk ke dalam field MataKuliah, lalu fungsi dari sintaks Adodc1.Recordset!Dosen = Text3.Text adalah digunakan untuk jika pada Text3 kita masukkan record maka secara otomatis record tersebut akan masuk ke dalam field Dosen,  lalu fungsi dari sintaks Text1.Text=”” adalah digunakan jika klik CommandButton1 maka TextBox1 akan kosong, lalu fungsi dari sintaks Text2.Text=”” adalah digunakan jika klik CommandButton1 maka TextBox2 akan kosong, lalu fungsi dari sintaks Text3.Text=”” adalah digunakan jika klik CommandButton1 maka TextBox3 akan kosong, lalu fungsi dari sintaks End Sub untuk mengakhiri sebuah blok program.

            Setelah kita selesai membuat sintaks pada CommandButton1 Form1, lalu kita tuliskan sintaks pada CommandButton2 sintaks nya adalah sebagai berikut:

Private Sub Command2_Click()

A = MsgBox("Apakah Anda Yakin Ingin Menghapus Tabel?", vbYesNo, "Tabel")

If A = vbYes Then

Adodc1.Recordset.Delete

End If

End Sub

            Fungsi dari sintaks A = MsgBox("Apakah Anda Yakin Ingin Menghapus Tabel?", vbYesNo, "Tabel")  adalah digunakan untuk untuk menampilkan message box yang berisi “Apakah Anda Yakin Ingin Menghapus Tabel?”, lalu fungsi dari sintaks vbYesNo adalah digunakan untuk menampilkan button Yes dan No dalam message box, lalu fungsi dari sintaks “Tabel” adalah digunakan sebagai title dari message box, lalu fungsi dari sintaks If A = vb Yes Then adalah jika kita klik button Yes maka akan masuk kedalam kondisi, lalu fungsi dari sintaks Adodc1.Recordset.Delete adalah digunakan untuk jika  masuk ke kondisi makan Record dari Adodc1 akan terhapus, lalu fungsi dari sintaks End If adalah digunakan untuk mengakhiri sebuah pengkondisian, lalu fungsi dari sintaks End Sub adalah digunakan untuk mengakhiri sebuah program.