--vfp第部分(查询表单).pptVIP

一、查询表的内容（SELECT） 实现方法： 1、先将grid控件的recordsourcetype属性设置为4 2、在将SQL代码当成一个字符串赋值给recordsource属性 3、多用于grid控件，其他控件类似。 实现方法： 1、先将SQL代码运行后的结果保存到表或临时表中 2、先将recordsourcetype属性设置为1 3、再将表或临时表的名字当成一个字符串赋值给recordsource属性 Select …… 实现方法: 1、当SQL代码运行后的结果为几个值时，就将结果保存到数组中； 2、再从该数组中取出相应的值来用控件显示，如label,text,edit,list等。 3、若查询出的结果保存到数组中是几个值，那么还需要用select count(*)….into array b,计算出上一个select查询保存到数组中的结果个数。 Select …… 表单combo1的Ineractivechange事件代码如下: jg=alltrim(bo1.value) sele 姓名 from 学生 where 籍贯=jg into array xm sele count(*) from 学生 where 籍贯=jg into array sl if sl0 thisform.edit1.value= for i=1 to sl thisform.edit1.value=thisform.edit1.value+xm(i)+chr(13) endfor else messagebox(没有该籍贯的学生) endif 表单text1的valid事件代码如下: xm=alltrim(this.value) select count(*),sum(学分),avg(成绩) from 学生,选课成绩,课程 where 学生.学号=选课成绩.学号 and 选课成绩.课程号=课程.课程号 and 姓名=xm into array jg if jg(1)0 thisform.text2.value=jg(2) thisform.text3.value=jg(3) else messagebox(该生没有选课信息) endif 二、更新表的内容（UPDATE） 1、第一种情况：更新当前表的全部记录，赋值表达式涉及的字段都在当前数据表中。 2、第二种情况：更新当前表的部分记录，赋值表达式中涉及的字段都在当前表中，且条件字段也在当前表 Update jsgz set 基本工资=基本工资+100 where 基本工资1000 Thisform.grid1.recordsourceType=0 Thisform.grid1.recordsource=”jsgz” 3、第三种情况：更新当前表的部分记录，赋值表达式中的字段都是当前表中的，但是条件字段也不在当前表，这时用子查询实现更新条件. update 选课 set 成绩=成绩+20 where 学号 in（select 学号 from 学生 where 性别=“男”） 不使用代码的情况： 实验指导书P171任务1： 详细设置见书： SQL表单程序设计方法 根据具体情况决定是否使用数据环境，因为SQL代码可以不要求表是打开状态。 方法一、直接对控件属性使用SQL代码 表格（Grid） 主要属性： ColumnCount 、 RecordSource、 RecordSourceType 容器类 与表格建立联 系的数据源 教材P124 一般与数据表一起使用 与表格建立联系的数据源的类型： P125表5-2 【例6-17】查询图书表中书名包含“程序”二字的图书信息。 表单Form1的Init事件代码如下： thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=“select * ； from 图书 where 书名 like %程序% 【例6-18】 【例6-19】 【例6-20】 【例6-21】 【例6-22】 【例6-23】 【例6-24】 【例6-26】 【例6-27】见书自学，可适当演示。 【例6-28】查询至少被借阅了2次的图书的书号及书名。 表单Form1的Init事件代码如下： thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=“select ;