VFP_实验6-1 利用输出类控件设计表单_--实验6-2利用输入类控件设计表单_--实验6-3 利用控制类控件设计表单.doc

实验6-1 利用输出类控件设计表单一、实验目的理解和掌握输出显示类控件标签（Label）、图像(Image)、线条（Line）和形状（Shape）。等的使用，熟练掌握Alignment 、AutoSize、Left、Top、Height、Width、ForeColor、BackColorCaption、Curverture、Value、Visible、WordWrap、Picture、Interval等属性；能恰当地为Init、Timer、Click等事件编写代码；准确地运用Refresh、Release等方法和Messagebox( )、RGB( )函数。二、实验准备复习本章的第1节内容，重点掌握上面提到的对象、属性、事件、方法和函数的概念及使用，注意观察例题的设计过程及方法。三、实验内容 1设计一个由标签、文本框、图像、形状等控件实现的显示信息界面，如图6-72、6-73所示。要求：图像用三维的立体形状框住，诗用标签16号隶书蓝底白字竖行显示，各对象的大小调整到协调即可。 图6-72 运行界面 图6-73 设计界面2运用文本框和计时器对象设计一个数字时钟表单，界面见图6-74、图6-75。要求：文本框文字为隶书、30号字，表单的标题为“数字时钟”，每隔1秒钟刷新一次时间。 图6-74 设计界面 图6-75 运行界面3设计一个圆球跳动表单。要求：球的宽和高为60，球的填充颜色为咖啡色，表单的标题为“圆球跳动”，按“开始”，球每隔0.5秒在表单的上下边之间跳动，按“停止”，球停止跳动。设计界面和运行界面见图6-76、图6-77。 图6-76 设计界面 图6-77 运行界面 4编制一个表单完成表文件“职工.dbf”内容的自动只读浏览显示功能，设计界面和运行界面如图6-78、图6-79所示。具体要求如下：表单初始显示内容为表文件“职工.dbf”的首记录；表单内容将以1秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。 图6-78 职工表自动浏览表单设计界面 图6-79 职工表自动浏览表单运行界面5编制一个显示时钟和日期的表单，界面如图6-80、图6-81、图6-82所示。命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。 图6-80 设计界面 图6-81 时间显示界面 图6-82 日期显示界面四、实验6-1报告 1实验过程报告（1）写出第2题“数字时钟”表单的Init事件和Timer事件的代码。thisform.text1.value=LEFT(TIME(),2)+ 时 +SUBSTR(TIME(),4,2)+ 分+SUBSTR(TIME(),7,2)+ 秒 thisform.Refresh （2）写出第3题“圆球跳动”表单的Timer事件的代码。IF thisform.shape1.Top=0thisform.shape1.Top=thisform.Height-thisform.shape1.HeightELSEthisform.shape1.Top=0ENDIFthisform.refresh（3）写出第4题“职工表自动只读浏览”表单的Timer事件的代码。SKIPIF EOF()GO topENDIFthisform.Refresh2简答题（1）怎样使标签中的文字以竖行的形式显示？设置WordWrap属性为.T.，再调整标签的大小，使其随边界自动返绕折行。（2）“圆球跳动”表单的圆球是使用的什么对象？怎样才能由方圆？改变球的颜色用的什么属性？怎样知道球到达了表单的顶部和底部？形状控件；点击形状控件，在属性中设置Curvature为99；到达表单顶部为TOP=0.到达底部时为thisform.shape1.Top=thisform.Height-thisform.shape1.Height（3）在文本框中显示文字要用什么属性？使文本框以只读的方式显示数据要用什么属性？Value属性Readonly属性（4）在什么条件下计时器控件的Timer事件代码才能运行？Interval属性不为0，Enabled属性为.T.3实验完成情况及存在问题。实验6-2利用输入类控件设计表单一、实验目的熟悉文本框（TextBox）、编辑框（EditBox）、列表框（ListBox）与组合框（ComboBox）、微调（Spinner）等输入类控件的使用，理解和掌握这些对象的常用属性：Value、ControlSource、DateFormat、InputMask、Format、ReadOnly、SelectOnEntry、PassWordChar、RowSourceType、RowSource、ListCount、List(i)、ListIndex、ColumnCount、DisplayValue、Sorted、visible，常用事件： When、GotFocus、Valid、LostFocus、InterActiveChange KeyPress、DownClick和UpClick，以及常用的SetFocus、AddItem、RemoveItem、Clear等方法的使用。能利用输入类控件进行表单设计。二、实验准备复习本章的第2节内容，重点掌握上面提到的对象、属性、事件和方法的概念及使用，特别要注意某些属性、方法只是针对某个或某些控件有效的。三、实验内容 1设计一个完成口令判定功能的表单，界面如图6-83到图6-85所示。具体要求如下：（1）用户从键盘输入口令时，表单的显示控件以“*”代替具体内容；（2）系统的口令是表文件“职工.dbf”的姓名，要求完全匹配；（3）输入口令后，按回车或按“确定”按钮，将自动显示信息框（Messagebox），提示“正确！”或“错误！”；（4）按“退出”按钮将自动关闭该表单。 图6-83口令表单运行界面 图6-84 输入正确对话框 图6-85 输入错误对话框2借助于文本框和微调框编制一个手工日历表单，界面如图6-86、图6-87所示。要求日期以中文的方式居中显示，显示的字体为宋体、26号加粗字。 图6-86 手工日历设计界面 图6-87 手工日历运行界面3编制“职工”表信息查询界面，要求如图6-88、图6-89、图6-90所示。要求：查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。 图6-88 用户选择前的运行界面 图6-89 用户选择同学后的运行界面 图6-90 控件的布局界面4编制一个表单，完成对“职工”、“销售” 表文件内容的职工销售金额查询显示功能，界面如图6-91至图6-93所示。具体要求如下：（1）当用户在组合框输入或选择姓名后，按回车或“确定”按钮时，表单将自动显示对应职工的平均销售额，如果该职工不存在，则显示提示信息。（2）按“退出”按钮时，自动关闭表单。 图6-91 销售金额查询设计界面 图6-92 销售金额查询运行界面 图6-93 输入错误对话框5设计一个表单，能在编辑框中输出一个对角线为0其余为1的一个矩阵，设计界面及运行界面如图6-94、图6-95所示。 图6-94显示矩阵设计界面 图6-95 显示矩阵运行界面6设计实现数据在列表框之间转移操作的表单。要求：能把左边列表框选定的数据项移到右边列表框，也能把右边列表框选定的数据项移到左边列表框，列表框的信息应排序。初始运行界面和操作后的界面分别如图6-96、图6-97所示。 图6-96 数据转移操作设计界面 图6-97 数据转移操作运行界面四、实验6-2报告1实验过程报告（1）写出第1题“口令”表单中“确定”按钮的Click事件代码。LOCATE FOR ALLTRIM(姓名)=ALLTRIM(thisform.text1.Value )if!EOF()MESSAGEBOX(正确!)ELSEMESSAGEBOX(错误!)ENDIFthisform.text1.SetFocus thisform.Refresh （2） 写出第2题“手工日历”表单中微调按钮的UpClick事件代码。thisform.text1.Value=thisform.text1.Value+1thisform.Refresh （3） 写出第3题“职工信息查询”表单中的Init事件代码。thisform.list1.RowSourceType = 6 thisform.list1.RowSource = 职工ZG.姓名thisform.SetAll(readonly,.T.,textbook)thisform.SetAll(visible,.F.,textbook)thisform.SetAll(visible,.F.,label)thisform.SetAll(visible,.F.,checkbook)thisform.label1.Visible= .T. thisform.Refresh （4） 写出第4题“职工销售额查询”表单中“确定”按钮的Click事件代码。SELECT 职工LOCATE FOR ALLTRIM(姓名)=ALLTRIM(bo1.DisplayValue)IF FOUND()SELECT 销售AVERAGE 金额 TO pjje FOR 职工号=职工.职工号thisform.text1.Value=pjjeELSEMESSAGEBOX(输入的姓名不存在!,48,错误信息)ENDIFbo1.SetFocusthisform.Refresh（5） 写出第5题“显示矩阵”表单中“显示”按钮的Click事件代码。N=thisform.text1.Valuethisform.list1.ClearFOR I=1 TO NC=FOR J=1 TO N IF I=J OR I+J=N+1A=0ELSEA=1ENDIFC=C+STR(A,2)ENDFORthisform.list1.AddItem(C)ENDFORthisform.text1.SetFocusthisform.Refresh2简答题（1）写出函数：MessageBox(答错了，再试！,32+0,评判结果)各项目的含义。答:MessageBox:对话框 答错了，再试！:对话框显示的内容32+0:问号图标,焦点在第一个按钮 评判结果: 对话框的Caption（2） 文本框的显示内容以“*”代替是如何实现的？ 答:thisform.text1.PasswordChar =*（3）第1题“手工日历表单”的日期显示为什么要借助文本框，不能直接显示在微调框中？答:因为微调控件的功能主要是用来选择或输入一定范围是数值型数据,不能用来直接显示日期型数据,但两者结合就可以显示多种类型的数据了（4） 如果将第4题的“确定”按钮去掉，那么其Click事件代码应放在哪个事件中？ 答:Form1的Init事件3实验完成情况及存在问题实验6-3 利用控制类控件设计表单一、实验目的理解和掌握命令按钮、命令按钮组、选项按钮组和计时器控件等控制类控件的使用，理解和掌握这些对象的Enabled、ButtonCount、Buttons(i) 、Value、ControlSource、Interval等属性，以及InterActiveChange、Timer等事件的使用。进一步掌握表单的设计技巧，掌握新方法的添加和编辑。二、实验准备复习教材第3节的内容，重点复习上述对象的常用属性、事件和方法的使用。复习新添加属性和方法。三、实验内容1、编制一个表单，完成职工表文件内容的只读浏览功能，界面如图6-98、图6-99所示。要求如下：（1）表单初始显示内容为表文件“职工.dbf”的首记录；（2）当按“前翻”“后翻”“首记录”“末记录”按钮时，表单将自动显示相应记录的内容；（3）当翻至表头或表尾时，将自动设置相应按钮为不可访问。 图6-98 职工表浏览设计界面 图6-99 职工表浏览运行界面2设计一个标准化模拟考试表单。界面如图6-100至图6-102所示。要求：文字字体、字号任意，当选择答案时，根据对错用Messagebox()函数显示提示信息。 图6-100 选择题运行界面 图6-101答对对话框 图6-102 答错正确对话框3用命令按钮组设计九种颜色调色板表单，界面如图6-103、图6-104所示。要求：文字字体为楷书、12号加粗字，表单的标题为“调色板”，按钮组九个按钮，按三行三列排列，当单击对应的按钮时，按钮组的背景颜色相应改变。 图6-103 调色板设计界面 图6-104 调色板运行界面4利用计时器控件设计一个模拟拍球动作的表单。具体运行界面如图6-105所示。球的起始位置在表单的顶行中部，表单执行后，球自上而下落下，当球到达表单底部时自动弹回，当球到达顶部时再次自动下落，如此往复弹跳，仿佛有人用手拍打球，直到关闭表单。（思考1：如果在下降过程中球体逐渐变大，而在上升过程中球体又逐渐回缩变小，如图6-106所示，如何实现？思考2：如果小球从左边升起右边落下，形成一个抛物线，如何实现？） 图6-105 球自上而下落下 图6-106 球逐渐变大 5设计一个表单，实现查询并显示指定职工的销售总额，并根据销售总额给出5档业绩评价：优（6000），良（4000），中（2000），合格（1000），不合格（=thisform.Height -thisform.SHApe1.Height thisform.F=1ENDIFIF thisform.shape1.Top =0thisform.F=0ENDIFIF thisform .F=0thisform.shape1.Top =thisform.shape1.To