导   入(5分钟)

自我介绍

谈话法培养师生感情。

融洽情感，活跃气氛。

展示任务样张，要求全手动制作（不要利用向导和快速表单方法）并应用消息框提示。

发放学案

介绍、了解复习任务

面向目标复习

学生分组

随机分配，组建学习小组，宣布活动规则：

组名：诺依曼、比尔盖茨、王永民，简介名人。

规则：必答题：答对得20分；抢答题：答对得20分，答错扣10分。

构建活动基础，德育渗透。

创建对象（12分钟）

一、创建表单与控件（cjcx.scx）

1.创建表单及控件，并布局控件

2.设置控件标题

3.修改控件名

1.操作活动：

1）诺依曼：创建表单与控件，并布局(保存默认文件夹：cjcx.scx)

2）比尔盖茨：设置控件标题

3）王永民：设置必要的控件名

2.预设问题：

1）快速重复添加控件的方法（锁定、复制）

2）属性captain与name有何不同？

3）操作演示规范取名

巩固基本技能

辨析类似属性

规范基本操作

编码代码（20分钟）

二、编写代码

1.FORM.init

Use kscj

Thisform.TEXkh.vlaue=考号

Thisform.TEXxm.vlaue=姓名

Thisform.TEXcj.vlaue=成绩

2. 指针定位方法

Locate for <条件>

Continue

3. 定位查询编码（CMDcx.click）

Locate for 考号=thisform.TEXcx.value

if not eof()

Thisform.TEXkh.vlaue=考号

Thisform.TEXxm.vlaue=姓名

Thisform.TEXcj.vlaue=成绩

endif

6.代码优化处理

1）FORM.refresh

Thisform.TEXkh.vlaue=考号

Thisform.TEXxm.vlaue=姓名

Thisform.TEXcj.vlaue=成绩

2）使用thisform.refresh替换

3)使用标准消息框

方法一：

else

wait’查无此人！’   Windows; timeout 2

方法二：

else

messagebox(’查无此人！’, 48,’提示’）

4）文本框去空格

Alltrim（）

1.引导分析：表单外观与程序代码关系和对象事件代码的编写、调试顺序

2.师生共同编写程序活动（学生回答教师输入）：

1）诺依曼：编写FORM.init

演示效果

预设问题：需要给文本框赋值（表单向导和快速表单内部隐含程序）

2）比尔盖茨：指针定位的方法

3）王永民：编写CMDcx.click

演示效果

预设问题：移动指针后需要重新给文本框赋值（表单向导和快速表单内部隐含刷新程序）

4）诺依曼：如何利用刷新优化代码？

说明刷新对象的选择原则

5）比尔盖茨：修改代码

this.refresh和thisform.refresh区别？

6）王永民：增加消息框提示用户

提示使用标准消息框：

Messagebox（’t1’,48,’t2’）

（学生课后自主学习）

7）消除空格函数有哪些？

3.填写学案相关内容

会按功能顺序编写代码

复习指针定位方法

复习定位查询代码编写

学习使用刷新方法

强调对象指代用法

学习使用消息框

复习去空格函数

完善功能（5分钟）

三、完善界面

1.退出表单时关闭数据表

2.设置标题栏

3.设置控制图标

4.表单居中

1.提问：怎样实现退出表单时关闭数据表？

2.提问：这样设置表单标题栏文本？

3.提问：怎样更改控制图标？

4.怎样设置表单居中？

（要求课后探究学习）

恢复原态

规范窗体

个性设计

软件常规

总结（3分钟）

1.表单搭建（快速）

2.代码编写（简单）

3.界面完善（基本）

4.小组成绩评价

共同总结、评价

收集反馈信息

梳理知识技能

强调重点难点

反思教学过程

布置作业

按照课堂上制作的成绩查询表单，写出所有事件代码。

书面练习

巩固知识