标签、文本框、编辑框、命令按钮的使用教案

《标签、文本框、编辑框、命令按钮的使用教案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、[优质文档]标签、文本框、编辑框、命令按钮的使用(实训课)教案教材:数据库应用基础——VisualFoxPro一、实训目标:(掌握表单设计的一般步骤与方法。12(掌握控件工具栏、属性窗口、代码编辑窗口的使用。3(熟悉标签、文本框、编辑框、命令按钮的常用属性、常用方法和事件4(理解编写的事件代码。二、实训任务:1(制作一个在编辑框中输出1~300之间能被3整除的数。2(制作一个登录界面的表单。三、实训注意事项:用电安全四、教学方法:任务驱动法、演示法五、必备知识:1(控件工具栏的使用、属性窗口的使用、代码窗口的使用2(标签、表单、命令按钮的C

2、aption、Fontsize属性;命令按钮的Default属性;编辑框、文本框的Value属性;文本框的PasswordChar等常用属性;Release、SetfocusInit事件。等方法;Click、3(表单中对象的相对引用和绝对引用。(上述知识要求学生在上机实训前根据任务1和任务2的要求去准备，事先编写事件代码。其中编写事件代码是本节实训课的重点也是难点，需突破的地方。)六、实训任务与步骤1(制作一个如下图所示能在编辑框中输出1~300能被3整除的数。(1)分析:该表单共有1个表单对象、1个编辑框对象、1个标签对象、3个命令按钮对

3、象。各对象的Name属性都采用默认的值，分别是Form1、Edit1、Label1、Command1、Command2、Command3。(2)设计:打开表单设计器，按上述分析，使用控件工具栏中的相应工具创建1个标签对象、1个编辑框对象、3个命令按钮对象。适当调整各对象的大小和位置。(3)在属性窗口中按下表设置各对象的属性。(这里主要是设置Caption和Fontsize属性，以确定表单的初始界面。)对象名称属性名称属性值对象名称属性名称属性值计算输出清除Form1CaptionCommand2Caption1~300能被3整除的数退出La

4、bel1CaptionCommand3Caption确定所有对象Command1CaptionFontsize14(4)打开代码编辑窗口，编写各命令按钮的事件代码?确定按钮(Command1)的Click事件代码Fori=1to300Ifmod(I,3)=0Thisform.edit1.value=thisform.edit1.value+str(I,3)+chr(13)EndifEndfor?清除按钮(Command2)的Click事件代码Thisform.edit1.value=“”Thisform.command1.setfocus?

5、退出按钮(Command3)的Click事件代码Thisform.release(5)保存文件(6)运行表单2(制作一个如下图所示的登录界面的表单(设用户名为“zhang”，密码为“123456”，如果输入的用户名和密码都正确，则显示“口令正确，欢迎使用本系统～”的字样，如果用户名或密码不正确，则弹出一个信息框，显示“口令或密码错误，请仔细核对后重新输入～”的提示信息。并清除原来的内容，让text1成为焦点对象。如果三次输入错误，则显示“对不起，你无权使用本系统～”的字样，并让Text1、Text2、“确定”按钮不可用。)(1)分析:该表单

6、有1个表单对象，四个标签对象，两个文本框，两个命令按钮。各对象的Name属性都使用默认值，分别是Form1、Label1、Label2、Label3、Label4(这是一个隐藏的标签，当输入正确时，显示“欢迎„„”字样，当三次输入错误时，显示“对不起„„”字样)、Text1、Text2、Command1、Command2。(2)设计(略)(3)在设计窗口中按下表设计各对象的属性，以确定登录表单的初始界面。对象名称属性名称属性值对象名称属性名称属性值登录密码Form1CaptionLabel3Caption请输入„„Label1Caption

7、Text2Passwordchar*用户名无Label2CaptionLabel4Caption确定Command1CaptionCommand1Default.t.退出Command2Caption(4)打开代码编辑窗口，编写如下事件代码?Form1的Init事件代码:thisform.text1.setfocuspublicnn=0?“确定”(Command1)的Click事件代码iftrim(thisform.text1.value)="zhang"andtrim(thisform.text2.value)="123456"thisf

8、orm.label4.caption="口令正确,欢迎使用本系统～"elsen=n+1ifn<3thisform.text1.value=""thisform.text2.val