福建工程学院《面向对象程序设计》PPT课件下载推荐.ppt
- 文档编号:7005523
- 上传时间:2023-05-07
- 格式:PPT
- 页数:99
- 大小:970.50KB
福建工程学院《面向对象程序设计》PPT课件下载推荐.ppt
《福建工程学院《面向对象程序设计》PPT课件下载推荐.ppt》由会员分享,可在线阅读,更多相关《福建工程学院《面向对象程序设计》PPT课件下载推荐.ppt(99页珍藏版)》请在冰点文库上搜索。
,8.3.2图像、线条、形状,2线条(Line)
(1)线条控件的作用线条控件用于在表单上创建直线或斜线。
默认创建一条。
(2)线条常用属性线条对象常用属性见下:
【例88】设计一个如图843所示的应用程序封面。
(1)设计界面在表单上创建一个标签控件Label1、一个图像控件Image1、一个形状控件Shape1和两条水平线Line1、Line2。
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值如下表:
3形状(Shape)
(1)形状控件的作用形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和圆角矩形等几何形状。
(2)形状设置形状对象常用属性见下表:
Curvature,(3)编写事件代码1)表单Form1的Init事件“代码”如下:
X=Thisform.Width/2Y=Thisform.Height/3Thisform.Shape1.Left=X-Thisform.Shape1.Width/2&
椭圆横向居中Thisform.Shape1.Top=Y&
椭圆顶端在表单高度的1/3处Thisform.Label1.Left=X-Thisform.Label1.Width/2&
标签横向居中Thisform.Label1.Top=Y+(Thisform.Shape1.Height/2-Thisform.Label1.Height/2)&
标签位于椭圆的垂直居中位置(4)保存表单单击工具栏中的“保存”按钮,在“另存为”对话框中,选择表单保存的位置,输入表单的名称:
L8-8,单击“保存”按钮。
图843应用程序封面,(5)执行表单单击“常用”工具栏中的“运行”按钮,表单运行效果如图843所示。
文本框又称为输入框,用于输入数据,它可接受字符型、数值型、日期型和逻辑型的数据。
使用文本框只能输入一段文本。
也就是说,按回车键即终止输入。
1文本框常用属性文本框常用属性见下页表。
Format属性取值见表818。
InputMark属性取值见表819。
8.3.3文本框(Text),2文本框常用方法SetFocus:
设置文本框控件的焦点。
3文本框常用事件
(1)When:
在获得焦点之前发生。
(2)Valid:
在失去焦点之前发生。
(3)KeyPress:
按住并释放一个键盘键时发生。
(4)InteractivateChange:
文本框的值时发生。
【例89】设计如图844所示的表单,其功能是:
从键盘输入职工的职工号,即显示该职工的姓名和基本工资。
(1)设计界面在表单上创建两个标签Label1和Label2,一个文本框Text1和一个命令按钮Command1。
(2)设置数据环境1)右击表单,在弹出的快捷菜单中选择“数据环境”命令。
2)在弹出的“添加表或视图”对话框中,选择Zgjk.dbf表,单击“添加”按钮,将其添加到“数据环境设计器”窗口中。
(3)创建字段映像用鼠标将“数据环境设计器”窗口中Zgjk.dbf表的“姓名”和“基本工资”字段拖放到表单上,从而在表单上产生两个标签控件(lbl姓名,lbl基本工资)和两个文本框控件(txt姓名,txt基本工资)。
(4)设置对象属性,(5)编写事件代码1)表单Form1的Init事件代码如下:
*故意将记录指针移出界,使“txt姓名”与“txt基本工资”文本框无内容GoBottomSkip,2)命令按钮Command1的Click事件代码如下:
If!
Empty(Thisform.Text1.Value)&
若文本框非空GoTopLocateFor职工号=Alltrim(Thisform.Text1.Value)IfFound()Thisform.Label2.Caption=提示:
记录找到,相关内容显示如下:
ElseThisform.Label2.Caption=提示:
未找到相关记录!
EndifThisform.Refresh&
刷新表单ElseThisform.Label2.Caption=提示:
请在文本框中输入查找内容!
Endif,(6)保存表单以“L8-9.scx”为名称保存表单。
图844查询职工的姓名和专业,(7)执行表单单击“常用”工具栏中的“运行”按钮,表单运行效果如图844所示。
1编辑框的特点
(1)编辑框实际上是一个字处理器,可以输入和编辑字符型数据,常作为备注型字段数据的绑定控件。
(2)编辑框只能输入字符型的数据,且可以输入多段文本。
2编辑框常用属性编辑框常用属性见表821。
3编辑框常用方法和事件编辑框常用方法和事件与文本框相似。
8.3.4编辑框(Edit),【例810】将文本框中选定的内容复制到编辑框中。
具体要求如下:
1)文本框中选定内容后,“复制”命令按钮被激活;
2)按下“复制”命令按钮,实现文本框选定内容复制到剪贴板;
3)按下“粘贴”命令按钮,实现剪贴板内容粘贴到编辑框。
(1)设计界面新建一个表单,在表单上添加2个标签Label1和Label2,1个文本辑框Text1、1个编辑框Edit1和2个命令按钮Command1和Command2。
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值,见表822。
表822对象属性值的设置,(3)编写事件代码1)表单Form1的Init事件的代码如下:
PublicX&
内存变量X用于存放剪贴的内容Thisform.Text1.SetFocus&
文本框获得焦点X=&
内存变量X的初值为空串2)文本框Text1的MouseUp事件的代码如下:
LPARAMETERSnButton,nShift,nXCoord,nYCoord*判断文本框中是否有选定内容,有则激活Command1IfLen(this.SelText)0&
若文本框中有被选定的内容Thisform.Command1.Enabled=.T.&
“复制”命令按钮有效Endif3)命令按钮Command1的Click事件的代码如下:
X=Thisform.Text1.selText&
将选定内容复制到剪贴板This.Enabled=.F.&
“复制”命令按钮失效Thisform.Command2.Enabled=.T.&
“粘贴”命令按钮有效,图845例810运行的结果,4)命令按钮Command2的Click事件的代码如下:
Thisform.Edit1.SelText=X&
将剪贴板内容粘贴到编辑框Thisform.Edit1.SetFocus&
编辑框获得焦点,(4)以“L8-10.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图845所示。
1列表框与组合框的异同点列表框与组合框都是提供选择一个或多个输入项的列表,二者之间又存在如下区别:
(1)列表框显示全部选项列表;
组合框只显示一条选项,单击右端下拉按钮,才显示全部选项列表。
(2)组合框又分为下拉组合框和下拉列表框,前者允许输入数据,后者与列表框一样仅有选取功能。
2列表框与组合框常用属性列表框与组合框的常用属性见表823。
8.3.5列表框与组合框(List&
Combo),3RowSourceType与RowSource属性(见表824),4列表框与组合框常用方法
(1)AddItem:
当组合框或列表框的RowSourceType属性值为0时,可使用此方法在列表中添加一条新选项。
(2)RemoveItem:
当组合框或列表框的RowSourceType属性值为0时,可使用此方法删除列表中一条选项。
【例811】设计如图846所示的表单,用于查询职工的工资信息。
双击列表框中某职工的职工号,该职工的职工号、姓名及工资信息显示于文本框中。
(1)设计界面创建表单,并在表单上添加两个标签Label1、Label2,一个列表框List1和一个命令按钮Command1。
(2)设置数据环境1)鼠标右击表单,在弹出的快捷菜单中选择“数据环境”命令。
2)在弹出的“添加表或视图”对话框中,分别选择Zgjk.dbf表和Gz表,单击“添加”按钮,将其添加到“数据环境设计器”窗口中。
(3)创建字段映像用鼠标将“数据环境设计器”窗口中Zgjk.dbf表的“职工号”、“姓名”和“基本工资”字段拖放到表单上,将Gz.dbf表的“津贴”、“奖金”、“住房公积金”、“工会费”和“实发工资”字段拖放到表单上,从而在表单上产生相应的控件。
(4)设置对象属性,(5)编写事件代码1)列表框List1的InteractiveChange事件代码如下:
ThisForm.Refresh&
刷新表单2)命令按钮Command1的Click事件代码如下:
ThisForm.Release&
释放表单,图846例811运行的结果,(6)保存表单以L8-11.scx为名称保存表单。
(7)执行表单单击“常用”工具栏中的“运行”按钮,表单运行结果如图846所示。
【例812】设计一个表单,用于选拔职工参加演讲比赛。
在组合框中显示职工简况表中所有职工的姓名,单击“添加”按钮,将其添加到列表框中;
单击“删除”按钮,则移去列表框中被选中的职工姓名;
单击“全部清除”按钮,则清除列表框中所有的职工姓名。
(1)设计界面创建表单,并在表单上添加两个标签Label1和Label2,一个组合框Combo1,一个列表框List1,三个命令按钮Command1、Command2和Command3。
(2)设置对象属性,(3)编写事件代码1)命令按钮Command1的Click事件的代码如下:
IfEmpty(Thisform.Combo1.Value)&
若组合框为空,则什么都不做ReturnEndifFori=1toThisform.List1.Listcount&
历遍列表框的所有选项IfThisform.Combo1.Value=Thisform.List1.List(i)&
若组合框中的选项已存在于列表框,则提示Messagebox(已存在该列表项)ReturnEndifEndforThisform.List1.Additem(Thisform.Combo1.Value)&
将组合框内容添加到列表框Thisform.Combo1.Value=&
清空组合框Thisform.Combo1.Setfocus&
组合框获得焦点,2)命令按钮Command2的Click事件的代码如下:
IfThisform.List1.Listindex0&
若列表框有选中项,则删除Thisform.List1.Removeitem(Thisform.List1.Listindex)EndifThisform.List1.Listindex=Thisform.List1.Listcount&
将末项设为选中项3)命令按钮Command3的Click事件的代码如下:
Thisform.List1.Clear&
清空列表框(4)以“L8-12.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图847所示。
图847例L8-12运行的结果,【例813】设计一个表单,用于浏览职工销售业绩。
在组合框中选定职工号,即在列表框中显示该职工的销售业绩信息,包括:
姓名、销售数量、商品编号、商品名称、规格型号和单价。
(1)设计界面创建表单,并在表单上添加三个标签Label1、Label2和Label3,一个组合框Combo1和一个列表框List1。
(2)设置对象属性如右表所示。
(3)编写事件代码组合框Combo1的InteractivateChange事件代码如下:
Thisform.List1.Rowsource=;
SelectZgjk.姓名,Xs.销售数量,Sp.商品编号,Sp.商品名称,Sp.规格型号,Sp.单价;
FromZgjk,Xs,Sp;
WhereSp.商品编号=Xs.商品编号ANDZgjk.职工号=Xs.职工号ANDZgjk.职工号=This.Value;
IntoCursortemptable&
从3个表选择符合条件的记录放入临时表,作为list1的数据源Thisform.Refresh&
刷新表单,(4)以“L8-13.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图855所示。
图855例813运行的结果,命令按钮常用于启动事件,以执行某项操作,如关闭表单、移动记录指针等。
1命令按钮常用属性(见下表),8.3.6命令按钮(Commmand),2命令按钮常用方法
(1)Click
(2)RightClick,命令按钮组是包含若干个命令按钮的容器。
命令按钮组和组内各命令按钮都有各自的属性、方法和事件。
1命令按钮组常用属性(见下表),8.3.7命令按钮组(CommmandGroup),【例814】创建简单加减计算器,如图856所示。
该计算器的功能如下:
1)单击按钮,则清空文本框中的内容;
2)单击正负号、数字和小数点按钮,将在文本框中输入相应的内容;
3)单击按钮,将计算的结果显示于文本框内。
(1)设计界面创建表单,并在表单上添加一个文本框Text1和命令按钮组CommandGroup1。
(2)设置对象属性,2命令按钮组中命令按钮的编辑要编辑命令按钮组中的命令按钮,必须先激活组容器。
激活组容器有如下两种方法:
(1)右击命令按钮组,在弹出的快捷菜单中选择“编辑”命令。
组容器被激活后,呈现绿色斜线边框。
(2)在“属性”窗口中,选定组容器内的对象。
(3)编写事件代码1)表单Form1的Load事件的代码如下:
PublicC,NC=N=02)表单Form1的Destroy事件的代码如下:
ReleaseC,N3)命令按钮Command1Command13的Click事件的代码如下:
C=C+This.Caption&
累加连接按钮的标题的字符串ThisForm.Text1.Value=C4)命令按钮Command15的Click事件的代码如下:
C=&
清空内存变量CThisForm.Text1.Value=“&
清空文本框5)命令按钮Command14的Click事件的代码如下:
N=&
C&
将字符型内存变量C的内容宏替换出来,放入变量NThisForm.Text1.Value=NThisForm.Refresh&
刷新表单,图856简单加减计算器,(4)以“L8-14.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图856所示。
复选框由一个方框和标题说明组成,用于标记一个两值状态:
为真(.T.)状态,为假(.F.)状态。
用户可选择若干个复选框中的一个或多个。
1复选框常用属性(见下表),8.3.8复选框(CheckBox),
(1)设计界面创建表单,并在表单上添加3个标签Label1、Label2和Label3,一个复选框Check1,两个文本框Text、Text2和一个命令按钮Command1。
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值,见表832。
2复选框常用事件
(1)Click:
单击复选框时引发。
(2)InteractivateChange:
复选框值发生改变时引发。
【例815】设计一个表单,用于分别统计男女职工的人数和基本工资总额。
若选中复选框,则统计男职工的人数和基本工资总额;
否则统计女职工的人数和基本工资总额。
操作步骤如下:
(3)编写事件代码命令按钮Command1的Click事件代码如下:
DimensionX
(2)&
定义数组Chx=ThisForm.Check1.Value&
复选框的值为0或1Sex=Iif(chx=0,“女”,“男”)&
若chx=0,则Sex=女;
否则Sex=男SelectCount(*),SUM(基本工资)FromZgjkWhere性别=SexIntoArrayXThisform.Label2.Caption=Sex+职工人数Thisform.Label3.Caption=Sex+职工基本工资总额Thisform.Text1.value=X
(1)Thisform.Text2.value=X
(2)Thisform.Refresh&
刷新表单(4)以“L8-15.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图857所示。
图857例815运行的结果,选项按钮组是包含选项按钮的容器。
其特点是按钮组中只能一个选项按钮被选中。
1选项按钮组常用属性选项按钮组常用属性见下表:
8.3.9选项按钮组(OptionGroup),2选项按钮组常用事件
(1)Click:
单击选项按钮时引发。
选项按钮组发生改变时引发。
【例816】设计表单实现按部门统计职工的人数。
操作步骤如下:
(1)设计界面创建一个表单,并在表单上添加一个选项组、一个文本框和两个标签,如图858所示。
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值见下表。
(3)编写事件代码选项按钮组OptionGroup1的Click事件代码如下:
SelectCount(*)FromZgjk;
Where部门=This.ValueIntoArrayX&
统计部门人数,并将结果放入内存变量xThisform.Text1.Value=X
(1)&
将数组的值写入文本框Thisform.Label1.Caption=This.Value+部门共有&
Value的值为家电、服装或文具,图858例816运行的结果,(4)以“L8-16.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图858所示。
计时器控件(Timer)像一个闹钟,它以一定的时间间隔重复执行某种操作。
当达到规定的时间间隔时,系统自动触发Timer事件。
在表单设计的过程中,计时器控件可见;
表单运行时,计时器控件自动隐藏。
1计时器常用属性(见下表)2计时器常用事件Timer:
达到Interval设置计时间隔即触发。
8.3.10计时器(Timer),
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值见下表。
分析:
使用计时器控件Timer,将该控件的Interval属性设置为500,即每0.5秒触发一次计时器控件的Timer事件(显示一次系统时间);
将计时器控件的Interval属性设置为0将停止触发Timer事件。
(1)设计界面创建一个表单,并在表单上添加两个标签Label1,Label2;
三命令按钮Command1,Command2,Command3和一个计时器控件Timer1。
【例817】设计一个如图859所示的表单,具体要求如下:
1)表单名为Timer,表单标题为“时钟”,表单运行时自动显示系统的当前时间;
2)要求显示时间的标签控件Label1在表单中居中,标签文本对齐方式为居中;
3)单击“暂停”命令按钮(Command1)时,时钟停止;
4)单击“继续”命令按钮(Command2)时,时钟继续显示系统的当前时间;
5)单击“退出”命令按钮(Command3)时,关闭表单。
(3)编写事件代码1)双击“暂停”按钮,打开代码编辑窗口,输入Click事件代码如下:
Thisform.Timer1.Interval=02)双击“继续”按钮,打开代码编辑窗口,输入Click事件代码如下:
Thisform.Timer1.Interval=5003)双击“退出”按钮,打开代码编辑窗口,输入Click事件代码如下:
Thisform.Release4)双击计时器控件timer1,打开代码编辑窗口,输入timer事件代码如下:
Thisform.Label2.Caption=Time(),图860例817运行的结果,(4)以“L8-17.SCX”为文件名保存表单。
(5)单击“常用”工具栏中的“运行”按钮,表单运行结果如图860所示。
1容器的特性容器可包含表单和表单集之外多个不同类型的对象。
要向容器中添加对象,必须先激活容器。
具体操作方法是:
右击容器,在弹出的快捷菜单中选择“编辑”命令,使容器处于编辑状态,此时添加的对象才会到容器中。
如果没有激活容器而添加对象,实际上对象是添加到表单上而不是容器中。
推而广之,容器类的对象,若要编辑其中的对象,都先激活它们,使其进入编辑状态。
2容器常用属性容器对象常用属性见下表:
8.3.11容器(Container),【例818】建立如图861所示的表单,用于调查职工的情况。
单击“统计”按钮,将该职工的情况显示于编辑框中。
(1)设计界面创建一个表单,并在表单上添加如图861所示的控件。
其中“爱好”的3个复选框(“体育”、“音乐”和“美术”)是置于容器Container1中。
(2)设置对象属性在“属性”窗口中,分别设置各对象的属性值,见表838。
2)命令按钮Command1的Click事件代码如下:
str1=姓名:
+Alltrim(Thisform.Text1.value)&
累加连接姓名字符串str1=str1+,性别:
+Alltrim(Thisform.OptionGroup1.Value)&
累加连接性别字符串str1=str1+,年龄:
+Str(Thisform.Spinner1.value,3)&
累加连接年龄字符串WithThisform.Container1&
可用WithEndwith语句设置多
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 面向对象程序设计 福建 工程学院 面向 对象 程序设计
![提示](https://static.bingdoc.com/images/bang_tan.gif)