省上机考表单设计题答案-学生
11表单设计题表单设计题在考生目录的 paper 子目录中有界面文件 Design.jpg 和表单设计年涉及的表文件。请设计程序，编制表单，在 Paper 子目录中生成 Design.scx 文件。注意：以默认方式命名控件，以从左至右，从上向下的顺序拖放控件。1要求：(1)编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；(2)表单初始显示内容为表文件“学生.dbf”内容的首记录；(3)表单内容将以 10 秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，瘵自动回到首记录循环翻动。1 2表单的 Form1 的 Init 事件代码：THIS.SETALL(“READONLY“,.T.,“TEXTBOX“)GO TOPTHISFORM.REFRESH时钟控件 Timer1 的 Timer 事件代码：SKIPIF EOF()GO TOPENDIFTHISFORM.REFRESH2要求：(1)编制一个表单完成表文件“学生.dbf“内容的只读浏览显示功能(2)表单初始显示内容为表文件“学生.dbf”的首记录(3)当按“前翻”、 “后翻”、 “首记录”、 “末记录”按钮时，表单将自动显示相应记录的内容(4)当翻至表头或表底时，将自动设置相应按钮不可访问。表单的 Form1 的 Init 事件代码：THIS.SETALL(“READONLY“,.T.,“TEXTBOX“)Sele 学生GO TOPTHISFORM.REFRESH“首记录”按钮 Command1 的 Click 事件代码：go topthisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.command1.enabled=.f.thisform.refresh22“前翻”按钮 Command2 的 Click 事件代码：skip -1if bof()thisform.command1.enabled=.f.this.enabled=.f.endifthisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.refresh “后翻”按钮 Command3 的 Click 事件代码：skipif eof()thisform.command3.enabled=.f.thisform.command4.enabled=.f.endifthisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.refresh “末记录”按钮 Command4 的 Click 事件代码：go bottomthisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.f.thisform.refresh3要求：(1)编制“学生“表信息查询界面 (2)查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。List1 的 Rowsourcetype 为“6-字段”，Rowsource 为“学生.姓名”；文本框 Text1Text5 的数据源属性分别为学生表中对应字段表单的 Form1 的 Init 事件代码：use 学生thisform.setall(“visible“,.f.,“textbox“)thisform.setall(“visible“,.f.,“label“)thisform.label1.visible=.t.thisform.refresh列表框 List1 的 Interactivechange 事件代码：33thisform.setall(“visible“,.t.)thisform.refresh4要求：(1)编制“学生表”信息查询界面 (2)显示指定学生的所有信息。Combo1 的 Rowsourcetype 为“6-字段”，Rowsource 为“学生.姓名”；文本框 Text1Text5 的数据源属性分别为学生表中对应字段所有文本框 Text 的 ReadOnly 属性为“.T.”；表单的 Form1 的 Init 事件代码：thisform.setall(“visible“,.f.,“textbox“)thisform.setall(“visible“,.f.,“label“)thisform.label1.visible=.t.thisform.refresh组合框 Combo1 的 Interactivechange 事件代码：thisform.setall(“visible“,.t.)thisform.refresh5要求：编制“学生”表信息查询界面，查询与用户输入的学生学号相匹配的记录，并显示指定学生的所有信息。 Label3、Label4、Label5、Label6 的 Caption 属性分别设置为“姓名：”、 “性别：”、 “出生年月：”、 “奖学金：”，并设置所有文本框的数据源属性为学生表中的对应字段标签 Label2 的 Forecolor 属性为“255,255,255” 表单的 Form1 的 Init 事件代码：thisform.setall(“visible“,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.文本框 Text1 的 Valid 事件代码：loca for alltrim(学号)=alltrim(this.value)if found()thisform.label2.caption=“thisform.setall(“visible“,.t.)44elsethisform.setall(“visible“,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.label2.visible=.t.thisform.label2.caption=“您所指定的学生并不存在！“endifthisform.refresh6要求：(1)编制一个表单完成表文件“学生.dbf”、 “成绩.dbf”、 “课程.dbf”内容的编辑浏览显示功能(2)三个表文件分别显示在三个不同的页面上(3)未被激活的页面自动设为不可访问Timer1 的 Interval 属性设置为 10000Timer1 的 Timer 事件的代码：P=Thisform.PageFrame1.ActivePageP=P+1IF P>3P=1ENDIF Thisform.PageFrame1.SetAll(“Enabled“,.F.,“Page“)Thisform.PageFrame1.Pages(P).Enabled=.T.Thisform.PageFrame1.ActivePage=P7要求：(1)编制一个界面程序，实现将用户指定的表文件的字段名列表显示(2)系统自动查询用户指定的表文件是否存在，存在则列表显示指定表文件的所有字段名信息，否则给出信息提示55框Form1 的 Init 事件的代码：Thisform.label2.visible=.f.Thisform.list1.visible=.f.Text1 的 Valid 事件的代码fn=alltrim(this.value)+ “.dbf“if file(fn)thisform.setall(“visible“,.t.)thisform.list1.clearuse (fn)for i=1 to fcount()thisform.list1.additem(fields(i)endforelseThisform.label2.visible=.f.Thisform.list1.visible=.f.messagebox(“指定的表文件不存在!“, 64, “表文件存在判断“)endifthisform.refresh8要求：(1)编制一个表单完成表文件“学生.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的奖学金总额(3)按“退出”按钮时，自动关闭表单。8 9 表单 Form1 的 Init 事件代码：set talk offsele 学生index on left(学号,3) to xh uniquescanthisform.combo1.additem(left(学号,3)endscanset index to组合框 Combo1 的 Valid 事件代码：Sum 奖学金 to jxj for left(学号,3)=this.valueThisform.twxt1.value=jsj“退出”按钮 Command1 的 Click 事件代码：thisform.release669要求：(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的所有学生的总平均成绩(3)按“退出”按钮时，自动关闭表单。表单 Form1 的 Init 事件代码：Set talk offSelect 学生index on left(学号,3) to xh uniquescanthisform.combo1.additem(left(学号,3)endscanset index to组合框 combo1 的 Valid 事件代码：select 成绩average 成绩 to cj for left(学号,3)=this.displayvaluethisform.text1.value=cj“退出”按钮 Command1 的 Click 事件代码：thisform.release10要求：(1)编制一个表单完成表文件“课程.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框选择课程名后，表单将自动显示对应课程的所有学生的总平均成绩(3)按“退出”按钮时，自动关闭表单。组合框 Combo1 的 RowSouceType 属性为“6-字段”，RowSouce 属性为“课程.课程名”。组合框 Combo1 的 Valid 事件代码：set talk offselect 课程kch=课程号select 成绩average 成绩 to cj for 课程号=kch thisform.text1.value=cj“退出”按钮 Command1 的 Click 事件代码：thisform.release11要求：77(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择姓名后，表单将自动显示对应学生的平均成绩(3)按“退出”按钮时，自动关闭表单。 组合框 Combo1 的 RowSouceType 属性为“6-字段”，RowSouce 属性为“学生.姓名”。组合框 Combo1 的 Interactivepage 事件代码：set talk offselect 学生xh=学号select 成绩average 成绩 to cj for 学号=xh thisform.text1.value=cj“退出”按钮 Command1 的 Click 事件代码：thisform.release12要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面提供
