VFP练习.docVIP

（230101） 设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下： 表单FORM1标题为“画图”； 形状控件Shape1为100*60的矩形，左上角位置为（40，30），边框为蓝色即RGB（0，0，255）； 两个命令按钮Command1和Command2标题分别为“画图”和“清屏”； 文件名保存为shape.scx。（再练习：形状控件改为画线的情况。） 打开表单ddcx.scx，根据orders表查询指定日期及以后签订的订单信息（订单号、签订日期和金额）。要求如下： 文本框Text1默认值为当前系统日期（日期型，格式不限），在文本框中输入要查询的日期后，单击“查询”按钮，表格Grid1中显示该日期及以后签订的订单信息。 请设置文本框属性及编写“查询”代码。 注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）； 表单需运行且关闭，否则不得分。 “查询”按钮的click事件代码如下： thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=select 订单号,签订日期,金额 from orders ; where 签订日期=thisform.text1.value into cursor tmp thisform.refresh 3．打开表单addcal.scx，运行界面如图，通过对“添加并计算”按钮编写代码，实现：将文本框Text1中输入的字符串添加到列表框List1中，并将该串长度添加到列表框List2中。 注：删除字符串前导和后置空枨功能已具备，无须考生设置； 不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）； 表单需运行且关闭，否则不得分。 “添加并计算”按钮command1的click事件代码如下： thisform.list1.additem(thisform.text1.value) thisform.list2.additem(str(len(alltrim(thisform.text1.value)))) （230102） 1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下： 表单FORM1标题为“奖牌查询”，运行时居中； 列表框List1数据源为“6-字段”类型，取自country表的“国家名称”字段； 命令按钮Command1标题为“查询”； 文件名保存为jpb.scx。 打开表单sjtj.scx，利用book1表按种类统计书的数量和总金额。要求如下： 1）在组合框中选择书的种类，单击“统计”按钮，两个文本框分别显示该种类书的数量和总金额。 注：组合框的功能已具备，考生只须编写“统计”按钮代码。 注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）； “统计”命令按钮command1的click事件代码如下： set talk off sum 数量 to a for 种类=bo1.value sum 单价*数量 to b for 种类=bo1.value thisform.text1.value=a thisform.text2.value=b thisform.refresh 或者： select sum(数量),sum(单价*数量) from book1 where 种类 =bo1.value into array a thisform.text1.value=a(1) thisform.text2.value=a(2) thisform.refresh 3．打开表单Min.scx，运行界面如图，对“按从小到大排列”按钮的Click事件编写代码，使Text1、Text2中的值按从小到大的顺序分别显示在Text3,Text4中。 注：“退出”按钮的功能已具备，无须考生编写代码。 不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）； 表单需运行且关闭，否则不得分。 “从小到大排列”命令按钮command1的click事件代码如下： a=thisform.text1.value b=thisform.text2.value thisform.text3.value=min(a,b) thisform.text4.value=max(a,b) （230103） 1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下： 表单FORM1标题为“形状图像”； 标签Label1标题为“落日”、18号、加粗‘黄色即RGB（255，255，0），背景透明； 图像控件Image1显示的图像来自K：\Fjexam95\sunset.jpg，变