Form Pendaftaran Siswa Baru Menggunakan VB 6.0 - Hallo sahabat Sinau Bareng Yuk!, Pada Artikel yang anda baca kali ini dengan judul Form Pendaftaran Siswa Baru Menggunakan VB 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Tutorial, Artikel Visual Basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Form Pendaftaran Siswa Baru Menggunakan VB 6.0
link : Form Pendaftaran Siswa Baru Menggunakan VB 6.0

Form Pendaftaran Siswa Baru Menggunakan VB 6.0

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

Demikianlah Artikel Form Pendaftaran Siswa Baru Menggunakan VB 6.0

Sekianlah artikel Form Pendaftaran Siswa Baru Menggunakan VB 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Form Pendaftaran Siswa Baru Menggunakan VB 6.0 dengan alamat link http://soeltonyahmad.blogspot.com/2015/12/form-pendaftaran-siswa-baru-menggunakan.html