vfp表单设计题

《vfp表单设计题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VFP程序设计题第2题：编制一个表单完成计数器计数显示功能（界面如图例所示，图例文件为*.JPG）。具体要求如下：1.表单的边桐为固定对话桐，运行吋自动店巾，不可移动；2.表单初始显示状态为全零“00:00:00”；3.按“计数”按钮后，自动以秒为单位从零开始计数（设：时的计数属性名为F，分的计数属性名为H,秒的汁数属性名为S）并在表单上动态显示；4.按“停止”按钮后竹停计数，按“计数”按钮可以继续计数；参考答案：1.表单的标题属性Caption设置为“计数器”；2.表单的BorderStyle属性为“2—W定对话柅”，自动店巾属性AutoCenter为.T.。3.表单的M

2、ovable属性为.F.;4.时钟控件Timerl的Interval属性为1000。5.表单的Forml的Init事件代码：THIS.TIMER1.INTERVAL=1000THISFORM.TIMER1.ENABLED二.F.STOR0TOTHIS.S，THIS.F,THIS.HTHTS.TEXT1.VALUE='00:00:00,6.“计数”按钮Commandl的Click事件代码：THISFORM.T1MER1.ENABLED=.T.7.“停止”按钮Command2的Click事件代码：THISFORM.TIMER1.ENABLED二.F.8.时钟控件Timer1的T

3、imer事件代码：THISFORM.S=THISFORM.S+1IFTHISFORM.S=60THISFORM.F=THISFORM.F+1THISFORM.S=0ENDIFIFTHISFORM.F=60THISFORM.H=THISFORM.H+1THISFORM.F=0ENDIFIFTHISFORM.H=60THISFORM.S=THISFORM.S+1THTSFORM.H=0ENDIFHH=IIF(THISFORM.H>=10，STR(TH1SFORM.H，2)，V+STR(THISFORM.H，1))FF=IIF(THISFORM.F>=10，STR(THISFOR

4、M.F，2)，’0’+STR(THISFORM.F，1))SS=IIF(THISFORM.S>=1(XSTRdTnSFORM.SA/O'+STRfTHISFORM.S，1))THISFORM.TEXTl.VALUE^H+'f+FF+'f+SS第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能(界而如阁例所示)。具体要求如下：1.表单的边框为同定对话框，运行时自动居中，不可移动；2.表单初始显示内界为表文件“学生.dbf”的首记录；3.表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。参考答案：1.表单的标题属性

5、Caption设置为“学生表内各只读浏览”；2.表单的BorderStyle属性力“2—岡定对话框”，白动届屮属性AutoCenter力.T.;3.表单的Movable属性为.F.;4.时钟控件Timerl的Interval属性为10000。5.表单的Forml的Init事件代码:THIS.SETALL(nREADONLY"，.T./TEXTBOX")GOTOPTHISFORM.REFRESH6.时钟控件Timerl的Timer事件代码:SKIPIFE()F()GOTOPENDIFTHISFORM.REFRESH第4题：编制一个表单完成表文件“学生.dbf”容的只读浏览w.

6、示功能(界ifii如图例所示)。具体要求如下：1.表单的边框为单线边框，运行时自动居中；1.表单初始显示内容为表文件“学生.dbf”的首记录；2.当按“前翻”“V：•翻”“首记录”“末记录”按钮时，表单将自动显示相应记录的内界;3.当翻至表义•或表底时，将A动设置相应按钮不可访问。参考答案：1.表单的标题属性Caption设置为“学生表内界只读浏览”；2.表单的BorderStyle属性力“1—单线边框”；白动居屮属性AutoCenter为.T.3.表单的Forml的Init事件代码：TH1S.SETALL("READONLY"，.T./TEXTBOX")GOTOPTHIS

7、FORM.REFRESH4.“首记录”按钮Command1的Click事件代码：gotopthisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.commandl.cnablcd=.f.thisform.refresh5.“前翻”按钮ComnKmd2的Click事件代码：skip-1ifbof()thisform.commandl.enabled=.f.this.enabled=.