VFP表单设计题.doc

VFP程序设计题第2题：编制一个表单完成计数器计数显示功能（界面如图例所示，图例文件为*.JPG）。具体要求如下：1 表单的边框为固定对话框，运行时自动居中，不可移动；2 表单初始显示状态为全零“00:00:00”；3 按“计数”按钮后，自动以秒为单位从零开始计数（设：时的计数属性名为F，分的计数属性名为H，秒的计数属性名为S）并在表单上动态显示；4 按“停止”按钮后暂停计数，按“计数”按钮可以继续计数；参考答案：1 表单的标题属性Caption设置为“计数器”；2 表单的BorderStyle属性为“2固定对话框”，自动居中属性AutoCenter为.T.。3 表单的Movable属性为.F.；4 时钟控件Timer1的Interval属性为1000。5 表单的Form1的Init事件代码：THIS.TIMER1.INTERVAL=1000THISFORM.TIMER1.ENABLED=.F.STOR 0 TO THIS.S,THIS.F,THIS.HTHIS.TEXT1.VALUE=00:00:006 “计数”按钮Command1的Click事件代码：THISFORM.TIMER1.ENABLED=.T.7 “停止”按钮Command2的Click事件代码：THISFORM.TIMER1.ENABLED=.F.8 时钟控件Timer1的Timer事件代码：THISFORM.S=THISFORM.S+1IF THISFORM.S=60THISFORM.F=THISFORM.F+1THISFORM.S=0ENDIFIF THISFORM.F=60THISFORM.H=THISFORM.H+1THISFORM.F=0ENDIFIF THISFORM.H=60THISFORM.S=THISFORM.S+1THISFORM.H=0ENDIFHH=IIF(THISFORM.H=10,STR(THISFORM.H,2),0+STR(THISFORM.H,1)FF=IIF(THISFORM.F=10,STR(THISFORM.F,2),0+STR(THISFORM.F,1)SS=IIF(THISFORM.S=10,STR(THISFORM.S,2),0+STR(THISFORM.S,1)THISFORM.TEXT1.VALUE=HH+:+FF+:+SS第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。具体要求如下：1 表单的边框为固定对话框，运行时自动居中，不可移动；2 表单初始显示内容为表文件“学生.dbf”的首记录；3 表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。参考答案：1表单的标题属性Caption设置为“学生表内容只读浏览”；2表单的BorderStyle属性为“2固定对话框”，自动居中属性AutoCenter为.T.;3表单的Movable属性为.F.；4时钟控件Timer1的Interval属性为10000。5表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)GO TOPTHISFORM.REFRESH6时钟控件Timer1的Timer事件代码：SKIPIF EOF() GO TOPENDIFTHISFORM.REFRESH第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。具体要求如下：1 表单的边框为单线边框，运行时自动居中；2 表单初始显示内容为表文件“学生.dbf”的首记录；3 当按“前翻” “后翻” “首记录” “末记录” 按钮时，表单将自动显示相应记录的内容；4 当翻至表头或表底时，将自动设置相应按钮不可访问。参考答案：1 表单的标题属性Caption设置为“学生表内容只读浏览”；2 表单的BorderStyle属性为“1单线边框”；自动居中属性AutoCenter为.T.3 表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)GO TOPTHISFORM.REFRESH4 “首记录”按钮Command1的Click事件代码：go mand2.enabled=.mand3.enabled=.mand4.enabled=.mand1.enabled=.f.thisform.refresh5 “前翻”按钮Command2的Click事件代码：skip -1if bof()mand1.enabled=.f.this.enabled=.mand3.enabled=.mand4.enabled=.t.thisform.refresh 6“后翻”按钮Command3的Click事件代码：skipif eof()mand3.enabled=.mand4.enabled=.mand1.enabled=.mand2.enabled=.t.thisform.refresh 7“末记录”按钮Command4的Click事件代码：go mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.thisform.refresh第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。具体要求如下：1 表单的边框为固定对话框，运行时自动居中；2 当用户在组合框（下拉列表）选择班级（学号的左三位）后，表单将自动显示对应班级的所有学生的总平均成绩；3 按“退出”按钮时，自动关闭表单。参考答案：1 表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”；2 表单的BorderStyle属性为“2固定对话框”；自动居中属性AutoCenter为.T.。3 组合框Combo1的Init事件代码：SET TALK OFFINDEX ON LEFT(学号,3) TO XH UNIQUESCAN THIS.ADDITEM(LEFT(学号,3)ENDSCANSET INDEX TO4 组合框Combo1的Click事件代码：BJ=THIS.VALUEAVERAGE FOR LEFT(学号,3)=BJ 成绩 TO CJTHISFORM.TEXT1.VALUE=CJ5 “退出”按钮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”内容的查询显示功能（界面如图所示）。具体要求如下：1 表单运行时自动居中，不可移动；2 当用户在组合框（下拉列表）选择课程后，表单将自动显示该课程的总平均成绩；3按“退出”按钮时，自动关闭表单。参考答案：1表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”；2表单的自动居中属性AutoCenter为.T.;3表单的Movable属性为.F.；4组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。5组合框Combo1的Click事件代码：SET TALK OFFSELECT 课程KCH=课程号SELECT 成绩AVERAGE FOR 课程号=KCH 成绩 TO CJTHISFORM.TEXT1.VALUE=CJ6.“退出”按钮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事件代码：use7.文本框Text1的Valid事件代码：loca for alltrim(学号)=alltrim(this.value)if found()thisform.label2.caption=thisform.setall(visible,.t.)elsethisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.label2.visible=.t.thisform.label2.caption=您所指定的学生并不存在！endifthisform.refreshreturn .t.第12题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。具体要求如下：1 表单的标题为“按钮组调色板”， 表单运行时，当按某个命令按钮后，表单的背景色就会变成按钮指定的对应颜色。参考答案：1 表单的标题属性Caption设置为“按钮组调色板”；2 命令按钮组Commandgroup1的Click事件代码：do case case this.value=1thisform.backcolor=rgb(225,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.backcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(225,255,255)endcasethisform.refresh第13题：根据要求，用表单设计器建立一个“按钮组调色板”表单（界面如图例所示）。具体要求如下：1.表单的标题为“按钮组调色板”， 表单运行时，当按某个命令按钮后，命令按钮组的背景色就会变成按钮指定的对应颜色。参考答案：1.表单的标题属性Caption设置为“按钮组调色板”；2.命令按钮组Commandgroup1的Click事件代码：do case case this.value=1this.backcolor=rgb(225,0,0)case this.value=2this.backcolor=rgb(0,255,0)case this.value=3this.backcolor=rgb(0,0,255)case this.value=4this.backcolor=rgb(0,0,0)case this.value=5this.backcolor=rgb(225,255,255)endcasethisform.refresh第15题：根据要求，用表单设计器建立一个“选项按钮组调色板”表单（界面如图例所示）。具体要求如下：1.表单的标题为“选项按钮组调色板”， 表单运行时，当按某个命令按钮后，选项按钮组的背景色就会变成按钮指定的对应颜色。参考答案：1.表单的标题属性Caption设置为“选项按钮组调色板”；2. 选项按钮组Optiongroup1的Click事件代码：do case case this.value=1thisform.optiongroup1.backcolor=rgb(255,0,0)case this.value=2thisform.optiongroup1.backcolor=rgb(0,255,0)case this.value=3thisform.optiongroup1.backcolor=rgb(0,0,255)case this.value=4thisform.optiongroup1.backcolor=rgb(0,0,0)case this.value=5thisform.optiongroup1.backcolor=rgb(255,255,255)endcase第16题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。具体要求如下：1 表单的列表框中选择需查询学生的姓名。2 所有文本框Text为只读。参考答案：1 表单的标题属性Caption设置为“学生表信息查询”；2 所有文本框Text的ReadOnly属性为“.T.”；3.表单的Form1的Init事件代码：use 学生thisform.setall(visible,.f.,textbox)thisform.setall(visible,.f.,label)thisform.label1.visible=.t.thisform.refresh4表单的Form1的destroy事件代码：use5列表框List1的Interactivechange事件代码：thisform.setall(visible,.t.)thisform.refresh第17题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。具体要求如下：1. 表单的组合框中选择需查询学生的姓名。2. 所有文本框Text为只读。参考答案：1 表单的标题属性Caption设置为“学生表信息查询”；2 Combo1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；3 所有文本框Text的ReadOnly属性为“.T.”；4.表单的Form1的Init事件代码：use 学生thisform.setall(visible,.f.,textbox)thisform.setall(visible,.f.,label)thisform.label1.visible=.t.thisform.refresh5表单的Form1的destroy事件代码：use6列表框Combo1的Interactivechange事件代码：thisform.setall(visible,.t.)thisform.refresh第19题：根据要求，用表单设计器建立一个时钟表单（界面如图例所示）。具体要求如下：1 表单只有标题为“信息窗”。2 当时钟的分为奇数时，表单的背景色为绿色，偶数时为蓝色。3 显示的内容为只读。参考答案：1 表单的标题属性Caption设置为“信息窗”；2 时钟控件Timer1的Timer事件代码：S=SUBSTR(TIME(),1,2)F=SUBSTR(TIME(),4,2)M=SUBSTR(TIME(),7,2)MN=VAL(f)IF INT(MN/2)=MN/2 THISFORM.backCOLOR=RGB(0,0,255)ELSE THISFORM.backCOLOR=RGB(0,255,0) ENDIFthisform.text1.value=time()第20题：根据要求，用表单设计器建立一个“人工翻动日历牌” 表单（界面如图例所示）。具体要求如下：1 编制一个日历的表单，表单的标题为“人工翻动日历牌”，文本框为只读，显示的日期格式为“年月日”，年份为4位。2 当表单运行时，显示当前日期，用户可以通过微调按钮向前或向后翻动日期。参考答案：1 表单的标题属性Caption设置为“人工翻动日历牌”；2 微调Spinner1的Downclick事件代码：thisform.text1.value=thisform.text1.value-1thisform.refresh3 微调Spnnier1的Upclick事件代码：thisform.text1.value=thisform.text1.value+1thisform.refresh第21题：根据要求，用表单设计器建立一个“选页调色板”表单（界面如图例所示）。具体要求如下：1.表单的标题为“选页调色板”， 表单运行时，当按某个命令按钮后，该页框的背景色就会变成按钮指定的对应颜色。参考答案：1.表单的标题属性Caption设置为“选页调色板”；2. 选项按钮组Pageframe1的Click事件代码：do casecase this.activepage=1this.page1.backcolor=rgb(255,0,0)case this.activepage=2this.page2.backcolor=rgb(0,255,0)case this.activepage=3this.page3.backcolor=rgb(0,0,255)case this.activepage=4this.page4.backcolor=rgb(0,0,0)case this.activepage=5this.page5.backcolor=rgb(255,255,255)endcasethisform.refresh第22题：根据要求，用表单设计器建立一个如图所示的表单（界面如图例所示）。1.表单的标题属性Caption设置为“新建”；2. 选项按钮组Optiongroup1的Click事件代码：do case case this.value=1crea case this.value=2crea formcase this.value=3modify commandendcase第24题：编制一个日历时钟表单（界面如图例所示）。具体要求如下：1“日期”“星期”“时钟”标签上的文本能自动换行，自动调整大小，背景透明；2文本框对齐方式为中间对齐；3时钟每1秒种跳一次。参考答案：1 表单的标题属性Caption设置为“日历时钟表单”；2 文本框Text1、Text2、Text3的对齐方式属性为Alignment为“2中间”；3 时钟控件Timer1的Interval属性为1000。4 时钟控件Timer1的Timer事件代码：Y=STR(YEAR(DATE(),4)M=STR(MONTH(DATE(),2)D=STR(DAY(DATE(),2)THISFORM.Text1.Value=Y+年+M+月+D+日C=日一二三四五六N=DOW(DATE()W=星期+SUBSTR(C,2*N-1,2)+(+CDOW(DATE()+)THISFORM.Text2.Value=WTHISFORM.Text3.Value=TIME()第26题：编制一个如图所示的表单（界面如图例所示）。参考答案：1.表单的标题属性Caption设置为“学生成绩信息浏览”；2.表单的Form1的Init事件代码：set dele onSElect 课程set order to tag 课程号 in 成绩SET RELATION TO 课程号 INTO 成绩select 学生set order to tag 学号 in 成绩SET RELATION TO 学号 INTO 成绩 with this.grd成绩 .readonly=.f. .allowaddnew=.f. .deletemark=.f.endwiththis.setall(READONLY,.T.,TEXTBOX)mand1.setfocus3. 表单的Form1的Unload事件代码：clear events4. 命令按钮组Commandgroup1的Click事件代码：do case case this.value=1 &表头按钮 go top mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. case this.value=2 and !bof() &前翻 skip -1 if bof() mand1.enabled=.f. mand2.enabled=.f. endif mand3.enabled=.t. mand4.enabled=.t. case this.value=3 and !eof() &后翻 skip if eof() mand3.enabled=.f. mand4.enabled=.f. endif mand1.enabled=.t. mand2.enabled=.t. case this.value=4 &表尾 go bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. case this.value=5 &退出 if messagebox(退出吗？,4+32,退出确认框)=6 select 成绩 pack set delete off thisform.release endifendcase thisform.refresh第27题：编制一个表单完成学生成绩信息查询显示功能（界面如图例所示）。参考答案：1表单的标题属性Caption设置为“学生成绩信息查询表单”；2文本框Text1的SelectOnEntry设置为“.T.”；3. 表单的Form1的Init事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩thisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.4. 表单的Form1的Unload事件代码：use5. 文本框Text1的Valid事件代码：loca for alltrim(学号)=alltrim(this.value)if found()thisform.setall(visible,.t.)thisform.text2.value=姓名elsethisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.messagebox(查无此人！,0+48,提示窗)endifthisform.refreshreturn .t.6. 文本框Text1的Gotfocus事件代码：thisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.refresh第28题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。参考答案：1.表单的标题属性Caption设置为“学生成绩信息查询”；2.表单的Form1的Init事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩3. 列表框List1的Interactivechange事件代码： thisform.setall(visible,.t.)thisform.refresh4. 列表框List1的Gotfocus事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩thisform.refresh第30题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。参考答案：1.表单的标题属性Caption设置为“学生学籍信息查询表单”；2 表单的Form1的Init事件代码：SELE 成绩SET ORDER TO TAG 课程号 IN 课程SET RELATION TO 课程号 INTO 课程sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩thisform.setall(visible,.f.)bo1.visible=.bo1.style=2bo1.rowsourcetype=6bo1.rowsource=学生.学号3 表单的Form1的Unload事件代码：use4 组合框Combo1的Interactivechange事件代码：thisform.setall(visible,.t.)select 成绩THISFORM.REFRESH5 组合框Combo1的Gotfocus事件代码：thisform.setall(visible,.f.)bo1.visible=.t.thisform.refresh第32题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。1.表单的标题属性Caption设置为“学籍信息查询表单”；2.数据环境Dataenvironment中的3个表文件Cursor1、Cursor2和Cursor3的表独占属性Exclusive设置为真（.T.）。3. 表单的Form1的Init事件代码： set dele onSElect 课程set order to tag 课程号 in 成绩SET RELATION TO 课程号 INTO 成绩select 学生set order to tag 学号 in 成绩SET RELATION TO 学号 INTO 成绩this.setall(READONLY,.T.,TEXTBOX)this.pageframe1.activepage=1 &激活“学生”页面mand1.setfocus4. 表单的Form1的Unload事件代码： clear events5. 命令按钮组Commandgroup1的Click事件代码： do case case this.value=1 &表头按钮 go top mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. case this.value=2 and !bof() &前翻 skip -1 if bof() mand1.enabled=.f. mand2.enabled=.f. endif mand3.enabled=.t. mand4.enabled=.t. case this.value=3 and !eof() &后翻 skip if eof() mand3.enabled=.f. mand4.enabled=.f. endif mand1.enabled=.t. mand2.enabled=.t. case this.value=4 &表尾 go bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. case this.value=5 &退出 if messagebox(退出吗？,4+32,退出确认框)=6 select 成绩 pack set delete off thisform.release endifendcase if thisform.pageframe1.activepage=1 select 学生 set order to tag 学号 in 成绩 else select 课程 set order to tag 课程号 in 成绩endifthisform.refresh6. 页框page1的activate事件代码：select 学生set order to tag 学号 in 成绩 7. 页框page2的activate事件代码：select 课程set order to tag 课程号 in 成绩第33题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。参考答案：1.表单的标题属性Caption设置为“学籍信息查询表单”；2.表单的Form1的Init事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩3.列表框List1的Interactivechange事件代码：thisform.grid1.setfocusthisform.refresh4. 列表框List1的Gotfocus事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩thisform.refresh5.列表框List2的Interactivechange事件代码：thisform.grid1.column1.text1.setfocusthisform.refresh6.列表框List2的Gotfocus事件代码：sele 课程set order to tag 课程号 in 成绩set relation to 课程号 into 成绩thisform.refresh第34题：编制一个表单完成学籍信息查询显示功能（界面如图例所示）。参考答案：1.表单的标题属性Caption设置为“学籍信息查询表单”；2.表单的Form1的Init事件代码： thisform.list3.rowsourcetype=0thisform.list3.rowsource=3. 列表框List1的Interactivechange事件代码：select 成绩set order to tag 课程号 in 课程set relation to 课程号 into 课程thisform.list3.clearselect 成绩scan for 学号=学生.学号thisform.list3.additem(课程.课程名+str(成绩.成绩,6,2)endscanthisform.refresh 4. 列表框List1的Gotfocus事件代码： thisform.refresh5. 列表框List2的Interactivechange事件代码： select 成绩set order to tag 学号 in 学生set relation to 学号 into 学生thisform.list3.clearselect 成绩scan for 课程号=课程.课程号thisform.list3.additem(学生.姓名+str(成绩.成绩,6,2)endscanthisform.refresh6. 列表框List2的Gotfocus事件代码： thisform.refresh另解：参考答案：1. 表单的标题属性Caption设置为“学籍信息查询表单”；2. 列表框List1的Init事件代码：select 学生scanthis.additem(姓名)endscanthisform.refresh3. 列表框List1的Interactivechange事件代码：THISFORM.LIST1.SETFOCUSSELECT 学生LOCATE FOR 姓名=THIS.VALUEA=学号ERASE 11.DBFSELECT 课程.课程名,成绩.成绩 FROM 课程,成绩 WHERE 成绩.学号=A AND 成绩.课程号=课程.课程号 INTO TABLE 11THISFORM.LIST3.CLEARUSE 11SCAN THISFORM.LIST3.ADDITEM(ALLTRIM(课程名)+STR(成绩)ENDSCANUSETHISFORM.REFRESH4. 列表框List2的Init事件代码：select 课程scanthis.additem(课程名)endscanthisform.refresh5. 列表框List2的Interactivechange事件代码：THISFORM.LIST2.SETFOCUS