VFP 上机表单设计题.docVIP

表单设计题 在考生目录的paper子目录中有界面文件Design.jpg和表单设计年涉及的表文件。 请设计程序，编制表单，在Paper子目录中生成Design.scx文件。 注意：以默认方式命名控件，以从左至右，从上向下的顺序拖放控件。 1．要求： (1)编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能； (2)表单初始显示内容为表文件“学生.dbf”内容的首记录； (3)表单内容将以10秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，瘵自动回到首记录循环翻动。 1 2 表单的Form1的Init事件代码： THIS.SETALL(READONLY,.T.,TEXTBOX) GO TOP THISFORM.REFRESH 时钟控件Timer1的Timer事件代码： SKIP IF EOF() GO TOP ENDIF THISFORM.REFRESH 2．要求： (1)编制一个表单完成表文件“学生.dbf“内容的只读浏览显示功能 (2)表单初始显示内容为表文件“学生.dbf”的首记录 (3)当按“前翻”、“后翻”、“首记录”、“末记录”按钮时，表单将自动显示相应记录的内容 (4)当翻至表头或表底时，将自动设置相应按钮不可访问。 表单的Form1的Init事件代码： THIS.SETALL(READONLY,.T.,TEXTBOX) Sele 学生 GO TOP THISFORM.REFRESH “首记录”按钮Command1的Click事件代码： go top mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. mand1.enabled=.f. thisform.refresh “前翻”按钮Command2的Click事件代码： skip -1 if bof() mand1.enabled=.f. this.enabled=.f. endif mand3.enabled=.t. mand4.enabled=.t. thisform.refresh “后翻”按钮Command3的Click事件代码： skip if eof() mand3.enabled=.f. mand4.enabled=.f. endif mand1.enabled=.t. mand2.enabled=.t. thisform.refresh “末记录”按钮Command4的Click事件代码： go bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.f. thisform.refresh 3．要求：(1)编制“学生“表信息查询界面 (2)查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。 List1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text1~Text5的数据源属性分别为学生表中对应字段 表单的Form1的Init事件代码： use 学生 thisform.setall(visible,.f.,textbox) thisform.setall(visible,.f.,label) thisform.label1.visible=.t. thisform.refresh 列表框List1的Interactivechange事件代码： thisform.setall(visible,.t.) thisform.refresh 4．要求：(1)编制“学生表”信息查询界面 (2)显示指定学生的所有信息。 Combo1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text1~Text5的数据源属性分别为学生表中对应字段 所有文本框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.refresh 5．要求：编制“学生”表信息查询界面，查询与用户输入的学生学号相匹配的记录，并显示指定学生的所有信息。 Label3、Label4、Label5、La