三、综合应用题1. 在
考生文件夹下完成下列操作:
为了查询不同歌手演唱的歌曲,请设计一个表单reform.sex,其界面如下图所示:
表单控件名为formone,表单的标题为“歌曲查询”。表单左侧有一个标签控件Labelone,显示内容为“输入歌手姓名”,一个文本框控件Textone用于输入歌手姓名,两个命令按钮Commanda和Commandb分别显示“查询”和“退出”,以及一个表格控件Gridone。
表单运行时,用户首先在文本框中输入歌手“刘德华”,然后单击“查询”按钮,如果输入正确,在表单右侧以表格形式显示此歌手的演唱的歌曲信息,包括歌曲名称、语言和点歌码,按点歌码升序排序,并将此信息存入tb.dbf文件中。单击“退出”按钮将关闭表单。
[操作步骤]
步骤1:新建一个表单,通过表单控件工具栏向表单添加题目要求的控件,在“表单设计器”中单击右键,在弹出的菜单中选择“数据环境”,将“歌手”表和“歌曲”表添加到数据环境设计器中。
步骤2:通过属性窗口设置表单及各控件的属性,如图1所示。
图1
步骤3:编写两个命令按钮的Click事件代码如下:
******“查询”命令按钮的Click事件代码******
Thisform.Gridone.RecordSource="SELECT歌曲名称, 语言, 点歌码FROM歌曲, 歌手;
WHERE歌曲.演唱者=歌手.歌手id;
AND姓名=ALLTRIM(Thisform.Textone.Value)INTO table tb; order by点歌码"
******************************************
******“退出”命令按钮的Click事件代码******
ThisForm.Release
*************************************************
步骤4:保存表单名为“mform”,按题目要求运行表单并执行相关操作。
答案考生文件夹