alertform.~pas

采用delphi语言实现了智能监视系统。使用了access数据库。

unit AlertForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, Spin;

type
  TfrmAlertConfig = class(TForm)
    Panel1: TPanel;
    bbnCancel: TBitBtn;
    bbnOK: TBitBtn;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    cbxAlertLight: TCheckBox;
    cbxAlertSpeaker: TCheckBox;
    GroupBox2: TGroupBox;
    cbxShortMsg: TCheckBox;
    edtCenterNo: TEdit;
    Label1: TLabel;
    btnRecPerson: TButton;
    procedure FormCreate(Sender: TObject);
    procedure bbnOKClick(Sender: TObject);
    procedure cbxShortMsgClick(Sender: TObject);
    procedure btnRecPersonClick(Sender: TObject);
  private
    function WriteReg():integer;
    function ReadReg():integer;
  public
  end;

var
  frmAlertConfig: TfrmAlertConfig;

implementation

uses
    inifiles, RecPersonForm, MainForm;

{$R *.DFM}

{ TfrmAlertConfig }

function TfrmAlertConfig.ReadReg: integer;
var
    ini: TiniFile;
begin
    Result := 1;
    try
        //读取默认的驱动器
        ini:= TInifile.Create('vcap.ini');
        //读取成员变量
        cbxAlertLight.Checked := ini.ReadBool('Device','AlertLight',True);
        cbxAlertSpeaker.Checked := ini.ReadBool('Device','AlertSpeak',True);
        cbxShortMsg.Checked := ini.ReadBool('Device','ShortMsg',True);
        edtCenterNo.Text := ini.ReadString('Device','CenterNo','[phone]');
        ini.free;
        cbxShortMsgClick(Self);
    except
        cbxAlertLight.Checked := True;
        cbxAlertSpeaker.Checked := True;
        Result := -1;
    end;
end;

function TfrmAlertConfig.WriteReg: integer;
var
    ini: TIniFile;
begin
    Result := 1;
    try
        ini := TIniFile.Create('vcap.ini');
        ini.WriteBool('Device','AlertLight',cbxAlertLight.Enabled);
        ini.writeBool('Device','AlertSpeaker',cbxAlertSpeaker.Enabled);
        ini.WriteBool('Device','ShortMsg',cbxShortMsg.Enabled);
        ini.WriteString('Device','CenterNo',edtCenterNo.Text);
        ini.Free;
    except
        Result := -1;
    end;
end;

procedure TfrmAlertConfig.FormCreate(Sender: TObject);
begin
    if ReadReg() < 0 then
    begin
        ShowMessage('不能读取配置信息，使用默认值！');
    end;
end;

procedure TfrmAlertConfig.bbnOKClick(Sender: TObject);
begin
    if WriteReg() < 0 then
    begin
        ShowMessage('不能写入配置信息！');
    end
    else begin
        if MessageDlg('改动的设置需要重起才能生效，是否继续？',
            mtConfirmation,mbOKCancel,0) = mrOK then
        begin
            Main.Close;
        end;
    end;
end;

procedure TfrmAlertConfig.cbxShortMsgClick(Sender: TObject);
begin
    edtCenterNo.Enabled := cbxShortMsg.Checked 
end;

procedure TfrmAlertConfig.btnRecPersonClick(Sender: TObject);
begin
    frmRecPerson.ShowModal;
end;

end.