19

sele 教师号,姓名,工资 from 教师,院系 where 教师.系号=院系.系号;

and 系名=allt(thisform.list1.value) order by 教师号 ;

into table allt(thisform.list1.value)

20

THISFORM.GRID1.RECORDSOURCE="SELECT 商品代码.*, 一季度利润,二季度利润,三季度利润, 四季度利润;

 FROM  商品代码 ,销售 where 商品代码.商品号 = 销售.商品号 and;

  部门号=allt(THISFORM.TEXT1.VALUE) and 年份=ALLT(THISFORM.TEXT2.VALUE);

   into table 'bm'+allt(thisform.text1.value)"

21

“调料”菜单命令的过程代码：

MAINFORM. GRID1.RECORDSOURCE="select 产品.* from 产品,产品类型 where  产品.分类编号=产品类型.分类编号 ;

and 分类名='调料' into cursor csr1"

“小家电”菜单命令的过程代码：

MAINFORM. GRID1.RECORDSOURCE="select 产品.* from 产品,产品类型 where 产品.分类编号=产品类型.分类编号 ;

and 分类名='小家电' into cursor csr1" 。

“食品”菜单命令的过程代码：

 MAINFORM. GRID1.RECORDSOURCE="select 产品.* from 产品 ,产品类型 where 产品.分类编号=产品类型.分类编号;

and 分类名='食品' into cursor csr1" 。

“烟酒类”菜单命令的过程代码：

MAINFORM. GRID1.RECORDSOURCE="select 产品.* from 产品, 产品类型 where 产品.分类编号=产品类型.分类编号;

and 分类名='烟酒类' into cursor csr1" 。

22

clos all

use 工资_c

do while not eof()

update 工资 set 基本工资=工资_c.基本工资 where 雇员号=工资_c.雇员号

skip

enddo

sele * from 工资 into table  new_od