Form Pendaftaran Siswa Baru Menggunakan VB 6.0

Form Pendaftaran Siswa Baru Menggunakan VB 6.0 - Hallo sahabat KUMPULAN TUGAS KULIAH, 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, 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

Baca juga


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-go.blogspot.com/2015/12/form-pendaftaran-siswa-baru-menggunakan.html