IMPLEMENTASI ERD KE PROGRAM DATABASE DENGAN DELPHI MENGGUNAKAN DB ACCESS KONSEP ERD N MAHASISWA
TEMPUH
M MATA KULIAH
MAHASISWA = {Nim, Nama_mhs, Tempat_lahir, Tanggal_lahir, Ps, Semester, Kelas, Foto} Primary key : Nim MATAKULIAH = {Kode_kul, Nama_kul, Sks, Semester} Primary key : Kode_kul TEMPUH = {Kode_kul_nim, Nilai, Nim, Kode_kul} Primary Key : Kode_kul_nim Foreign Key : Nim, Kode_kul BUAT STRUKTUR TABEL DENGAN DATABASE ACCESS Merujuk dari materi yang pernah disampaikan, buka kembali Database Akademik kemudian simpan tabel-tabel di bawah ini. FieldName Kode_kul Nama_mk Sks Semester
DataType Text Text Number Text
FieldSize 5 30 Byte 4
Simpan dengan nama tabel : Matakuliah FieldName Kode_kul_nim Nim Kode_kul Nilai
DataType Text Text Text Number
FieldSize 12 7 5 Byte
Simpan dengan nama tabel : Tempuh
PENERAPAN DATABASE DENGAN DELPHI untuk Tabel Matakuliah 1. 2. 3. 4.
5.
6.
Buka kembali project dari pembahasan minggu lalu. Buat Form baru (File New Form) maka akan terbentuk Form3 Letakkan komponen Table Pengaturan Property table1 : a. Database Name : DBAkademik b. TableName : Matakuliah Bila menanyakan user name dan password : SYSDBA, masterkey c. Active : True Klik ganda Table1 Pada kotak kosong klik kanan dan pilih Add All Fields klik kanan kembali pada tempat yg kosong pilih Select All pada bagian yang terblok, klik kiri jangan di lepas seret dan letakkan pada form Letakkan Komponen DBGrid (Tab Data Controls) pilih property DataSource pilih DataSource1
7. 8. 9.
Letakkan Komponen DBNavigator (Tab Data Controls) pilih property DataSource pilih DataSource1 Pilih Form3 ubah property Caption : INPUT DATA MATAKULIAH Kemudian aturlah tampilan dari masing-masing komponen sehingga akan mendapatkan hasil seperti yg nampak pada gambar di bawah ini :
10. Run Aplikasi di atas dan isi dengan data sebanyak-banyak nya. 11. Selesai
PENERAPAN DATABASE DENGAN DELPHI untuk Tabel Tempuh, membahas tentang : • Manfaat LookUpField • Manfaat Field Kalkulasi 1. 2.
Buat Form baru (File New Form) akan terbentuk Form4 Perhatikan Desain di bawah ini :
3.
Letakkan Komponen table ubah property : • Name : TMhs • Databasename : DBAkademik • TableName : Mahasiswa • Active : True a. Klik ganda TMhs, klik kanan pada kotak kosong, pilih Add All Field Blok Field Nim dan Nama_mhs Klik kiri jangan dilepas, seret dan letakkan pada form.
4.
Ubah property name milik DataSource1 menjadi DSMhs
5.
Letakkan komponen DBGrid dan ubah property DataSource : DSMhs ubah property ReadOnly menjadi True klik ganda pada DBGrid pada kotak kosong klik kanan pilih Add All Field hapus field Nim
6.
Letakkan Komponen DBNavigator ubah property Datasource : DSMhs pilih property [+] Visible Buttons dan klik tanda [+], selain property nbFirst, nbPrior, nbNext, dan nbLast ubah menjadi False
7.
Letakkan komponen table ubah property : • Name : Ttempuh • Databasename : DBAkademik • Tablename : Tempuh • Active : True Klik ganda tabel TTempuh, klik kanan pada kotak kosong, pilih Add All Field
8.
Letakkan komponen DataSource ubah name : DSTempuh Property Dataset : TTempuh Letakkan komponen table ubah property : • Name : TMk • Databasename : DBAkademik • Tablename : Matakuliah • Active : True Klik ganda tabel TMk, klik kanan pada kotak kosong, pilih Add All Field
9.
10. Letakkan Komponen GroupBox (tab standar) ubah property Caption : Mata Kuliah a. Letakkan Komponen DBGrid ubah property DataSource : DSTempuh b. Klik ganda DBGrid pada kotak kosong klik kanan pilih add All Field hapus field Kode_kul_nim dan Nim 11. Letakkan komponen DBNavigator ubah property datasource : DSTempuh 12. Pilih tabel Ttempuh ubah property : • Master Source : DSMhs • Master Field : Klik Tombol […] pada kotak DetailFields klik Nim pada kotak MasterFields klik Nim klik Add, perhatikan pada kotak Joined Fields OK 13. Klik ganda tabel Ttempuh pilih field Kode_kul pada Tab Event pilih Event OnChange ketik Gabung (pada kotak sebelah kanan) Enter isi dengan code berikut : TTempuhKode_kul_nim.AsString:= TMhsNim.AsString+TTempuhKode_kul.AsString;
Menerapkan LookUpField dan Kalkulasi Field 14. Klik ganda tabel Ttempuh klik kanan pada kotak kosong pilih New Field pada kotak New Field, isi kotak : • Name : Nm_kul • Type : String • Size : 30 • Pada bagian Field Type pilih LookUp • KeyField : Kode_kul • Dataset : TMk • LookUp Key : Kode_kul • Result Field : Nama_mk • Klik OK Hasil dari proses ini adalah terbentuk nama field baru : Nm_kul pada tabel Ttempuh yang di letakkan di bawah field-field yang lain. Supaya letaknya pas yaitu setelah Kode_kul, Nm_kul klik kiri jangan dilepas seret dan letakkan setelah Kode_kul. 15. Masih pada kotak tabel Ttempuh, kemudian klik kanan lagi pada tempat yg kosong pilih New Field pada kotak New Field isi kotak : • Name : Grade • Type : String • Size : 1 • Pada bagian Field Type pilih Calculate • Klik OK 16. Pilih tabel Ttempuh, pada Tab Event pilih Event OnCalcField, ketik Hitung pada kotak kosong sebelah kanan Enter, isi kode yang tercetak tebal berikut : procedure TForm4.Hitung(DataSet: TDataSet); var na: Byte; Grade: Char; begin na:= TTempuhNilai.asInteger; if na >= 85 then grade:= 'A' else if na >= 70 then grade:= 'B' else if na >= 55 then grade:= 'C' else if na >= 45 then grade:= 'D' else grade:= 'E'; TTempuhGrade.AsString:= Grade; end; end. 17. Run Aplikasi di atas, kemudian isi dengan data dengan cara : a. Pilih mahasiswa yang akan mengambil matakuliah b. Klik Tombol + (DBNavigator)
c.
Klik kotak kosong di bawah Nm_kul(pada Grid) perhatikan akan muncul downlist (manfaat dari LookUp Field), anda tinggal memilih mata kuliah yang sudah ada, dengan syarat pada tabel matakuliah sudah terisi dengan data matakuliah.
d.
Isi juga Nilai nya, perhatikan perubahan yang terjadi pada field Grade, Grade akan terisi dengan secara otomatis (manfaat dari Calculate) Klik Tombol Check list (posting) DBNavigator Ulangi langkah di atas dan perhatikan perubahan yang terjadi.
e. f.
18. Selesai
