你可能感興趣的試題

應(yīng)用程序的用戶界面如下圖所示：

功能說(shuō)明：
該界面是一個(gè)教師信息錄入界面。 
用戶在編輯框（Edit1）中輸入姓名，利用單選按鈕（RadioGroup1）指定性別，利用組合框（ComboBox1）選擇或直接輸入所在系，利用列表框（ListBox1）指定職稱。當(dāng)輸入完上述信息后，單擊“確定”按鈕，教師信息將顯示在右邊的Memo1編輯窗口中。 
下面是開(kāi)發(fā)過(guò)程，請(qǐng)完成填空部分：

本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的借書(shū)界面。程序的設(shè)計(jì)界面和運(yùn)行界面如下圖所示：

該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：books（圖書(shū)信息）和borrow（借書(shū)記錄）。表的結(jié)構(gòu)為： 
books（bno，書(shū)號(hào)，bname書(shū)名，num現(xiàn)有冊(cè)數(shù)） 
borrow（rno 讀者號(hào)，bno書(shū)號(hào)，rdate還書(shū)日期）
其中，rno和bno都是字符型（3位）。 
在用戶界面，操作員選中一本書(shū)、輸入借書(shū)證號(hào)后，按“借書(shū)”鍵完成借書(shū)功能，即在borrow表中插入一條借書(shū)記錄，并將books表中該書(shū)現(xiàn)有冊(cè)數(shù)減1。 
該界面要實(shí)現(xiàn)以下合法性檢查： 
1.當(dāng)該讀者已經(jīng)借了此書(shū)，不能再借。   
2.當(dāng)所借的書(shū)現(xiàn)有冊(cè)數(shù)為0，不能再借。 
在Form1上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下： 
Database1－Table1（與books表相連）－DataSource1－DBGrid1（顯示圖書(shū)信息） 
Database1－Table2（與borrow表相連，用于插入借書(shū)記錄） 
Database1－Query1 
其中為T(mén)able1建立了3個(gè)永久字段：Table1bno（書(shū)號(hào)）、Table1bname（書(shū)名）、Table1num（現(xiàn)有冊(cè)數(shù)）。 
Query1的SQL語(yǔ)句如下： 
select bno 
from borrow 
where rno = :rno and bno = :bno  
下面是Unit1的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：