设计一个文件名和表单名均为“bd1”的表单。表单的标题为“外汇持有情况”。 表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中,选项按钮组控件有3个按钮“美元”1英镑”和“港币”。运行表单时,在选项组控件中选择“美元”“英镑

admin2013-06-10  19

问题 设计一个文件名和表单名均为“bd1”的表单。表单的标题为“外汇持有情况”。
  表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中,选项按钮组控件有3个按钮“美元”1英镑”和“港币”。运行表单时,在选项组控件中选择“美元”“英镑”和“港币”,单击“查询”命令按钮后,根据选项组控件的选择将“外汇账户”表的情况显示在表格控件中。
    单击“关闭”按钮,关闭并释放表单。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“外汇持有情况”;单击表单控件工具栏上的“选项按钮组”控件图标,为表单添加一个选项按钮组OptionGroup1;单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件“Grid1”。 ②选择选项按钮组OptionGroup1,单击右键,在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框,单击“按钮”选项卡,设置按钮的数目为3,往“标题”列下修改3个按钮的标题分别为“美元”“英镑”和“港币”,单击“确定”按钮关闭命令组生成器对话框。 ③分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”,Command2的Caption属性值修改为“关闭”,如图63-1所示。“关闭”命令按钮,在Click事件中输入代码;ThisForm.Release,用来关闭表单。 [*] ④选择表格控件“Grid1”,在表格控件属性窗口中将“Record Soerce”属性值修改为“""”,将“RecordSourccType”属性值修改为“1”。 ⑤双击“查询”命令按钮,在Click事件中输入代码: DO CASF: CASE ThisForm.OptionGroup1.value=1 SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称="美元" CASE ThisForm.OptionGroup1.value=2 SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称="英镑" CASE ThisForm.OptionGroup1.value=3 SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称="港币" ENDCASE ThisForm.Grid1.RecordSourceType=1 ThisForm.Grid1.RecordSource="tmp" ThisForm Grid1 Refresh ⑥选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd1”,保存在考生文件夹下,然后运行表单。

解析
转载请注明原文地址:https://kaotiyun.com/show/STop777K
0

最新回复(0)