操作题解答.doc

考点：项目管理器+表单设计器 操作题解答一 (1)在属性窗口将表单的Movable属性修改为F. (2)在表单菜单中选择新建方法程序打开新建方法程序对话框，然后在名称框中输入mymethod并单击添加按钮，关闭对话框后双击表单空白处，编写表单的mymethod事件代码如下： wait mymethod window(3) OK按钮的Click事件代码: ThisForm.mymethod(4) Cancel按钮的Click事件代码： ThisForm.Release二 (2) 确定按钮的属性DEFAULT设置为T.。 (4) Click事件代码： ThisForm.Height=val(ThisForm.Text1.value)三解答：(2)表单的Load事件代码： use employee set order to xm(3) 列表框按钮的MultiSelect属性设置为 .T.。(4)设置mylist列表框的RowSourceType属性为6-字段，RowSource属性为employee.姓名。四解答：查询统计按钮的Click事件代码：xm=alltrim(thisform.text1.value)thisform.grid1.recordSourceType=4thisform.grid1.recordSource=select 订单号,金额 from order,employee; where order.职员号=employee.职员号 and 姓名=xm into cursor aaselect 姓名,max(金额) 最高金额,min(金额) 最低金额,avg(金额) 平均金额from order, employee where order.职员号=employee.职员号 and 姓名=xm into cursor bb insert into tablethree values(bb.姓名,bb.最高金额,bb.最低金额,bb.平均金额)五六按钮统计的代码：vv=thisform.myoption.valuedo case case vv=1 select 姓名,持有数量 from currency_sl,rate_exchange where; currency_sl.外币代码=rate_exchange.外币代码 and 外币名称=日元 into table rate_ry case vv=2 select 姓名,持有数量 from currency_sl,rate_exchange where; currency_sl.外币代码=rate_exchange.外币代码 and 外币名称=美元 into table rate_my case vv=3 select 姓名,持有数量 from currency_sl,rate_exchange where; currency_sl.外币代码=rate_exchange.外币代码 and 外币名称=欧元 into table rate_oyendcase七 (2)设置表单的WindowType属性为1-模式。 (3)将xuesheng表和chengji表依次添加到数据环境中，一定要按此顺序添加，以使两个表所对应的对象名称分别为cursor1和cursor2。(4)选中xuesheng表中的学号，按住鼠标拖动到chengji表的学号字段上并释放鼠标。八设置列表框的ColumnCount属性为1，RowSourceType属性为7-文件。选项按钮组的Click事件代码：Do Case Case thisform.optiongroup1.value=1 thisform.list1.rowsource=*.doc Case thisform.optiongroup1.value=2 thisform.list1.rowsource=*.xls Case thisform.optiongroup1.value=3 thisform.list1.rowsource=*.txtEndcase。九(1) Text2的PasswordChar属性设置为*。(2) 确认按钮的Click事件代码修改：第3行改为：Key2 = ALLTRIM(ThisForm.text2.value)第4行修改为：LOCATE ALL FOR USER = Key1第12行修改为：THISFORM.RELEASE十 (2) 依次设置标签、文本框和命令按钮的TabIndex属性值为1、2和3.。(3) 选择表单菜单中的新建方法程序，在新建方法程序对话框的名称框中输入mymethod，单击添加命令按钮，再单击确定命令按钮。在表单的属性窗口的最下端双击新建的mymethod方法，在其中输入wait 文本框的值是+this.text1.value window。(4)修改其Caption属性为请输入(=thisform.text1.value order by 5 desc,1 into table tablethree或者：select 职员号,姓名,性别,出生日期,部门名 from employee,department where 部门号=部门 and 出生日期=ctod(thisform.text1.text) order by 5 desc,1 into table tablethree退出按钮(command2)的Click事件代码： Thisform.release Clear events新建主文件main.prg: Do form formone.scx Read events 在main上右击，选择设置主文件。添加