secondgunit.pas

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

    Edit_B4153: TEdit;
    Edit_B4154: TEdit;
    Edit_B4155: TEdit;
    Label253: TLabel;
    Edit_W4166: TEdit;
    Edit_B4161: TEdit;
    Edit_B4162: TEdit;
    Edit_B4163: TEdit;
    Edit_B4164: TEdit;
    Edit_B4165: TEdit;
    BitBtn14: TBitBtn;
    Button56: TButton;
    Button57: TButton;
    Button58: TButton;
    Label254: TLabel;
    Label255: TLabel;
    Edit_W41: TEdit;
    Edit__B411: TEdit;
    Edit__B412: TEdit;
    Edit__B413: TEdit;
    Edit__B414: TEdit;
    Edit__B415: TEdit;
    Label256: TLabel;
    Label257: TLabel;
    Label258: TLabel;
    Label259: TLabel;
    Label260: TLabel;
    Button59: TButton;
    Label261: TLabel;
    Label262: TLabel;
    Edit_W4211: TEdit;
    Label263: TLabel;
    Edit_W4222: TEdit;
    Edit_B4211: TEdit;
    Edit_B4212: TEdit;
    Edit_B4213: TEdit;
    Edit_B4214: TEdit;
    Edit_B4215: TEdit;
    Edit_B4221: TEdit;
    Edit_B4222: TEdit;
    Edit_B4223: TEdit;
    Edit_B4225: TEdit;
    Label264: TLabel;
    Label265: TLabel;
    Label266: TLabel;
    Label267: TLabel;
    Label268: TLabel;
    Edit_B4224: TEdit;
    BitBtn15: TBitBtn;
    Button60: TButton;
    Button61: TButton;
    Button62: TButton;
    Label271: TLabel;
    Edit_W42: TEdit;
    Label272: TLabel;
    Edit__B421: TEdit;
    Edit__B422: TEdit;
    Edit__B423: TEdit;
    Edit__B424: TEdit;
    Edit__B425: TEdit;
    Label273: TLabel;
    Label274: TLabel;
    Label275: TLabel;
    Label276: TLabel;
    Label277: TLabel;
    Button63: TButton;
    Label278: TLabel;
    Label279: TLabel;
    Edit_W4311: TEdit;
    Label280: TLabel;
    Edit_W4322: TEdit;
    Edit_B4311: TEdit;
    Edit_B4312: TEdit;
    Edit_B4313: TEdit;
    Edit_B4314: TEdit;
    Edit_B4315: TEdit;
    Edit_B4321: TEdit;
    Edit_B4322: TEdit;
    Edit_B4323: TEdit;
    Edit_B4324: TEdit;
    Edit_B4325: TEdit;
    Label281: TLabel;
    Label282: TLabel;
    Label283: TLabel;
    Label284: TLabel;
    Label285: TLabel;
    Label286: TLabel;
    Edit_W4333: TEdit;
    Edit_B4331: TEdit;
    Edit_B4332: TEdit;
    Edit_B4333: TEdit;
    Edit_B4334: TEdit;
    Edit_B4335: TEdit;
    BitBtn16: TBitBtn;
    Button64: TButton;
    Button65: TButton;
    Button66: TButton;
    Label287: TLabel;
    Edit_W43: TEdit;
    Label288: TLabel;
    Edit__B431: TEdit;
    Edit__B432: TEdit;
    Edit__B433: TEdit;
    Edit__B434: TEdit;
    Edit__B435: TEdit;
    Label289: TLabel;
    Label290: TLabel;
    Label291: TLabel;
    Label292: TLabel;
    Label293: TLabel;
    Button67: TButton;
    BitBtn17: TBitBtn;
    Button68: TButton;
    Button69: TButton;
    Button70: TButton;
    Label294: TLabel;
    Edit_W44: TEdit;
    Label295: TLabel;
    Edit__B441: TEdit;
    Edit__B442: TEdit;
    Edit__B443: TEdit;
    Edit__B444: TEdit;
    Edit__B445: TEdit;
    Label296: TLabel;
    Label297: TLabel;
    Label298: TLabel;
    Label299: TLabel;
    Label300: TLabel;
    Button71: TButton;
    Label269: TLabel;
    Edit_W4344: TEdit;
    Edit_B4341: TEdit;
    Edit_B4342: TEdit;
    Edit_B4343: TEdit;
    Edit_B4344: TEdit;
    Edit_B4345: TEdit;
    Edit_W4422: TEdit;
    Edit_B4421: TEdit;
    Edit_B4422: TEdit;
    Edit_B4423: TEdit;
    Edit_B4424: TEdit;
    Edit_B4425: TEdit;
    Label270: TLabel;
    Label301: TLabel;
    Label302: TLabel;
    Label303: TLabel;
    Label19: TLabel;
    Label304: TLabel;
    Label305: TLabel;
    Label306: TLabel;
    Label307: TLabel;
    Label308: TLabel;
    PageControl1: TPageControl;
    Label309: TLabel;
    Label310: TLabel;
    Label311: TLabel;
    Label312: TLabel;
    Label313: TLabel;
    Label314: TLabel;
    Label315: TLabel;
    Label316: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button39Click(Sender: TObject);
    
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PartForm: TPartForm;

implementation

Uses MainUnit,Introduce2Unit;

{$R *.dfm}

procedure TPartForm.Button1Click(Sender: TObject);
begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W111.Text='')or(Edit_B111.Text='')or(Edit_B112.Text='')or(Edit_B113.Text='')or(Edit_B114.Text='')or(Edit_B115.Text='')
   or(Edit_W122.Text='')or(Edit_B121.Text='')or(Edit_B122.Text='')or(Edit_B123.Text='')or(Edit_B124.Text='')or(Edit_B125.Text='')
  then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit_B11.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W111.Text)*StrToFloat(Edit_B111.Text)+
                        StrToFloat(Edit_W122.Text)*StrToFloat(Edit_B121.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B12.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W111.Text)*StrToFloat(Edit_B112.Text)+
                        StrToFloat(Edit_W122.Text)*StrToFloat(Edit_B122.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B13.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W111.Text)*StrToFloat(Edit_B113.Text)+
                        StrToFloat(Edit_W122.Text)*StrToFloat(Edit_B123.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B14.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W111.Text)*StrToFloat(Edit_B114.Text)+
                        StrToFloat(Edit_W122.Text)*StrToFloat(Edit_B124.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B15.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W111.Text)*StrToFloat(Edit_B115.Text)+
                        StrToFloat(Edit_W122.Text)*StrToFloat(Edit_B125.Text)
                        )*1000
                       )
                      )/1000
                     );

  if ((strToFloat(Edit_B11.Text)+strToFloat(Edit_B12.Text)+strToFloat(Edit_B13.Text)+
        strToFloat(Edit_B14.Text)+strToFloat(Edit_B15.Text))<>1)
  then
    ShowMessage('要求权重值相加之和等于1！');
    end;


 //--------------------------------------------------------------------
  procedure TPartForm.Button2Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W211.Text='')or(Edit_B211.Text='')or(Edit_B212.Text='')or(Edit_B213.Text='')or(Edit_B214.Text='')or(Edit_B215.Text='')
   or(Edit_W222.Text='')or(Edit_B221.Text='')or(Edit_B222.Text='')or(Edit_B223.Text='')or(Edit_B224.Text='')or(Edit_B225.Text='')
   or(Edit_W233.Text='')or(Edit_B231.Text='')or(Edit_B232.Text='')or(Edit_B233.Text='')or(Edit_B234.Text='')or(Edit_B235.Text='')
   or(Edit_W244.Text='')or(Edit_B241.Text='')or(Edit_B242.Text='')or(Edit_B243.Text='')or(Edit_B244.Text='')or(Edit_B245.Text='')
   or(Edit_W255.Text='')or(Edit_B251.Text='')or(Edit_B252.Text='')or(Edit_B253.Text='')or(Edit_B254.Text='')or(Edit_B255.Text='')
   then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit_B21.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W211.Text)*StrToFloat(Edit_B211.Text)+
                        StrToFloat(Edit_W222.Text)*StrToFloat(Edit_B221.Text)+
                        StrToFloat(Edit_W233.Text)*StrToFloat(Edit_B231.Text)+
                        StrToFloat(Edit_W244.Text)*StrToFloat(Edit_B241.Text)+
                        StrToFloat(Edit_W255.Text)*StrToFloat(Edit_B251.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B22.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W211.Text)*StrToFloat(Edit_B212.Text)+
                        StrToFloat(Edit_W222.Text)*StrToFloat(Edit_B222.Text)+
                        StrToFloat(Edit_W233.Text)*StrToFloat(Edit_B232.Text)+
                        StrToFloat(Edit_W244.Text)*StrToFloat(Edit_B242.Text)+
                        StrToFloat(Edit_W255.Text)*StrToFloat(Edit_B252.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B23.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W211.Text)*StrToFloat(Edit_B213.Text)+
                        StrToFloat(Edit_W222.Text)*StrToFloat(Edit_B223.Text)+
                        StrToFloat(Edit_W233.Text)*StrToFloat(Edit_B233.Text)+
                        StrToFloat(Edit_W244.Text)*StrToFloat(Edit_B243.Text)+
                        StrToFloat(Edit_W255.Text)*StrToFloat(Edit_B253.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B24.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W211.Text)*StrToFloat(Edit_B214.Text)+
                        StrToFloat(Edit_W222.Text)*StrToFloat(Edit_B224.Text)+
                        StrToFloat(Edit_W233.Text)*StrToFloat(Edit_B234.Text)+
                        StrToFloat(Edit_W244.Text)*StrToFloat(Edit_B244.Text)+
                        StrToFloat(Edit_W255.Text)*StrToFloat(Edit_B254.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B25.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W211.Text)*StrToFloat(Edit_B215.Text)+
                        StrToFloat(Edit_W222.Text)*StrToFloat(Edit_B225.Text)+
                        StrToFloat(Edit_W233.Text)*StrToFloat(Edit_B235.Text)+
                        StrToFloat(Edit_W244.Text)*StrToFloat(Edit_B245.Text)+
                        StrToFloat(Edit_W255.Text)*StrToFloat(Edit_B255.Text)
                        )*1000
                       )
                      )/1000
                     );

  if ((strToFloat(Edit_B21.Text)+strToFloat(Edit_B22.Text)+strToFloat(Edit_B23.Text)+
        strToFloat(Edit_B24.Text)+strToFloat(Edit_B25.Text))<>1)