以下是列出的TS6949体系第二次审核的清单
1. 质量手册。
2. 程序文件。
3. 公司所识别的流程图（三种类型等）。
4. 所识别流程与条文的关系，请记录于附件表格中；审查当日将电子文件提供给审核员。
5. 对应各流程所制定的目标的一览陆圆表，及其过去12月的绩效/趋势图。
6. 文件的清单或一览表。
7.客户特别规定的清单或一览表，及其文件。
8. 客户所提供的绩效信息或成绩表，及客户满意度调查的结论报告。
9. 客户抱怨的一览表及相关资料。
10. 内部审核结果及报告。
11. 合格内部审核员的清单或一览表。
L2.管理审运悉蠢查计划、报告。
13. 事先确认公司每一个厂址的员工数、生产班次及其旁陪时间。
14.FMEA(包括DFMEA，如有需要时)。
你所说的标号语句是不是Goto语句？你的问题没有边际。我还是就我所知道的，给你一个回答。Delphi不主张使用标号语句，但支持标号语句。
下面这段程序是我写的：其中使用了标号语句
procedure Tjmxxxtmai.Button23Click(Sender: TObject)
label 10//申明标号
var
xqidh,fhidh:word//小区ID号，房号ID号
dys,cs,ts:word//单元数，首亏旅层数，套数
i,j,k:word
sqlyj:string
begin// jmiddateMD.jbxxczb.CommandText:='select id,fhid as 房号ID号,xqid as 小区ID号,ldmc as 楼栋名称,dyh as 单元号,fh as 房号,mj as 面积 from jmxxfhb'
/空唯/'select id,ljid as 路街ID号,mphid as 门牌号ID,xqid as 小区ID号,xqmc as 小区名称 from jmxxxqmcb'
if (combobox9.Text='') or
(edit11.Text='') or
(edit12.Text='') or
(edit14.Text='') or
(edit13.Text='') then
begin
showmessage('房屋信息不完整，不能批量建立住房信息！')
exit
end
if (combobox10.ItemIndex =2) and ((edit16.Text='') or (edit17.Text='')) then
begin
showmessage('房屋面积信息不完整，不能批量建立住房信息！')
exit
end
sqlyj:='select xqid,xqmc from jmxxxqmcb where xqmc ='''+trim(combobox9.Text)+''''
sjsfcfjc(sqlyj)
if jmiddateMD.sjcfxjc.RecordCount >0 then
xqidh:=jmiddateMD.sjcfxjc.FieldByName('xqid').Value
sqlyj:='select max(fhid) as fhid from jmxxfhb'
sjsfcfjc(sqlyj)
if jmiddateMD.sjcfxjc.FieldByName('fhid').Value >null then
fhidh:=jmiddateMD.sjcfxjc.FieldByName('fhid').Value+1
else
fhidh:=1
if checkbox2.Checked then
begin
dys:=1
cs:=1
ts:=strToint(edit12.Text)
end
else
begin
dys:=strToint(edit12.Text)
cs:=strToint(edit13.Text)
case combobox10.ItemIndex of
0:ts:=1
1:ts:=2
2:ts:=4
end
end
for i:=1 to dys do //单元数
begin
for j:=1 to cs do //层数
begin
for k:=1 to ts do //套数
begin
if checkbox1.Checked and (j=1) then
goto 10//当if条件满足者凳时，程序执行的顺序就会跳转，去执行标号10出现的位置后的语句。
jmiddateMD.jbxxczb.Append
jmiddateMD.jbxxczb.FieldByName('房号ID号').Value:=fhidh
fhidh:=fhidh+1
jmiddateMD.jbxxczb.FieldByName('小区ID号').Value:=xqidh
jmiddateMD.jbxxczb.FieldByName('楼栋名称').Value:=trim(edit11.Text)
jmiddateMD.jbxxczb.FieldByName('单元号').Value:='第'+intTostr(i)+'单元'
jmiddateMD.jbxxczb.FieldByName('房号').Value:=intTostr(j)+'0'+intTostr(k)
if checkbox2.Checked then
begin
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit13.Text
end
else
begin
case combobox10.ItemIndex of
0:begin
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text
end
1:begin
if k=1 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text
if k=2 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit15.Text
end
2:begin
if k=1 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text
if k=2 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit15.Text
if k=3 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit16.Text
if k=4 then
jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit17.Text
end
end
end
jmiddateMD.jbxxczb.Post
10: begin //标号10的位置，但这里是一个空语句，什么也不执行
end
end
end
end
end
测量是按照某种规律，用数据来描述观察到的现象，即对事物作出量化描述。测量是对非量化实物的量化过程。在机械工程里面，测量指讲被测量与具有计量单位的标准量在数值上进行比较，从而确定二者比值的实验认识过程。
计数是一个重复加（或减）1的数学行为，通常用于算出对象有多少个或放置想要之数目个对象（对第一个对象从一算起且将剩下的对象和由二开始的自然数做一对一对应）。此外，计数亦可以被（主要是被儿童）使用来学习数字名称和数字系统的知识。由现今的考古证据可以推测人类计数的历史至少有五万年，并由此发展导致出数学符号及记数系统的发展。古代文化主要使用计数在记录如负债和资本等经济数据（即会计）。
排序是计算机内经常进行的一种 *** 作，其目的是将一组“无序”的记录序列调整为“有序”的记录序列。分内部排序和外部排序。若整个排序过程不需要访问外存便能完成，则称此类排序问题为内部排序。反之，若参加排序的记录数量很大，整个序列的排序过程不可能在内存中完成，则称此类排序问题为外部排序。内部排序的过程是一个逐步扩大记录的有序序列长度的过程。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）