第8章 表单设计与应用.ppt

表单设计与应用 章节 第一节 面向对象的概念 8 1 1对象与类 对象客观世界里的任何实体都可以被看作是对象 由属性和相关方法组成的包属性 对象的状态方法 对象的行为类类是对一类相似对象的性质描述 这些对象具有相同种类的属性及方法 类好比是一类对象的模板 学生属性 学号 姓名 性别 出生日期等 方法 注册 考试 毕业 参加比赛 上课等 8 1 1子类与继承 方法 属性 父类 子类 子类 继承的方法 属性 添加的方法 属性 第二节 VisualFoxPro基类简介 8 2 1VisualFoxPro基类 VisualFoxPro基类是系统本身内含的 并不存放在某个类库中 用户可以基于基类生成所需要的对象 也可以扩展基类创建自己的类 每个VisualFoxPro基类都有自己的一套属性 方法和事件 对象生成 函数 CREATEOBJECT 对象属性访问及对象方法调用的格式 8 2 1VisualFoxPro基类 基于VisualFoxPro基类Form生成一个表单对象 然后显示输出该对象的一些属性值 oForm CREATEOBJECT Form Class oForm ClassClass Form BaseClass oForm BaseClassClasslibrary ParentClass oForm parentClassParentClass 8 2 2容器与控件 8 2 3事件 事件是一种由系统预先定义而由用户或系统发出的动作 事件作用与对象 对象识别事件并做出反应 事件可以由系统引发也可以由用户引发 事件代码既能在事件引发时执行 也可以被像方法一样被调用 事件的处理遵循独立性原则 第三节 创建与管理表单 8 3 1创建表单 使用表单向导创建即用表单 使用表单设计器创建 设计新的表单和修改已有的表单 8 3 2管理表单属性和方法 常用的表单属性创建新属性创建新方法编辑方法或事件代码 8 3 3常用事件与方法 8 3 3常用事件与方法 控件 表单 表单 控件 8 3 1创建表单 例8 3 8 3 1创建表单 例8 4 Init代码 lparameterspthisform newp pwait 引发init事件 windowClick代码 thisform newp thisform newp 10wait newp str thisform newp windowRightclick代码 thisform newp thisform newp 10wait newp str thisform newp window 8 3 1创建表单 例8 5 主文件代码 doformmyformwith5readeventsnewm代码 thisform caption newp str thisform newp Unload代码 wait 引发Unload事件 windowclearevents 8 3 1创建表单 例8 6 8 3 1创建表单 例8 6 标签Label1的Click代码 t thisform label2 captionthisform label2 caption thisform label3 captionthisform label3 caption t 8 3 1创建表单 例8 7 8 3 1创建表单 例8 7 标签Command1的Click代码 ifthisform text1 value ABCDEF andthisform text2 value 123456 wait 欢迎使用 windowtimeout1thisform releaseelsethisform num thisform num 1ifthisform num 3wait 用户或口令不对 登录失败 windowtimeout1thisform releaseelsewait 用户或口令不对 请重输 windowtimeout1endifendif 8 3 1创建表单 例8 8 8 3 1创建表单 例8 10 8 3 1创建表单 例8 10 查询统计 的Click代码 thisform grid1 recordsource select选课 课程号 选课 成绩 from学生 选课where学生 学号 选课 学号 and学生 姓名 alltrim thisform text1 value intocursorlsb selectmax 成绩 asmaxcj min 成绩 asmincj avg 成绩 asavgcj fromlsbintocursorlsb1selectlsb1gotopthisform text2 value maxcjthisform text3 value mincjthisform text4 value avgcjuse Load代码 opendatabasexsxkuse学生in0use选课in0 Unload代码 closedatabase 退出的Click代码 thisform release 8 3 1创建表单 例8 11 8 3 1创建表单 例8 11 8 3 1创建表单 例8 11 所有学生 的Click代码 this parent parent text1 enabled F this parent parent text2 enabled F this parent parent text3 enabled F this parent parent text4 enabled F 8 3 1创建表单 例8 11 添加 的Click代码 fori 1tothis parent list1 listcountifthis parent list1 selected i this parent list2 additem this parent list1 list i endifendfor 8 3 1创建表单 例8 11 移去 的Click代码 i 1dowhil