Daftar Isi BAB 1. Membuat Aplikasi Pengolahan data Akademik ............................. ........................ .... Error! Bookmark not defined. 1.1 RANCANGAN DATABASE DATABASE DENGAN DENGAN ACCES. ACCES........................... ................................ ...................... .............................. 2 1.2 MERANCANG FORM MENU .................................................................................................................................... 4 1.3 MEMBUAT NAMA MENU ........................... .............................. ...................... ................................ ....................... 5 1.4 RANCANGAN RANCANGAN FORM MASTER MASTER .......................... ................................ ...................... ................................ .................. 6 1.5 RANCANGAN FORM DATA MATAKULIAH..................................... MATAKULIAH..................................... ............................. ............................... ............ 11 1.6 RANCANGAN FORM DATA DOSEN ........................................................................................................................ 14 1.7RANCANGAN FORM TRANSAKSI ............................................................................................................................ 16 BAB 2. Membuat Report22 BAB 3 Melinkkan Form Menu ke MDIParent27
[email protected] Adi yana
Page 1
BAB 1. Membuat Apl Aplikasi Pengolahan data Akademik Pada Modul ini kita akan Membahas studi Kasus Sistem Aplikasi Akademik..Pembahasan kali ini kita akan menggunakan koneksi Database melalalui MS.Acces.
ENGAN ACCES ACCES. 1.1 R ANCANGAN D ATABASE DENGAN Pembuatan database akademik.Langkah pertama kita buat terlebih dahulu database nya. Berikut Rancangan Database nya. 1.Rancangan Table Dosen.
2.Rancangan Table Mahasiswa.
3. Rancangan Table Matakuliah
Adi yana
Page 2
4.
Rancangan Table Nilai
5.Rancangan Table Krs
Selanjutnya Setelah kita Buat Rancangan Database Seperti di Atas,Langkah Selanjutnya Adalah Membuat Relasi antar Table,Seperti Gambar di bawah.. A. Gambar Relasi Relationship.
Adi yana
Page 3
1.2 MER ANCANG FORM MENU Setelah Kita merancang merancang semua database yang kita buat,Selanjutnya kita akan mengemplementasikan mengemplementasikanya ya ke Dalam VISUAL BASIC. Langkah Pertama Buka Aplikasi Visual Basic Caranya Klik Menu Project, Add Windows form Lalu pilih MDIparent form
Lalu Akan Tampil
Adi yana
Page 4
1.3 MEMBUAT NAM A MENU Contoh: Ketikan Nama Menu seperti ini!
Adi yana
Page 5
Setelah kita selesai membuat Desain Desain form MDIparent langkah selanjutnya kita akan membuat form form yang nantinya kita akan linkkan ke masing masing Menu.
1.4 R ANCANGAN FORM M ASTER Proses pembuatan form master pada form log-in,yaitu untuk memudahkan kita masuk ke dalam menu utama,dan berfungsii untuk mengatur dan memproteksi user pada level penggunaan program aplikasi. Untuk lebih jelasnya ikuti langkah langkah berikut: 1. FORM MASTER UNTUK FORM LOG-IN Langkah -1: Buka Aplikasi Visuial Basic y
Kita akan membuat form login terlebih dahulu
Create new Project B Buatlah uatlah Desain form Seperti gambar dibawah
Adi yana
Page 6
Gambar Form Login.
Langkah Selanjutnya setelah kita merancang desain form login tersebut ,kita tinggal memasukan kode programnya.
y
Kode Program Button Login
Langkah-2: double klik pada Button Login,Lalu kita akan Masuk ke dalam kode program nya Tuliskan kode program nya sebagai berikut: Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox1.Text = "addy" "addy") ) And (TextBox2.Text = "amikhass" "amikhass") ) Then
MDIParent1.MasterToolStripMenuItem.Enabled = True MDIParent1.AcademicToolStripMenuItem.Enabled = True MDIParent1.ReportToolStripMenuItem.Enabled = True MDIParent1.LogInToolStripMenuItem.Enabled = False Close() Else MsgBox("maaf MsgBox( "maaf pasword salah") salah" ) End If
End Sub y
Kode Program Button Cancel
Langakah-3 : double klik pada Button Cancel, Lalu kita akan Masuk ke dalam kode program nya Tuliskan kode program nya sebagai berikut: Close()
Adi yana
Page 7
2.
RANCANGAN RANCANGAN FORM MAHSISWA Untuk melengkapi pemahaman anda ,rancanglah form Entri Data Mahasiswa,Seperti Berikut ini
Setelah kita merancang form Mahasiswa lalu kita tinggal masukan kode program nya sebagai berikut:
y
Kode Program pada form
Langkah-1: double klik pada form mahasiswa.lalu mahasiswa.lalu masukan kode programnya progra mnya Seperti ini. Dim dc(1) As DataColumn Try daAkademik = New OleDb.OleDbDataAdapter( "select * from akademik", akademik" , con) daAkademik = New OleDb.OleDbDataAdapter( "select * from akademik", akademik" , con) daAkademik.Fill(dtAkademik) dc(0) = dtAkademik.Columns("Nim_Mahasiswa" dtAkademik.Columns( "Nim_Mahasiswa") ) dtAkademik.PrimaryKey = dc dgAkademik.DataSource = dtAkademik Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub
Jangan Lupa Deklarasikan prosedur nya Sebagai Berikut Public Class Form1 Dim daAkademik As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\akademik2.mdb" )) Dim dtAkademik As New DataTable() Dim drAkademik As DataRow
Adi yana
Page 8
Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function y
KODE PROGRAM PADA BUTTON SIMPAN
Langkah -2: double klik pada button Simpan.lalu Simpan.lalu masukan kode programnya progra mnya Sperti ini Private Sub lbSimpan_Click(ByVal lbSimpan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbSimpan.Click Try Dim cbAkademik As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daAkademik) drAkademik = dtAkademik.NewRow
drAkademik("Nim_Mahasiswa" drAkademik( "Nim_Mahasiswa") ) = TextBox1.Text
drAkademik("Nama_Mahasiswa" drAkademik( "Nama_Mahasiswa") ) = TextBox2.Text drAkademik("Jenis_kelamin" drAkademik( "Jenis_kelamin") ) = ComboBox1.Text drAkademik("Jurusan" drAkademik( "Jurusan") ) = TextBox3.Text drAkademik("kode_jurusan" drAkademik( "kode_jurusan") ) = TextBox4.Text drAkademik("Alamat" drAkademik( "Alamat") ) = TextBox5.Text drAkademik("Kota" drAkademik( "Kota") ) = TextBox6.Text drAkademik("No_Hp" drAkademik( "No_Hp") ) = TextBox7.Text
dtAkademik.Rows.Add(drAkademik) con.Open() daAkademik.Update(dtAkademik) dtAkademik.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try End Sub dtAkademik.Rows.Add(drAkademik) con.Open() daAkademik.Update(dtAkademik) dtAkademik.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try End Sub
Adi yana
Page 9
KODE PROGRAM PADA BUTTON HAPUS
Langkah-3 : double klik pada Button Hapus, Lalu kita akan Masuk ke dalam kode program nya Tuliskan kode program nya sebagai berikut: Private Sub LbHapus_Click(ByVal LbHapus_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbHapus.Click Try Dim cbAkademik As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daAkademik) drAkademik.Delete() daAkademik.DeleteCommand = cbAkademik.GetDeleteCommand daAkademik.Update(dtAkademik) dtAkademik.AcceptChanges() daAkademik.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message)
y
y
End Try End Sub
Kode program pada button Batal
Langkah : double klik pada Button Hapus, Lalu kita akan Masuk ke dalam kode program nya Tuliskan kode program nya sebagai berikut: Private Sub lbBatal_Click(ByVal lbBatal_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbBatal.Click kosong()
Declarasi privat sub kosong: Private Sub kosong() TextBox1.Text TextBox2.Text TextBox3.Text TextBox4.Text TextBox5.Text TextBox6.Text TextBox7.Text End Sub
y
= = = = = = =
"" "" "" "" "" "" ""
Kode program pada button keluar
Langkah : double klik pada Button keluar, Lalu kita akan Masuk ke dalam kode program nya Tuliskan kode program nya sebagai berikut: Private Sub lbKeluar_Click(ByVal lbKeluar_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbKeluar.Click Close() End Sub
Adi yana
Page 10
1.5 R ANCANGAN FORM D ATA M ATAKULI AH Untuk melengkapi pemahaman anda ,langkah selanjutnya kita akan merancang Entri data Matakuliah. Untuk lebih jelasnya ikuti Langkah sebagai berikut: Langkah -1: Desain lah form sebagai berikut:
DataGrade
Langkah-2:double klik pada form nya. setelah kita merancang form di atas,isi kode program nya sebagai berikut: Private Sub Form4_Load(ByVal Form4_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyBase .Load Dim dc(1) As DataColumn Try damatkul = New OleDb.OleDbDataAdapter( "select * from TableMatkul", TableMatkul" , con) damatkul = New OleDb.OleDbDataAdapter( "select * from TableMatkul", TableMatkul" , con) damatkul.Fill(dtmatkul) dc(0) = dtmatkul.Columns("Kode_Matkul" dtmatkul.Columns( "Kode_Matkul") ) dtmatkul.PrimaryKey = dc Dgmatkul.DataSource = dtmatkul Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub
Adi yana
Page 11
Deklarasikan kode program nya sebagai berikut:
Public Class Form1 Dim daAkademik As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\akademik2.mdb" )) Dim dtAkademik As New DataTable() Dim drAkademik As DataRow
Kita tinggal mengedit dimana kita mensave database yang kita buat.
y
Kode program pada button Simpan
Langkah-2: Mengisikan kode progam button Simpan Isi kan kode program nya sebagai berikut: Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim cbmatkul As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(damatkul) drmatkul = dtmatkul.NewRow drmatkul("Kode_Matkul" drmatkul( "Kode_Matkul") ) = txtkode.Text drmatkul("Nama_Matkul" drmatkul( "Nama_Matkul") ) = txtnama.Text drmatkul("Jumlah_Sks" drmatkul( "Jumlah_Sks") ) = txtSks.Text
dtmatkul.Rows.Add(drmatkul) con.Open() damatkul.Update(dtmatkul) dtmatkul.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try End Sub
Adi yana
Page 12
Kode program pada Button Batal
Langkah-2: Mengisikan kode progam button Batal Isi kan kode program nya sebagai berikut: Private Sub Button2_Click(ByVal Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click kosong() End Sub Jangan lupa deklarasikan pula prosedur kosong nya Private Sub kosong() txtKode.Text = "" TxtNama.Text = "" txtSks.Text = "" End Sub
y
Kode program pada button Hapus
Langkah-2: Mengisikan kode progam button Hapus Isi kan kode program nya sebagai berikut: Private Sub Button3_Click(ByVal Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Dim cbmatkul As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(damatkul) drmatkul.Delete() damatkul.Update(dtmatkul) dtmatkul.AcceptChanges() damatkul.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try End Sub Private Sub Button4_Click(ByVal Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Close() End Sub End Class
Kode program Button Keluar
Adi yana
Page 13
1.6 R ANCANGAN FORM D ATA DOSEN Untuk melengkapi pemahaman anda,selanjutnya anda,selanjutnya kita akan merancang merancang form Entri Data Dosen. Untuk lebih paham nya ikuti langkah ssebagai berikut: Langkah-1: Desain lah form sebagai berikut:
Data Grade Langkah-2: double klik pada form table dosen,lalu sama seperti di atas masukan kode program nya sebagai berikut: Private Sub FrDosen_Load(ByVal FrDosen_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try dadosen = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from TableDosen", TableDosen" , con) dadosen = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from TableDosen", TableDosen" , con) dadosen.Fill(dtdosen) dc(0) = dtdosen.Columns("Kode_Dosen" dtdosen.Columns( "Kode_Dosen") ) dtdosen.PrimaryKey = dc DgDosen.DataSource = dtdosen Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub
Adi yana
Page 14
Public Class FrDosen Dim dadosen As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\akademik2.mdb" )) Dim dtdosen As New DataTable() Dim drdosen As DataRow Private Sub kosong() txtKode.Text = "" Deklarasi prosedur TxtNama.Text = "" TxtNo_Hp.Text = "" TxtAlamat.Text = "" End Sub Deklarasi sub kosong Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function
Private Sub BtnSimpan_Click( BtnSimpan_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click Try Dim cbdosen As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dadosen) drdosen = dtdosen.NewRow drdosen("Kode_dosen" drdosen("Kode_dosen") ) = txtKode.Text drdosen("Nama_Dosen" drdosen("Nama_Dosen") ) = TxtNama.Text drdosen("Jenis_kelamin" drdosen("Jenis_kelamin") ) = CbxJeniskelamin.Text drdosen("Alamat" drdosen("Alamat") ) = TxtAlamat.Text drdosen("No_Hp" drdosen("No_Hp") ) = TxtNo_Hp.Text
dtdosen.Rows.Add(drdosen) con.Open() dadosen.Update(dtdosen) dtdosen.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try
Kode program button simpan
End Sub Private Sub BtnBatal_Click(ByVal BtnBatal_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click kosong() End Sub Private Sub BtnKeluar_Click( BtnKeluar_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click Close() Kode program button keluar End Sub
Adi yana
Kode program Button Batal
Page 15
1.7R ANCANGAN FORM TR ANSAKSI Aplikasi transaksi ini nanti nya akan menampilkan data data yang sudah di buat di table table sebelumnya yaitu table mahasiswa,table mahasiswa,table dosen,table matakuliah dan table nilai. Untuk lebih jelasnya ikuti langkah-langkah sebagai berikut: Langkah-1: siapkan rancangan form transaksi sebagai berikut:
Langkah-2: masukan kode program nya dengan cara double kli k pada form transaksi tersebut. Masukan kode program nya seperti ini: rivate Form3_Load( rivate Sub Sub Form3_Load(ByVal Form3_Load(ByVal Form3_Load(ByVal ByVal sender sender As As System.Object, System.Object, ByVal ByVal ee As As System.EventArgs) System.EventArgs) Handles Handles MyBase.Load MyBase .Load MyBase.Load MyBase .Load Dim Dim dc1(1) dc1(1) As As DataColumn DataColumn Try Try daAkademik akademik", daAkademik == New New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select ** from from akademik" akademik",, con) akademik", con) daAkademik.Fill(dtAkademik) daAkademik.Fill(dtAkademik) dc1(0) dtAkademik.Columns( )) dc1(0) == dtAkademik.Columns("Nim_Mahasiswa" dtAkademik.Columns("Nim_Mahasiswa") dtAkademik.Columns("Nim_Mahasiswa" "Nim_Mahasiswa") dtAkademik.PrimaryKey dtAkademik.PrimaryKey == dc1 dc1 With With LbNim LbNim .DataSource .DataSource == dtAkademik dtAkademik .DisplayMember .DisplayMember == "Nim_Mahasiswa" "Nim_Mahasiswa" .ValueMember .ValueMember == "Nim_Mahasiswa" "Nim_Mahasiswa" End End With With danilai TableNilai", danilai == New New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select ** from from TableNilai" TableNilai",, con) TableNilai", con) danilai.Fill(dtnilai) danilai.Fill(dtnilai) dc1(0) dtnilai.Columns( )) dc1(0) == dtnilai.Columns("Kode_nilai" dtnilai.Columns("Kode_nilai") dtnilai.Columns("Kode_nilai" "Kode_nilai") dtnilai.PrimaryKey = dc1 dtnilai.PrimaryKey = dc1 Catch errConn As OleDb.OleDbException Catch errConn As OleDb.OleDbException MsgBox(errConn.Message)
Adi yana
Page 16
MsgBox(errConn.Message) End Try EndDim Trydc(1) As DataColumn DimTry dc(1) As DataColumn Try damatkul = New OleDb.OleDbDataAdapter( "select * from TableMatkul", TableMatkul" , con) damatkul = New OleDb.OleDbDataAdapter( "select * from TableMatkul", TableMatkul" , con) damatkul.Fill(dtmatkul) damatkul.Fill(dtmatkul) dc(0) = dtmatkul.Columns("Kode_Matkul" dtmatkul.Columns( "Kode_Matkul") ) dc(0) = dtmatkul.Columns("Kode_Matkul" dtmatkul.Columns( "Kode_Matkul") ) dtmatkul.PrimaryKey = dc dtmatkul.PrimaryKey = dc With Lbkode_matkul With Lbkode_matkul .DataSource = dtmatkul .DataSource = dtmatkul .DisplayMember = "Kode_Matkul" .DisplayMember .ValueMember == "Kode_Matkul" "Kode_Matkul" .ValueMember = "Kode_Matkul" End With End With danilai = New OleDb.OleDbDataAdapter( "select * from TableNilai", TableNilai" , con) danilai = New OleDb.OleDbDataAdapter( "select * from TableNilai", TableNilai" , con) danilai.Fill(dtnilai) danilai.Fill(dtnilai) dc(0) = dtnilai.Columns("Kode_nilai" dtnilai.Columns( "Kode_nilai") ) dc(0) = dtnilai.Columns("Kode_nilai" dtnilai.Columns( "Kode_nilai") ) dtnilai.PrimaryKey = dc dtnilai.PrimaryKey = dc Catch errConn As OleDb.OleDbException Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) MsgBox(errConn.Message) End Try End Try Dim dc2(1) As DataColumn DimTry dc2(1) As DataColumn Try dadosen = New OleDb.OleDbDataAdapter( "select * from TableDosen", TableDosen" , con) dadosen = New OleDb.OleDbDataAdapter( "select * from TableDosen", TableDosen" , con) dadosen.Fill(dtdosen) dadosen.Fill(dtdosen) dc2(0) = dtdosen.Columns("Kode_dosen" dtdosen.Columns( "Kode_dosen") ) dc2(0) = dtdosen.Columns("Kode_dosen" dtdosen.Columns( "Kode_dosen") ) dtdosen.PrimaryKey = dc2 dtdosen.PrimaryKey = dc2 With Lbxkks With Lbxkks .DataSource = dtdosen .DataSource = dtdosen .DisplayMember = "Kode_Dosen" .DisplayMember .ValueMember == "Kode_Dosen" "Kode_Dosen" .ValueMember = "Kode_Dosen" End With End With danilai = New OleDb.OleDbDataAdapter( "select * from TableNilai", TableNilai" , con) danilai = New OleDb.OleDbDataAdapter( "select * from TableNilai", TableNilai" , con) danilai.Fill(dtnilai) danilai.Fill(dtnilai) dc2(0) = dtnilai.Columns("Kode_nilai" dtnilai.Columns( "Kode_nilai") ) dc2(0) = dtnilai.Columns("Kode_nilai" dtnilai.Columns( "Kode_nilai") ) dtnilai.PrimaryKey = dc2 dtnilai.PrimaryKey = dc2 dgnilai.DataSource = dtnilai dgnilai.DataSource = dtnilai Catch errConn As OleDb.OleDbException Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) MsgBox(errConn.Message) End Try End EndSub Try End Sub
Adi yana
Page 17
Kode Program pada lisbox
Langkah-2: - double klik pada lisbox Mahasiswa,lalu maukan kode program seperti ini: Private Sub LbNim_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbNim.SelectedIndexChanged Try Dim drakademik As DataRow drakademik = dtAkademik.Rows.Find(LbNim.Text) TxtNama.Text = drakademik("Nama_Mahasiswa" drakademik( "Nama_Mahasiswa").ToString ).ToString TxtJurusan.Text = drakademik("Jurusan" drakademik( "Jurusan").ToString ).ToString Catch errTampil As Exception End Try End Sub
Langkah-3: double klik pada lisbox Mata kuliah,lalu masukan kode program nya seperti ini: Private Sub Lbkode_matkul_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbkode_matkul.SelectedIndexChanged Try Dim drmatkul As DataRow drmatkul = dtmatkul.Rows.Find(Lbkode_matkul.Text) Txtnama2.Text = drmatkul("Nama_Matkul" drmatkul( "Nama_Matkul").ToString ).ToString TxtSks.Text = drmatkul("Jumlah_SKS" drmatkul( "Jumlah_SKS").ToString ).ToString Catch errTampil As Exception End Try End Sub
Langkah-4: double klik pada lisbox dosen,masukan kode program nya seperti ini: PrivateSub SubLbxkks_SelectedIndexChanged( Lbxkks_SelectedIndexChanged( ByValsender senderAsAsSystem.Object, System.Object,ByVal ByVale eAsAs Private ByVal System.EventArgs)Handles HandlesLbxkks.SelectedIndexChanged Lbxkks.SelectedIndexChanged System.EventArgs) Try Try Dimdrdosen drdosenAsAsDataRow DataRow Dim drdosen= =dtdosen.Rows.Find(Lbxkks.Text) dtdosen.Rows.Find(Lbxkks.Text) drdosen Txtnamadosen.Text= =drdosen("Nama_Dosen" drdosen( drdosen("Nama_Dosen" "Nama_Dosen").ToString ).ToString Txtnamadosen.Text drdosen( "Nama_Dosen").ToString ).ToString TextBox2.Text = drdosen( drdosen("No_Hp" "No_Hp").ToString ).ToString TextBox2.Text = drdosen("No_Hp" drdosen( "No_Hp").ToString ).ToString CatcherrTampil errTampilAsAsException Exception Catch EndTry Try End End Sub
Adi yana
Page 18
Kode program pada Button Cari
y
Langkah: double klik pada button Cari, lali maukan kode program nya ebagai berikut: Private Sub Btncari_Click(ByVal Btncari_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncari.Click Try drnilai = dtnilai.Rows.Find(txtkodekks.Text) txtkodekks.Text = drnilai("Kode_nilai" drnilai( "Kode_nilai").ToString ).ToString LbNim.Text = drnilai("Nim_Mahasiswa" drnilai( "Nim_Mahasiswa").ToString ).ToString Lbkode_matkul.Text = drnilai("Kode_Matkul" drnilai( "Kode_Matkul").ToString ).ToString Lbxkks.Text = drnilai("Kode_Dosen" drnilai( "Kode_Dosen").ToString ).ToString txtUas.Text = drnilai("Uas" drnilai( "Uas").ToString ).ToString txtUts.Text = drnilai("Uts" drnilai( "Uts").ToString ).ToString txtTugas.Text = drnilai("Tugas" drnilai( "Tugas").ToString ).ToString Txtakumulasi.Text = drnilai("Akumulasi" drnilai( "Akumulasi").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub
y
Kode program pada button simpan
Langkah: double klik pada button Simpan lalu k etikan kode program nya sebagai berikut: Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim uas, uts, quiz, tugas, rata As Decimal uas = Val(txtUas.Text) uts = Val(txtUts.Text) quiz = Val(txtquiz.Text) tugas = Val(txtTugas.Text) rata = (0.4 * uas) + (0.3 * uts) + (0.2 * tugas) + (0.1 * quiz) txtrata.Text = rata If rata >= 80 Then Txtakumulasi.Text ElseIf rata >= 70 And Txtakumulasi.Text ElseIf rata >= 60 And Txtakumulasi.Text ElseIf rata >= 40 And Txtakumulasi.Text ElseIf rata < 40 Then Txtakumulasi.Text
Adi yana
= "A" rata < 80 Then = "B" rata < 70 Then = "C" rata < 60 Then = "D" = "E"
Page 19
Else Txtakumulasi.Text = "T" " drnilai = dtnilai.NewRow
drnilai("Kode_nilai" drnilai( "Kode_nilai") ) = txtkodekks.Text drnilai("Nim_Mahasiswa" drnilai( "Nim_Mahasiswa") ) = LbNim.Text drnilai("Kode_Matkul" drnilai( "Kode_Matkul") ) = Lbkode_matkul.Text drnilai("Kode_Dosen" drnilai( "Kode_Dosen") ) = Lbxkks.Text drnilai("Uas" drnilai( "Uas") ) = txtUas.Text drnilai("Uts" drnilai( "Uts") ) = txtUts.Text drnilai("Quiz" drnilai( "Quiz") ) = txtquiz.Text drnilai("Tugas" drnilai( "Tugas") ) = txtTugas.Text drnilai("Akumulasi_Nilai" drnilai( "Akumulasi_Nilai") ) = Txtakumulasi.Text dtnilai.Rows.Add(drnilai) con.Open() danilai.Update(dtnilai) dtnilai.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try
kosong() End Sub y
Kode program pada button Hapus
Langkah: double klik pada button hapus,lalun masukan kode program nya sebagai berikut: Private Sub Button2_Click(ByVal Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Dim cbhapus As OleDb.OleDbCommandBuilder = New Kode program OleDb.OleDbCommandBuilder(danilai) Button Hapus drnilai.Delete() danilai.DeleteCommand = cbhapus.GetDeleteCommand danilai.Update(dtnilai) dtnilai.AcceptChanges() danilai.DeleteCommand.Connection.Close()
y
Catch errHapus As Exception MsgBox(errHapus.Message)
End Try kosong() End Sub y
Adi yana
Page 20
y
Kode program pada Button Batal
Masukan Kode program nya sebagai berikut:
Private Sub Button3_Click(ByVal Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click kosong() End Sub Private Sub kosong() txtkodekks.Text = "" txtUas.Text = "" txtUts.Text = "" txtquiz.Text = "" txtTugas.Text = ""
Deklarasi Sub Kosong
txtkodekks.Focus() End Sub
Adi yana
Page 21
BAB 2 MEMBUAT REPORT
Kali ini kita akan membuat Report dari data yang telah di buat. Untuk lebih paham mari ikuti langkah-langkah nya: Langkah-1: Klik Project, Add Add window form lalu pilih cristal Report Lalu akan muncul sepeerti ini:
lalu Klik OK,Selanjutnya akan Tampil
Adi yana
Page 22
Pilih Create New Conection dan pilih Acces/Excel(DAO) dengan cara double klik,dan akan muncul: dan kita tinggal mencari database yang kita simpan.
Klik disini
Adi yana
Page 23
Setelah kita pilih dimana kita menyimpan databae nya maka akan muncul
Pilih Salah Satu Database lalu pilih Tanda Panah,Selanjut nya pilih next dan pilih Tanda Panah lagi,maka akan mucul:
Adi yana
Page 24
Selanjutnya kita tinggal pilih Tombol navigasi next,Sampai kita menemukan menu style report,disitu kita tinggal memilih: Lalu tekan Finish.
Lalu akan Tampil Sepereti ini:
Adi yana
Page 25
Langkah Berikut nya pilih new form,pada toolbox,pilih cristalreport Viewer,maka,Akan Muncul:
Selanjut nya klik kanan pada form tadi pilih choose crital report,setelah kita memilih nya akan tampil seperti ini:
Adi yana
Page 26
Catatan: untuk report Selanjut nya Langkah nya Sama Seperti tadi,Anda tinggal mengikuti langkah langkah tadi
BAB 3 MELINK KAN FORM PADA MENU MDIPARENT
Melinkkan menu pada menu mdiParent digunakan agar form dan menu saling terhubung, Pada pembahasan kali ini kita akan mencoba melinkkan form Log-in ke form Menu log-in. Ikuti langkah sebagai Berikut: 1.Pastikan form login Sudah dinamai Nama form
Adi yana
Page 27
Double klik di sini
2. Selanjut nya Buka form MdIParent 3. Lalu Double klik Pada Menu log-in 4. Masukan kode Program nya Sebagi berikut: Private Sub LogInToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInToolStripMenuItem.Click Dim form As New frlogin form.Show()
Untuk Melinkkan Menu Menu Selanjut nya .Anda Bisa Mencoba Sendiri Sambil Mempelajari nya,Langkah Langkah nya sama Seperti Langkah Langkah sebelum nya yang Sudah Kita pelajari. SELAMAT MENCOBA««.
Adi yana
Page 28
