test.pas

温度恒温控制,与PLC,工控板通讯,实现炉字过程控制.

unit test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Spin, DB, ADODB, TeEngine, Series,
  TeeProcs, Chart, Buttons,filectrl,dateutils,strutils,inifiles,
  functionlibrary,tempreader, CPort,omron_plc_fins, Menus, OleCtrls,
  MSCommLib_TLB;
type
  Tfrmglass = class(TForm)
    Panel1: TPanel;
    tmdate: TTimer;
    tmtemp1: TTimer;
    opendlog: TOpenDialog;
    savedlog: TSaveDialog;
    savedlfile: TSaveDialog;
    opendlfile: TOpenDialog;
    tmtemp: TTimer;
    Panel8: TPanel;
    lbyearmonth: TLabel;
    lbday: TLabel;
    lbtime: TLabel;
    lbweek: TLabel;
    Edit6: TEdit;
    Timer0: TTimer;
    tmtemp2: TTimer;
    tmtemp3: TTimer;
    tmtemp4: TTimer;
    tmtemp5: TTimer;
    tmtemp6: TTimer;
    tmtemp7: TTimer;
    tmtemp8: TTimer;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit10: TEdit;
    tmtemp9: TTimer;
    tmtemp10: TTimer;
    tmtemp11: TTimer;
    tmtemp12: TTimer;
    tmtemp13: TTimer;
    tmtemp14: TTimer;
    tmtemp15: TTimer;
    tmtemp16: TTimer;
    tmtemp17: TTimer;
    tmtemp18: TTimer;
    tmtemp19: TTimer;
    tmtemp20: TTimer;
    tmtemp21: TTimer;
    tmtemp22: TTimer;
    tmtemp23: TTimer;
    tmtemp24: TTimer;
    tmtemp25: TTimer;
    tmtemp26: TTimer;
    tmtemp27: TTimer;
    tmtemp28: TTimer;
    tmtemp29: TTimer;
    tmtemp30: TTimer;
    tmtemp31: TTimer;
    tmtemp32: TTimer;
    tmtemp33: TTimer;
    tmtemp34: TTimer;
    tmtemp35: TTimer;
    tmtemp36: TTimer;
    tmtemp37: TTimer;
    tmtemp38: TTimer;
    tmtemp39: TTimer;
    tmtemp40: TTimer;
    tmtemp41: TTimer;
    tmtemp42: TTimer;
    tmtemp43: TTimer;
    tmtemp44: TTimer;
    tmtemp45: TTimer;
    tmtemp46: TTimer;
    tmtemp47: TTimer;
    tmtemp48: TTimer;
    tmtemp49: TTimer;
    tmtemp50: TTimer;
    tmtemp51: TTimer;
    tmtemp52: TTimer;
    tmtemp53: TTimer;
    tmtemp54: TTimer;
    tmtemp55: TTimer;
    tmtemp56: TTimer;
    tmplc: TTimer;
    Label114: TLabel;
    tmglass: TTimer;
    tmsound: TTimer;
    pnwarn: TPanel;
    shpwarn: TShape;
    lbwarn: TLabel;
    MainMenu1: TMainMenu;
    MSComm2: TMSComm;
    Edit1: TEdit;
    PageControl1: TPageControl;
    tabsmonitor: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label5: TLabel;
    Panel29: TPanel;
    Label7: TLabel;
    Label89: TLabel;
    Panel31: TPanel;
    Label91: TLabel;
    Label90: TLabel;
    edtemp15: TEdit;
    edtemp14: TEdit;
    edtemp8: TEdit;
    edtemp9: TEdit;
    edtemp10: TEdit;
    edtemp5: TEdit;
    edtemp4: TEdit;
    edtemp13: TEdit;
    edtemp3: TEdit;
    edtemp12: TEdit;
    edtemp7: TEdit;
    edtemp2: TEdit;
    edtemp6: TEdit;
    edtemp11: TEdit;
    edtemp1: TEdit;
    edtemp43: TEdit;
    edtemp42: TEdit;
    edtemp41: TEdit;
    edtemp40: TEdit;
    edtemp39: TEdit;
    edtemp38: TEdit;
    edtemp37: TEdit;
    edtemp36: TEdit;
    edtemp35: TEdit;
    edtemp34: TEdit;
    edtemp33: TEdit;
    edtemp32: TEdit;
    edtemp31: TEdit;
    edtemp29: TEdit;
    edtemp30: TEdit;
    Panel32: TPanel;
    Label93: TLabel;
    Label92: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    pndwz: TPanel;
    pndwgd: TPanel;
    pndwsj: TPanel;
    pnjlbt: TPanel;
    Label95: TLabel;
    Panel10: TPanel;
    pngwz: TPanel;
    pngwgd: TPanel;
    pngwsj: TPanel;
    pnrphbt: TPanel;
    Label97: TLabel;
    splowheat: TSpinEdit;
    sphighheat: TSpinEdit;
    Panel16: TPanel;
    edgw: TEdit;
    edcd: TEdit;
    eddw: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    edmc: TEdit;
    bnstart: TButton;
    bnstop: TButton;
    Panel26: TPanel;
    Panel37: TPanel;
    pnfj3z: TPanel;
    pnfj3gd: TPanel;
    pnfj3sd: TPanel;
    Panel42: TPanel;
    Label104: TLabel;
    spfj3lq: TSpinEdit;
    edqh: TEdit;
    Edit9: TEdit;
    Edit2: TEdit;
    tabsup: TTabSheet;
    Panel4: TPanel;
    Label85: TLabel;
    Label87: TLabel;
    pnuplow: TPanel;
    sptemwc1: TSpinEdit;
    sptemwc2: TSpinEdit;
    sptemwc3: TSpinEdit;
    sptemwc4: TSpinEdit;
    sptemwc5: TSpinEdit;
    sptemwc6: TSpinEdit;
    sptemwc7: TSpinEdit;
    sptemwc8: TSpinEdit;
    sptemwc9: TSpinEdit;
    sptemwc10: TSpinEdit;
    sptemwc11: TSpinEdit;
    sptemwc12: TSpinEdit;
    sptemwc13: TSpinEdit;
    sptemwc14: TSpinEdit;
    sptemwc15: TSpinEdit;
    sptem1: TSpinEdit;
    sptem2: TSpinEdit;
    sptem3: TSpinEdit;
    sptem4: TSpinEdit;
    sptem5: TSpinEdit;
    sptem6: TSpinEdit;
    sptem7: TSpinEdit;
    sptem8: TSpinEdit;
    sptem9: TSpinEdit;
    sptem10: TSpinEdit;
    sptem11: TSpinEdit;
    sptem12: TSpinEdit;
    sptem13: TSpinEdit;
    sptem14: TSpinEdit;
    sptem15: TSpinEdit;
    pntem1: TPanel;
    pntem2: TPanel;
    pntem3: TPanel;
    pntem4: TPanel;
    pntem5: TPanel;
    pntem6: TPanel;
    pntem7: TPanel;
    pntem8: TPanel;
    pntem9: TPanel;
    pntem10: TPanel;
    pntem11: TPanel;
    pntem12: TPanel;
    pntem13: TPanel;
    pntem14: TPanel;
    pntem15: TPanel;
    bnupdw: TButton;
    edupdw: TEdit;
    MSComm1: TMSComm;
    udupwcrow4: TUpDown;
    udupwcrow5: TUpDown;
    udupwcrow6: TUpDown;
    uduprow4: TUpDown;
    uduprow5: TUpDown;
    uduprow6: TUpDown;
    udlowrow4: TUpDown;
    pndownlow: TPanel;
    pntem28: TPanel;
    sptem28: TSpinEdit;
    sptemwc28: TSpinEdit;
    pntem27: TPanel;
    sptem27: TSpinEdit;
    sptemwc27: TSpinEdit;
    pntem26: TPanel;
    sptem26: TSpinEdit;
    sptemwc26: TSpinEdit;
    pntem25: TPanel;
    sptem25: TSpinEdit;
    sptemwc25: TSpinEdit;
    pntem24: TPanel;
    sptem24: TSpinEdit;
    sptemwc24: TSpinEdit;
    pntem23: TPanel;
    sptem23: TSpinEdit;
    sptemwc23: TSpinEdit;
    pntem22: TPanel;
    sptem22: TSpinEdit;
    sptemwc22: TSpinEdit;
    pntem21: TPanel;
    sptem21: TSpinEdit;
    sptemwc21: TSpinEdit;
    pntem20: TPanel;
    sptem20: TSpinEdit;
    sptemwc20: TSpinEdit;
    pntem19: TPanel;
    sptem19: TSpinEdit;
    sptemwc19: TSpinEdit;
    pntem18: TPanel;
    sptem18: TSpinEdit;
    sptemwc18: TSpinEdit;
    pntem17: TPanel;
    sptem17: TSpinEdit;
    sptemwc17: TSpinEdit;
    pntem16: TPanel;
    sptem16: TSpinEdit;
    sptemwc16: TSpinEdit;
    bndowndw: TButton;
    eddowndw: TEdit;
    udlowrow5: TUpDown;
    udlowrow6: TUpDown;
    udlowrowwc4: TUpDown;
    udlowrowwc5: TUpDown;
    udlowrowwc6: TUpDown;
    tabsdown: TTabSheet;
    Panel5: TPanel;
    Label88: TLabel;
    Label86: TLabel;
    udlowrow1: TUpDown;
    udlowrow2: TUpDown;
    udlowrow3: TUpDown;
    udlowrowwc1: TUpDown;
    udlowrowwc2: TUpDown;
    udlowrowwc3: TUpDown;
    pndownhigh: TPanel;
    pntem56: TPanel;
    pntem51: TPanel;
    pntem46: TPanel;
    sptem56: TSpinEdit;
    sptemwc56: TSpinEdit;
    sptem51: TSpinEdit;
    sptemwc51: TSpinEdit;
    sptem46: TSpinEdit;
    sptemwc46: TSpinEdit;
    pntem55: TPanel;
    sptem55: TSpinEdit;
    sptemwc55: TSpinEdit;
    pntem50: TPanel;
    sptem50: TSpinEdit;
    sptemwc50: TSpinEdit;
    pntem45: TPanel;
    sptem45: TSpinEdit;
    sptemwc45: TSpinEdit;
    pntem44: TPanel;
    sptem44: TSpinEdit;
    pntem49: TPanel;
    sptem49: TSpinEdit;
    sptemwc49: TSpinEdit;
    pntem54: TPanel;
    sptem54: TSpinEdit;
    sptemwc54: TSpinEdit;
    pntem53: TPanel;
    sptem53: TSpinEdit;
    sptemwc53: TSpinEdit;
    pntem52: TPanel;
    sptem52: TSpinEdit;
    sptemwc52: TSpinEdit;
    pntem48: TPanel;
    sptem48: TSpinEdit;
    sptemwc48: TSpinEdit;
    pntem47: TPanel;
    sptem47: TSpinEdit;
    sptemwc47: TSpinEdit;
    sptemwc44: TSpinEdit;
    bndowngw: TButton;
    eddowngw: TEdit;
    uduprow1: TUpDown;
    uduprow2: TUpDown;
    uduprow3: TUpDown;
    pnuphigh: TPanel;
    pntem43: TPanel;
    pntem38: TPanel;
    pntem33: TPanel;
    sptem43: TSpinEdit;
    sptemwc43: TSpinEdit;
    sptem38: TSpinEdit;
    sptemwc38: TSpinEdit;
    sptem33: TSpinEdit;
    sptemwc33: TSpinEdit;
    sptem42: TSpinEdit;
    sptemwc42: TSpinEdit;
    pntem42: TPanel;
    pntem37: TPanel;
    sptem37: TSpinEdit;
    sptemwc37: TSpinEdit;
    pntem32: TPanel;
    sptem32: TSpinEdit;
    sptemwc32: TSpinEdit;
    pntem41: TPanel;
    sptem41: TSpinEdit;
    sptemwc41: TSpinEdit;
    pntem36: TPanel;
    sptem36: TSpinEdit;
    sptemwc36: TSpinEdit;
    pntem31: TPanel;
    sptem31: TSpinEdit;
    sptemwc31: TSpinEdit;
    pntem40: TPanel;
    sptem40: TSpinEdit;
    sptemwc40: TSpinEdit;
    pntem35: TPanel;
    sptem35: TSpinEdit;
    sptemwc35: TSpinEdit;