Form Pendaftaran Siswa Baru Menggunakan VB 6.0

Soeltony Ahmad

• min read

Table of Contents

1. Siapkan form vb

2. Atur properties dari objek2 tsb:

3. Atur Sintak

'-------------------------------------------------------

'ketika tombol close diklik

Private Sub cmdclose_Click()

Unload Me

End Sub

'-------------------------------------------------------

'ketika tombol clear diklik

Private Sub cmdclear_Click()

'teksnya textbox nomor ktp diisi dengan spasi kosong

tktp.Text = ""

'teksnya textbox nama diisi dengan spasi kosong

tnama.Text = ""

'teksnya textbox alamat diisi dengan spasi kosong

talamat.Text = ""

'teksnya textbox kota diisi dengan spasi kosong

tkota.Text = ""

'valuenya option laki laki diisi dengan false

olakilaki.Value = False

'valuenya option perempuan diisi dengan false

operempuan.Value = False

'valuenya option islam diisi dengan false

oislam.Value = False

'valuenya option kristen diisi dengan false

okristen.Value = False

'valuenya option katolik diisi dengan false

okatolik.Value = False

'valuenya option hindu diisi dengan false

ohindu.Value = False

'valuenya option budha diisi dengan false

obudha.Value = False

'captionnya label nomor ktp diisi dengan spasi kosong

lktp.Caption = ""

'captionnya label nama diisi dengan spasi kosong

lnama.Caption = ""

'captionnya label alamat diisi dengan spasi kosong

lalamat.Caption = ""

'captionnya label kota diisi dengan spasi kosong

lkota.Caption = ""

'captionnya label jnskel diisi dengan spasi kosong

ljnskel.Caption = ""

'captionnya label agama diisi dengan spasi kosong

lagama.Caption = ""

'akhiri sub

End Sub

'-------------------------------------------------------------

'ketika tombol cetak diklik

Private Sub cmdcetak_Click()

'captionnya label ktp diisi dengan teksnya textbox ktp

lktp.Caption = tktp.Text

'captionnya label nama diisi dengan teksnya textbox nama

lnama.Caption = tnama.Text

'captionnya label alamat diisi dengan teksnya textbox alamat

lalamat.Caption = talamat.Text

'captionnya label kota diisi dengan teksnya textbox kota

lkota.Caption = tkota.Text

'jika option laki laki valuenya adalah true maka

If olakilaki.Value = True Then

'captionnya label jns kel diisi dengan "Laki laki"

ljnskel.Caption = "Laki Laki"

'akhiri if

End If

'jika option perempuan valuenya adalah true maka

If operempuan.Value = True Then

'captionnya label jnskel diisi dengan "Perempuan"

ljnskel.Caption = "Perempuan"

'akhiri if

End If

'jika option islam valuenya adalah true maka

If oislam.Value = True Then

'captionnya label agama diisi dengan "Islam"

lagama.Caption = "Islam"

'akhiri if

End If

'jika option katolik valuenya adalah true maka

If okatolik.Value = True Then

'captionnya label agama diisi dengan "Katolik"

lagama.Caption = "Katolik"

'akhiri if

End If

'jika option kristen valuenya adalah true maka

If okristen.Value = True Then

'captionnya label agama diisi dengan "Kristen"

lagama.Caption = "Kristen"

'akhiri if

End If

'jika option hindu valuenya adalah true maka

If ohindu.Value = True Then

'captionnya label agama diisi dengan "Hindu"

lagama.Caption = "Hindu"

'akhiri if

End If

'jika option buda valuenya adalah true maka

If obudha.Value = True Then

'captionnya label agama diisi dengan "Budha"

lagama.Caption = "Budha"

'akhiri if

End If

'akhiri sub prosedur

End Sub

4. Atur mysql

mysql> create database sp;

Query OK, 1 row affected (0.00 sec)

mysql> use sp

Database changed

mysql> create table siswa(noktp char(10), nama char(25), alamat char(30), kota char(20), jnskel char(15), agama char(8), primary key(noktp));

Query OK, 0 rows affected (0.05 sec)

5. Atur odbc

Start + Control Panel + Administrative Tools + Data Source (ODBC) +

Tab User DSN + Add

Pilih driver : MySQL ODBC 5.1 Driver + Finish

Atur data source name : SP

User : root

Password : root

Data base name : pilih SP+ Test + OK + OK

6. Atur adodc dan data grid di VBa.

a.Munculkan komponen adodc dan data grid

Project + Component + centang Microsoft Ado Data Control 6.0 (OLEDB) dan Microsoft
DataGrid Control 6.0 (OLEDB) + Apply + OK

b. Gambar adodc dan data grid di form

c. Atur properties adodc

Name : AdoSPSiswa

Visible : False (untuk menyembunyikan ado ketika form di Run)

b. d. Atur koneksi adodc ke odbc

Klik kanan di adodc + ADODC properties +

Tab General + Use ODBC Data Source Name + pilih SP + Apply + OK

Tab RecordSource + CommandType pilih 2. AddCmdTable + Table or Stored Procedure Name pilih nama table yang dimaksud : Siswa + Applya.

e. Atur properties untuk DATAGRID

Name : DGridSiswa

Caption : Data Grid Tabel Siswa

Data Source : AdoSpSiswa

Untuk memunculkan field table pada datagrid : Klik kanan pada datagrid + Retrieve Fields +Yes

f. Atur sintak

'--------------------------------------------

Private Sub CmdFirst_Click()

adoSPSiswa.Recordset.MoveFirst

End Sub

'--------------------------------------------

Private Sub CmdPrev_Click()

adoSPSiswa.Recordset.MovePrevious

End Sub

'--------------------------------------------

Private Sub CmdNext_Click()

adoSPSiswa.Recordset.MoveNext

End Sub

'--------------------------------------------

Private Sub CmdLast_Click()

adoSPSiswa.Recordset.MoveLast

End Sub

'--------------------------------------------

Private Sub CmdHapus_Click()

adoSPSiswa.Recordset.Delete

End Sub

'--------------------------------------------

Private Sub CmdSave_Click()

adoSPSiswa.Recordset.AddNew

adoSPSiswa.Recordset!noktp = lktp.Caption

adoSPSiswa.Recordset!nama = lnama.Caption

adoSPSiswa.Recordset!alamat = lalamat.Caption

adoSPSiswa.Recordset!kota = lkota.Caption

adoSPSiswa.Recordset!jnskel = ljnskel.Caption

adoSPSiswa.Recordset!agama = lagama.Caption

End Sub

'--------------------------------------------

Private Sub DataGrid1_Click()

tktp.Text = adoSPSiswa.Recordset!noktp

lktp.Text = adoSPSiswa.Recordset!noktp

tnama.Text = adoSPSiswa.Recordset!nama

lnama.Text = adoSPSiswa.Recordset!nama

talamat.Text = adoSPSiswa.Recordset!alamat

lalamat.Text = adoSPSiswa.Recordset!alamat

tkota.Text = adoSPSiswa.Recordset!kota

lkota.Text = adoSPSiswa.Recordset!kota

If adoSPSiswa.Recordset!jnskel = "Laki Laki" Then

ljnskel.Caption = "Laki Laki"

olakilaki.Value = True

End If

If adoSPSiswa.Recordset!jnskel = "Perempuan" Then

ljnskel.Caption = "Perempuan"

operempuan.Value = True

End If

If adoSPSiswa.Recordset!agama = "Islam" Then

lagama.Caption = "Islam"

oislam.Value = True

End If

If adoSPSiswa.Recordset!agama = "Kristen" Then

lagama.Caption = "Kristen"

okristen.Value = True

End If

If adoSPSiswa.Recordset!agama = "katolik" Then

lagama.Caption = "Katolik"

okatolik.Value = True

End If

If adoSPSiswa.Recordset!agama = "Hindu" Then

lagama.Caption = "Hindu"

ohindu.Value = True

End If

If adoSPSiswa.Recordset!agama = "Budha" Then

lagama.Caption = "Budha"

obudha.Value = True

End If

End Sub