13 Rekayasa Program
Download as PPT, PDF0 likes177 views
Dokumen tersebut membahas tentang interface pemrograman basis data menggunakan bahasa Visual Basic, termasuk penjelasan tentang Data Definition Language, Data Manipulation Language, Data Control Language, objek akses data, terminologi dasar, identifikasi variabel basis data, membuat basis data dan tabel, membuat query, membuka basis data dan tabel, menambahkan, mengedit dan menghapus record, serta penguncian record.
More Related Content
What's hot (20)
Similar to 13 Rekayasa Program (20)
More from Arif Rahman (20)
Recently uploaded (6)
13 Rekayasa Program
- 2. INTERFACE PEMROGRAMAN Data Definition Language (DDL) Mesin database menetapkan format objek data, termasuk validasi data dan aturan integritas data. Data Manipulation Language (DML) Mesin database menjalankan fungsi-fungsi yang dilakukan pada data (memanggil, mengubah, menambah, menghapus dan menyimpan) Data Control Language (DCL) Mesin database membatasi akses yang diperkenankan pada data oleh pemakai yang berlainan
- 3. OBJECT AKSES DATA VISUAL BASIC DBENGINE : Object yang menunjuk ke mesin database Jet WORKSPACE : Daerah yang dapat digunakan pemakai untuk bekerja dengan satu database atau lebih DATABASE : Kumpulan informasi yang diorganisir ke dalam tabel, bersama-sama dengan indeks dan informasi relasi mengenai tabel RECORDSET : Kumpulan record-record informasi mengenai suatu topik
- 4. TERMINOLOGI Entitas : bagian penyusun sistem berwujud benda (kongkrit) atau dibendakan (abstrak) yang dapat berupa elemen atau subsistem Atribut : sebutan, sifat atau karakteristik yang dimiliki entitas yang dapat berupa parameter, variabel dan status. Kelas : sekumpulan entitas yang mempunyai kesamaan atribut
- 5. TERMINOLOGI Field : catatan yang mewakili satu atribut Record : catatan lengkap yang mewakili satu entitas File atau Tabel : kumpulan record yang mewakili satu kelas Query : kumpulan record dari beberapa kelas yang dipadukan dengan relasi Basis data : kumpulan file dengan relasinya
- 6. TERMINOLOGI Kunci : atribut yang mewakili keunikan entitas Indeks : atribut yang mewakili urutan entitas Relasi : Hubungan antar entitas Sort : mengurutkan record sesuai indeks Filter : menyeleksi record sesuai kriteri
- 7. IDENTIFIKASI VARIABEL BASISDATA Digunakan secara umum PUBLIC variable_basisdata AS DATABASE PUBLIC variable_tabeldata AS RECORDSET atau STATIC variable_basisdata AS DATABASE STATIC variable_tabeldata AS RECORDSET Digunakan dalam lingkup terbatas PRIVATE variable_basisdata AS DATABASE PRIVATE variable_tabeldata AS RECORDSET atau DIM variable_basisdata AS DATABASE DIM variable_tabeldata AS RECORDSET
- 8. MEMBUAT BASISDATA MULAI Buat Basisdata Ada ? Error Handler Buat Tabel data Ada ? Error Handler Buat Field Buat Index SELESAI Y T YT
- 9. MEMBUAT BASISDATA DIM newWS AS WORKSPACE DIM newDB AS DATABASE DIM newTBL AS TABLEDEF DIM newFLD AS FIELD DIM newIDX AS INDEX SET newWS = DBENGINE.WORKSPACE(0) SET newDB = newWS.CREATEDATABASE _ (namadrivenamafoldernamafile,DBLANGGENERAL) SET newTBL = newDB.CREATETABLEDEF(namatabel) SET newFLD = newTBL.CREATEFIELD(namafield,db_tipe,panjang) newTBL.FIELDS.APPEND newFLD SET newIDX = newTBL.CREATEINDEX(namaindex) newIDX.FIELDS = namafield newIDX.PRIMARY = TRUE newTBL.INDEXES.APPEND newIDX
- 10. MEMBUAT QUERY MULAI Pilih Tabel Pilih Field Buat Relasi Buat Filter Buat Sort Buat Grup SELESAI SELECT daftarfield FROM daftartabel tabel1 {INNER/LEFT/RIGHT} JOIN tabel2 ON tabel1.key = tabel2.key WHERE ekspresilogika ORDER BY daftarindex GROUP BY daftargrup
- 11. MEMBUAT QUERY SELECT DaftarField FROM DaftarTabel Tabel1 {INNER/LEFT/RIGHT} JOIN Tabel2 ON Tabel1.Key = Tabel2.Key WHERE Ekspresi Logika ORDER BY DaftarIndex GROUP BY FieldGrup CONTOH : SELECT Tabel1.*, Tabel2.* FROM Tabel1, Tabel2, Tabel1 INNER JOIN Tabel2 ON Tabel1.Field11 = Tabel2.Field23 WHERE Tabel1.Field12 LIKE Bpk.* ORDER BY Tabel1.Field11 GROUP BY Tabel1.Field12
- 12. EKSPRESI LOGIKA Operator (=,<,<=,>,>=,<>) namafield = kriteria LIKE namafield LIKE kr?t* IN namafield IN (kriteria1,kriteria2,) BETWEEN namafield BETWEEN kriteria1 AND kriteria2
- 13. MEMBUKA BASISDATA MULAI Buka Basisdata Ada ? Buat Basisdata Buka Tabel data Ada ? Buat Tabel data Tutup Tabel data Tutup Basisdata SELESAI T Y T Y
- 14. MEMBUKA BASISDATA TIPE RECORDSET TABLE (Single Table) dbDenyWrite dbDenyRead dbDenyReadOnly DYNASET (Query) dbDenyWrite dbDenyReadOnly dbAppendOnly dbSQLPassthrough SNAPSHOT (Copy atau Read only) dbDenyWrite dbForwardOnly dbSQLPassthrough
- 15. MEMBUKA BASISDATA DIM oldWS AS WORKSPACE DIM oldDB AS DATABASE DIM oldTBL AS RECORDSET SET oldWS = DBENGINE.WORKSPACE(0) SET oldDB = oldWS.OPENDATABASE _ (namadrivenamafoldernamafile,DBLANGGENERAL) SET oldTBL = oldDB.OPENRECORDSET(namatabel, dbopen_tipe, opsi) : : oldTBL.CLOSE oldDB.CLOSE
- 16. FILTER atau PENYARINGAN RECORDSET Property Filter VarTabel.FILTER ekspresi logika Operasi QUERY SELECT DaftarField FROM DaftarTabel WHERE ekspresi logika
- 17. SORT atau PENGURUTAN RECORDSET Property SORT VarTabel.SORT = DaftarIndeks Operasi QUERY SELECT DaftarField FROM DaftarTabel SORT BY DaftarIndeks
- 18. MENCARI RECORD Metode MOVE VarTabel.MOVEFIRST VarTabel.MOVELAST VarTabel.MOVENEXT VarTabel.MOVEPREVIOUS Metode FIND (dynaset atau snapshot) VarTabel.FINDFIRST ekspresi logika VarTabel.FINDLAST ekspresi logika VarTabel.FINDNEXT ekspresi logika VarTabel.FINDPREVIOUS ekspresi logika Metode SEEK (table) VarTabel.INDEX = namafield VarTabel.SEEK operator, kriteria
- 19. MENAMBAH RECORD Cari Primary Key NOMATCHUbah Primary Key Input FIELD UPDATE T Y ADDNEW
- 20. MENAMBAH RECORD VarTabel.INDEX = primarykey VarTabel.SEEK =, isianprimarykey IF VarTabel.NOMATCH THEN VarTabel.ADDNEW VarTabel(namafield) = isianfield VarTabel.UPDATE ELSE MSGBOX already exist ENDIF
- 21. MENGEDIT RECORD Cari kriteria NOMATCHUbah kriteria Input FIELD UPDATE Y T EDIT
- 22. MENGEDIT RECORD VarTabel.FINDFIRST ekspresilogika IF VarTabel.NOMATCH THEN MSGBOX not found ELSE VarTabel.EDIT VarTabel(namafield) = isianfield VarTabel.UPDATE ENDIF
- 23. MENGHAPUS RECORD Cari kriteria NOMATCHUbah kriteria Y T DELETE
- 24. MENGHAPUS RECORD VarTabel.FINDFIRST ekspresilogika IF VarTabel.NOMATCH THEN MSGBOX not found ELSE VarTabel.DELETE ENDIF
- 25. PENGUNCIAN RECORD DATABASE LOCKING ON ERROR RESUME NEXT DO ERR.NUMBER = 0 SET VarWS = DBENGINE.WORKSPACE(0) SET VarDB = VarWS.OPENDATABASE (namadrivenamafoldernamafile,TRUE) LOOP UNTIL (ERR.NUMBER = 0) SET VarTBL = VarDB.OPENRECORDSET(namatabel, TRUE)
- 26. PENGUNCIAN RECORD TABLE LOCKING ON ERROR RESUME NEXT SET VarWS = DBENGINE.WORKSPACE(0) SET VarDB = VarWS.OPENDATABASE (namadrivenamafoldernamafile,FALSE) DO ERR.NUMBER = 0 SET VarTBL = VarDB.OPENRECORDSET(namatabel, dbOPENTABLE, dbDENYREAD+dbDENYWRITE) LOOP UNTIL (ERR.NUMBER = 0)
- 27. PENGUNCIAN RECORD PAGE LOCKING (Pessimistic locking) ON ERROR RESUME NEXT SET VarWS = DBENGINE.WORKSPACE(0) SET VarDB = VarWS.OPENDATABASE (namadrivenamafoldernamafile,FALSE) SET VarTBL = VarDB.OPENRECORDSET(namatabel, dbOPENTABLE) VarTabel.FINDFIRST ekspresilogika IF VarTabel.NOMATCH THEN MSGBOX not found ELSE VarTabel.LOCKEDIT = TRUE DO ERR.NUMBER = 0 VarTabel.EDIT VarTabel(namafield) = isianfield VarTabel.UPDATE LOOP UNTIL (ERR.NUMBER = 0) ENDIF
- 28. PENGUNCIAN RECORD PAGE LOCKING (Optimistic locking) ON ERROR RESUME NEXT SET VarWS = DBENGINE.WORKSPACE(0) SET VarDB = VarWS.OPENDATABASE (namadrivenamafoldernamafile,FALSE) SET VarTBL = VarDB.OPENRECORDSET(namatabel, dbOPENTABLE) VarTabel.FINDFIRST ekspresilogika IF VarTabel.NOMATCH THEN MSGBOX not found ELSE VarTabel.LOCKEDIT = FALSE VarTabel.EDIT VarTabel(namafield) = isianfield DO ERR.NUMBER = 0 VarTabel.UPDATE LOOP UNTIL (ERR.NUMBER = 0) ENDIF
- 29. ANY QUESTION ?