應(yīng)用程序的用戶界面如下圖所示:
功能說明:
該界面是一個(gè)教師信息錄入界面。
用戶在編輯框(Edit1)中輸入姓名,利用單選按鈕(RadioGroup1)指定性別,利用組合框(ComboBox1)選擇或直接輸入所在系,利用列表框(ListBox1)指定職稱。當(dāng)輸入完上述信息后,單擊“確定”按鈕,教師信息將顯示在右邊的Memo1編輯窗口中。
下面是開發(fā)過程,請(qǐng)完成填空部分:
本程序?qū)崿F(xiàn)一個(gè)簡單的借書界面。程序的設(shè)計(jì)界面和運(yùn)行界面如下圖所示:
該程序涉及到數(shù)據(jù)庫中的兩張表:books(圖書信息)和borrow(借書記錄)。表的結(jié)構(gòu)為:
books(bno,書號(hào),bname書名,num現(xiàn)有冊(cè)數(shù))
borrow(rno 讀者號(hào),bno書號(hào),rdate還書日期)
其中,rno和bno都是字符型(3位)。
在用戶界面,操作員選中一本書、輸入借書證號(hào)后,按“借書”鍵完成借書功能,即在borrow表中插入一條借書記錄,并將books表中該書現(xiàn)有冊(cè)數(shù)減1。
該界面要實(shí)現(xiàn)以下合法性檢查:
1.當(dāng)該讀者已經(jīng)借了此書,不能再借。
2.當(dāng)所借的書現(xiàn)有冊(cè)數(shù)為0,不能再借。
在Form1上建立的數(shù)據(jù)庫組件對(duì)象及連接關(guān)系如下:
Database1-Table1(與books表相連)-DataSource1-DBGrid1(顯示圖書信息)
Database1-Table2(與borrow表相連,用于插入借書記錄)
Database1-Query1
其中為Table1建立了3個(gè)永久字段:Table1bno(書號(hào))、Table1bname(書名)、Table1num(現(xiàn)有冊(cè)數(shù))。
Query1的SQL語句如下:
select bno
from borrow
where rno = :rno and bno = :bno
下面是Unit1的代碼實(shí)現(xiàn)部分,請(qǐng)完成程序填空: