第33套

　　一、

　　ALTER TABLE 菜单表 ADD COLUMN 厨师姓名 C(8)

　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。

　　2. 在“向导选取”对话框中，选择“报表向导”再单击“确定”按钮，接着显示“报表向导”对话框。

　　3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“菜单表”，在“数据库和表”列表框中，选择表“菜单表”，接着在“可用字段”列表框中显示表“菜单表”的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“完成”按钮。

　　4. 在“报表向导”对话框的“步骤6-完成”中，再单击“完成”。

　　5. 在“另存为”对话框中，输入保存报表名“one”，再单击“保存”按钮，最后报表就生成了。

　　1. 打开并修改报表

　　MODIFY REPORT one

　　2. 在“报表设计器”的“标题”处删除原标题“菜单表”，接着仍在“标题”区添加一个标签，在标签中输入“菜单一览表”，保存该报表。

　　在two.prg文件中存放

　　SELECT 顾客号,顾客点菜表.菜编号,菜名,单价,数量;

　　FROM 顾客点菜表 JOIN 菜单表;

　　ON 顾客点菜表.菜编号 = 菜单表.菜编号;

　　WHERE 单价 >= 40;

　　ORDER BY 顾客点菜表.菜编号 DESC;

　　INTO TABLE taba

　　二、

　　1. 打开数据库

　　OPEN DATABASE 点菜

　　2. 在命令窗口中输入建立查询命令

　　CREATE QUERY three

　　3. 在“打开”对话框中，选择表“顾客点菜表”再按“确定”按钮，在“添加表或视图”对话框中，再双击“菜单表”，在“联接条件”对话框中，直接按“确定”按钮，最后按“关闭”按钮关闭“添加表或视图”对话框。

　　4. 单击“字段”选项卡，选择试题要求的字段添加到“选定字段”列表框中，在“函数和表达式”下的文本框输入“SUM(数量*单价) AS 消费金额合计”，单击“添加”按钮。

　　5. 单击“排序依据”选项卡，选择“SUM(数量*单价) AS 消费金额合计”并选择“降序”，接着单击“添加”按钮。

　　6. 单击“分组依据”选项卡，选择“顾客点菜表.顾客号”，单击“添加”按钮，以“顾客号”为分组条件。

　　7. 单击“查询\输出去向”菜单项，在“查询去向”对话框中，单击“表”按钮，在“表名”处输入“tabb”，再单击“确定”按钮。

　　8. 按“Ctrl+W”键保存该查询并运行。

　　1. 使用命令建立表单

　　CREATE FORM testa

　　2. 在“表单设计器”中，在其“属性”的Caption处输入“选择磁盘文件”。

　　3. 在“表单设计器”中，添加一个选项按钮组Optiongroup1，在其“属性”的ButtonCount处输入“3”，双击“Click Event”事件，在“Optiongroup1.Click”编辑窗口中输入“ThisForm.List1.RowSource = ThisForm.Optiongroup1.Value”，关闭编辑窗口。

　　4. 在“表单设计器”中，选中这个选项组Optiongroup1并单击鼠标右键，在弹出菜单中选择“编辑”菜单项，再单击“Option1”，在其“属性”窗口的Caption处输入“*.DOC”;单击“Option2”，在其“属性”窗口的Caption处输入“*.XLS”;单击“Option3”，在其“属性”窗口的Caption处输入“*.TXT”。

　　5. 在“表单设计器”中，添加一个列表框(List1)，在其“属性”的ColumnCount处输入“1”，在RowSourceType处选择“7 - 文件”。

　　6. 在“表单设计器”中添加一个命令按钮Command1，在其“属性”窗口的Caption处输入“退出”。

　　7. 双击“退出”命令按钮，在“Command1.Click”编辑窗口中输入“Release Thisform”，并关闭编辑窗口。 [NextPage]

　　三、

　　1. 打开数据库

　　OPEN DATABASE 点菜

　　2. 在命令窗口中输入建立表单命令

　　CREATE FORM testb

　　3. 在“表单设计器”中，在其“属性”的Caption处输入“查询”。

　　4. 在“表单设计器”中，添加一个标签Label1，在其“属性”的Caption处输入“结帐日期”。

　　5. 在“表单设计器”中，分别添加一个文本框Text1和表格Grid1。

　　6. 在“表单设计器”中，添加三个命令按钮(Command1、Command2和Command3)，在第1个命令按钮Command1“属性”窗口的Caption处输入“查询”，在第2个命令按钮Command2“属性”窗口的Caption处输入“显示”，在第3个命令按钮Command3“属性”窗口的Caption处输入“退出”。

　　7. 双击“查询”按钮，在“Command1.Click”编辑窗口中输入下列程序

　　dd = CTOD(ThisForm.Text1.Value)

　　SELECT 顾客序号,顾客姓名,单位,消费金额 FROM 结帐表;

　　WHERE 结帐日期 = dd;

　　ORDER BY 消费金额 DESC;

　　INTO TABLE tabc

　　8. 双击“显示”按钮，在“Command2.Click”编辑窗口中输入下列程序

　　ThisForm.Grid1.RecordSourceType = 0

　　ThisForm.Grid1.RecordSource = "tabc"

　　9. 双击“退出”命令按钮，在“Command3.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。