mainunit.pas

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

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls,ImgList,Menus,StdActns, ActnList, Buttons;

type
  TFirstGFrm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    ToolButton4: TToolButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N10: TMenuItem;
    N61: TMenuItem;
    N321: TMenuItem;
    N521: TMenuItem;
    N531: TMenuItem;
    Label3: TLabel;
    T1: TMenuItem;
    Z1: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);

    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N321Click(Sender: TObject);
    procedure N521Click(Sender: TObject);
    procedure N531Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure T1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FirstGFrm1: TFirstGFrm1;


implementation
uses FirstGUnit,Introduce1Unit,SecondGUnit, Introduce2Unit;
//,PrintUnit,Introduce1Unit,Introduce2Unit,,PartUnit,;

{$R *.dfm}

procedure TFirstGFrm1.N3Click(Sender: TObject);
begin
  Application.CreateForm(TMainFrm,MainFrm);
end;

procedure TFirstGFrm1.N4Click(Sender: TObject);
begin
  Application.CreateForm(TPartForm,PartForm); //zxp
  //PartForm.PageControl1.ActivePageIndex:=0;
end;

procedure TFirstGFrm1.ToolButton5Click(Sender: TObject);
begin
  MainFrm.Show;
end;

procedure TFirstGFrm1.ToolButton6Click(Sender: TObject);
begin
 // PartForm.Show; by zxp
end;

procedure TFirstGFrm1.N8Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='一级指标';
  Printform.QRLabels1.Caption:=MainForm.label20.Caption;
  Printform.QRLabels2.Caption:=MainForm.label21.Caption;
  Printform.QRLabels3.Caption:=MainForm.label22.Caption;
  Printform.QRLabels4.Caption:=MainForm.label1.Caption;
  Printform.QRLabels5.Caption:=MainForm.label2.Caption;
  Printform.QRLabels6.Caption:=MainForm.label3.Caption;
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=MainForm.E1Q.Text;
  Printform.QRLabelQ2.Caption:=MainForm.E2Q.Text;
  Printform.QRLabelQ3.Caption:=MainForm.E3Q.Text;
  Printform.QRLabelQ4.Caption:=MainForm.E4Q.Text;
  Printform.QRLabelQ5.Caption:=MainForm.E5Q.Text;
  Printform.QRLabelQ6.Caption:=MainForm.E6Q.Text;
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=MainForm.E1G.Text;
  Printform.QRLabelG2.Caption:=MainForm.E2G.Text;
  Printform.QRLabelG3.Caption:=MainForm.E3G.Text;
  Printform.QRLabelG4.Caption:=MainForm.E4G.Text;
  Printform.QRLabelG5.Caption:=MainForm.E5G.Text;
  Printform.QRLabelG6.Caption:=MainForm.E6G.Text;
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=MainForm.E1M.Text;
  Printform.QRLabelM2.Caption:=MainForm.E2M.Text;
  Printform.QRLabelM3.Caption:=MainForm.E3M.Text;
  Printform.QRLabelM4.Caption:=MainForm.E4M.Text;
  Printform.QRLabelM5.Caption:=MainForm.E5M.Text;
  Printform.QRLabelM6.Caption:=MainForm.E6M.Text;
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=MainForm.E1B.Text;
  Printform.QRLabelB2.Caption:=MainForm.E2B.Text;
  Printform.QRLabelB3.Caption:=MainForm.E3B.Text;
  Printform.QRLabelB4.Caption:=MainForm.E4B.Text;
  Printform.QRLabelB5.Caption:=MainForm.E5B.Text;
  Printform.QRLabelB6.Caption:=MainForm.E6B.Text;
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='本城市应急系统各项指标综合';
  PrintForm.QRLabel7.Caption:=MainForm.EG.Text;
  PrintForm.QRLabel8.Caption:=MainForm.EM.Text;
  PrintForm.QRLabel9.Caption:=MainForm.EB.Text;
  PrintForm.QRLabel11.Caption:=MainForm.Label8.Caption;
  PrintForm.QRLabel12.Caption:=MainForm.Label9.Caption;
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N11Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='1 高层建筑火灾主动防火措施';
  Printform.QRLabels1.Caption:=PartForm.label1.Caption;
  Printform.QRLabels2.Caption:=PartForm.label2.Caption;
  Printform.QRLabels3.Caption:=PartForm.label3.Caption;
  Printform.QRLabels4.Caption:='';
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E11Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E12Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E13Q.Text;
  Printform.QRLabelQ4.Caption:='';
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E11G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E12G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E13G.Text;
  Printform.QRLabelG4.Caption:='';
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E11M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E12M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E13M.Text;
  Printform.QRLabelM4.Caption:='';
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E11B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E12B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E13B.Text;
  Printform.QRLabelB4.Caption:='';
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='1 高层建筑火灾主动防火措施';
  PrintForm.QRLabel7.Caption:=PartForm.E1GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E1MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E1BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N21Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='2 高层建筑火灾被动防火措施';
  Printform.QRLabels1.Caption:=PartForm.label20.Caption;
  Printform.QRLabels2.Caption:=PartForm.label21.Caption;
  Printform.QRLabels3.Caption:=PartForm.label22.Caption;
  Printform.QRLabels4.Caption:='';
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E21Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E22Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E23Q.Text;
  Printform.QRLabelQ4.Caption:='';
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E21G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E22G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E23G.Text;
  Printform.QRLabelG4.Caption:='';
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E21M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E22M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E23M.Text;
  Printform.QRLabelM4.Caption:='';
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E21B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E22B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E23B.Text;
  Printform.QRLabelB4.Caption:='';
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='2 高层建筑火灾被动防火措施';
  PrintForm.QRLabel7.Caption:=PartForm.E2GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E2MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E2BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N31Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='3 高层建筑火灾安全疏散设施';
  Printform.QRLabels1.Caption:=PartForm.label34.Caption;
  Printform.QRLabels2.Caption:=PartForm.label35.Caption;
  Printform.QRLabels3.Caption:=PartForm.label36.Caption;
  Printform.QRLabels4.Caption:='';
  Printform.QRLabels5.Caption:='';
  Printform.QRLabels6.Caption:='';
  Printform.QRLabels7.Caption:='';
  Printform.QRLabels8.Caption:='';
  Printform.QRLabelQ1.Caption:=PartForm.E31Q.Text;
  Printform.QRLabelQ2.Caption:=PartForm.E32Q.Text;
  Printform.QRLabelQ3.Caption:=PartForm.E33Q.Text;
  Printform.QRLabelQ4.Caption:='';
  Printform.QRLabelQ5.Caption:='';
  Printform.QRLabelQ6.Caption:='';
  Printform.QRLabelQ7.Caption:='';
  Printform.QRLabelQ8.Caption:='';
  Printform.QRLabelG1.Caption:=PartForm.E31G.Text;
  Printform.QRLabelG2.Caption:=PartForm.E32G.Text;
  Printform.QRLabelG3.Caption:=PartForm.E33G.Text;
  Printform.QRLabelG4.Caption:='';
  Printform.QRLabelG5.Caption:='';
  Printform.QRLabelG6.Caption:='';
  Printform.QRLabelG7.Caption:='';
  Printform.QRLabelG8.Caption:='';
  Printform.QRLabelM1.Caption:=PartForm.E31M.Text;
  Printform.QRLabelM2.Caption:=PartForm.E32M.Text;
  Printform.QRLabelM3.Caption:=PartForm.E33M.Text;
  Printform.QRLabelM4.Caption:='';
  Printform.QRLabelM5.Caption:='';
  Printform.QRLabelM6.Caption:='';
  Printform.QRLabelM7.Caption:='';
  Printform.QRLabelM8.Caption:='';
  Printform.QRLabelB1.Caption:=PartForm.E31B.Text;
  Printform.QRLabelB2.Caption:=PartForm.E32B.Text;
  Printform.QRLabelB3.Caption:=PartForm.E33B.Text;
  Printform.QRLabelB4.Caption:='';
  Printform.QRLabelB5.Caption:='';
  Printform.QRLabelB6.Caption:='';
  Printform.QRLabelB7.Caption:='';
  Printform.QRLabelB8.Caption:='';
  PrintForm.QRLabel10.Caption:='3 应急宣传、培训和演习';
  PrintForm.QRLabel7.Caption:=PartForm.E3GG.Text;
  PrintForm.QRLabel8.Caption:=PartForm.E3MM.Text;
  PrintForm.QRLabel9.Caption:=PartForm.E3BB.Text;
  PrintForm.QRLabel11.Caption:='';
  PrintForm.QRLabel12.Caption:='';
  Printform.QuickRep1.Preview;
  }
end;

procedure TFirstGFrm1.N41Click(Sender: TObject);
begin
{
  Printform.QRLabel1.Caption:='4 应急预案及行动程序';
  Printform.QRLabels1.Caption:=PartForm.label48.Caption;
  Printform.QRLabels2.Caption:=PartForm.label49.Caption;
  Printform.QRLabels3.Caption:=PartForm.label50.Caption;
  Printform.QRLabels4.Caption:=PartForm.label87.Caption;
  Printform.QRLabels5.Caption:=PartForm.label90.Caption;
  Printform.QRLabels6.Caption:=PartForm.label91.Caption;
  Printform.QRLabels7.Caption:=PartForm.label92.Caption;