delphi考試問答題每日一練(2020.06.05)

本程序的功能是對books表（圖書信息）進行瀏覽，設計界面和運行界面如下圖所示。其中，“在借冊數”是根據當前顯示的書號和borrow表（借書記錄）的數據動態(tài)計算得到的。用戶還可以輸入指定書號，查找并定位到指定的記錄。

在form1上建立的主要對象有：
Database1、Table1、Query1、DataSource1、DBEdit1~DBEdit3
Edit1~Edit2、Button1~Button3等
其中Database1與mydb數據庫相連，Table1對象與books表相連，DBEdit1、DBEdit2、DBEdit3分別和bno（書號）、bname（書名）、author（作者）各列相連。
Query1的SQL語句是：

下面是Unit1單元的代碼實現部分，請完成程序填空。

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

該程序涉及到數據庫中的兩張表：course（課程表）和sc（選課表），表結構如下：
sc（sno學號，cno課程號，grade成績）
course（cno課號，cname課名，quota名額）
其中：sno和cno都是字符型。
在用戶界面，操作員選中一門書、輸入學號后，按“選課”鍵，完成選課功能，即在sc表中插入一條選課記錄，并將course表中該課程的名額減1。
該界面要實現以下合法性檢查：
當該學生已經選過此課，不能再選。
當所選課程名額已為0，不能再選。
在Form1上建立的數據庫組件對象及連接關系如下：
Database1－Table1（與course表相連）－DataSource1－DBGrid1（顯示課程信息）
Database1－Table2（與sc表相連，用于插入選課記錄）
Database1－Query1
其中為Table1建立了3個永久字段：Table1cno（課程號）、Table1cname（課程名）、Table1quota（名額）。
Query1的SQL語句如下：

下面是Unit1的代碼實現部分，請完成程序填空：