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
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
DataGrid Control 6.0 (OLEDB) + Apply + OK
b. Gambar adodc dan data grid di form
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 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
'--------------------------------------------
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-go.blogspot.com/2015/12/form-pendaftaran-siswa-baru-menggunakan.html