表单示例讲解.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,表单集,制作一个有三个表单的表单集（它们属于一个scx）,第一个form1上有一个按钮（caption属性为hello），第二个和第三个form上各有,一按钮为command1,现在按下第一个表单上的按钮，将第二个和第三个form上的按,钮的caption属性分别改为:hello2和hello3,1,制作方法,1),新建表单,2),选择表单菜单中的“创建表单集”,3),选择表单菜单中的“添加新表单”，添加两个新表单,4),分别在三个表单上放置命令按钮一个,5),将第一个表单,(form1),的,command1,的,caption,属性改为,hello,6),编辑,form1,上的,command1,的,click,事件代码如下：,mand1.caption=hello2,mand1.caption=hello3,注意：,thisformset,就是表单集（相对引用）,2,通讯费用计算,设计一个简单的通讯费用计算器。通讯开始时时间显示在“通讯开始时间,”,文本框中，当鼠标焦点移到“通讯时间”文本框时，显示当前时间，同时显示通讯时长（以分钟为单位表示）以及通讯费用（每分钟,0.30,元）,3,制作要领,1,、分别放置,4,个,label,和四个,text,，修改,label1-label4,的caption,。,2,、修改,text1,的,gotfocus,事件。代码如下：,thisform.text1.value=time(),3,、修改,text2,的,gotfocus,事件。代码如下：,thisform.text2.value=time(),thisform.text3.value=(val(substr(thisform.text2.value,1,2)-val(substr(thisform.text1.value,1,2)*60+(val(substr(thisform.text2.value,4,2)-val(substr(thisform.text1.value,4,2)+(val(substr(thisform.text2.value,7,2)-val(substr(thisform.text1.value,7,2)/60,thisform.text4.value=,+str(thisform.text3.value*0.3,5,2)+,元,说明,:,第二句计算是将现在时间减去刚才时间,具体是 时间差,=(,现在小时,-,刚才小时,)*60+,现在分钟,-,刚才分钟,+(,现在秒种,-,刚才秒钟,)/60,4,、运行：记时开始，,text1,中出现当前时间。鼠标点,text2,后，出现现在的时间,然后在,text3,中自动显示出时间差，最后算出结果（每分钟,0.30,元）,4,表格（涉及到一个表）,制作一个带有表格的表单。表单上有一个包含学生信息的表格,5,制作要领,使用表格的时候注意可直接使用生成器,!(,选中表格，点鼠标右键弹出菜单,-,生成器,),1,、新建表单，设置数据环境，添加表 学生,.dbf,2,、从数据环境中拖整个表到表单上，形成一表格,3,、选中表格，点鼠标右键弹出一菜单，选中生成器可以修改表格的列,4,、选中表格，点鼠标右键弹出一菜单，选中编辑后可以调整列宽和行高,5,、如果想让整个表格数据是只读的，可以设置表格的,readonly,属性为,.t.,6,表格（涉及到多个表）,制作一个带有多个表格的表单。表单上有两个表格左边的表格包含有部分学生的信息，右边的表中包含有部分选课的信息,7,制作要领,使用表格的时候注意使用生成器,1,、新建表单，设置数据环境，添加表 学生,.dbf,再添加表 选课,.dbf,2,、将学生表中的学号字段选中，按着鼠标左键不放拖向选课表的 学号字段。,3,、系统将提示你没有建立索引，要建立该关联必须先建立索引，是否建立？选“确定”，然后你将看见象数据库建立永久关系后的结果一样出现了一根练线,4,、从数据环境中拖 学生,.dbf,整个表到表单上，形成一表格,选中表格，点鼠标右键弹出一菜单，选中生成器可以修改表格的列：只保留学号和姓名字段,5,、从数据环境中拖 选课,.dbf,整个表到表单上，形成一表格,选中表格，点鼠标右键弹出一菜单，选中生成器可以修改表格的列：只保留课程号和成绩字段,6,、如果想让所有数据是只读的，可以设置表格的,readonly,属性为,.t.,8,简单查询,设计一个能实现简单查询功能的表单，输入学生的姓名后，点“查询”按钮，即可查询出学生的信息,9,制作要领,1,、设置数据环境,添加表 学生,.dbf,2,、拖放列控件到表单上,学号、姓名、性别、出生日期、入校总分、三好生,3,、放置一标签修改,caption,属性为 输入姓名,4,、放置一文本框,text1,放置一按钮,修改,caption,属性为查询，编辑其,click,事件：,locate for,学生,.,姓名,=alltrim(thisform.text1.value),thisform.refresh,5,、运行，输入姓名，然后按查询按钮，结果就出来了,如果题目要求你加大标题、给列控件加,readonly,属性，,修改表单的,caption,属性等，再在此基础上修改属性或,者添加控件和事件代码就行了。,10,列表框举例,制作一个带有列表框的表单。在学号文本框中显示当前记录指针所指学生记录中学号字段的值，点“添加”按钮，此学号便被添加到列表框中。点“下一条”按钮，显示下一个学生的学号，点“上一条”则显示上一个学生的学号。在列表框中选中某一学号之后，点“删除”按钮，则会将该选中的学号从列表框中移出,11,制作要领,首先设置数据环境，添加表学生,.dbf,1,、修改,text1,文本框的,controlsource,属性为：学生,.,学号（学生就是学生,.dbf,的别名）,2,、,上一条,和,下一条,按钮大家看看就行了（,click,事件）。主要是对文本框操作,3,、,添加,按钮作用：将文本框,text1,中的数据添加到列表框中,click,事件代码中重点掌握：,thisform.list1.additem(thisform.text1.value),4,、,去除,是将选中的列表框中的内容删除掉。,(,了解,),click,事件主要了解一下这句话：,thisform.list1.removeitem(thisform.list1.listindex),listindex,是指选中的数据的编号,5,、文本框,text2,的值对应的是,list1,的,interactiveCharge,事件代码,list1,的,interactiveCharge,事件代码为：,thisform.text2.value=,this.value,this.refresh,12,组合框举例,制作一个带有组合框的表单。表单上包含有一个下拉组合框，学生表中所有学生的姓名均在此组合框之中。当选中某一具体的学生姓名时，将该学生的所有信息显示出来,13,制作要领,首先设置数据环境，添加表学生,.dbf,1,、添加列表框和组合框,2,、修改组合框的,RowSourceType,为,6-,字段,RowSource,属性为：学生,.,姓名,3,、编写组合框的,interactivechange,事件,locate for,学生,.,学号,=,this.value,thisform.refresh,因为学生表中第一个字段就是学号，所以执行后组合框中的结果就是全部的 学号,14,时间控件举例,制作一个带有时间空间的表单。在表单上循环移动显示“,Visual,Foxpro,”,文字,15,制作要领,1,、添加一,label1(,标签,),：,caption,修改为：,Visual,Foxpro,2,、添加一时间控件,属性修改：,Enabled,改为,.t.,时间间隔,Interval 10(,单位：毫秒,),Timer,事件代码,:,if thisform.label1.left1,thisform.label1.left=thisform.width-120,else,thisform.label1.left=thisform.label1.left-1,endif,16,微调按钮控件举例,制作一个带有微调按钮控件的表单，通过上下微调按钮，调整文本框中显示的数值。微调以,2,为单位,17,制作要领,1,、放置一文本框和一微调按钮,2,、微调按钮,spinner1,的属性修改：,调整量,Increment:2.00,最大值,SpinnerHighValue,:100.00,最小值,SpinnerLowValue,:0.00,3,、微调按钮,spinner1,的,Interavtivechange,事件代码；,thisform.text1.value=,this.value,this.value,就是,spinner1,的值,18,页框控件举例,制作一个带有页框空间的表单，三个选项卡分别包含有学生表，教师表，课程表,19,制作要领,1,、首先设置数据环境，添加表学生,.dbf,教师,.dbf,和 课程,.dbf,2,、在表单中放置一,Label1,，属性,caption,修改为 页框示例，修改颜色为蓝色,3,、放置一页框，修改属性,Pagecount,为,3,4,、调整页框大小后，鼠标右键点页框，选择编辑,分别点,page1,、,page2,、,page3,，修改它们的,caption,属性分别为：学生表 教师表 课程表,5,、打开数据环境分别讲三张表拖放到三个页中。,6,、调整各表的大小、位置、列等,20,