select * from 销售表 into dbf 销售表2001 where 日期<={^2000-12-31}

　　close all

　　delete from 销售表 where 日期<={^2000-12-31}

　　pack

　　1. 打开“商品表”

　　USE 商品表

　　2. 在命令窗口输入

　　BROWSE

　　3. 单击“文件\另存为 HTML”命令项，并显示“另存为 HTML”对话框，再选择“保存文件以便以后使用”单选按钮，最后单击“确定”按钮。

　　1. 打开并修改数据库

　　MODIFY DATABASE 商品销售

　　2. 选择“商品表”并单击鼠标右键，选择“修改”命令项。

　　3. 在“表设计器-商品表.dbf”中，选择“索引”选项卡，输入索引名“商品号”，选择类型为“主索引”，表达式为“商品号”。

　　4. 选择“销售表”并单击鼠标右键，选择“修改”命令项。

　　5. 在“表设计器-销售表.dbf”中，选择“索引”选项卡，输入索引名“商品号”，选择类型为“普通索引”并选择“升序”，表达式为“商品号”。

　　二、

　　SELECT 商品表.商品号,商品表.商品名,销售表.单价,销售表.销售数量,(销售表.单价*销售表.销售数量) AS 销售金额;

　　FROM 商品表,销售表;

　　WHERE 商品表.商品号 = 销售表.商品号 ;

　　ORDER BY 销售金额 DESC;

　　INTO TABLE see_a

　　1. 打开并修改表单文件

　　MODIFY FORM form1

　　2. 双击“刷新标题”命令按钮，在“Command1.Click”编辑窗口中把语句修改为“ThisForm.Caption = "商品销售数据输入"”，关闭编辑窗口。

　　3. 双击“商品销售输入”命令按钮，在“Command2.Click”编辑窗口中把语句修改为“DO FORM sellcomm”，关闭编辑窗口。

　　4. 双击“输出销售报表”命令按钮，在“Command3.Click”编辑窗口中把语句修改为“REPORT FORM print1 PREVIEW”。　　

　　1. 在change_c.prg文件中的内容

　　CLOSE ALL

　　USE 商品表

　　IF FILE("商品表备份.DBF")

　　ZAP

　　APPEND FROM 商品表备份

　　ELSE

　　COPY TO 商品表备份

　　ENDIF

　　REPLACE ALL 单价 WITH 出厂单价*.1 for SUBSTR(商品号,1,2) = '10'

　　SELECT 2

　　USE 单价调整表 ORDER 商品号

　　SELECT 商品表

　　SET RELATION TO 商品号 INTO 单价调整表

　　REPLACE ALL 出厂单价 WITH 单价调整表.出厂单价 for 商品号 = 单价调整表.商品号

　　SET RELATION TO

　　CLOSE ALL

　　3. 设计表单

　　(1). 在命令窗口中输入建立表单命令

　　CREATE FORM form2

　　(2). 在“Form1”窗口中添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“调整”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。

　　(3). 双击“调整”命令按钮，在“Command1.Click”编辑窗口中输入“do change_c”，接着关闭编辑窗口。

　　(4). 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。