第32套

　　一、

　　1. 打开并修改数据库

　　MODIFY DATABASE selldb

　　2. 在“数据库设计器-Selldb”中，选择表“s_t”并单击鼠标右键，选择“修改”命令，在“表设计器-s_t.dbf”中，单击“索引”选项卡，然后输入索引名“NO”，选择类型为“主索引”，表达式为“部门号+年度”，再移到下一个索引项，输入索引名“部门号”，选择类型为“普通索引”，表达式为“部门号”，最后单击“确定”按钮，再单击“是(Y)”这样索引就建立了。

　　ALTER TABLE s_t ADD COLUMN 备注 C(30)

　　ALTER TABLE s_t ALTER 年度 SET DEFAULT "2004"

　　1. 在“数据库设计器-Selldb”中，然后选择“dept”表中主索引键“部门号”并按住不放，然后移动鼠标拖到“s_t”表中的索引键为“部门号”处，松开鼠标即可。

　　2. 在已建立的永久性联系后，双击关系线，并显示“编辑关系”对话框。

　　3. 在“编辑关系”对话框中，单击“参照完整性”按钮，并显示“参照完整性生成器”。

　　4. 在“参照完整性生成器”对话框中，单击“更新规则”选项卡，并选择“级联”单选按钮，单击“删除规则”选项卡，并选择“限制”单选按钮，单击“插入规则”选项卡，并选择“忽略”单选按钮，接着单击“确定”按钮，并显示“是否保存改变，生成参照完整性代码并退出?”，最后单击“是”按钮，这样就生成了指定参照完整性。

　　注意：可能会出现要求整理数据库，那么请整理后重新做操作。

　　二、

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

　　2. 在“向导选取”对话框中，选择“一对多表单向导”并单击“确定”按钮，并显示“一对多表单向导”对话框。

　　3. 在“一对多表单向导”对话框的“步骤1-从父表中选定字段”中，首先要选取表“dept”，在“数据库和表”列表框中，选择表“dept”，接着在“可用字段”列表框中显示表dept的所有字段名，并选定所有字段名，再单击“下一步”按钮。

　　4. 在“一对多表单向导”对话框的“步骤2-从子表中选定字段”中，选取表“s_t”，在“数据库和表”列表框中，选择表“s_t”，接着在“可用字段”列表框中显示表s_t的所有字段名，并选定所有字段名，再单击“下一步”按钮。

　　5. 在“一对多表单向导”对话框的“步骤3-建立表之间的关系”中，再单击“下一步”按钮。

　　6. 在“一对多表单向导”对话框的“步骤4-选择表单样式”中，在“样式”中选择“阴影式”，在“按钮类型”中选择“图片按钮”，再单击“下一步”按钮。

　　7. 在“一对多表单向导”对话框的“步骤5-排序次序”中，选定“部门号”字段并选择“升序”，再单击“添加”按钮，再单击“下一步”按钮。

　　6. 在“一对多表单向导”对话框的“步骤6-完成”中，在“请输入表单标题”文本框中输入“数据输入维护”，再单击“完成”。

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

　　第5行：(一季度利润+二季度利润+三季度利润+四季度利润)/(一季度销售额+二季度销售额+三季度销售额+四季度销售额) AS 利润率;

　　第6行：FROM S_T,DEPT;

　　第8行：ORDEY BY 年度,利润率 DESC;

　　第9行：INTO TABLE S_SUM

　　三、

　　1. 建立表单

　　CREATE FORM sd_select

　　2. 在“表单设计器”中，在“属性”的Caption处输入“部门年度数据查询”，在Name处输入“form_one”。

　　3.在“表单设计器”中，单击鼠标右键，在弹出菜单中选择“数据环境”，在“数据环境设计器-sd_select.scx”中，在“打开”对话框中，选择“s_t.dbf”表，接着在“添加表或视图”的对话框中，按“关闭”按钮，关闭“添加表或视图”对话框。

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

　　5. 在“表单设计器”中，添加一个微调控件Spinner1，在其“属性”的SpinnerHighValue处输入“2010.00”，在SpinnerLowValue处输入“1999.00”，在Value处输入“2003”。

　　6. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”的Caption处输入“查询”，在第2个命令按钮“属性”的Caption处输入“退出”。

　　7. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。

　　8. 在“表单设计器”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4-SQL说明”。

　　9. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。

　　ThisForm.Grid1.RecordSource="select * from s_t where 年度='"+str(thisform.Spinner1.value,4,0)+"' into cursor lsb"