设计一个表单,所有控件的属性必须在表单设计器的属性窗口中设置,表单文件名为"外汇浏览",表单界面如下图所示: 其中: (1)"输入姓名"为标签控件Label1; (2)表单标题为"外汇浏览"; (3)文本框的名称为Text1,用于输入需要查询的

admin2013-10-25  41

问题 设计一个表单,所有控件的属性必须在表单设计器的属性窗口中设置,表单文件名为"外汇浏览",表单界面如下图所示:
   
其中:
(1)"输入姓名"为标签控件Label1;
(2)表单标题为"外汇浏览";
(3)文本框的名称为Text1,用于输入需要查询的姓名,如张三丰;
(4)表格控件的名称为Grid1,用于显示所查询人持有的外币名称和持有数量,RecordSourceType的属性为4(SQL说明);
(5)"查询"命令按钮的名称为Command1,单击该按钮时在表格控件Grid1中按持有数量升序显示所查询的人所持有的外币名称和数量(如上图所示),并将结果存储在以姓名命名的DBF表文件中,如张三丰.DBF;
(6)"退出"命令按钮的名称为Command2,单击该按钮时关闭表单。
完成以上表单设计后运行该表单,并分别查询"林诗因"、"张三丰"和"李寻欢"所持有的外币名称和持有数量。

选项

答案【操作步骤】 步骤1:通过"新建"对话框新建一个表单,文件名为"外汇浏览",并为其添加一个标签控件、一个文本框控件、两个命令按钮控件和一个表格控件。 步骤2:设置表单的Caption属性为"外汇浏览";命令按钮1的Caption属性为"查询",命令按钮2的Caption属性为"退出";标签的Caption属性为"输入姓名";表格控件的RecordSourceType属性为"4-SQL语句"。 步骤3:编写"查询"按扭的Click代码事件代码如下。 *****"查询"按钮的Click事件代码***** x=allt(thisform.text1.value) thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=; "SELECT Rate_exchange.外币名称, Currency_sl.持有数量; FROM 外汇管理!currency_sl INNER JOIN 外汇管理!rate_exchange ; ON Currency_sl.外币代码 = Rate_exchange.外币代码; WHERE Currency_sl.姓名 =x; ORDER BY Currency_sl.持有数量; INTO TABLE &x" thisform.refresh ******************************** 编写"退出"按扭的Click事件代码"ThisForm.Release"。 步骤4:保存表单并运行,分别在文本框输入"林诗因"、"张三丰"和"李寻欢"并单击"查询"按钮。

解析 按要求建立表单并修改相应控件的属性值,编写命令按钮的Click事件代码。
转载请注明原文地址:https://jikaoti.com/ti/NtT0FFFM
0

最新回复(0)