计算机(31—35).docVIP

第三是一套题 （一） 【操作步骤】 (1)在命令窗口输入Create data 外汇数据并按回车。 (2)打开新建的数据库外汇数据，在数据库设计器的空白处单击右键，选择添加表，将题目要求的两个表添加到数据库中。 (3)在表设计器中分别为两个表建立主索引和普通索引，索引名和索引表达式均为外币代码，并建立两表之间的联系。 (4)打开表单文件text_form，在属性窗口中设置两个标签控件的用户名和口令的FontName属性为黑体。 （二） (1)【操作步骤】 步骤1：打开程序rate_pro。修改程序如下： 第1处错误改为：locate for姓名=林诗因 第2处错误改为：do while not eof() 第3处错误改为：summ=summ+a[1] * currency_sl.持有数量 步骤2：保存并运行程序。 (2)【操作步骤】 步骤1：新建一个菜单，输入菜单项查询和退出。 步骤2：为查询菜单建立子菜单，子菜单项的名称分别为日元、欧元和美元。 步骤3：为退出菜单项创建过程，输入set sysmenu to default。 步骤4：保存菜单并生成可执行程序，最后运行菜单，查看运行结果。 （三） 【操作步骤】 步骤1：新建一个名为myrate的表单，按照题目的要求为表单添加一个选项组控件两个命令按钮控件，并设置各控件的属性如下(注意：在修改选项组控件中各选项按钮的属性时，要先右键单击选项组控件，选择编辑命令，先后单击选中各选项按钮)。 保存表单，运行并查看表单的运行结果。 步骤2：双击统计按钮，编写其Click事件代码如下。 ************************* If ThisForm.myOption.Value=1 Select 姓名,持有数量 from currency_sl,rate_exchange; where rate_exchange.外币代码=currency_sl.外币代码.and.; rate_exchange.外币名称=日元; into table rate_ry else If ThisForm.myOption.Value=2 Select 姓名,持有数量 from currency_sl,rate_exchange; where rate_exchange.外币代码=currency_sl.外币代码.and.; rate_exchange.外币名称=美元; into table rate_my else Select 姓名,持有数量 from currency_sl,rate_exchange; where rate_exchange.外币代码=currency_sl.外币代码.and.; rate_exchange.外币名称=欧元; into table rate_oy endif endif ************************* 步骤3：双击退出按钮，编写其Click事件代码如下： ThisForm.Release 步骤3：运行表单，查看结果。 三十二套 （一） 【操作步骤】 (1)新建并打开数据库订单管理，在数据库设计器的空白处单击鼠标右键，选择添加表命令，将考生文件夹下的表customers添加到新建的数据库中。 (2)在数据库设计器中右键单击表customers，选择修改命令，在弹出的表设计器中单击索引选项卡，输入索引名db，选择类型为普通索引，输入表达式出生日期，最后单击确定按钮，保存对表的修改。 (3)以同样的方式打开customers表设计器，选中字段性别，在规则文本框中输入：性别﹩男女，在信息文本框中输入：性别必须是男或女。 (4)新建一个程序，编写下列命令语句。 Use customers index on 客户号 tag khh 保存程序名为pone.prg，并运行程序。 （二） (1)【操作步骤】 步骤1：在命令窗口输入Crea form formone，新建一个表单，按题目要求添加控件并修改控件的属性，将customers表添加到数据环境中。 步骤2：然后将Text1的Value属性设置为=date()，编写查询按钮的Click事件代码如下。 ******查询按钮的Click事件代码****** x = ThisForm.Text1.Value SELECT Customers.姓名, Customers.性别, Customers.出生日期; FROM customers; WHERE Customers.出生日期 = x; ORDER BY Customers.出生日期 DESC; INTO TABL