你可能感興趣的試題

應用程序的用戶界面如下圖所示：

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

本程序實現一個簡單的借書界面。程序的設計界面和運行界面如下圖所示：

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