第5章根据任务选择合适的控件

1、数据库原理与应用信息学院 软件教研室理论教学课后习题与上机实验本章要点回顾学习提要与目标返回返回（3）AutoSize确定控件是否根据其内容的长度自动调节大小设置值为逻辑值 .t. , .f. 缺省值为.T.（4）Left用于确定控件距离其父对象最左边位置。（5）Top用于确定控件距离其父对象最上边缘距离（6）Height用于确定某控件的高度（7）Width用于确定某控件的宽度（8）BackColor确定对象的背景颜色（9）ForeColor确定对象的文字颜色（10）BackStyle确定对象的背景色是否透明，设置值为0，1（11）FontName显示文本时使用的字体（12）FontSize显

2、示文本时使用的字体的大小（13）Visible确定对象是否可见（14）WordWrap确定显示的文本是否随边界自动折行1，主要功能在表单上显示图片2，主要属性（1）Picture用于确定显示在控件中的图片文件（.bmp、.jpg、.gif）（2）Stretch用于对图片内容的处理以适应承载控件的大小Stretch0 剪裁Stretch1 等比填充Stretch2 变比填充1，主要功能线条：在表单上显示直线形状：在表单上显示矩形、椭圆或圆2，主要属性（1）CurvatureCurvature取值范围099Curvature=0 矩形Curvature99 圆或椭圆（2）FillColor确定形状

3、指定背景填充方案填充色（3）FillStyle确定形状是否透明（4）SpecialEffect确定形状是否三维，仅当Curvature0时有效（5）BorderWidth线宽为多少象素使用表单的方法程序，在表单上画圆、线、点或显示文本方法程序：Circle 在表单上画一个圆Cls 清除表单上的图形或文本Line 在表单上画线Pset 在表单上画一个点Print 在表单上显示文本表单Click事件代码：THIS.DRAWWIDTH=3THIS.PRINT(“显示圆、点、线”)THIS.CIRCLE(50,100,100)THIS.LINE(0,150,150,150)THIS.PSET(100,

4、100)命令按钮命令按钮Command1，主要功能点击命令按钮，执行Click事件中的特定代码2，主要属性AutoSizeCaptionForecolorFontNameFontSizeEnabledVisible3，命令按钮的事件（1）Click事件当点击命令按钮时发生Click事件命令按钮Click事件代码：ThisForm.Label1.ForeColor=RGB(255,0,0)ThisForm.Label1.FontSize=24（2）GotFocus通过用户操作或执行程序代码使对象接收到焦点时，此事件发生当鼠标点击控件或在事件代码中使用设置焦点方法SetFocus,可发生GotFo

5、cus事件，从而执行事先编好的代码（3） SetFocus通过代码设置某控件得到焦点命令按钮组命令按钮组CommandGroup将多个命令按钮组成一组，通过组来管理命令按钮。1，命令按钮组的常用属性：（1）ButtonCount指定命令按钮组中包含的按钮数（2）Buttons()用于访问按钮组每一个按钮的数组，数组下标从1BuutonCount（3）Value可以指定用户点击了命令按钮组中的哪一个按钮。Value返回值为命令按钮在组中的次序号（1，2，3。）2，命令按钮组的主要事件和方法主要事件：Click通过命令按钮组设置文本字体颜色：通过命令按钮组设置文本字体颜色：Do case case

6、 this.value=1 thisform.label1.forecolor=rgb(255,0,0) case this.value=2 thisform.label1.forecolor=rgb(0,255,0) case this.value=3 thisform.label1.forecolor=rgb(0,0,255)Endcase主要方法：SetAll-同时设置一组对象的某属性值ThisForm.CommandGroup1.SetAll(“Visible”,.F.)例例5.2 ：学生信息浏览：学生信息浏览 PAGE234y=我们通过命令按钮可查阅学生数据新建一个表单新建一个表单在

7、表单的数据环境中添加学生表在表单的数据环境中添加学生表通过拖动方式，将学生表字段拖到表单上通过拖动方式，将学生表字段拖到表单上在表单上添加命令按钮组在表单上添加命令按钮组编写相应事件代码编写相应事件代码表单的表单的Init事件代码：事件代码：this.caption=学生信息查询表单c=首记录 前翻 后翻 末记录 退出 for i=1 to 5 mandgroup1.buttons(i).caption=substr(c,6*(i-1)+1,6)endfor命令按钮组的Click事件代码：do case case this.value=1 go top mand1.enabled=.f. ma

8、nd2.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. cas

9、e this.value=4 go bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. case this.value=5 thisform.releaseendcasethisform.refresh一，文本框一，文本框Text文本框可以显示数据也可以用于输入数据常用属性：常用属性：（1）Value用于引用或更改文本框中的文本（2）ControlSource文本框与变量或字段绑定（3）SelectOnEntry当文本框得到焦点后选择文本，取值：.T.,.F.3(4)InputMark输入

10、掩码 具体见page 237（5）DateFormat确定文本框中日期的显示格式（6）PasswordChar当用文本框来输入密码时，用指定的字符来掩饰真实密码3，文本框的常用事件（1）Valid事件验证文本框中数据的有效性例：输入口令后验证口令是否正确例：输入口令后验证口令是否正确If This.Value!=“Mypassword” =MessageBox(“ 口令错误！”)Else =MessageBox(“ 口令正确！”)Endif二，编辑框二，编辑框Edit Page 240编辑框用于显示或输入多行数据编辑框用于显示或输入多行数据-显示或输入学生简历显示或输入学生简历常用属性：常用属

11、性：（1）ControlSource编辑框与变量或字段绑定编辑框与变量或字段绑定（2）SelLength、SelStart、SelText从编辑框选择其中的文本从编辑框选择其中的文本SelLength 选择文本的长度选择文本的长度SelStart 选择文本的起始位置选择文本的起始位置SelText 选择的内容选择的内容ThisForm.Edit1.SelStart=0ThisForm.Edit1.SelLength=AT(。,ThisForm.Edit1.Text)-1(选择文本框中的第一句文本选择文本框中的第一句文本)三，应用示例三，应用示例设计如下学生数据查询表单：设计如下学生数据查询表单

12、：当在文本框输入一个同学姓名后，自动到学生表中查找是否当在文本框输入一个同学姓名后，自动到学生表中查找是否有该同学，有该同学，有该同学，则显示该同学数据；否则，显示查无此人。有该同学，则显示该同学数据；否则，显示查无此人。设计方法：设计方法：新建一个表单在表单的数据环境中添加学生表将学生表中的字段拖到表单上添加文本框EDIT1到表单设置表单的标题1. 编写文本框EDIT1的Valid事件locate for alltrim(this.value)=alltrim(学生.姓名)if not found() Messagebox(查无此人！)else thisform.refreshendif文本

13、框文本框Text1的的Valid事件：事件：v微调微调Spinner功能功能：用户可通过鼠标上下调节数值主要属性：主要属性：Increment 增量SpinnerHighValue 可调节的最大值SpinnerLowValue 可调节的最小值主要事件：主要事件：UpClick 向上按钮事件DownClick 向下按钮事件例：通过微调来调节日期微调事件微调事件Upclick事件：事件：thisform.text1.value=thisform.text1.value+1Downclick事件：事件：thisform.text1.value=thisform.text1.value-1一，选项组一

14、，选项组Optiongroup1，选项组，选项组Optiongroup主要功能：主要功能：选项按钮组是一个容器，用户可以在多个选项中选择一项2，选项按钮组的常用属性，选项按钮组的常用属性（1）ButtonCount选项按钮数目（2）Buttons( )引用其中的一个按钮（3）Value当选项按钮组选中了其中一个按钮后，Value 属性反映该按钮的次序号（同命令按钮组的Value 属性）每一个选项的文本可由其Caption属性进行设置3，常用事件，常用事件Click事件事件在选项按钮组的Click事件中可通过DO CASE -ENDCASE语句判断选项组的Value属性值，可以知道用户选择了哪一

15、个选项例：通过选项按钮组选择表单的背景颜色例：通过选项按钮组选择表单的背景颜色 图图5.31 page 248设置选项按钮组的设置选项按钮组的Click事件：事件：do case case this.value=1 thisform.backcolor=rgb(255,0,0) case this.value=2 thisform.backcolor=rgb(0,255,0) case this.value=3 thisform.backcolor=rgb(0,0,255) case this.value=4 thisform.backcolor=rgb(255,255,0) case thi

16、s.value=5 thisform.backcolor=rgb(255,255,255) case this.value=6 thisform.backcolor=rgb(0,0,0) endcase 二，列表框与组合框二，列表框与组合框列表框与组合框用于显示多行数据列表框与组合框具有相同的属性、方法和事件，组合框在鼠标点击后下拉列表列表框与组合框常用属性：列表框与组合框常用属性：（1）填充列表框与组合框RowSourceType 选择数据来源类型RowSource 行数据源列表框与组合框的数据来源由此两项决定RowSourceType 选择数据来源类型可有10种选择 见page 250常用

17、：RowSourceType=6（字段） 使用表中的字段RowSource=姓名RowSourceType=0（无） 可使用Additem()方法添加数据：Scan this.additem(姓名)endscan3，常用事件方法，常用事件方法方法：（1） Additem( )方法 将学生的奖学金数据放入列表框：将学生的奖学金数据放入列表框：Use 学生Thisform.list1.rowsourcetype=0Scan for 奖学金0 thisform.list1.additem(str(奖学金,6)Endscan将学生表的字段名放入组合框将学生表的字段名放入组合框:Use 学生Tbo1.r

18、owsourcetype=0For I=1 to fcount( ) bo1.additem(field( )Endfor（2）RemoveItem( )方法将列表框与组合框中一项数据删除格式：控件.RemoveItem(nindex)Nindex数据项在指定控件中的排列位置Thisform.list1.removeitem(this.listindex)Thisform.refresh（3）clear方法清除列表框或组合框中数据Thisform.list1.clear（4）Requery方法从新查询列表框或组合框的数据来源Thisform.list1.requery返回返回三，复选框三，复选

19、框Check1，复选框功能可以使用复选框来指定一个逻辑状态：真、假，是、否；2，复选框常用功能（1）ValueValue属性反映复选框的状态当复选框未选中时，Value=0 或 .F.当复选框选中时，Value=1 或 .T.当复选框ControlSource属性设置为表中逻辑字段时，逻辑值为.T.时，复选框显示为选中；如性别为“男生”逻辑值为.F.时，复选框显示为未选中；如性别为“女生”当复选框的Enabled=.F.时，复选框为灰色四，应用示例四，应用示例例例5.4 学生基本情况调查表单学生基本情况调查表单 page 256设计过程设计过程根据题目要求在表单上放各个控件对齐各控件编写相应的

20、事件代码本题主要事件有：本题主要事件有：表单的Init事件命令按钮的Click事件本例各控件的属性都通过代码进行设置表单的表单的Init事件事件this.caption=学生基本情况调查学生基本情况调查use 学生学生this.label1.caption=选择自己的姓名：选择自己的姓名：this.label2.caption=选择来自何地：选择来自何地：this.label3.caption=选择性别：选择性别：this.label4.caption=兴趣爱好：兴趣爱好：mand1.caption=提交提交this.optiongroup1.option1.caption=女女this.op

21、tiongroup1.option2.caption=男男this.check1.caption=音乐音乐this.check2.caption=球类球类this.check3.caption=看书看书this.check4.caption=旅游旅游this.check5.caption=上网上网this.check6.caption=集邮集邮this.check7.caption=驾驶驾驶this.check8.caption=健身健身bo1.rowsourcetype=bo1.rowsource=学生学生.姓名姓名this.list1.rowsourcetype=0c1=杭州绍兴宁波温州萧

22、山台州金华湖州嘉兴富杭州绍兴宁波温州萧山台州金华湖州嘉兴富阳阳for i=0 to 9 this.list1.additem(substr(c1,4*i+1,4)Endfora=bo1.value+,b=iif(thisform.optiongroup1.value=1,女女,男男)d=来自来自+thisform.list1.value+,c1=iif(thisform.check1.value=1,thisform.check1.caption+ ,)c2=iif(thisform.check2.value=1,thisform.check2.caption+ ,)c3=iif(thisfo

23、rm.check3.value=1,thisform.check3.caption+ ,)c4=iif(thisform.check4.value=1,thisform.check4.caption+ ,)c5=iif(thisform.check5.value=1,thisform.check5.caption+ ,)c6=iif(thisform.check6.value=1,thisform.check6.caption+ ,)c7=iif(thisform.check7.value=1,thisform.check7.caption+ ,)c8=iif(thisform.check8.

24、value=1,thisform.check8.caption+ ,)thisform.text1.value=a+b+d+兴趣爱好有：兴趣爱好有：+c1+c2+c3+c4+c5+c6+c7+c8thisform.refresh命令按钮的命令按钮的Click事件事件v计时器计时器Timer主要功能：主要功能：在指定时间间隔执行操作和检查数据主要属性：主要属性：Interval属性一个计时器事件与下一个计时器事件之间的间隔时间，单位为毫秒。Enabled属性Enabled=.T. 计时器开始计时Enabled=.F. 计时器停止计时类似计时器的开关主要事件：主要事件：Timer事件-当指定计时时

25、间过去后， Timer事件触发。当需要每隔一定时间执行某段代码时，可以使用计时器进行设计。例：在文本框中显示系统时间,偶数秒时表单背景为蓝色，奇数秒时表单背景为绿色：设计：设计：设置计时器的设置计时器的interval=1000 计时器的计时器的Timer事件中加入代码：事件中加入代码：Thisform.text1.value=time()C=val(substr(time(),7,2)If mod(c,2)=0 thisform.backcolor=rgb(0,255,0)Else thisform.backcolor=rgb(0,0,255)Endif1，功能：，功能：表格对象能够在表单或

26、页面中显示并操作行和列中的数据，如一张表的记录数据。表格是一个容器，包含多列。要编辑其中的列，必须切换到表格编辑方式。可采用如下方法进入表格编辑方式：在表格上右击鼠标，再在弹出菜单中选择“编辑”再“控件属性”窗口中，在“对象”框中，选择表格的一个列表格表格Grid2，表格常用属性，表格常用属性 -详见详见page 260ColumnCountColumns()ReadOnlyAllowAddNewDeleteMarkRecordmarkAllowRowSizingRecordSourceReccordSourceType表格数据来源主要由属性：RecordSource，ReccordSourc

27、eType决定。如：RecordSource=“学生”ReccordSourceType=1 （别名）表格应用示例表格应用示例表格显示课程表数据，命令按钮设置各列背景颜色，表格显示课程表数据，命令按钮设置各列背景颜色，自动设置奇数列和偶数列的背景颜色自动设置奇数列和偶数列的背景颜色设计：设计：表格中的各列可用表格中的各列可用grid1.colummns()来引用来引用设置表格数据来源属性 RecordSource，ReccordSourceType编写命令按钮Click事件代码：For i=1 to thisform.grid1.columncount if i%2=0 thisform.gr

28、id1.columns(i).backcolor=rgb(0,255,0) else thisform.grid1.columns(i).backcolor=rgb(100,100,0) endifEndforThisform.refresh页框页框PageFrame1，主要功能，主要功能页框是包含页面的容器对象，页面又可包含其它控件。页框可扩展表单的面积2，页框常用属性，页框常用属性PageCount -页框中的页数Pages() -指定页框中的某个页ActivePage -激活某个页要在页框的页上放置对象，必须首先选中页框中的页选择页框中的某一页的方法：选择页框中的某一页的方法：鼠标右击页

29、框，再在弹出菜单中选鼠标右击页框，再在弹出菜单中选“编辑编辑”，当页框被绿色包围时，当页框被绿色包围时即可选择其中的页。即可选择其中的页。页框常用事件与方法：页框常用事件与方法：Activate，Init，Click,SetAllActivate事件事件功能：当激活表单、表单集或页对象时，将发生Activate事件。例：在两个页中分别显示学生表、成绩表的数据设计方法：设计方法：方法一：将数据环境中的表字段直接拖到页上（应首先选中页）方法一：将数据环境中的表字段直接拖到页上（应首先选中页）方法二：在页中放上各个控件，分别设置其数据来源方法二：在页中放上各个控件，分别设置其数据来源1，主要功能：，

30、主要功能：通过通过ActiveX控件（控件（Olecontrol）可以在表单中嵌入一些）可以在表单中嵌入一些VFP不能直接不能直接生成的内容，如图片、声音、视频、生成的内容，如图片、声音、视频、Excel表格或表格或word文文档等特别内容。档等特别内容。2，主要属性：，主要属性：AutoActivate3，主要事件与方法：，主要事件与方法：InitGotFocusSetFocusLostFocusRefresh1，主要功能：，主要功能：ActiveX绑定控件（绑定控件（Oleboundcontrol）一般与表的通）一般与表的通用字段绑定，用字段绑定，可以使用可以使用ActiveX绑定控件显示

31、通用字段的内容，如表绑定控件显示通用字段的内容，如表中每个人的照片等。中每个人的照片等。2，主要属性：，主要属性：AutoActivateControlSourceEnabledVisibleAutoSize3，常用方法与事件：，常用方法与事件：InitGotFocusSetFocusLostFocusRefreshActiveX绑定控件的使用：绑定控件的使用：创建或打开表单创建或打开表单将将ActiveX绑定控件拖到表单合适位置绑定控件拖到表单合适位置设置设置ActiveX绑定控件的绑定控件的ControlSource属性，属性， 使其与表的通用字段绑定使其与表的通用字段绑定应用示例应用示例

32、 page267例例5.5 设计一个学生信息查询表单设计一个学生信息查询表单设计方法：设计方法：根据表单界面要求，选择页框对象，在各页上放根据表单界面要求，选择页框对象，在各页上放上相应控件上相应控件调整排列各控件的位置调整排列各控件的位置1. 编写相关的事件代码编写相关的事件代码主要事件：主要事件：select 1use 学生学生select 2use 课程课程select 3use 成绩成绩select 学生学生this.caption=学生学籍信息查询学生学籍信息查询c=学生课程成绩学生课程成绩for i=1 to this.pageframe1.pagecount this.pagef

33、rame1.pages(i).caption=substr(c,4*(i-1)+1,4)endforthis.setall(readonly,.t.,textbox)this.pageframe1.page1.check1.readonly=.t.this.pageframe1.page1.edit1.readonly=.t.this.pageframe1.page1.oleboundcontrol1.enabled=.f.Form1 init事件：事件：with this.pageframe1.page1 .list1.rowsourcetype=6 .list1.rowsource=学生学生.姓名姓名 .label1.cap