《管理系统中计算机应用702.ppt》由会员分享，可在线阅读，更多相关《管理系统中计算机应用702.ppt（64页珍藏版）》请在三一办公上搜索。
1、2023/2/17,1,第7章 表单设计,之三,2023/2/17,2,主要内容,计时器控件 图像、线条与形状控件 超级链接控件 ActiveX控件,2023/2/17,3,7.1.9 计时器控件,计时器控件 计时器的两个关键属性：Enabled：如果希望在表单装入后立即启动计时器，则把该属性设置为.T.-真；否则把它设置为.F.-假，然后用一个外部事件（如单击命令按钮）来启动计时器。Interval：设置两个计时器事件之间的时间间隔（单位为毫秒）。,2023/2/17,4,计时器控件,计时器的一个重要事件：Timer：每隔Interval属性设置的时间间隔，该事件将由系统触发一次。注意：计时
2、器事件是周期性的，间隔长度越小，事件产生就越频繁，响应事件所花费的时间就越多，这将会使应用程序的整体性能下降。所以一般不要设置很小的间隔。,2023/2/17,5,计时器控件举例,例7-13 设计一个如图所示的表单窗口，要求当表单执行时,表单中的文字从左向右移动，当文字全部移出时，文字又从左边移入，反复循环不止。,2023/2/17,6,计时器控件举例,操作步骤如下：在Visual FoxPro中新建一个表单窗口；按上图所示，在该表单窗口中分别创建一个标签控件，一个计时器控件，放到相应的位置；设置各控件的属性如表7-12所示：,2023/2/17,7,计时器控件举例,2023/2/17,8,计
3、时器控件举例,设置计时器控件的Timer事件的代码为：a=Thisform.Label1.Left+5IF aThisform.Width a=-Thisform.Label1.WidthENDIFThisform.Label1.Left=a,2023/2/17,9,7.1.10 图像、线条与形状控件,图象、线条与形状控件 图象控件图象控件可以用来在表单中显示文件的图象，图象文件的类型可为：.BMP、.ICO、.GIF、.JPG等4种。,线条控件,形状控件,2023/2/17,10,图像、线条与形状控件,图象控件的常用属性有：Picture：设置要显示的位图文件。BorderStyle：设置图
4、象是否有边框。Stretch：如果设置为0-剪切，表示图象中超出图象控件范围的部分不显示。1-等比填充，则表示图象控件保持图片原有尺寸比例，但尽可能地显示在控件中。2-变比填充，也就是系统自动调整图象的大小，与图象控件的高度与宽度相匹配。,2023/2/17,11,图像、线条与形状控件,线条控件的常用属性有：BorderWidth：设置线的粗细。Height：设置线的对角矩形的高度。设置为0是水平线。Width：设置线的对角矩形的宽度。设置为0是垂直线。LineSlant：设置线的倾斜方向。此属性的有效值是“/”和“”，分别对应右下角至左上角对角线和左上角至右下角对角线。Bortercolor
5、：设置线的颜色。,2023/2/17,12,图像、线条与形状控件,形状控件的常用属性有：Curvature：设置图的形状，值在0（矩形）到99（圆角矩形或椭圆）之间；FillStyle：是否填充线图；SpecialEffect：决定线图是平面图还是三维图。三维图只在Curvature属性为0时有效。,2023/2/17,13,图像、线条与形状控件,形状类型将由Curvature，Width与Height属性来指定，见下表,2023/2/17,14,图像、线条与形状控件,注意：图像、线条和形状控件不但可以在设计时设置，设置好后无论在设计时还是运行时都可改变其属性。若形状控件遮住了某一其它控件，则
6、无论在设计时还是运行时，对被遮控件单击鼠标键均将无效。此时应将形状控件置后，可使用格式菜单的置后命令，或布局工具栏的置后按钮来设置。,2023/2/17,15,图像、线条与形状控件举例,例7-14设计一个如图所示的表单窗口。,2023/2/17,16,图像、线条与形状控件举例,操作步骤如下：在Visual FoxPro中新建一个表单窗口；按上图所示，在该表单窗口中分别创建一个标签对象、一个形状对象、一个图像对象、两个线条对象；设置各控件的属性如表7-14所示,2023/2/17,17,图像、线条与形状控件举例,2023/2/17,18,图像、线条与形状控件举例,2023/2/17,19,7.1
7、.11 超级连接,超级链接对象含有一个NavigateTo方法程序，它允许用户指定一个网址，执行该方法程序时Visual FoxPro就会启动因特网浏览器，并根据指定的网址进入网络的站点来显示网页。,2023/2/17,20,超级连接举例,例7-15 在表单上创建一个命令按钮，要求表单运行时单击该命令按钮即可显示搜狐网站的主页。,2023/2/17,21,超级连接举例,操作步骤如下：如图所示在表单上添加超级链接控件和命令按钮控件各一个。Commandl的Caption属性设置为：搜狐Commandl的Click事件代码编写如下：Thisform.Hyperlink1.NavigateTo;(“
8、http:/”),2023/2/17,22,7.1.12 ActiveX控件,基本概念ActiveX原来是微软公司提出的一组技术标准，其中也包括控件的技术标准。所谓ActiveX控件，就是指符合ActiveX标准的控件，其数量现已超过了1000种，例如在Windows的SYSTEM文件夹中含有大量带.OCX扩展名的文件，就都属于ActiveX控件。在本章前几节介绍的控件，仅是ActiveX控件中常见于Visual FoxPro界面的一小部分。,2023/2/17,23,ActiveX控件,向表单添加控件或对象 从“表单控件”工具栏中选定ActiveX控件按钮，在表单中单击鼠标，屏幕上将弹出一个
9、如图所示的“插入对象”对话框。【新建】【由文件创建】【创建控件】,2023/2/17,24,ActiveX控件,“新建”选项按钮选定“新建”选项表示将在表单上新建一个对象，这种对象是某种文件类型的文档。在插入对象对话框的对象类型列表中包含文档，图象、声音等多种文件类型，用户选定其中一项并按确定按钮后，Visual FoxPro将自动打开这种类型的应用程序，供用户输入文档的内容。【显示为图标】复选框,2023/2/17,25,ActiveX控件,“由文件创建”选项按钮选定【由文件创建】选项按钮表示用户须指定一个存在的文档，并作为对象放置在表单上。选定该选项按钮后，插入对象对话框中将显示一个浏览按
10、钮和一个文本框，用户可通过浏览按钮选一文件，或在文本框中直接输入路径及文件名。按确定按钮后表单窗口内即产生一个文档对象，该文档是以图标显示，还是文件内容显示，可由显示为图标复选框指定。,2023/2/17,26,ActiveX控件,“创建控件”选项按钮选定【创建控件】选项按钮表示可由用户指定一个ActiveX控件并放置在表单上。选定该选项按钮后，插入对象对话框中将显示【添加控件】按钮，单击该按钮，弹出浏览对话框，指定Visual FoxPro的主目录的文件FPOLE.OCX，然后选择【打开】，“对象类型”列表中将出现大量ActiveX控件选项，这些都是表单控件工具栏以外可供用户选用的控件，用户
11、选定一项后并按确定按钮，指定的ActiveX控件就会出现在表单上。,2023/2/17,27,ActiveX控件,向表单控件工具栏添加AttiveX控件 添加步骤选定【工具】【选项】命令，在如图所示的“选项对话框”的【控件】选项卡中选定【ActiveX控件】选项按钮,2023/2/17,28,ActiveX控件,显示方法转换方法如下：在表单控件工具栏中选定查看类按钮，并在随后弹出的菜单中选定【ActiveX控件】命令，表单控件工具栏就会自动转换成显示OLE对象和ActiveX控件按钮的工具栏，,2023/2/17,29,ActiveX控件,删除方法要删除表单控件工具栏中的OLE对象按钮或Act
12、iveX控件按钮，可通过【工具】菜单的【选项】命令来打开“选项对话框”，并在其【控件】选项卡的列表中清除有关复选框便可。,2023/2/17,30,ActiveX控件举例,例7-16设计一个如图所示的视频播放表单，要求当用户执行表单后开始播放。,2023/2/17,31,ActiveX控件举例,操作步骤如下：在Visual FoxPro中新建一个表单窗口；按上图所示，在该表单窗口中创建一个视频剪集的ActiveX对象，操作方法是：向表单添加一个ActiveX对象，在弹出的“插入对象”对话框中，在“对象类型”的列表框中选择“视频剪辑”，然后单击【确定】。调整它的大小并摆放到相应的位置；设置各控件
13、的属性如表7-15所示,2023/2/17,32,ActiveX控件举例,在ActiveX控件上右击鼠标，在出现的快捷菜单中选择“视频剪集对象”。在出现的菜单中选择“打开”，则出现一个“媒体播放机”对话框，选择“文件”菜单中的“打开”菜单项，再选择“jzgsp.wmv”文件，最后单击“确定”。,2023/2/17,33,ActiveX控件举例,例7-17设计一个如图所示的表单，要求当表单执行时,用户双击小喇叭，可播放创建时录制的声音。,2023/2/17,34,ActiveX控件举例,操作步骤如下：在Visual FoxPro中新建一个表单窗口；按上图所示，在该表单窗口中创建一个标签对象，并设
14、置其Caption的属性值为：双击开始播放；再添加一个音效的ActiveX对象,2023/2/17,35,ActiveX控件举例,操作方法是：向表单添加一个ActiveX对象，在弹出的“插入对象”对话框中，在“对象类型”的列表框中选择“音效”，然后单击【确定】。当音效的ActiveX对象添加到表单后，将自动出现录音对话框，此时单击红色按钮，开始录音。完成录音后，单击停止录音按钮，并关闭录音窗口。调整它们的大小并摆放到相应的位置；,2023/2/17,36,7.1.13 表单设计综合例题,例7-18 用命令按钮组设计如图7所示的计算器。,2023/2/17,37,表单设计综合例题,操作步骤如下：
15、计算器的按钮部分用命令按钮组控件进行设计。向表单添加一个命令按钮组控件，在命令按钮组控件上单击右键，选择【生成器】，在按钮选项卡中设置按钮数目为16，并设置标题如图所示。,2023/2/17,38,表单设计综合例题,在“布局”页面中设置“按钮布局”为：水平。单击【确定】按钮。设置命令按钮组控件的Height属性值为：140，在命令按钮组控件上单击右键，选择【编辑】，移动命令按钮，将所有命令按钮的height和Widdth均设置为：25，设置成图7-32所示的状态。,2023/2/17,39,表单设计综合例题,在表单中添加一个文本框控件，一个标签控件，一个形状控件，并设置为如图7-32所示的外观
16、。设置文本框的Format属性的值设置为：T，定义一个名为x的表单属性。设置命令按钮组控件Commandgroup1的Value属性值为：=“”这一步骤非常重要，如没有这一步，计算器的设置要复杂得多。,2023/2/17,40,表单设计综合例题,在命令按钮组控件Commandgroup1的Click事件添加下列代码：IF Thisform.t AND(asc(This.Value)=48;AND ASC(This.Value)=57);&清空文本框内容ENDIF,2023/2/17,41,表单设计综合例题,IF This.Value=This.ValueThisform.x=.F.ENDIF,
17、2023/2/17,42,表单设计综合例题,例7-19 建立一个表单，其外观如图所示，并完成下列功能：表单被执行时按图所示的格式显示日期和时间；当用户改变格式设置时，立刻按用户设置的格式显示日期和时间。,2023/2/17,43,表单设计综合例题,操作步骤如下：新建一个表单，添加五个标签控件、两个文本框控件、两个选项按钮组，两个复选框控件、两个形状控件、一个计时器控件，并设置相应属性，使其外观如图所示，两个形状控件必须设置为“置后”。两个选项按钮组控件用生成器设置较方便,2023/2/17,44,表单设计综合例题,设置控件的关键属性，设置计时器控件的Interval属性值为：500；设置两个文
18、本框的TabStop属性值为：.F.-假；上面文本框的Width属性值为：240；下面文本框的Width属性值为：210；其它属性值读者可参照已确定的属性值及图7-35的相对位置自定。在计时器控件的time事件中添加以下代码：(见实例),2023/2/17,45,表单设计综合例题,例7-20 设计一个表单，实现如图所示的简易数学用表。原数取1100。,2023/2/17,46,表单设计综合例题,操作步骤如下：新建一个表单，向表单添加五个标签控件，一个列表框控件，并设置相关属性使其外观如图7-36所示。设置列表框控件List1的属性ColumnCount的值为：5，说明含有5列；属性Column
19、Width的值为：30,40,50,50,180，确定5列各自的宽度。,2023/2/17,47,表单设计综合例题,在控件List1的Init事件中添加如下代码：FOR i=1 to 100 n=STR(i,3)This.AddListItem(n,i,1)n=STR(i*i,5)This.AddListItem(n,i,2)n=STR(SQRT(i),7,4)This.AddListItem(n,i,3)n=STR(LOG(i),7,4)This.AddListItem(n,i,4)n=STR(EXP(i),17,4)This.AddListItem(n,i,5)ENDFOR,2023/2/
20、17,48,表单设计综合例题,例7-21 设计新增人事数据的表单，要求充分利用所学的知识，设计表单时尽量为用户着想，为用户提供方便。设计步骤如下：新建一个名为LT7-21的表单，向表单添加数据环境，数据环境中添加RSB.DBF和BMDM.DBF两个表文件。注意：必需删除两表间的关系。并向BMDM表添加一条空记录,2023/2/17,49,表单设计综合例题,利用数据环境向表单快速添加控件：用鼠标指向RSB表的字段行，按下鼠标左键拖拽到表单的左上角，释放鼠标则产生如图所示的表单，默认表单不够大，可拖拽表单边框到足够大，就可以看到所有的控件。,2023/2/17,50,表单设计综合例题,对于性别字段
21、的输入，只有两种可取值，没有必要让用户输入“男”或“女”，可利用选项按钮组控件，如图所示，由用户单击鼠标就可选定“男”或“女”。所以需将已有的与性别绑定的文本框删除。,图7-38 新增人事数据表单设计状态,2023/2/17,51,表单设计综合例题,操作方法如下：在表单空表处单击鼠标，取消对所有控件的选择，选择与性别绑定的文本框，按Delete键删除。添加一个选项按钮组，设置成如图7-38右上角所示的外观。将选项按钮组对象Optiongroup1的属性 Controlsource的值设置为 rsb.性别，也就是将选项按钮组对象Optiongroup1与RSB表文件的“性别”字段绑定了，所以当用
22、户选择了“男”或“女”，将自动更新表文件中当前记录“性别”字段的值。,2023/2/17,52,表单设计综合例题,对于“部门代码”字段的值要利用BMDM表的内容，删除与“部门代码”绑定的文本框，添加一个组合框控件，在组合框上单击鼠标右键，选择【生成器】，对“列表项”页面设置成如图所示,2023/2/17,53,表单设计综合例题,对“值”页面设置成如图所示，其它两个页面不变，最后单击【确定】确认设置。,2023/2/17,54,表单设计综合例题,“出生日期”和“工作日期”字段也需作处理，因为大多数用户不知道日期的输入格式。删除与“出生日期”和“工作日期”绑定的文本框，添加两个微调控件、一个组合框
23、控件、一个形状控件和三个标签控件，并调整成图7-38第二行的外观。提示：形状控件要置后。,2023/2/17,55,表单设计综合例题,在组合框上单击鼠标右键，选择【生成器】，对“列表项”页面设置成如图所示，表格中的数一直输入到12，其它三个页面不变，最后单击【确定】确认设置。,2023/2/17,56,表单设计综合例题,并设置两个微调控件的属性如表7-16所示：,2023/2/17,57,表单设计综合例题,选定输入年月日的所有控件，如图所示。单击“复制”按钮，再单击“粘帖”按钮，这样就有了两个输入日期的控件，再将Spinner1、Spinner2、Spinner3、Spinner4的Value
24、属性分别设置为：1960，1，1949，1作为默认值。,2023/2/17,58,表单设计综合例题,对于“职称”字段作处理，为给用户提供更方便的输入界面，删除与“职称”绑定的文本框，添加一个组合框控件，在组合框上单击鼠标右键，选择【生成器】，对“列表项”页面设置成如图所示,2023/2/17,59,表单设计综合例题,对“值”页面设置成如图所示，其它两个页面不变，最后单击【确定】确认设置。,2023/2/17,60,表单设计综合例题,对于“照片”字段作处理，为美观起见，添加一个形状控件，使其置后，并设置成三维。为给用户提供更方便的输入界面，添加一个命令按钮，将命令按钮的外观设置成如图7-38所示
25、，相片标签下的命令按钮形状，,2023/2/17,61,表单设计综合例题,并设置该命令按钮的Click事件的代码为：filename=GETPICT()IF filename=ELSEAPPEND GENERAL 相片 FROM;&filenameThisform.Refresh()ENDIF,2023/2/17,62,表单设计综合例题,调整各控件的位置如图7-38所示，添加两个线条控件、两个命令按钮控件，线条的颜色一条设置成深灰、一条设置成白色，两条紧邻，形成如图7-38所示的立体效果。命令按钮的外观设置成如图7-38所示。,2023/2/17,63,表单设计综合例题,添加控件代码：表单的Init事件代码“保存”按钮的Click事件代码“取消退出”命令按钮的Click事件代码,2023/2/17,64,表单设计综合例题,四个组合框控件的Init事件代码与职称绑定组合框控件的LostFocus事件的代码 数据环境的Opentables事件代码数据环境的Closetables事件代码,
