表单设计 常用控件.pptVIP

6.4 表单常用控件 控件可分为基本型控件和容器型控件。 基本型控件不包含其他控件，如标签、命令按钮、文本框列表框等。 容器性控件则可包含其他控件，如命令按钮组、选项组、表格等。 标签 （Label） 用于在表单中显示某些固定不变的文本信息 文本框（TextBox） 用来显示和编辑表中的字符型、数值型、日期型等字段，或用于内存变量的显示和修改 命令按钮 （Command Button） 用于控制程序的运行或完成某些具体的操作过程。 【例6.4】 实例学生成绩管理系统：设计用户验证表单 （1）新建表单，打开表单设计器。 （2）添加控件，设置属性。 （3）布局对象 （4）设置Tab键次序 （5）设置数据环境:将user.dbf表添加到表单数据环境。 （6）表单新建属性:num,置初值为0 （7）分别输入“验证”（command1）命令按钮和“取消”（command2）命令按钮的Click过程代码。 过程代码 command1的Click过程代码： curname=alltrim(thisform.text1.value) 取得输入的用户名 curpwd=alltrim(thisform.text2.value) 取得输入的密码 thisform.num=thisform.num+1 累加登录次数 select user 选择“用户”表所在的工作区 **在“用户”表查找输入的用户名 go top locate for alltrim(name)==curname and alltrim(pwd)==curpwd if eof() **如果找不到，判断是否已登录了3次 if thisform.num=3 **如果已登录了3次 ，退出登录 messagebox(用户不存在或密码错误，登录失败！) thisform.release 关闭“验证”表单 else **如果登录次数不足3次 ，允许继续登录 messagebox(用户不存在或密码错误，重新输入！) endif else do form main.scx 调用主表单 thisform.release 关闭“验证”表单 endif command2的Click过程代码： thisform.release 关闭“验证”表单 (8)保存表单，文件名为check.scx。 (9)执行表单 【例6.5】 实例学生成绩管理系统：设计学生信息浏览表单。 （1）新建表单，设置表单的Caption属性。 （2）设置数据环境 （3）将数据环境中学生表的各字段用鼠标拖到表单上 （4）在表单的右边分别创建（Command1-Command3）3个按钮。 （5）设置表单的Init事件代码： *Init 事件代码 select 学生 go top if reccount()=1 表中只有一条记录 mand1.enabled=.f. mand2.enabled=.f. endif （6）表单新建方法:myMethod,其代码为： if bof() 记录指针指向文件头 go top mand1.enabled=.f. else mand1.enabled=.t. endif if eof() 记录指针指向文件头 go bottom mand2.enabled=.f. else mand2.enabled=.t. endif thisform.refresh （7）设置按钮“上一条”与“下一条”的Click事件代码。 *“上一条”按钮的Click事件代码 skip -1 thisform.myMethod *“下一条”按钮的Click事件代码 skip 1 thisform.myMethod （8）设置“关闭”按钮的Click事件代码： Thisform.Release (9) 保存表单:student_browse.scx。 * 表6.8 标签的常用属性 是否响应由用户引发的事件 .T. Enabled 指定对象的背景是否透明 1 Backstyle 文字的大小 9 Fontsize 是否为粗体 .F. Fontbo