1体化教案,供参考.doc

表单及面向对象的程序设计 表单控件编程补充---多分支语句的使用 【组织教学】 点名，记录考勤，检查学生仪容仪表。 组织学生检查机器，填写交接班记录表。 【导入新课】 1.之前我们设计的表单都只是为一种情况设计的。但现实中，往往要处理多种情况的问题，那该如何做呢？ 比如加工资： 男职工加100，女职工加200 比如奖操行分：成绩在90分以上的，加2分；成绩在80分以上，加1分；等 如何解决这个问题？ 引出教学目标。 2.教学目标：多分支语句 【讲授新课】 一、理论讲解 如果表单中有多种情况出现，怎样控制呢？这时我们可以用如下的语句 Do case Case 条件1 语句1 Case 条件2 语句2 ……. Case 条件n 语句n Otherwise 语句n+1 Endcase 以上的语句称为多分支语句。 二、实例示范 例一：假设密码是”ABC”,输入对,就显示:欢迎你! 输入错,就显示:错了! 进入系统 按钮代码： 第一种方法： Do case 分为很多种情况 Case thisform.text1.value=”ABC” Messagebox(“欢迎你!”) Case thisform.text1.value”ABC” Messagebox(“错了!”) endcase 另一种方法: Do case Case thisform.text1.value=ABC messagebox(欢迎进入系统) otherwise 其他情况 messagebox(密码不对，请重新输入) endcase 例二：设计如下的表单，有三种情况：一样大，A大，B大 出结果：该怎么写呢？ Do case Case thisform.text1.valuethisform.text2.value Messagebox(“A赢”) Case thisform.text1.valuethisform.text2.value Messagebox(“B赢”) Otherwise Messagebox(“平手,再来一次”) endcase 清零: Thisform.text1.value=0 Thisform.text2.value=0 三、学生实习 做一个抽奖机，如果在text1中输入0,则显示奖品为“手机一部”，输入3，则奖品为“学习机一部”，输入4，则奖品为“彩电一台”，输入5，则为“10000元”。其他情况则显示：”谢谢参与！” 注意: text1的类型一拉出来是文本型的，如果要将它变为数值型，就要在属性value,输入0 要求：用户输入选项1或2，输入1，则显示羊图像，输入2，则显示狼图像。按重选，则text1变回0，并两???图都消失。 注意: 图是: image,在属性picture 里调入图,改变大小在属性stretch中改为变比显示 图显示的代码为：thisform.image1.visible=.t. (看不见则为.f.) 做如下的界面，假设用户名是：何小明，密码是：”ABC”。要求： 1.按检验用户名，如果是何小明，则弹出提示“欢迎使用，请输入密码”，然后text2变成白色，允许输入密码。如果不是何小明，则弹出提示：“密码错，请重新输入”。 附加：text (文本框)变成灰色，要改readonly属性，改为.t.,变为白色就是.f. 2.按“进入系统”按钮，如果用户名和密码都对了就弹出：“成功登录本系统”；如果用户各和密码不对，就弹出“请先输入正确的用户名和密码”。 四、教师巡回指导 五、考核实习情况并记录 【课堂总结】 小结多分支语句结构 讲解实习题目 【整理清洁】 关闭设备 整理桌椅 清理场地