ed=.f. thisformmand4.enabled=.f. endif thisformmand1.enabled=.t. thisformmand2.enabled=.t. thisform.refresh 7.“末记录”按钮Command4的Click事件代码: go bottom thisformmand1.enabled=.t. thisformmand2.enabled=.t. thisformmand3.enabled=.t. thisformmand4.enabled=.f. thisform.refresh 第7题:编制一个表单完成表文件“成绩.dbf”内容的查询显示功能(界面如图例所示)。
3
具体要求如下: 1. 表单的边框为固定对话框,运行时自动居中; 2. 当用户在组合框(下拉列表)选择班级(的左三位)后,表单将自动显示对应班级的所 有学生的总平均成绩; 3. 按“退出”按钮时,自动关闭表单。 参考答案: 1. 表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”; 2. 表单的BorderStyle属性为“2—固定对话框”;自动居中属性AutoCenter为.T.。 3. 组合框Combo1的Init事件代码: SET TALK OFF INDEX ON LEFT(,3) TO XH UNIQUE SCAN THIS.ADDITEM(LEFT(,3)) ENDSCAN SET INDEX TO 4. 组合框Combo1的Click事件代码: BJ=THIS.VALUE AVERAGE FOR LEFT(,3)=BJ 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 5. “退出”按钮Command1的Click事件代码: thisform.release 第8题:编制一个表单完成数字时钟显示功能(界面如图例所示)。
具体要求如下: 1. 表单的位置在左上角,可移动,表单的边框为无边框; 2. 表单将自动以1秒间隔动态显示
系统时间; 参考答案: 1. 表单的标题属性Caption设置为“数字时钟”; 2. 表单的位置属性Left为0;Top为0;Movable为.T.; 3. 表单的BorderStyle属性为“0—无边框”; 4. 时钟控件Timer1的Interval属性为1000。 5. 文本框Text1的背景色Backcolor为RGB(255,255,255);FONTNAME为“隶书”。 6. 时钟控件Timer1的Timer事件代码: s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2) thisform.text1.value=s+"时"+f+'分'+m+'秒' 第10题: 编制一个表单完成表文件 “成绩.dbf” 和 “课程.dbf” 内容的查询显示功能 (界面如图所示) 。
4
具体要求如下: 1. 表单运行时自动居中,不可移动; 2. 当用户在组合框(下拉列表)选择课程后,表单将自动显示该课程的总平均成绩; 3.按“退出”按钮时,自动关闭表单。 参考答案: 1.表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”; 2.表单的自动居中属性AutoCenter为.T.; 3.表单的Movable属性为.F.; 4.组合框Combo1的RowSourceType属性为“6-字段”,RowSource属性为“
课程.课程名”。 5.组合框Combo1的Click事件代码: SET TALK OFF SELECT 课程 KCH=课程号 SELECT 成绩 AVERAGE FOR 课程号=KCH 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 6.“退出”按钮Command1的Click事件代码: thisform.release 第11题:编制一个表单完成表文件“学生.dbf”内容的信息查询功能(界面如图例所示)。
具体要求如下: 1. 表单的边框为固定对话框,运行时自动居中,不可移动; 2. 表单的文本框中输入需查询学生的。 参考答案: 1.表单的标题属性Caption设置为“学生表信息
查询”; 2.表单的BorderStyle属性为“2—固定对话框”,自动居中属性AutoCenter为.T.; 3. 表单的Movable属性为.F.; 4. 标签Label2的Forecolor属性为“255,255,255”;FontSize属性为“16”; 5. 表单的Form1的Init事件代码: use 学生 thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. 6. 表单的Form1的destroy事件代码: use
5
7.文本框Text1的Valid事件代码: locate for alltrim()=alltrim(this.value) if found() thisform.label2.caption="" thisform.setall("visible",.t.) else thisform.setall("visible",.f.) th