常用表单控件( 实验 11
常用表单控件(一)
1) 实验目的
(1)熟练掌握表单设计器的使用方法。 (2)熟练在表单新建的方法和步骤。 (3)掌握在表单中添加对象的操作方法。 (4)掌握在属性窗口中设置对象属性的方法。 (5)掌握在对象事件中书写代码的方法。 (6)掌握常见对象的事件和属性以及对象的方法。 (7)掌握文本框、标签、按钮的常用属性、方法的代码。
2) 实验内容
设计一个登录表单 LOGIN.SCX,如图 1.6.1 所示。当用户输入用户名和密码并单击“登 录”按钮后检查其输入是否正确,若正确(假定用户名为 SWNU_JKX,密码为 CCEO) ,就显示 一个对话框为“欢迎使用学生信息管理系统” ;若不正确,则显示“用户名或密码不正确!。 ” 单击“取消”按钮则关闭表单。 (要求将“登录”按钮设置为 Default 按钮。另外,密码输 入时显示星号“*”) 。
图 1.6.1 登录表单效果图
操作步骤: ① 先创建表单, 然后在表单上添加两个标签 label1 和 label2、 两个文本框 text1 和 text2 以及两个命令按钮 Command1 和 Command2。 ② 设置表单的 Caption 为“学生
管理系统登录” ;分别设置 label1 和 label2 的 Caption 属性值为“用户名”和“密码” ;分别设置 Command1 和 Command2 按钮的 Caption 属性值为 “登录”和“退出”“登录”按钮的 Default 属性值设置为 .T.;设置文本框 text2 的 , Pass
wordchar 属性值为“*” 。 ③ 双击“登录”按钮启动代码窗口,在 Command1 的 Click 事件中设置如下代码: IF Thisform.Text1.value="SWNU_JKX" AND Thisform.Text2.Value="CCEO" &;&;注意大小写,在这里是要求区分大小写的 =MESSAGEBOX("欢迎使用学生信息管理
系统","提示信息") &;&;产生提示窗口,第一个字符串为要提示的信息,第二个为窗口标题 ELSE =MESSAGEBOX("用户名或密码错误!","提示信息") ENDIF ④ 双击“退出”按钮,在 Command2 的 Click 事件中设置如下代码: Thisform.Release &;&;调用表单 release 方法关闭表单 ⑤ 保存表单。 单击工具栏上 【保存】 按钮, 【另存为】 在 对话框中将表单保存为 “login.SCX” 。 ⑥ 运行表单。单击工具栏上【运行】按钮,执行表单,观察效果。