期末复习提要课件.pptVIP

范例1：调色板类表单 设计要求：单击命令按钮，表单背景色变为对应命令按钮颜色。 分析：利用RGB(红，绿，蓝)函数的三个参数的值，得到一个单一的颜色值。 选择事件：5个命令按钮的Click事件 Thisform.backcolor=rgb(255,0,0) Thisform.backcolor=rgb(0,255,0) Thisform.backcolor=rgb(0,0,255) Thisform.backcolor=rgb(255,255,255) Thisform.backcolor=rgb(0,0,0) 范例2：口令判断 设计要求：口令正确，用消息框显示“口令正确”；口令若错误，则用消息框提示“口令错误”。 分析： 消息框则使用MessageBox()函数 用PasswordCharacter属性 IF THIS.VALUE=123456“ 可以在这条命令前加去掉前后空格的函 数。另外可以将“=”改为“= =”精确匹配。 MESSAGEBOX(口令正确) RETURN .T. ELSE MESSAGEBOX(口令错误) RETURN .F. ENDIF 选择事件：输入回车键后，文本框失去焦点时触发事件，所以选择valid事件。 口令判断-扩展要求 口令正确，用消息框显示“口令正确，欢迎使用!”，如图1所示： 口令若错误，允许输入3次，每次用消息框提示“口令错误，请重输入!这是第X次输入!”，如图2所示；如果3次口令都不正确，消息框显示“无权登录，请退出!”，如图3所示。 图1 图2 图3 口令判断-扩展要求 分析： Messagebox()函数 累计口令输入错误的次数，注意：该累计变量的初值应在form1的init事件中赋值并设为public属性，或定义为表单的新属性，为什么？ 思考：如果要求的口令存放在表文件“学生.DBF”的姓名字段中，且要求完全匹配，则该如何修改表单并编制事件代码？ 口令判断-扩展要求 if thisform.text1.value=12345 messagebox(口令正确，欢迎使用！) else thisform.ct=thisform.ct+1 if thisform.ct=3 messagebox(口令错误，请重新输入！这是第+alltrim(str(thisform.ct))+次输入) else messagebox(无权登陆，请退出！) thisform.text1.enabled=.f. endif endif 与表相关的表单设计编程步骤： 打开表： 有两种方式：表加入数据环境；表没有加入数据环境 表加入数据环境：自动打开表和关闭表。 表没有加入数据环境：要在表单的INIT事件中打开表（USE 表文件名）；在表单的DESTROY事件中关闭表（USE）。 选择绑定与非绑定 绑定时一定要用Refresh刷新 绑定控件 绑定文本框与复选框的数据源的三种方法(其他控件类似)： 一：使用属性窗口设置控件的ControlSource数据源属性 二：在代码窗口中设置控件的ControlSource数据源属性 三：通过数据环境直接拖动表的相关字段到表单界面，系统自动绑定控件的ControlSource数据源属性 采用数据环境可以自动绑定相应控件的对应数据源属性 组合框、列表框控件的RowsourceType和Rowsource属性 表格控件的RecordsourceType和Recordource属性 数据浏览界面设计 编制一个表单完成表文件“课程.dbf”内容的显示功能。命令按钮“上一条”、“下一条”和“退出”名称分别为COMMAND1、COMMAND2和COMMAND3。采用非绑定方式实现。界面如下所示。具体要求： 1）点击“上一条”按钮时，显示上一条记录。当到达表头时，转到末记录。 2）点击“下一条”按钮时，显示下一条记录。当到达表尾时，转到首记录。 3）当点击“退出” 按钮时，退出表单。 数据编辑界面（输入） 例1：输入程序（从表单上输入的数据保存到表中） 假设表单界面如下： 首先判断该表是否加到数据环境，假设表已经添加到数据环境。 按未绑定做（表单输入1） FORM1.INIT事件： THIS.TEXT1.SETFOCUS 数据编辑界面（输入） 保存按钮的CLICK事件： APPEND BLANK REPLACE 学号 WITH THISFORM.TEXT1.VALUE,; 姓名 WITH THISFORM.TEXT2.VALUE,; 性别 WITH IIF(THISFORM.TEXT3.VALUE=T,.T.,.F.),; 出生年月 WITH CTOD(