问答题
18分
(1)在考生文件夹下建立一个名为stock_form的表单,其中包含两个表格控件,第一个表格控件名称是grdStock_name,用于显示表stock_name中的记录;第二个表格控件名称是grdSt...
(1)在考生文件夹下建立一个名为stock_form的表单,其中包含两个表格控件,第一个表格控件名称是grdStock_name,用于显示表stock_name中的记录;第二个表格控件名称是grdStock_sl,用于显示与表stock_name中当前记录对应的stock_sl表中的记录。
(2)在表单中添加一个"关闭"命令按钮(名称为Command1),要求单击按钮时关闭表单。
注意:完成表单设计后要运行表单的所有功能。
(2)在表单中添加一个"关闭"命令按钮(名称为Command1),要求单击按钮时关闭表单。
注意:完成表单设计后要运行表单的所有功能。
参考解析: 【操作步骤】
步骤1:通过"新建"对话框新建一个表单,文件名为"stock_form",打开表单设计器。
步骤2:为表单添加一个命令按钮控件,修改其Caption属性为“关闭”,在表单设计器的空白处单击鼠标右键并选择“数据环境”,将Stock_Name表和Stock_sl表添加到数据环境中,然后分别将两个表拖动至表单的适当位置。
步骤3:在表单的Init事件中输入以下代码。
**********************************
SET SAFETY OFF
CLOSE DATABASE ALL
SELECT 1
USE stock_Name
INDEX ON 股票代码 TAG dm
SELECT 2
USE stock_sl
INDEX ON 股票代码 TAG dm
SELECT 1
SET RELATION TO 股票代码 INTO stock_sl
ThisForm.grdStock_Name.RECORDSOURCE="stock_Name"
ThisForm.grdStock_Name.REFRESH
ThisForm.grdStock_sl.RECORDSOURCE="stock_sl"
ThisForm.grdStock_sl.REFRESH
SET SAFETY ON
**********************************
步骤4:在"关闭"命令按钮的Click事件代码中输入代码"THISFORM.RELEASE"。
步骤5:保存表单并运行,单击表格1中每一行记录,在表格2中查看记录的对应情况,最后单击"关闭"按钮关闭表单。