Membuat Database Mahasiswa dengan perintah Simpan, Edit dan Hapus

Ketentuan :

Misal NPM : R-11201212

Keterangan :

R = Menunjukkan kelas E=Eksekutive, R=Reguler

11 = Tahun Masuk

2 = Jurusan

01 = Program Studi

212 = Nomor Urut

Uang pendaftaran = untuk kelas Eksekutive dan Reguler :

  • Program Strata satu Rp 200.000
  • Diploma Tiga Rp 150.000
  • Diploma Satu Rp 150.000

Biaya pendidikan /semester = untuk eksekutive :

  • Program Strata satu Rp 1.900.000
  • Diploma Tiga Rp 1.650.000
  • Diploma Satu Rp 1.350.000

Biaya pendidikan /semester = untuk Reguler :

  • Program Strata satu Rp 1.500.000
  • Diploma Tiga Rp 1.250.000
  • Diploma Satu Rp 1.250.000

Uang bangunan = untuk Eksekutive → Semua Program Rp 1.250.000

Uang bangunan = untuk Reguler → Semua Program Rp 1.000.000

Biaya Propti dan Almamater Eksekutive / Reguler → Semua Program Rp 600.000

Tahun Masuk

Diambil 2 digit dari kiri Nomor Pokok Mahasiswa

Kode Jurusan

1 → Jurusan “Sistem Informasi”

2 → Jurusan “Manajemen Informatika”

3 → Jurusan “Manajemen dan Komp. Akuntansi”

Kode Program Studi :

01 →Program Studi “Strata Sattu”

02 →Program Studi “Diploma Tiga”

03 →Program Studi “Diploma Satu”

Nomor Urut

Diambil 3 digit dari kanan Nomor Pokok Mahasiswa

Total Biaya

(uang pendaftaran + biaya pendidikan/semester + uang bangunan + biaya propti dan almamater)

Nama Komponen Propertis Nilai
Label1- Label12 Caption Sesuaikan dengan nama data
Text1-Text12 Text Dikosongkan saja
Command1 Caption Proses
Command2 Caption Save
Command3 Caption Edit
Command4 Caption Delete
Command5 Caption New
Command6 Caption Exit
Command7 Caption Add New
Data1 DatabaseName

Recordsource

Dika

Dika

DBGrid1 DataSource Data1

Pada pembuatan program database yang akan saya gunakan adalah sebagai berikut :

Nama Database = contohnya saya mengguakan (DIKA)
Nama Tabel = DIKA
Field dari Tabel DIKA = NAMA, NPM, KELAS, JURUSAN, PROGRAM STUDI, TAHUN MASUUK, NOMOR URUT,
Komponen yg dugunakan = Label, Text, Command, Frame, Data dan DBgrid


Untuk keterangan bagaimana cara membuat database silahkan lihat pada artikel sebelumnya DISINI.
Setelah menambahkan component Data dan DBGrid pada Toolbox, buatlah desain form seperti ini :

Untuk cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBData.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = nama tabel yg telah dibuat,

contohnya disini saya menggunakan “DIKA” untuk nama DatabaseName dan Recordsource-nya.

Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.

untuk lebih jelasnya dalam pembuatan database dan pengaturannya Data1 dan DBGrid1 bisa dilihat di artikel sebelumnya DISINI.

Sampai disini kita sudah berhasil mengkoneksikan database dengan menggunakan Data1.,
Setelah database sudah terkoneksi dengan form, sekarang kita akan membuat perintah simpan, edit, hapus pada command button.

selanjutnya untuk Source code-nya  langsung copy paste coding di bawah ini.

Private Sub Command1_Click()
Dim S As String
S = Left(Text2.Text, 1)
If S = "E" Then
Text3.Text = "EKSEKUTIF"
ElseIf S = "R" Then
Text3.Text = "REGULER"
End If

Text6.Text = "20" & Mid(Text2.Text, 3, 2)
S = Mid(Text2.Text, 5, 1)
If S = "1" Then
Text4.Text = "SISTEM INFORMASI"
ElseIf S = "2" Then
Text4.Text = "MANAJEMEN INFORMASI"
ElseIf S = "3" Then
Text4.Text = "MANAJEMEN DAN KOMP. AKUTANSI"
End If

S = Mid(Text2.Text, 6, 2)
If S = "01" Then
Text5.Text = "STRATA SATU"
ElseIf S = "02" Then
Text5.Text = "DIPLOMA TIGA"
ElseIf S = "03" Then
Text5.Text = "DIPLOMA SATU"
End If

Text7.Text = Right(Text2.Text, 3)

If Text5.Text = "STRATA SATU" Then
Text8.Text = "200000"
ElseIf Text5.Text = "DIPLOMA TIGA" Then
Text8.Text = "150000"
ElseIf Text5.Text = "DIPLOMA SATU" Then
Text8.Text = "200000"
End If

If Text3.Text = "REGULER" And Text5.Text = "STRATA SATU" Then
Text9.Text = "1500000"
ElseIf Text3.Text = "REGULER" And Text5.Text = "DIPLOMA TIGA" Then
Text9.Text = "1250000"
ElseIf Text3.Text = "REGULER" And Text5.Text = "DIPLOMA SATU" Then
Text9.Text = "1250000"
End If

If Text3.Text = "EKSEKUTIF" And Text5.Text = "STRATA SATU" Then
Text9.Text = "1900000"
ElseIf Text3.Text = "EKSEKUTIF" And Text5.Text = "DIPLOMA TIGA" Then
Text9.Text = "1650000"
ElseIf Text3.Text = "EKSEKUTIF" And Text5.Text = "DIPLOMA SATU" Then
Text9.Text = "1350000"
End If
If Text3.Text = "EKSEKUTIF" Then
Text10.Text = "1250000"
ElseIf Text3.Text = "REGULER" Then
Text10.Text = "1000000"
End If
If Text3.Text = "REGULER" Then
Text11.Text = "600000"
ElseIf Text3.Text = "EKSEKUTIF" Then
Text11.Text = "600000"
End If
Text12.Text = Val(Text8) + Val(Text9) + Val(Text10) + Val(Text11)
End Sub

Private Sub Command2_Click()
With Data1.Recordset
.Edit
.Fields("NAMA") = Text1.Text
.Fields("NPM") = Text2.Text
.Fields("KELAS") = Text3.Text
.Fields("JURUSAN") = Text4.Text
.Fields("PROGRAM STUDI") = Text5.Text
.Fields("TAHUN MASUK") = Text6.Text
.Fields("NOMOR URUT") = Text7.Text
.Update
MsgBox "Data Telah Diperbaiki", vbOKOnly, "PESAN"
End With
End Sub

Private Sub Command3_Click()
With Data1.Recordset
Text1.Text = .Fields("NAMA")
Text2.Text = .Fields("NPM")
Text1.SetFocus
End With
End Sub

Private Sub Command4_Click()
With Data1.Recordset
.Delete
Text1.Text = ""
Text2.Text = ""
MsgBox "Data Telah Dihapus", vbOKOnly, "PESAN"
End With
Data1.Refresh
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text1.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
With Data1.Recordset
.AddNew
.Fields("NAMA") = Text1.Text
.Fields("NPM") = Text2.Text
.Fields("KELAS") = Text3.Text
.Fields("JURUSAN") = Text4.Text
.Fields("PROGRAM STUDI") = Text5.Text
.Fields("TAHUN MASUK") = Text6.Text
.Fields("NOMOR URUT") = Text7.Text
.Update
MsgBox "Data Telah Tersimpan", vbOKOnly, "PESAN"
End With
End Sub

Private Sub Form_Activate()
Command5.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Selesai…

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

.

tips & trik | sharing | tutorial blog

tips & trik | sharing | tutorial blog

alian dika.stmikpswu

tips & trik | sharing | tutorial blog

CARI - CARI

tips & trik | sharing | tutorial blog

%d blogger menyukai ini: