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

优质文档标签、文本框、编辑框、命令按钮的使用(实训课)教案教材:数据库应用基础Visual FoxPro 一、实训目标: ( 掌握表单设计的一般步骤与方法。 12( 掌握控件工具栏、属性窗口、代码编辑窗口的使用。 3( 熟悉标签、文本框、编辑框、命令按钮的常用属性、常用方法和事件4( 理解编写的事件代码。 二、实训任务: 1( 制作一个在编辑框中输出1300之间能被3整除的数。 2( 制作一个登录界面的表单。 三、实训注意事项:用电安全 四、教学方法:任务驱动法、演示法 五、必备知识: 1( 控件工具栏的使用、属性窗口的使用、代码窗口的使用 2( 标签、表单、命令按钮的Caption、Fontsize属性;命令按钮的Default属性;编辑框、文本框的Value属性;文本框的PasswordChar等常用属性;Release、SetfocusInit事件。 等方法;Click、3( 表单中对象的相对引用和绝对引用。(上述知识要求学生在上机实训前根据任务1和任务2的要求去准备，事先编写事件代码。其中编写事件代码是本节实训课的重点也是难点，需突破的地方。) 六、实训任务与步骤 1( 制作一个如下图所示能在编辑框中输出1300能被3整除的数。(1)分析:该表单共有1个表单对象、1个编辑框对象、1个标签对象、3个命令按钮对象。各对象的Name属性都采用默认的值，分别是Form1、Edit1、Label1、Command1、Command2、Command3。 (2)设计:打开表单设计器，按上述分析，使用控件工具栏中的相应工具创建1个标签对象、1个编辑框对象、3个命令按钮对象。适当调整各对象的大小和位置。(3)在属性窗口中按下表设置各对象的属性。(这里主要是设置Caption和Fontsize属性，以确定表单的初始界面。) 对象名称 属性名称 属性值 对象名称 属性名称 属性值 计算输出 清除 Form1 Caption Command2 Caption 1300能被3整除的数 退出 Label1 Caption Command3 Caption 确定 所有对象 Command1 Caption Fontsize 14 (4)打开代码编辑窗口，编写各命令按钮的事件代码 ?确定按钮(Command1)的Click事件代码 For i=1 to 300 If mod(I,3)=0 Thisform.edit1.value=thisform.edit1.value+str(I,3)+chr(13) Endif Endfor ?清除按钮(Command2)的Click事件代码 Thisform.edit1.value=“” Tmand1.setfocus ?退出按钮(Command3)的Click事件代码 Thisform.release (5)保存文件 (6)运行表单 2(制作一个如下图所示的登录界面的表单(设用户名为“zhang”，密码为“123456”，如果输入的用户名和密码都正确，则显示“口令正确，欢迎使用本系统”的字样，如果用户名或密码不正确，则弹出一个信息框，显示“口令或密码错误，请仔细核对后重新输入”的提示信息。并清除原来的内容，让text1成为焦点对象。如果三次输入错误，则显示“对不起，你无权使用本系统”的字样，并让Text1、Text2、“确定”按钮不可用。)(1)分析:该表单有1个表单对象，四个标签对象，两个文本框，两个命令按钮。各对象的Name属性都使用默认值，分别是Form1、Label1、Label2、Label3、Label4(这是一个隐藏的标签，当输入正确时，显示“欢迎”字样，当三次输入错误时，显示“对不起”字样)、Text1、Text2、Command1、Command2。 (2)设计(略) (3)在设计窗口中按下表设计各对象的属性，以确定登录表单的初始界面。对象名称 属性名称 属性值 对象名称 属性名称 属性值 登录 密码 Form1 Caption Label3 Caption 请输入 Label1 Caption Text2 Passwordchar * 用户名 无 Label2 Caption Label4 Caption 确定 Command1 Caption Command1 Default .t. 退出 Command2 Caption (4)打开代码编辑窗口，编写如下事件代码 ?Form1的Init事件代码: thisform.text1.setfocus public n n=0 ?“确定”(Command1)的Click事件代码 if trim(thisform.text1.value)=zhang and trim(thisform.text2.value)=123456thisform.label4.caption=口令正确,欢迎使用本系统 else n=n+1 if n3 thisform.text1.value= thisform.text2.value= thisform.text1.setfocusmessagebox(口令或用户名错，请仔细核对后再输入) else thisform.label4.caption=对不起，你无权使用本系统 mand1.enabled=.f. thisform.text1.enabled=.f. thisform.text2.enabled=.f. endif endif ?“退出”(Command2)的Click事件代码 thisform.release (5)保存运行 (6)说明