PENDAFTARAN SISWA BARU PADA VB6.0

ok,,,,, baiklah teman" perkenalkan nama saya SAIPIN,  kembali lagi berbagi tutorial tentang  "pendaftaran siswa baru pada vb6.0" terlebih dahulu kita membuat databasenya di Microsoft Access type format 2002 - 2003 dan stelah itu kita desain formnya pada vb6.0 setelah selesai kita memasukan scriptnya, jadi di sini kita akan membuat 1 database, 2 tabel dan 2 form di koneksikan menggunakan modul tanpa koneksi manual, kalau kita menggunakan modul ke folder mana pun kita pindakan tidak akan terjadi eror,,
tanpa basabasi kita ke TKP ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!

1. untuk databasenya PENDAFTARAN, nama tabelnya yaitu:
     a. calon
     b. siswa
jangan di lupa pada saat kita save databasenya kita ubah type formatnya 2002 - 2003 agar bisa terkoneksi dgn vb6.0nya,,
baiklah untuk tampilan tabelnya silakan perhatikan di bawah ini:

diatas adalah desain tabel CALON

untuk tabel ke dua silahkan perhatikan dibawah ini:

di atas adalah tampilan tabel SISWA,,

2. untuk desain formnya, kita akan membuat 2 form yaitu:

   a. Calon Siswa Baru

   b. Data Siswa Baru

untuk lebih jelasnya, di bawah ini adalah desain formnya,,,,,,,

diatas adalah merupakan desain form Calon Siswa Baru,,,

untuk form ke 2 nya yaitu,,,,,,

diatas merupakan Desain Form Data Siswa Baru,,,,,

3. selanjutnya scriptnya,,,,

    a. script form Calon Siswa Baru:

      1. tombol simpan

Private Sub Command1_Click()

Dim x

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Combo1.Text = "" Then

MsgBox "isikan seluruh data yang di perlukan.!", vbOKOnly, "informasi"

Exit Sub

Else

x = MsgBox("apakah anda ingin menyimpan data ini..?", vbOKCancel + vbQuestion, "perhatian")

If x = vbOK Then

adodc1.Recordset.AddNew

adodc1.Recordset.Fields(0) = Me.Text1.Text

adodc1.Recordset.Fields(1) = Me.Text2.Text

adodc1.Recordset.Fields(2) = Me.Combo1.Text

adodc1.Recordset.Fields(3) = Me.Text3.Text

adodc1.Recordset.Fields(4) = Me.Text4.Text

adodc1.Recordset.Fields(5) = Me.Text5.Text

adodc1.Recordset.Fields(6) = Me.Text6.Text

adodc1.Recordset.Fields(7) = Me.Text7.Text

bersih

End If

End If

End Sub

   2. tombol edit

Private Sub Command2_Click()

Edit = MsgBox("anda akan mengupdate data..!", vbOKCancel + vbQuestion, "perhatian")

If Edit = vbOK Then

adodc1.Recordset.Update

adodc1.Recordset.Fields(0) = Me.Text1.Text

adodc1.Recordset.Fields(1) = Me.Text2.Text

adodc1.Recordset.Fields(2) = Me.Combo1.Text

adodc1.Recordset.Fields(3) = Me.Text3.Text

adodc1.Recordset.Fields(4) = Me.Text4.Text

adodc1.Recordset.Fields(5) = Me.Text5.Text

adodc1.Recordset.Fields(6) = Me.Text6.Text

adodc1.Recordset.Fields(7) = Me.Text7.Text

bersih

End If

Command1.Enabled = True

End Sub

3. tombol cari

Private Sub Command3_Click()

On Error GoTo error

Dim SNo_pendaftaran As String

SNo_pendaftaran = InputBox("masukan nama pendaftar.")

adodc1.Recordset.MoveFirst

adodc1.Recordset.Find "NAMA='" & SNo_pendaftaran & ""

Text1.Text = adodc1.Recordset.Fields(0)

Text2.Text = adodc1.Recordset.Fields(1)

Combo1.Text = adodc1.Recordset.Fields(2)

Text3.Text = adodc1.Recordset.Fields(3)

Text4.Text = adodc1.Recordset.Fields(4)

Text5.Text = adodc1.Recordset.Fields(5)

Text6.Text = adodc1.Recordset.Fields(6)

Text7.Text = adodc1.Recordset.Fields(7)

Command1.Enabled = False

Exit Sub

error:

MsgBox "data yang anda masukan salah..!", vbOKOnly, "perhatian"

bersih

End Sub

4. tombol hapus

Private Sub Command4_Click()

Dim Y

Y = MsgBox("yakin ingin menghapus data...?", vbQuestion + vbYesNo, "perhatian")

If Y = vbYes Then

adodc1.Recordset.Delete

Me.Dg.Refresh

MsgBox "data dihapus...!!!", vbInformation, "informasi"

bersih

Text1.SetFocus

Else

Exit Sub

End If

Command1.Enabled = True

End Sub

5. tombol keluar

Private Sub Command5_Click()

keluar = MsgBox("apakah anda ingin keluar..?", vbOKCancel + vbQuestion, "perhatian")

If keluar = vbOK Then

Unload Me

End If

End Sub

6. skript koneksi antara database (tabel calon) dengan adodc pada form calon siswa baru,,

Private Sub Form_Load()

koneksi

adodc1.ConnectionString = conn.ConnectionString

adodc1.RecordSource = "select *from calon"

adodc1.Refresh

Set Dg.DataSource = adodc1

Combo1.AddItem "laki-laki"

Combo1.AddItem "perempuan"

End Sub

7. script bersi, ketika kita menyimpan, mengedit, textbox langsung bersih,  bersih  ini terdapat pada tombol simpan dan edit,

Private Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text1.SetFocus

End Sub

8. berikutnya adalah script menampilkan data dari database/datagrid ke textbox,,

Private Sub Dg_Click()

Me.Text1.Text = adodc1.Recordset!NO_PENDAFTARAN

Me.Text2.Text = adodc1.Recordset!NAMA

Me.Combo1.Text = adodc1.Recordset!JENIS_KELAMIN

Me.Text3.Text = adodc1.Recordset!TEMPAT_LAHIR

Me.Text4.Text = adodc1.Recordset!TANGGAL_LAHIR

Me.Text5.Text = adodc1.Recordset!ALAMAT

Me.Text6.Text = adodc1.Recordset!SEKOLAH_ASAL

Me.Text7.Text = adodc1.Recordset!NEM

End Sub 

cara kerja script diatas menampilkan data dari database/datagrid ke textbox, ketika kita akan menampilan maka kita klik pada datagridnya yang kita akan edit, jika sudah tampil pada textboxnya ubalah datanya sesuai keinginan anda, setelah itu maka klik edit pilih ok... lihat hasilnya pasti berubahkan,,,,?

b.  script pada form Data Siswa Baru

1.  tombol simpan

Private Sub Command1_Click()

Dim x

If Combo2.Text = "" Or Combo3.Text = "" Or Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Combo1.Text = "" Then

MsgBox "isikan seluruh data yang di perlukan.!", vbOKOnly, "informasi"

Exit Sub

Else

x = MsgBox("apakah anda ingin menyimpan data ini..?", vbokocancel + vbQuestion, "perhatian")

If x = vbOK Then

adodc1.Recordset.AddNew

adodc1.Recordset.Fields(0) = Me.Combo1.Text

adodc1.Recordset.Fields(1) = Me.Text1.Text

adodc1.Recordset.Fields(2) = Me.Text2.Text

adodc1.Recordset.Fields(3) = Me.Combo2.Text

adodc1.Recordset.Fields(4) = Me.Text3.Text

adodc1.Recordset.Fields(5) = Me.Text4.Text

adodc1.Recordset.Fields(6) = Me.Text5.Text

adodc1.Recordset.Fields(7) = Me.Text6.Text

adodc1.Recordset.Fields(8) = Me.Combo3.Text

adodc1.Recordset.Fields(9) = Me.Text7.Text

bersih

End If

Command1.Enabled = True

End If

End Sub

2. tombol edit

Private Sub Command2_Click()

Edit = MsgBox("anda akan mengupdate data..!", vbOKCancel + vbQuestion, "perhatian")

If Edit = vbOK Then

adodc1.Recordset.Update

adodc1.Recordset.Fields(0) = Me.Combo1.Text

adodc1.Recordset.Fields(1) = Me.Text1.Text

adodc1.Recordset.Fields(2) = Me.Text2.Text

adodc1.Recordset.Fields(3) = Me.Combo2.Text

adodc1.Recordset.Fields(4) = Me.Text3.Text

adodc1.Recordset.Fields(5) = Me.Text4.Text

adodc1.Recordset.Fields(6) = Me.Text5.Text

adodc1.Recordset.Fields(7) = Me.Text6.Text

adodc1.Recordset.Fields(8) = Me.Combo3.Text

adodc1.Recordset.Fields(9) = Me.Text7.Text

bersih

End If

End Sub

3. tombol cari

Private Sub Command3_Click()

On Error GoTo error

Dim SNo_pendaftaran As String

SNo_pendaftaran = InputBox("masukan nama pendaftar:")

adodc1.Recordset.MoveFirst

adodc1.Recordset.Find "NAMA=" & SNo_pendaftaran & "'"

Combo1.Text = adodc1.Recordset.Fields(0)

Text1.Text = adodc1.Recordset.Fields(1)

Text2.Text = adodc1.Recordset.Fields(2)

Combo2.Text = adodc1.Recordset.Fields(3)

Text3.Text = adodc1.Recordset.Fields(4)

Text4.Text = adodc1.Recordset.Fields(5)

Text5.Text = adodc1.Recordset.Fields(6)

Text6.Text = Adodc.Recordset.Fields(7)

Combo3.Text = Adodc.Recordset.Fields(8)

Text7.Text = Adodc.Recordset.Fields(9)

Command1.Enabled = False

Exit Sub

error:

MsgBox "data yang masukan salah..!", vbonly, "perhatian"

bersih

End Sub

3. tombol hapus

Private Sub Command4_Click()

Dim Y

Y = MsgBox("yakin ingin menghapus data...???", vbQuestion + vbYesNo, "perhatian")

If Y = vbYes Then

adodc1.Recordset.Delete

Me.Dg1.Refresh

MsgBox "data dihapus...!!!", vbInformation, "informasi"

bersih

Text1.SetFocus

Else

Exit Sub

End If

Command1.Enabled = True

End Sub

4. tombol keluar

Private Sub Command5_Click()

e = MsgBox("yakin anda akan keluar..?", vbOKCancel + vbInformation, "informasi")

If e = vbOK Then

Unload Me

End If

End Sub

5.   script coneksi antara database (tabel SISWA ) dengan adodc pada form Data Siswa Baru, dan disini juga ada script koneksi antara form Calon Siswa Baru dengan form Data Siswa Baru, agar data yang disimpan tabel CALON/form Calon Siswa Baru bisa ditampilkan di form  Data Siswa Baru dengan cara menklik combobox NO_PENDAFTARAN dan meletakan kursornya pada textbox NIS maka akan tampil datanya di dalam textbox pada form Data Siswa,,

Private Sub Form_Load()

Dim I As Integer

koneksi

Adodc1.ConnectionString = conn.ConnectionString

Adodc1.RecordSource = "select*from siswa"

Adodc1.Refresh

Set Dg1.DataSource = Adodc1

For I = 2010 To 2030 Step 1

Combo3.AddItem (I)

Next

Do While Not Form12.Adodc1.Recordset.EOF

Combo1.AddItem Form12.Adodc1.Recordset!NO_PENDAFTARAN

Form12.Adodc1.Recordset.MoveNext

Loop

End Sub 

6.   untuk script combobox pada NO_PENDAFTARAN yaitu:

Private Sub Combo1_LostFocus()

On Error Resume Next

Dim cari As String

cari = "no_pendaftaran='" & Combo1.Text & ""

Form12.Adodc1.Refresh

With Form12.Adodc1.Recordset

.Find cari

If Not .EOF Then

Text2.Text = Form12.Adodc1.Recordset!NAMA

Combo2.Text = Form12.Adodc1.Recordset!JENIS_KELAMIN

Text3.Text = Form12.Adodc1.Recordset!TEMPAT_LAHIR

Text4.Text = Form12.Adodc1.Recordset!TANGGAL_LAHIR

Text5.Text = Form12.Adodc1.Recordset!ALAMAT

Text7.Text = Form12.Adodc1.Recordset!NEM

Else

Form12.Adodc1.Refresh

End If

End With

End Sub

7. script bersih, sekiranya saya sudah jelaskan pada form Calon Siswa Baru

Private Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Text1.SetFocus

End Sub

8.   untuk script yang akan di letakan didalam datagrid, saya sudah jelaskan pada form Calon Siswa Baru bagaimana cara kerjanya,,,

Private Sub Dg1_Click()

Me.Combo1.Text = Adodc1.Recordset!NO_PENDAFTARAN

Me.Text1.Text = Adodc1.Recordset!NIS

Me.Text2.Text = Adodc1.Recordset!NAMA

Me.Combo2.Text = Adodc1.Recordset!JENIS_KELAMIN

Me.Text3.Text = Adodc1.Recordset!TEMPAT_LAHIR

Me.Text4.Text = Adodc1.Recordset!TANGGAL_LAHIR

Me.Text5.Text = Adodc1.Recordset!ALAMAT

Me.Text6.Text = Adodc1.Recordset!WALI

Me.Combo3.Text = Adodc1.Recordset!ANGKATAN

Me.Text7.Text = Adodc1.Recordset!NEM

End Sub

c.  script modules, untuk script modulesnya berfunsi bisa menkoneksikan antara database dengan vb6.0, di folder manapun diletakan tidak akan eror aplikasinya,,,

Public conn As New ADODB.Connection  // script ini simpan paling atas,,

Public Sub koneksi()

On Error GoTo gagal:

If conn.State = 1 Then conn.Close

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\pendaftaran.mdb;persist security info=false"

Exit Sub

gagal:

MsgBox "koneksi aplikasi ke database gagal...!", vbCritical, "informasi"

End Sub

jika inin menampilkan modulesnya didalam project caranya adalah,,

klik project > pilih add module > pilih open (maka letakan codenya yang sudah saya siapkan diatas,,)

demikianlah tutorial pada pembahasan kali ini sampai disini saja, dan nantikan update tutorial berikutnya , semoga tutorial ini bermanfaat bagi kita semua,,,

silakan comment kalau ada yang di pertanyakan

  

Tweet