填空题

在表单 Form1 中有文本框 Text1、“查询”按钮 Command1、“选课”按钮 Command2 和标签 Label1、Label2、Label3 等控件，如下图所示。在选课表 XKB.DBF 中有： 课程代码（C,3）、课程名称（C,20）、已选（N,3）和剩余（N,3）等字段，该数据表已添加到表单的数据环境中。当用户在文本框 Text1 中输入“课程代码”后，点击 “查询”按钮即可在选课表 XKB.DBF 中查找符合条件的记录。如果找到符合条件的记录，将在标签 Label1、Label2 和 Label3 中分别显示“课程名称”、“已选”、 “剩余”字段的值，当有“剩余”名额时，则激活“选课”按钮，否则将“选课” 按钮设置为无效；如果没有查找到符合条件的记录，则在标签 Label1 中显示“查无此记录!”，并将“选课”按钮设置为无效。

“查询”按钮的 Click 事件代码为：

Code= Allt(ThisForm.Text1.Value)

Locate For____⑦____

If Found()

     ThisForm.Label1.Caption=课程名称

     ThisForm.Label2.Caption=Str(已选,3)

     ThisForm.Label3.Caption=Str(剩余,3)

     If ____⑧____

          ThisForm.Command2.Enabled=.T.

     Else

         ThisForm.Command2.Enabled=.F.

     Endi

Else

     ThisForm.Label1.Caption="查无此记录！"

     ThisForm.Command2.Enabled=.F.

Endi