unitsystemconfig.pas

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

unit UnitSystemConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ToolWin, ExtCtrls, Grids, DBGrids,
  CheckLst, Mask,IniFiles, XPMenu,mmsystem
  , TMediaPlayerClass, MPlayer ;

type
  Tfrm_SystemConfig = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    BtStart: TSpeedButton;
    BtStop: TSpeedButton;
    BtListen: TSpeedButton;
    OpenDialog1: TOpenDialog;
    Edit_MusicName: TLabeledEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit_WarnNumber: TLabeledEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Edit_MusicLength: TLabeledEdit;
    Cmd_MusicLength: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    LabeledEdit1: TLabeledEdit;
    Label2: TLabel;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    R1: TRadioButton;
    R2: TRadioButton;
    Lab_UportData: TLabel;
    Edit_UportData: TComboBox;
    procedure BtStartClick(Sender: TObject);
    procedure BtStopClick(Sender: TObject);
    procedure BtListenClick(Sender: TObject);
    procedure Edit_WarnNumberKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit_MusicLengthKeyPress(Sender: TObject; var Key: Char);
    procedure Cmd_MusicLengthClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure R2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
    frm_SystemConfig: Tfrm_SystemConfig;
    Open_Type       :String ; //01表示间断打开；打开 02表示一直打开
    Time_Type       :String ; //01表示每天；打开 02表示每周
    TestPlayer      :TMyPlayer;
implementation

uses UnitDataModule, UnitPublic, UnitMain;

{$R *.dfm}
procedure Tfrm_SystemConfig.BtStartClick(Sender: TObject);
begin
    if  Edit_MusicName.Text='' then
    begin
        Application.MessageBox('【请正确填写声音文件名称】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Edit_MusicName.SetFocus;
        Exit;
    end;
    MyPlayer.Parent:=frm_main;
    MyPlayer.RecordViom(trim(Edit_MusicName.Text)+'.wav',BtStart,BtStop);
end;

procedure Tfrm_SystemConfig.BtStopClick(Sender: TObject);
begin
    MyPlayer.Parent:=frm_main;
    MyPlayer.StopRecordViom(BtStart,BtStop);
end;

procedure Tfrm_SystemConfig.BtListenClick(Sender: TObject);
begin
    if OpenDialog1.Execute then
    begin
        MyPlayer.Parent:=frm_main;
        MyPlayer.FileName:= OpenDialog1.FileName;
        MyPlayer.Open;
        MyPlayer.Play;
    end;
end;
procedure Tfrm_SystemConfig.Edit_WarnNumberKeyPress(Sender: TObject;
  var Key: Char);
begin
    if not(key in['0'..'9',#8]) then
    begin
        key:=#0;
    end;
end;

procedure Tfrm_SystemConfig.SpeedButton1Click(Sender: TObject);
var
    Myin:TiniFile;
begin
    if  Edit_WarnNumber.Text='' then
    begin
        Application.MessageBox('【请正确填写系统报警器最大对数】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Edit_WarnNumber.SetFocus;
        Exit;
    end;
    Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
    try
        Myini.WriteInteger('WarnNumberSet','WarnNumber',StrToInt(Edit_WarnNumber.Text));
        Myini.Free;
        Application.MessageBox('【系统报警器最大对数】设置成功！请确认！',Pchar(Application.Title),MB_ICONINFORMATION+MB_OK);
    except
        Myini.Free;
    end;
end;

procedure Tfrm_SystemConfig.Edit_MusicLengthKeyPress(Sender: TObject;
  var Key: Char);
begin
    if not(key in['0'..'9',#8]) then
    begin
        key:=#0;
    end;
end;

procedure Tfrm_SystemConfig.Cmd_MusicLengthClick(Sender: TObject);
var
    Myin:TiniFile;
begin
    if  Edit_MusicLength.Text='' then
    begin
        Application.MessageBox('【请正确填写系统报警器发声长度】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Edit_MusicLength.SetFocus;
        Exit;
    end;
    Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
    try
        Myini.WriteInteger('MusicLengthSet','MusicLength',StrToint(Edit_MusicLength.Text)*1000);
        Myini.Free;
        Application.MessageBox('【系统报警器发声长度】设置成功！请确认！',Pchar(Application.Title),MB_ICONINFORMATION+MB_OK);
    except
        Myini.Free;
    end;
end;

procedure Tfrm_SystemConfig.SpeedButton2Click(Sender: TObject);
var
    Myin:TiniFile;
begin
    if  LabeledEdit1.Text='' then
    begin
        Application.MessageBox('【请正确填写系统使用商】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        LabeledEdit1.SetFocus;
        Exit;
    end;
    Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
    try
        Myini.WriteString('SoftUserSet','UserName',Trim(LabeledEdit1.Text));
        Myini.Free;
        Application.MessageBox('【系统使用商】设置成功！请确认！',Pchar(Application.Title),MB_ICONINFORMATION+MB_OK);
    except
        Myini.Free;
    end;
end;

procedure Tfrm_SystemConfig.R1Click(Sender: TObject);
begin
    if R1.Checked=true then
    begin
        Lab_UportData.Enabled:=True;
        Edit_UportData.Clear;
        Edit_UportData.Items.Add('关');
        Edit_UportData.Items.Add('开');
        Edit_UportData.Enabled:=True;
    end;
end;

procedure Tfrm_SystemConfig.R2Click(Sender: TObject);
begin
    if R2.Checked=true then
    begin
        Lab_UportData.Enabled:=False;
        Edit_UportData.Clear;
        Edit_UportData.Enabled:=False;
    end;
end;

procedure Tfrm_SystemConfig.SpeedButton3Click(Sender: TObject);
var
    Myin:TiniFile;
begin
    if  R1.Checked=true then
    begin
        if Trim(Edit_UportData.Text)='' then
        begin
            Application.MessageBox('请正确选择【填开关命令】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
            Exit;
        end
        else
        begin
            try
                Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
                Myini.WriteString('GoOnWarnSet','ValuesStr','1');
                Myini.WriteInteger('GoOnWarnSet','ResultVlues',Edit_UportData.ItemIndex);
                Myini.Free;
                Application.MessageBox('【系统连动报警设置】设置成功！请确认！',Pchar(Application.Title),MB_ICONINFORMATION+MB_OK);
            except
                Myini.Free;
            end;
        end;
    end
    else if R2.Checked=true then
    begin
        try
            Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
            Myini.WriteString('GoOnWarnSet','ValuesStr','0');
            Myini.Free;
            Application.MessageBox('【系统连动报警设置】设置成功！请确认！',Pchar(Application.Title),MB_ICONINFORMATION+MB_OK);
        except
            Myini.Free;
        end;
    end;
end;

end.