=1 THISFORM.TEXT1.FONTNAME="宋体" CASE THIS.VALUE=2 THISFORM.TEXT1.FONTNAME="隶书" CASE THIS.VALUE=3 THISFORM.TEXT1.FONTNAME="黑体" CASE THIS.VALUE=4 THISFORM.TEXT1.FONTNAME="楷体_GB2312" ENDCASE 9.在表单控件工具栏中选择命令按钮控件,在表单的适当位置拖放,在属性窗口中, 将 Caption 设置为“关闭” ,其 Click 事件参考代码如下: RELEASE THISFORM 10.选择“文件/保存”命令,在弹出的对话框中将其保存到考生文件夹中,文件名为 SCRE1; 11.单击工具栏中的“运行”按钮运行该表单,调试通过后关闭表单设计窗口; 12.单击“连编”按钮,在“连编选
项”对话框中选中“连编可执行文件” ; 13.单击“确定”按钮,在“另存为”对话框的应用程序名处输入“PROJ1” ; 14.单击“保存”按钮,完成连编。 综合应用:
操作步骤: 1.使用 MODI COMM PROG1 命令进入编程窗口。
参考程序: CLEAR USE JT COPY TO JTA USE JTA SCAN FOR I=0 TO HEAD J=HEAD-I IF 2*I+4*J=FOOT REPLACE COCK WITH I,RAB WITH J EXIT ENDIF ENDFOR ENDSCAN CLOSE ALL CANCEL 2.使用 CREATE MENU MENU1 命令创建菜单,建立菜单项“计算(\
SET DEFAULT TO 考生文件夹 1.数据表的排序: USE AXSDA SORT TO APX ON 籍贯/D, FIELDS ,,籍贯 2.数据表的复制、删除记录: COPY TO AXS FIELDS ,出生日期 USE AXS DELETE FOR 2011-YEAR(出生日期)>30 PACK 3.数据表的复制、添加字段、填写值: USE AXSCJ COPY TO ACJ USE ACJ ALTER TABLE ACJ ADD 总评 C(6) &;&;或用 MODI STRU 命令添加 REPLACE ALL 总评 WITH IIF((语文+数学+英语)/3>=90,"合格","不合格") 简单应用:
第四套:
基本操作:
参考答案: 为确保考试数据保存在考生文件夹下,建议启动 VFP 后,首先执行:
操作步骤如下: 1.选择“文件/新建”命令,新建一个项目,项目文件名为 PROJ1; 2.单击“代码”列表,并选中“程序”项,单击“添加”按钮,并选中考生文件夹下 MAIN.PRG,将该程序添加到项目中; 3.单击“文档”列表,并选中“表单”项,单击“新建”按钮,新建一个新表单; 4.在表单属性窗口中,Caption 设置为“密码验证窗口” ,Height 设置为 260,Width 设置为 400; 5.在表单控件工具栏中选择标签控件,在表单的适当位置拖放,在其属性窗口中,将 Caption 设置为“请输入密码” ; 6.在表单控件工具栏中选择文本框控件,在表单的适当位置添加文本框 Text1,在其 属性窗口中,将 PasswordChar 设置为“*” ,FontSize 设置为 10; 7.在表单控件工具栏中选择命令按钮控件, 在表单的适当位置拖放, 在其属性窗口中, 将 Caption 设置为“确定” ,其 Click 事件参考代码如下: IF ALLT(THISFORM.TEXT1.VALUE)=="123" MESSAGEBOX("欢迎光临",65,"密码正确") ELSE MESSAGEBOX("禁止进入",65,"密码错误") ENDIF 8.在表单控件工具栏中选择命令按钮控件, 在表单的适当位置拖放, 在其属性窗口中, 将 Caption 设置为“关闭” ,其 Click 事件参考代码如下: RELEASE THISFORM 9.选择“文件/保存”命令,在弹出的对话框中将其保存到考生文件夹中,文件名为 SCRE1; 10.单击工具栏中的
“运行”按钮运行该表单,调试通过后关闭表单设计窗口; 11.单击“连编”按钮,在“连编选项”对话框中选中“连编可执行文件” ; 12.单击“确定”按钮,在“另存为”对话框的应用程序名处输入“PROJ1” ; 13.单击“保存”按钮,完成连编。 综合应用:
操作步骤: 1.使用 MODI COMM PROG1 命令进入编程窗口。 参考程序: SET TALK OFF USE FCXS COPY TO FCJ USE FCJ SC