[第3期] 记录中的域应用[已完成总结]

守柔

这是一个ISO体系中的一个记录，其中，原取样人，取样日期，报告日期，实际值中的三项指标、三项指标符合性判断，结论，检验员，复核员，检验时间，复核时间，批准时间共十六项（或者说是十五项，结论中，两项只能选其一），在记录生成过程中，原均为手动录入（图中粗体部分）。

题目要求：

1. 你能使用WORD和WORD中的域，来完成最少的录入吗？

2. 请直接上传报告单成品。

说明：

1. 取样人，实际值四项，必须为手动录入，这是原始数据；

2. 所有日期与时间，均为当前日期，该报告单由取样当天生成报告并流转；

3. 检验员为系统登录名，也是WORD程序用户名，共两个，其中若A为检验员，则B为复核员；若B为检验员，则A为复核员；

4. 批准人C为固定，不需要考虑；

5. 符合性判断中，根据实际值与一级标准进行判断，在范围内，则为合格，反之，则为不合格；

6. 结论一栏中，根据监测结果中的三个指标情况而定，若有其中一项不合格，则为不符合，即“不符合GB8978-1996，需重新处理。”一行中复选框，为选中打勾状态，而“符合GB8978-1996，允许排放”一行中的复选框，则为非选中状态，两者只能取其一，但两者都应出现在记录中；

7. 请不要尝试使用WORD程序以外的任何程序，否则，将不会给分；

8. 本题最高分2分。

[此贴子已经被apolloh于2005-10-1 8:08:53编辑过]

asdf1001

交卷

***************************************************

化学需氧量中的公式写错了，与悬浮物SS中的公式重复，应该是{IF {=c4} <= 100 "合格" "不合格"}，写成了{IF {=c3} <= 100 "合格" "不合格"}。

可惜了。

[此贴子已经被守柔于2005-9-27 5:22:00编辑过]

sailorgg

上交答案:

shuyee

为什么我的域在文件打开时并不更新呢?打印前更新域,是设定了.不过并未真正打印,所以不知道结果.只知道模拟打印时,我的个别域值并未得到更新.

捧个人场.

**********************************

你的“复核员”中的Qc值从哪儿来？

尽管可以使用ASK域，但你的通篇使用了四次ASK域，我觉得甚为不妥。文档打开前后关闭时并不更新域，有关更新域的情况可参见WORD版置顶贴子。

[此贴子已经被守柔于2005-9-27 5:36:26编辑过]

sheep204

自己觉得答案有几点不足

1、允许排放和重新处理的复选框是打叉叉的，不是打勾子的。原本想用控件做复选框，不过总是搞不定设置控件属性的代码。查了点资料，大多是响应控件事件的例子，讲述设置控件复选框value属性的却没找到。我想应该是可以对复选框控件的Value属性做设置的，不过自己一下子琢磨不出来。

2、对条件3理解不够透彻，检验员和复核员之间的逻辑关系可能不正确，直接用USER域和Author域填上了。

期望在月底看斑竹的点评、总结还有“守柔”老大的精彩样板

*********************************************************************

严重复杂化了。

[此贴子已经被守柔于2005-9-27 5:38:48编辑过]

sheep204

asdf1001强啊，用纯域就作出来了。我却用的是窗体域和vba，寒一个自己。

konggs

哈哈，老大这期出的题太难了。全对的，估计不超过一个。我是最后一个没想出来。就是set域，没有来得及交卷。[em14]

love

守柔斑主啊，我正关系此问题呢，我做了半天，没成功，放弃了，不过，我很关心此问题的解决。

我觉得这个题目得有两个文件，一个是主文件，一个是数据文件，前面几位朋友做得都是一个文件（没有数据文件），我觉得有些疑惑，请班主教给我们做吧。

另外，在Office2003版本中，如何建立一个Word类型的数据文件，怎么建立邮件合并，就用Access数据库文件，也想斑主解释一下，不胜感谢。

守柔

过程分析：

全文可以使用一个表格完成。

除了取样人和三项指标的实际值，必需手动录入外，其余的项目部分，可由WORD域自动完成，并在打印时更新。

我们来逐步分析一下，WORD是如何使用域来完成的：

取样日期中，可以使用域代码为: { DATE \@"YYYY/M/D" }

报告日期=检测时间=复核时间=批准时间，复制该域代码，粘贴于此四个日期单元格中。

受OR函数参数限制，or(x,y)只能有两项参数，而在结论中，我们需要判断三个项目，显然，需要变通一下。

我们可以使用SET域，分别设定为A，B，C三个书签域。

D6单元格域代码为: { IF { =AND({ =C6 } >= 6,{ =C6 } <= 9) } = 1 { SET A 1 } { SET A 0 } }{ IF { A } = 1 "合格" "不合格" }

D7单元格域代码为: { IF { =C7 } <= 70 { SET B 1 } { SET B 0 } }{ IF { B } = 1 "合格" "不合格" }

D8单元格域代码为: { IF { =C8 } <= 100 { SET C 1 } { SET C 0 } }{ IF { C } = 1 "合格" "不合格" }

A10单元格域代码为: { IF { =MIN({ A },{ B },{ C })} = 0 "£" "R" } 符合GB8978-1996，允许排放。

A11单元格域域代码为: { IF { =MIN({ A },{ B },{ C })} = 0 "R" "£" } 不符合GB8978-1996，需重新处理。

A10、A11单元格中的函数也可以使用SUM函数，即如果SUM=0则A10为£则A11为R，此处SUM公式代码从略，读者可自行设计。

B13（检验员）单元格为用户名，域代码为: { USERNAME }

D13（复核员）单元格中，域代码为: { IF "{ USERNAME }" = "A" "B" "A" }

域代码中的文本比较，可以有多种方式，如{IF "A" = "A" "Y" "N"}、{IF A = "A" "Y" "N"}、{IF "A" = A "Y" "N"}都可以得重到Y值。

[此贴子已经被作者于2005-9-27 5:44:37编辑过]

飘飘风

学习一下！