DataPerpustakaan

VB.NET

1.0.0

下載

這個簡單的應用程式是實作資料庫系統的範例。該應用程式處理圖書館數據。數據將儲存在perpus資料庫中，該資料庫包含以下表格： buku 、 pengarang 、 penerbit 、 mahasiswa和peminjaman 。

主視圖

預覽影像 書本展示

SQL程式

以下是建立這些表的 SQL 程式碼：

 -- Tabel Buku
CREATE TABLE buku (
    judul VARCHAR ( 255 ),
    genre ENUM( ' Agama ' , ' Fantasi ' , ' Filsafat ' , ' Pendidikan ' , ' Psikologi ' , ' Sains ' , ' Sejarah ' , ' Self-Improvement ' , ' Teknologi ' ),
    ISBN VARCHAR ( 20 ) PRIMARY KEY ,
    pengarang VARCHAR ( 255 ),
    penerbit VARCHAR ( 255 ),
    status_pinjam BOOLEAN
);

-- Tabel Pengarang
CREATE TABLE pengarang (
    id_pengarang INT PRIMARY KEY AUTO_INCREMENT,
    nama VARCHAR ( 255 ),
    tanggal_lahir DATE ,
    kebangsaan VARCHAR ( 100 )
);

-- Tabel Penerbit
CREATE TABLE penerbit (
    id_penerbit INT PRIMARY KEY AUTO_INCREMENT,
    nama VARCHAR ( 255 ),
    kota VARCHAR ( 100 ),
    website VARCHAR ( 255 ),
    no_telp VARCHAR ( 20 )
);

-- Tabel Anggota (Mahasiswa)
CREATE TABLE mahasiswa (
    NIM VARCHAR ( 9 ) PRIMARY KEY ,
    nama VARCHAR ( 255 ),
    fakultas ENUM( ' Ekonomi ' , ' FKIP ' , ' Hukum ' , ' Pertanian ' , ' Psikologi ' , ' Teknik ' ),
    tanggal_lahir DATE ,
    no_telp VARCHAR ( 20 )
);

-- Tabel Peminjaman
CREATE TABLE peminjaman (
    id_pinjam INT PRIMARY KEY AUTO_INCREMENT,
    ISBN VARCHAR ( 20 ),
    NIM VARCHAR ( 9 ),
    tanggal_pinjam DATE ,
    tanggal_kembali DATE ,
    status_kembali BOOLEAN , 
    FOREIGN KEY (ISBN) REFERENCES buku(ISBN),
    FOREIGN KEY (NIM) REFERENCES mahasiswa(NIM)
);

概括

每個表單有 5 個button ，各按鈕有各自的功能，分別是：
- Tambahkan
- Tampilkan
- Edit
- Hapus
- Cari
輸入新書資料時，將進行多項驗證，包括：
- 每個欄位不能為空。
- pengarang欄位只能由pengarang表中已儲存的作者填寫。如果沒有，將出現MessageBox命令您儲存新的作者資料。
- 這同樣適用於penerbit欄位。
在anggota表單上實施數學運算（ AVG 、 COUNT 、 MAX 、 MIN 、 SUM ）
按時間（年、時、月）顯示peminjaman表
Cari函數會執行查詢，然後用值填充每個TextBox 、 DropDownList和RadioButtonList表單
執行Cari功能後，再執行Edit和Hapus功能，使其更加有效。
Peminjaman表單上的Tambahkan功能status_kembali = 0是預設值。然後將buku表中的status_pinjam改為status_pinjam = 1 。
Buku表單中的Buku Dipinjam功能顯示peminjaman表中的judul （唯一）、 ISBN 、 NIM列，以及使用JOIN的mahasiswa表中基於NIM nama 。從peminjaman表中取得的資料按最新的tanggal_pinjam排序。

 -- Join Tabel Buku, Peminjaman, dan Mahasiswa
SELECT buku . judul , buku . ISBN , mahasiswa . NIM , mahasiswa . nama , buku . status_pinjam
FROM buku 
LEFT JOIN peminjaman ON buku . ISBN = peminjaman . ISBN
LEFT JOIN mahasiswa ON peminjaman . NIM = mahasiswa . NIM 
WHERE Buku . status_pinjam = 1
AND ( peminjaman . ISBN , peminjaman . tanggal_pinjam ) 
IN ( SELECT ISBN, MAX (tanggal_pinjam) FROM peminjaman GROUP BY ISBN);