《Visual FoxPro 项目教程》
授课课题 授课课时 课前准备 项目七 项目实战 共 24 课时，第15，16课时 授课类型 授课日期 实习 教学目标 根据系统功能设计员工信息修改表单 教学重点 设计员工信息修改表单 教学难点 能编写“查询”“修改”“删除”按钮的click事件代码 布置作业 写出“查询”“修改”“删除”按钮的click事件代码 教学后记 《Visual FoxPro 项目教程》
教学过程 任务描述 任务分析 任务实施 主要教学内容及步骤 员工信息修改表单的主要作用是根据员工的编号或姓名修改员工的基本情况信息。 数据环境：yzxx , gwgz , gzdj 员工信息录入表单布局如下图： 教学方法 员工信息录入表单主要包括如下控件，18个标签控件：员工信息修改、员工编程、姓名、性别、出生日期、籍贯、文化程度、健康状况、婚姻状况、身份证号码、家庭电话、手机、电子邮件、进入日期、岗位名称、银行帐号、工资等级、请输入员工编号或姓名。 16个文本框控件： txt员工编号、txt姓名、txt性别、txt出生日期、txt籍贯、txt文化程度、txt健康状况、txt婚姻状况、txt身份证号码、txt家庭电话、txt手机、txt电子邮件地址、txt进入日期、txt岗位名称、txt银行帐号、txt工资等级、text1。 8个命令按钮：它们的Name属性值分别为cmdser、command2、command3、command4、command5、cmdexit、command6、command7。 一、新建表单 二、添加代码 1．“查询”按钮的“click”事件代码如下： if allt(thisform.text1.value)==\ messagebox(\请输入员工编号！\提示\ thisform.text1.setfocus else loca for alltr(员工编号)==allt(thisform.text1.value) or alltr(姓《Visual FoxPro 项目教程》
名)==alltr(thisform.text1.value) if eof() messagebox(\该单位没有这个人！！\提示\ thisform.text1.value=\ thisform.text1.setfocus go bott thisform.refresh else jilu=recno() go jilu thisform.text1.value=\ thisform.text1.setfocus thisform.refresh endif thisform.text1.setfocus endif 2．“修改”按钮的“click”事件代码如下： use .\\data\\yzxx.dbf exclusive if allt(thisform.text1.value)==\ messagebox(\请输入要修改的员工编号！\提示\ thisform.text1.setfocus else loca for alltr(员工编号)==allt(thisform.text1.value) .or. alltr(姓名)==allt(thisform.text1.value) if eof() messagebox(\该单位没有这个员工！！\提示\ thisform.text1.value=\ thisform.text1.setfocus go bott thisform.refresh else jilu=recno() go jilu thisform.text1.value=\ thisform.txt员工编号2.setfocus thisform.refresh endif endif 3．“删除”按钮的“click”事件代码如下：
VFP教师备课教案7-8
