2015.5.11 星期一

教学内容：组合框、列表框的使用

教学目的：掌握组合框、列表框的常用属性及运用

教学重点：rowsourcetype、rowsource

教学难点：控件之间的数据传递及控制逻辑

教学时间：5课时

教学过程：

一、复习及导入

上周，我们学习了常用控件文本框、标签、命令按钮的使用，并通过“算一算”、“改一改"两个例子，明白了控件、对象、属性、事件、方法和行为的含义，并通过编写简单的程序，明白了程序的对象之间的控制逻辑。

本周的任务就是学习组合框、列表框的使用

二、新授

1.内容介绍：可以通过文本框Value发生接受数据，然后处理数据，再通过标签的Caption属性输出数据，通过命令按钮的Click事件，触发对象之间的数据传递、处理、输出过程

2.问题分析：文本框虽然用处很多，但更多的时候，是让使用者选择某些数据，再做下一步的打算。比如，可以选择班级，出现不同班级的成员，再通过成员选择，筛选出同学的成绩，或者其他信息。

3.选择器（组合框、列表框）

1）组合框、列表框的常用属性

rowsource：指定组合框、列表框中的数据来源

rowsourcetype：指定组合框、列表框中数据来源的类型

displaycount：指定显示在组合框、列表框中的列数

value：返回组合框、列表框的选择条目的值

2）常用事件

click：单击事件

DblClick：双击事件

InteractiveChange：改变条目事件

三、相关资料

1.下载示例：V68_5.scx、V68_5.sct、xs2015.dbf

2.分析代码：

   记录号  OBJNAME                                            PROPERTIES                                         METHODS                                          
        1                                                                                                       
        2  Dataenvironment                                    Left = 1                                          
                                                              Top = 220                                         
                                                              Width = 520                                       
                                                              Height = 200                                      
                                                              Name = "Dataenvironment"                          
        3  Form1                                              Top = 0                                            PROCEDURE Init
                                                              Left = 0                                           this.combo1.RowSourceType=3
                                                              Height = 368                                       this.combo1.RowSource="sele dist bj from xs2015
                                                              Width = 563                                        into cursor abc"
                                                              DoCreate = .T.                                     thisform.list1.BoundColumn=1
                                                              ShowTips = .T.                                     ENDPROC
                                                              Caption = "Form1"                                 
                                                              Name = "Form1"                                    
        4  Combo1                                             Height = 24                                        PROCEDURE Init
                                                              Left = 96                                          this.DisplayValue="选择班级"
                                                              Style = 0                                         
                                                              Top = 36                                           ENDPROC
                                                              Width = 132                                        PROCEDURE InteractiveChange
                                                              Name = "Combo1"                                    thisform.list1.RowSourceType=3
                                                                                                                 thisform.list1.ColumnCount=2
                                                                                                                 thisform.list1.ColumnWidths="30,50"
                                                                                                                 thisform.list1.RowSource="sele xm,bj from xs2015
                                                                                                                 into cursor abc2 where bj= '"+this.value+"'"
                                                                                                                 thisform.list1.Refresh
                                                                                                                
                                                                                                                 ENDPROC
        5  List1                                              Height = 157                                       PROCEDURE DblClick
                                                              Left = 96                                          thisform.Caption=this.Value+this.ListItem(this.Lis
                                                              Top = 72                                           tIndex,2)
                                                              Width = 133                                        thisform.list2.AddItem(this.Value)
                                                              Name = "List1"                                    
                                                                                                                 ENDPROC
        6  List2                                              Height = 157                                       PROCEDURE DblClick
                                                              Left = 276                                         this.RemoveListItem(this.ListItemId)
                                                              Top = 72                                           ENDPROC
                                                              Width = 181                                       
                                                              Name = "List2"                                    
        7                                                     宋体, 0, 9, 6, 14, 10, 12, 2, 2                   
 

3.代码

第一列：对象

第二列：对象属性

第三列：事件及行为代码

四、练习

按上边的要求及示例运行效果，编写v68_52.scx完成相关操作

五、作业

填写工作页，按操作步骤实习、实训

将关键代码写在作业本上（并将相关的语句写好注释）

1.组合框的InteractiveChange事件

2.列表框1的dbclick事件

3.列表框2的dbclick事件

4.表单的Init事件

2015.5.6 星期三

教学内容：表单控件设计（二）

教学目的：掌握表单设计中控件的应用

教学重点：对象、属性、事件、行为的逻辑关联

教学难点：事件中的行为判断

教学准备：【课件下载】

教学过程：

一、复习、导入

上几节课，我们学习了“算一算”这个实例，从原来的结构化程序设计中的问题，转化到了面向对象的程序设计，内容和要求没有变化，但实现起来，界面比较容易实现，但不明白，这些“对象”之间的联系，程序代码放在什么位置，这些正是OOP程序设计的内容所在，所以才给大家说明应该从”什么样的什么，在什么时候发生什么“的四个什么问题，我们先回忆算一算中的问题：

１.表单对象中有哪些对象

２.这些对象都属于哪一类

３.对象与控件之间的关系

４.程序代码如何控制各个对象

５.程序代码放在哪了

二、新授

１.回顾的总结：

表单（Form）、文本框（Text）、标签（Label）、按钮（Command）

明白控件与对象的关系，对象是控件实例化的过程

２.本节着重讲解”属性“、”事件“两个概念，并通过事件中的代码，控件”对象“本身的”属性“发生变化

３.题目需求：

在表单中创建一个按钮对象（Command1），按钮对象上的文字为”确定“，运行时，单击按钮对象时，根据按钮上的文字不同，而改变按钮对象上的文字。要求为，如果是确定，则改为取消，如果为取消，则改为确定！

４.题目分析：

需要创建一个表单，创建一个对象，对象的文字初始化为”确定“

单击对象时发生文字改变，确定对象，确立”单击“事件，即”Click“

文字改变，即改变对象的文字标题，即Caption

５.设计流程

创建一个空表单

打开控件箱

选择命令按钮控件，拖入表单，生成对象Command1，命令按钮对象上的文字为Command1

更改文字，右单击命令按钮，选择属性，打开属性对话框，找到Caption，在其右边的文本框中，输入”确定",然后选择√确定

双击命令按钮，打开该对象的程序代码编辑器（可更改对象，和事件），默认为Click事件

将如下代码写入代码窗口

if this.caption="确定“

  this.caption=“取消"

else

 this.caption="确定”

endif

保存V68_4.scx

运行！或者Ctrl+E

 三、总结

1.控件（Ctrlbox），某一类对象的基本综合属性、事件、方法的综合体，叫做类（Class）

2.对象（Object），由控件的实例化过程创建，对象可以改变自己的属性（Property）值，让同一类的对象但“长相”不同

3.事件（Event），一类的对象，拥有相同的事件集，不同类的对象拥有不同的事件集，不同类的对象也可能拥有相关的事件

4.行为，对象拥有自己的固有的行为，叫方法（Method），可以在代码中调用（比如释放表单thisfrom.release）

并可以在对象的事件里写入自己的代码，让对象有不同的反应

四、练习

把新授中的“确定取消”按微课视频课件操作，形式V68_4.scx表单文件

五、作业

按要求书写工作页

课堂笔记：

表单设计—算一算

知识点：程序中用到的messagebox函数，由三个部分组成，messagebox(所提示内容，按钮和图标，标题栏位置内容)组成。

触发命令按钮（command1）的单击（click）事件

if empty (thisform.text1.value)or  empty (thisform.text2.value) or empty (thisform.text3.value)
=messagebox("不能为空,请填写数据",1+16,"友情提示")
return
endif

编写了一段，只要任意一空为空时，将显示提示信息“不能为空,请填写数据”

a=thisform.text1.value（将输入文本text1中的值赋值给A）
b=thisform.text2.value（将输入文本text2中的值赋值给B）
c=thisform.text3.value（将输入文本text3中的值赋值给c）

 
 
if val(a)+val(b)=val(c)
=messagebox ("算对了" ，0+64，"提示")”提示“在对话框标题栏位置，0+64指的是对话框按钮的个数以及显示图标（详知请见下图）
else
=messagebox("算错了"+chr(10)+"应该是"+alltrim(str(val(a)+val(b)))，16+0，"提示")chr(10)是换行，alltrim（）是去掉空格
endif

messagebox( ) 函数

2015.4.15 星期三

教学内容：月考内容解析及复习总结

教学目的：掌握新近讲授的相关知识点

教学时间：四课时

教学过程：

一、月考试题：

三、写命令题（每小题4分，共2题，计8分）

按要求写出相应的SQL命令

1）按以下字段要求建立数据表ts.dbf的结构如下

   字段   字段名          类型              宽度    小数位     

      1   书名            字符型              45               

      2   单价            数值型               8               

3   版别            字符型               20               

      4   套数            数值型               5               

2）增加一条记录

VFP6.0数据库应用技术            28            电子工业出版社会  30

四、分析下列程序，写出运行结果（每小题4分，共1题，计4分）

*main.prg

Set talk off

Store 5 to x,a,b

? x,a,b

Do sub1 with a,b

? x,a,b

Do sub1 with (a),b

?x,a,b

Return

*sub1

Para a,b

X=x+a

A=a+b

?x,a,b

Return

五、按题目要求补足程序设计（每空3分，共5空，计15分）

题目要求：九宫格

clea

dime A(3,3)

h=1

L=     1        

for  I=1 to  9

a(h,L)=i

if          2         

   h=h+1

else

   h=h-1

  L=L+1

   if h<1

       h=3

  endif

  if L>3

           3        

  endif

endif

endfor

for i =1 to 3

    for j=1 to 3

                  4          

    endfor

    ?

          5           

return

二、答案

2014-2015学年第二学期微机68班

月考考试VFP60试题答案（满分80）

一、填空题（共4空，每空2分，计8分）

二、选择题（共15题，每题3分，计45分）

三、写命令题（每小题4分，共2题，计8分）

1.      Create table ts (书名c(45),单价n(8),版别c(20),套数n(5))

2.      Insert into ts (书名，单价，版别，套数) value （”VFP6.0数据库应用技术”,28,”电工电子出版社会”,30）

四、分析程序（每小题4分，共1题，计4分）

五、程序填空（每空3分，共5空，计15分）

三、成绩

成绩已经上传至了VFPQQ群，请大家到文件共享下载查看！

四、重点

五、作业