unitmain.~pas

delphi基于工业控制的串口通讯

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ComCtrls, ExtCtrls, jpeg
  , StdCtrls, XPMenu
  , CommClass
  , IniFiles,SPComm
  , UnitCommSet, UnitDataModule, TMediaPlayerClass, UnitPublic,
  TQueryThreadClass, UnitEquipmentConfig, UnitEquipmetSearch,
  UnitSystemConfig, UnitWarnInfoSearch,
  UnitSoftKeyClass;

const
    WM_SHOWMESSAGE = WM_USER + 100;
type
    Tfrm_Main = class(TForm)
    StatusBar1: TStatusBar;
    Image1: TImage;
    L_NowWeek: TLabel;
    Timer1: TTimer;
    L_Date: TLabel;
    L_Time: TLabel;
    Cmd_Config: TSpeedButton;
    Cmd_EquipmentSet: TSpeedButton;
    Cmd_EquipmentSearch: TSpeedButton;
    Cmd_WarnLog: TSpeedButton;
    Cmd_Test: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    Cmd_OpenAll: TSpeedButton;
    Cmd_CloseAll: TSpeedButton;
    Cmd_OpenTime: TSpeedButton;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Cmd_RCOK: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox4: TGroupBox;
    Cmd_WCOk: TSpeedButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Panel3: TPanel;
    Edit_Cont: TLabeledEdit;
    Edit_TerminalCount: TLabeledEdit;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Cmd_RTOK: TSpeedButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    GroupBox7: TGroupBox;
    Cmd_WTOK: TSpeedButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    Panel4: TPanel;
    Edit_TCount: TLabeledEdit;
    Edit_TTerminal: TLabeledEdit;
    Edit_TTerminalAddr: TLabeledEdit;
    Edit_TerminalSet: TLabeledEdit;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    Cmd_RUOK: TSpeedButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    GroupBox10: TGroupBox;
    Cmd_WUOK: TSpeedButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    Edit_UportLock: TComboBox;
    Panel5: TPanel;
    Label2: TLabel;
    Edit_UCont: TLabeledEdit;
    Edit_UTerminal: TLabeledEdit;
    Edit_Uport: TLabeledEdit;
    Edit_UportData: TLabeledEdit;
    Edit_UportSet: TComboBox;
    Edit_PCSendMsg: TLabeledEdit;
    Cmd_Hide: TSpeedButton;
    XPMenu1: TXPMenu;
    PAvi: TPanel;
    WarnImage1: TImage;
    WarnImage2: TImage;
    WarnImage3: TImage;
    WarnImage4: TImage;
    WarnAnimate4: TAnimate;
    WarnAnimate3: TAnimate;
    WarnAnimate2: TAnimate;
    WarnAnimate1: TAnimate;
    WarnImage5: TImage;
    WarnAnimate5: TAnimate;
    WarnAnimate6: TAnimate;
    WarnImage6: TImage;
    WarnAnimate7: TAnimate;
    WarnImage7: TImage;
    WarnAnimate8: TAnimate;
    WarnImage8: TImage;
    WarnImage9: TImage;
    WarnAnimate9: TAnimate;
    WarnImage10: TImage;
    WarnAnimate10: TAnimate;
    WarnImage11: TImage;
    WarnAnimate11: TAnimate;
    WarnImage12: TImage;
    WarnAnimate12: TAnimate;
    WarnImage16: TImage;
    WarnImage15: TImage;
    WarnImage14: TImage;
    WarnImage13: TImage;
    WarnAnimate13: TAnimate;
    WarnAnimate14: TAnimate;
    WarnAnimate15: TAnimate;
    WarnAnimate16: TAnimate;
    Edit_ToPcSender: TLabeledEdit;
    Label1: TLabel;
    Cmd_User: TSpeedButton;
    Cmd_UserRight: TSpeedButton;
    procedure Cmd_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_EquipmentSetClick(Sender: TObject);
    procedure Cmd_EquipmentSearchClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Cmd_ConfigClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Cmd_CloseAllClick(Sender: TObject);
    procedure Cmd_OpenAllClick(Sender: TObject);
    procedure Cmd_OpenTimeClick(Sender: TObject);
    procedure Cmd_RCOKClick(Sender: TObject);
    procedure Cmd_RTOKClick(Sender: TObject);
    procedure Cmd_WCOkClick(Sender: TObject);
    procedure Cmd_WTOKClick(Sender: TObject);
    procedure Cmd_RUOKClick(Sender: TObject);
    procedure Cmd_WUOKClick(Sender: TObject);
    procedure Cmd_HideClick(Sender: TObject);
    procedure Cmd_TestClick(Sender: TObject);
    procedure WarnImage1Click(Sender: TObject);
    procedure WarnImage2Click(Sender: TObject);
    procedure WarnImage3Click(Sender: TObject);
    procedure WarnImage4Click(Sender: TObject);
    procedure WarnImage5Click(Sender: TObject);
    procedure WarnImage6Click(Sender: TObject);
    procedure WarnImage16Click(Sender: TObject);
    procedure WarnImage15Click(Sender: TObject);
    procedure WarnImage14Click(Sender: TObject);
    procedure WarnImage13Click(Sender: TObject);
    procedure WarnImage12Click(Sender: TObject);
    procedure WarnImage11Click(Sender: TObject);
    procedure WarnImage9Click(Sender: TObject);
    procedure WarnImage10Click(Sender: TObject);
    procedure WarnImage7Click(Sender: TObject);
    procedure WarnImage8Click(Sender: TObject);
    procedure Cmd_WarnLogClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure Cmd_UserClick(Sender: TObject);
  private
    { Private declarations }
    DisPos: Integer;
  public
    { Public declarations }
    procedure Initinfo(Sender: TObject);
    procedure OnShowMessage(var Msg:TMessage);message WM_SHOWMESSAGE;
    procedure SendMsg;
  end;

var
  frm_Main: Tfrm_Main;
  SysInfo: String;
implementation

uses UnitLogin, UnitUserConfg;

{uses UnitCommSet, UnitDataModule, TMediaPlayerClass, UnitPublic,
  TQueryThreadClass, UnitEquipmentConfig, UnitEquipmetSearch,
  UnitSystemConfig, UnitWarnInfoSearch,
  UnitSoftKeyClass;}

{$R *.dfm}

procedure Tfrm_Main.OnShowMessage(var Msg: TMessage);
begin
    //MemoMSG.Clear;
    //MemoMSG.Lines.Add(PChar(Msg.WParam));
    StatusBar1.Panels[2].Text:=PChar(Msg.WParam);
    Edit_ToPcSender.Text     := PChar(Msg.WParam);
end;
procedure Tfrm_Main.SendMsg;
begin
    if MySpcomm.Sendviewstring<>'' then
    begin
        Edit_PCSendMsg.Text := MySpcomm.Sendviewstring;
    end;
end;
procedure Tfrm_Main.Initinfo(Sender: TObject);
var
    IconStr     : String;
    PictueStr   : String;
    TimeOnoffStr: String;
    FileName    : String;
    Myini       : TIniFile;
   
begin
    Try
        PictueStr:=MainPicture;
        Image1.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+PictueStr);
        IconStr:=LoadIcon;
        Application.Icon.LoadFromFile(ExtractFilePath(paramstr(0))+IconStr);
    except
    end;

    //设置TQueryThread查询时间间隔
    try
        Myini       :=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
        MusicLength :=Myini.ReadInteger('MusicLengthSet','MusicLength',1);
        SoftMake    :=Myini.ReadString('SoftWareSet','SoftMake','');
        SoftUserName:=Myini.ReadString('SoftUserSet','UserName','');
        SoftName    :=Myini.ReadString('SoftUserSet','SoftName','');
        Myini.Free;
    except
        Myini.Free;
    end;
    //系统设置的报警器对数
    try
        Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
        WarnNumber:=Myini.ReadInteger('WarnNumberSet','WarnNumber',16);
        if WarnNumber=1 then
        begin
            WarnImage1.Visible:=True;
        end;
        if WarnNumber=2 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
        end;
        if WarnNumber=3 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;
        end;
        if WarnNumber=4 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
        end;
        if WarnNumber=5 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;
        end;
        if WarnNumber=6 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage5.Visible:=True;
        end;
        if WarnNumber=7 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;
        end;
        if WarnNumber=8 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
        end;
        if WarnNumber=9 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;
        end;
        if WarnNumber=10 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
        end;
        if WarnNumber=11 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True;
        end;
        if WarnNumber=12 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True; WarnImage12.Visible:=True;
        end;
        if WarnNumber=13 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True; WarnImage12.Visible:=True;
            WarnImage13.Visible:=True;
        end;
        if WarnNumber=14 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True; WarnImage12.Visible:=True;
            WarnImage13.Visible:=True; WarnImage14.Visible:=True;
        end;
        if WarnNumber=15 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True; WarnImage12.Visible:=True;
            WarnImage13.Visible:=True; WarnImage14.Visible:=True;
            WarnImage15.Visible:=True;
        end;
        if WarnNumber=16 then
        begin
            WarnImage1.Visible:=True;  WarnImage2.Visible:=True;
            WarnImage3.Visible:=True;  WarnImage4.Visible:=True;
            WarnImage5.Visible:=True;  WarnImage6.Visible:=True;
            WarnImage7.Visible:=True;  WarnImage8.Visible:=True;
            WarnImage9.Visible:=True;  WarnImage10.Visible:=True;
            WarnImage11.Visible:=True; WarnImage12.Visible:=True;
            WarnImage13.Visible:=True; WarnImage14.Visible:=True;
            WarnImage15.Visible:=True; WarnImage16.Visible:=True;
        end;
        Myini.Free;
    except
        Myini.Free;
    end;
    //设置TAnimate1的动画文件名称
    try
        try
            Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
            FileName:=Myini.ReadString('AviFileSet','FileName','');
            Myini.Free;
        except
            Myini.Free;
        end;
        WarnAnimate1.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate2.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate3.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate4.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate5.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate6.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate7.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate8.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate9.FileName := ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate10.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate11.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate12.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate13.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate14.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate15.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
        WarnAnimate16.FileName:= ExtractFilePath(paramstr(0))+'AviFile\'+FileName;
    except
        Myini.Free;
    end;
    //读系统是否打开了定时开关
    TimeOnoffStr:=TimeOnOff;
    if TimeOnoffStr='1' then
    begin
        try
            MyQueryThread:=TQueryThread.Create(False);
            Cmd_OpenTime.Caption:='关闭定时(&T)';
        except
            Exit;
        end;
    end;
    //读系统的连动报警信息的设置(0：不连动报警；1：连动报警)
    try
        Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
        ValuesStr:=Myini.ReadString('GoOnWarnSet','ValuesStr','');
        if ValuesStr='1' then     //表示设置的是连动报警