mainunit.~pas

In the process of copper flash smelting, lining temperature of reaction shaft and its inner wall slu

  Printform.QRLabels8.Caption:=PartForm.label93.Caption;
  Printform.QRLabelQ1.Caption:=PartForm.E41Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E42Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E43Q.Text;
  Printform.QRLabelQ4.Caption:=PartForm.E44Q.Text;
  Printform.QRLabelQ5.Caption:=PartForm.E45Q.Text;
  Printform.QRLabelQ6.Caption:=PartForm.E46Q.Text;
  Printform.QRLabelQ7.Caption:=PartForm.E47Q.Text;
  Printform.QRLabelQ8.Caption:=PartForm.E48Q.Text;
  Printform.QRLabelG1.Caption:=PartForm.E41G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E42G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E43G.Text;
  Printform.QRLabelG4.Caption:=PartForm.E44G.Text;
  Printform.QRLabelG5.Caption:=PartForm.E45G.Text;
  Printform.QRLabelG6.Caption:=PartForm.E46G.Text;
  Printform.QRLabelG7.Caption:=PartForm.E47G.Text;
  Printform.QRLabelG8.Caption:=PartForm.E48G.Text;
  Printform.QRLabelM1.Caption:=PartForm.E41M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E42M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E43M.Text;
  Printform.QRLabelM4.Caption:=PartForm.E44M.Text;
  Printform.QRLabelM5.Caption:=PartForm.E45M.Text;
  Printform.QRLabelM6.Caption:=PartForm.E46M.Text;
  Printform.QRLabelM7.Caption:=PartForm.E47M.Text;
  Printform.QRLabelM8.Caption:=PartForm.E48M.Text;
  Printform.QRLabelB1.Caption:=PartForm.E41B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E42B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E43B.Text;
  Printform.QRLabelB4.Caption:=PartForm.E44B.Text;
  Printform.QRLabelB5.Caption:=PartForm.E45B.Text;
  Printform.QRLabelB6.Caption:=PartForm.E46B.Text;
  Printform.QRLabelB7.Caption:=PartForm.E47B.Text;
  Printform.QRLabelB8.Caption:=PartForm.E48B.Text;
  PrintForm.QRLabel10.Caption:='4 应急预案及行动程序';
  PrintForm.QRLabel7.Caption:=PartForm.E4GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E4MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E4BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N10Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='5 保障系统';
  Printform.QRLabels1.Caption:=PartForm.label76.Caption;
  Printform.QRLabels2.Caption:=PartForm.label77.Caption;
  Printform.QRLabels3.Caption:=PartForm.label78.Caption;
  Printform.QRLabels4.Caption:=PartForm.label94.Caption;
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E51Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E52Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E53Q.Text;
  Printform.QRLabelQ4.Caption:=PartForm.E54Q.Text;
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E51G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E52G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E53G.Text;
  Printform.QRLabelG4.Caption:=PartForm.E54G.Text;
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E51M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E52M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E53M.Text;
  Printform.QRLabelM4.Caption:=PartForm.E54M.Text;
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E51B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E52B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E53B.Text;
  Printform.QRLabelB4.Caption:=PartForm.E54B.Text;
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='5 保障系统';
  PrintForm.QRLabel7.Caption:=PartForm.E5GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E5MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E5BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N61Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='6 应急恢复';
  Printform.QRLabels1.Caption:=PartForm.label62.Caption;
  Printform.QRLabels2.Caption:=PartForm.label63.Caption;
  Printform.QRLabels3.Caption:=PartForm.label64.Caption;
  Printform.QRLabels4.Caption:='';
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E61Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E62Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E63Q.Text;
  Printform.QRLabelQ4.Caption:='';
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E61G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E62G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E63G.Text;
  Printform.QRLabelG4.Caption:='';
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E61M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E62M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E63M.Text;
  Printform.QRLabelM4.Caption:='';
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E61B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E62B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E63B.Text;
  Printform.QRLabelB4.Caption:='';
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='6 应急恢复';
  PrintForm.QRLabel7.Caption:=PartForm.E6GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E6MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E6BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N321Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='3.2 应急培训';
  Printform.QRLabels1.Caption:=PartForm.label100.Caption;
  Printform.QRLabels2.Caption:=PartForm.label101.Caption;
  Printform.QRLabels3.Caption:=PartForm.label102.Caption;
  Printform.QRLabels4.Caption:='';
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E321Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E322Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E323Q.Text;
  Printform.QRLabelQ4.Caption:='';
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E321G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E322G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E323G.Text;
  Printform.QRLabelG4.Caption:='';
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E321M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E322M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E323M.Text;
  Printform.QRLabelM4.Caption:='';
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E321B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E322B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E323B.Text;
  Printform.QRLabelB4.Caption:='';
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='3.2 应急培训';
  PrintForm.QRLabel7.Caption:=PartForm.E32GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E32MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E32BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N521Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='5.2 物资与装备';
  Printform.QRLabels1.Caption:=PartForm.label114.Caption;
  Printform.QRLabels2.Caption:=PartForm.label115.Caption;
  Printform.QRLabels3.Caption:=PartForm.label116.Caption;
  Printform.QRLabels4.Caption:=PartForm.label117.Caption;
  Printform.QRLabels5.Caption:=PartForm.label118.Caption;
  Printform.QRLabels6.Caption:=PartForm.label119.Caption;
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E521Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E522Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E523Q.Text;
  Printform.QRLabelQ4.Caption:=PartForm.E524Q.Text;
  Printform.QRLabelQ5.Caption:=PartForm.E525Q.Text;
  Printform.QRLabelQ6.Caption:=PartForm.E526Q.Text;
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E521G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E522G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E523G.Text;
  Printform.QRLabelG4.Caption:=PartForm.E524G.Text;
  Printform.QRLabelG5.Caption:=PartForm.E525G.Text;
  Printform.QRLabelG6.Caption:=PartForm.E526G.Text;
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E521M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E522M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E523M.Text;
  Printform.QRLabelM4.Caption:=PartForm.E524M.Text;
  Printform.QRLabelM5.Caption:=PartForm.E525M.Text;
  Printform.QRLabelM6.Caption:=PartForm.E526M.Text;
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E521B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E522B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E523B.Text;
  Printform.QRLabelB4.Caption:=PartForm.E524B.Text;
  Printform.QRLabelB5.Caption:=PartForm.E525B.Text;
  Printform.QRLabelB6.Caption:=PartForm.E526B.Text;
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='5.2 物资与装备';
  PrintForm.QRLabel7.Caption:=PartForm.E52GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E52MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E52BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N531Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='5.3 人力资源';
  Printform.QRLabels1.Caption:=PartForm.label131.Caption;
  Printform.QRLabels2.Caption:=PartForm.label132.Caption;
  Printform.QRLabels3.Caption:=PartForm.label133.Caption;
  Printform.QRLabels4.Caption:=PartForm.label134.Caption;
  Printform.QRLabels5.Caption:=PartForm.label135.Caption;
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E531Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E532Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E533Q.Text;
  Printform.QRLabelQ4.Caption:=PartForm.E534Q.Text;
  Printform.QRLabelQ5.Caption:=PartForm.E535Q.Text;
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E531G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E532G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E533G.Text;
  Printform.QRLabelG4.Caption:=PartForm.E534G.Text;
  Printform.QRLabelG5.Caption:=PartForm.E535G.Text;
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E531M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E532M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E533M.Text;
  Printform.QRLabelM4.Caption:=PartForm.E534M.Text;
  Printform.QRLabelM5.Caption:=PartForm.E535M.Text;
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E531B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E532B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E533B.Text;
  Printform.QRLabelB4.Caption:=PartForm.E534B.Text;
  Printform.QRLabelB5.Caption:=PartForm.E535B.Text;
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='5.3 人力资源';
  PrintForm.QRLabel7.Caption:=PartForm.E53GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E53MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E53BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.Z1Click(Sender: TObject);
begin
  Introduce2Form.Show;
end;

procedure TFirstGFrm1.T1Click(Sender: TObject);
begin
  Introduce1Form.Show;
end;

end.