原创试题专区
开通学校服务
某药品库房的计算机管理系统中，需要为发药建立出库记录。已知 “出库记录”、“药品目录”的数据表内容如下所示：
该界面的操作过程是：先输入病员编号和库管员姓名，再依次输入药品编号和数量，在右边列表中依次显示该病员需要出库的所有药品清单。每输完一个药品则将药品记录添加到“出库记录”表中，按“完成”按钮后，一个病员的出库药品完成，并在输入界面下部可以浏览。试回答以下问题：
[问答题]
(1)该输入界面分别应用了哪几种 Visual FoxPro控件?（4分）
[问答题]
(2)以下是“数量’’ 控件的LostFocus事件代码，请解释其意义。 （3分）
SELECT出库记录
APPEND BLANK
REPLACE药品编号WITH THISFORM. 药品编号.VALUE，；
日期WITH DATE0，；
库管员WITH THISFORM. 库管员.VALUE，；
病员编号 WITH THISFORM. 病员编号.VALUE，；
数量WITH THISFORM. 数量.VALUE，；
时间WITH TIME（）
THISFORM.药品编号.SETFOCUS
SELECT出库记录
APPEND BLANK
REPLACE药品编号WITH THISFORM. 药品编号.VALUE，；
日期WITH DATE0，；
库管员WITH THISFORM. 库管员.VALUE，；
病员编号 WITH THISFORM. 病员编号.VALUE，；
数量WITH THISFORM. 数量.VALUE，；
时间WITH TIME（）
THISFORM.药品编号.SETFOCUS
[问答题]
(3)以下是“完成’’ 控件的Click事件代码，请解释其意义。 （3分）
THISFORM.LISTl.CLEAR
N=l
THISFORM.出库记录.REFRESH
THISFORM.LISTl.CLEAR
N=l
THISFORM.出库记录.REFRESH
