tscpar.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit TscPar;

interface

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

type
  TTscParForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    gbAlter: TGroupBox;
    lblAlterTime1: TLabel;
    edtAlterTime: TEdit;
    lblAlterTime2: TLabel;
    edtOnline: TEdit;
    lblOnline2: TLabel;
    gbEmail: TGroupBox;
    lblAddress: TLabel;
    lblSmpt: TLabel;
    edtAddress: TEdit;
    edtSmtp: TEdit;
    lblPort: TLabel;
    edtPort: TEdit;
    lblUser: TLabel;
    edtUser: TEdit;
    edtPass: TEdit;
    lblPass: TLabel;
    lblOnline1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TscParForm: TTscParForm;

implementation

uses AlterComm;

{$R *.dfm}

procedure TTscParForm.FormCreate(Sender: TObject);
begin
  edtAlterTime.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','ALTER','TIME',2));  //预警信息的发送间隔时间5秒
  edtOnLine.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','ALTER','ONLINE',2));  //在线用户无活动时间超过180秒时，则自动删除
  edtAddress.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','ADDRESS',1);  //邮件地址
  edtSmtp.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','SMTP',1);  //发送服务器
  edtPort.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','EMAIL','PORT',2));  //发送服务器端口
  edtUser.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','USER',1);  //帐号
  edtPass.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','PASS',1);  //密码
end;

procedure TTscParForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;

procedure TTscParForm.bbtnOkClick(Sender: TObject);
begin
//确定
  WriteIniFile('.\HwTSC.ini','ALTER','TIME',2,StrToInt(edtAlterTime.Text));  //预警信息的发送间隔时间5秒
  WriteIniFile('.\HwTSC.ini','ALTER','ONLINE',2,StrToInt(edtOnline.Text));  //在线用户无活动时间超过180秒时，则自动删除
  WriteIniFile('.\HwTSC.ini','EMAIL','ADDRESS',1,edtAddress.Text);  //邮件地址
  WriteIniFile('.\HwTSC.ini','EMAIL','SMTP',1,edtSmtp.Text);  //发送服务器
  WriteIniFile('.\HwTSC.ini','EMAIL','PORT',2,edtPort.Text);  //发送服务器端口
  WriteIniFile('.\HwTSC.ini','EMAIL','USER',1,edtUser.Text);  //帐号
  WriteIniFile('.\HwTSC.ini','EMAIL','PASS',1,edtPass.Text);  //密码
  ShowMsg('参数设置成功!',1);
  ModalResult:=1;
end;

procedure TTscParForm.bbtnExitClick(Sender: TObject);
begin
//退出
  Close;
end;

end.